d0p1/ack
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

ReadString did not skip leading spaces

Browse source
This commit is contained in:
ceriel 1987-06-11 13:07:27 +00:00
parent a33bd07a3d
commit ee3a80c6e5
1 changed files with 4 additions and 0 deletions

4
lang/m2/libm2/InOut.mod
View file

@ -308,6 +308,10 @@ IMPLEMENTATION MODULE InOut ;
BEGIN BEGIN
i := 0; i := 0;
REPEAT
Read(ch);
UNTIL (ch # ' ') AND (ch # TAB);
UnRead(ch);
LOOP LOOP
Read(ch); Read(ch);
termCH := ch; termCH := ch;