godzil/ack
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fixes

Browse Source
This commit is contained in:
ceriel
1987-06-19 09:25:08 +00:00
parent befe7be9de
commit ea590431d8
2 changed files with 17 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
lang/m2/libm2/InOut.mod
View File

@@ -313,14 +313,17 @@ IMPLEMENTATION MODULE InOut ;
Read(ch);
UNTIL (ch # ' ') AND (ch # TAB);
UnRead(ch);
LOOP
REPEAT
Read(ch);
termCH := ch;
IF (NOT Done) OR (ch <= " ") THEN s[i] := 0C; RETURN END;
s[i] := ch;
IF i <= HIGH(s) THEN
s[i] := ch;
IF (NOT Done) OR (ch <= " ") THEN
s[i] := 0C;
END;
END;
INC(i);
IF i > HIGH(s) THEN DEC(i); END;
END;
UNTIL (NOT Done) OR (ch <= " ");
END ReadString;
PROCEDURE XReadString(VAR s : ARRAY OF CHAR);