vishapoberon/compiler
1
0
Fork 0
mirror of https://github.com/vishapoberon/compiler.git synced 2026-04-06 09:52:24 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Remove redundant sync that causes error on windows. Update console for Windows cr/lf.

Browse source
This commit is contained in:
David Brown 2016-11-10 11:22:23 +00:00
parent c2e97de495
commit c93705920e
2 changed files with 11 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

9
src/library/v4/Console.Mod
View file

@ -46,7 +46,7 @@ MODULE Console; (* J. Templ, 29-June-96 *)
END Int;
PROCEDURE Ln*;
BEGIN Char(0AX); (* Unix end-of-line *)
BEGIN String(Platform.NL);
END Ln;
PROCEDURE Bool*(b: BOOLEAN);
@ -75,7 +75,12 @@ MODULE Console; (* J. Templ, 29-June-96 *)
VAR i: LONGINT; ch: CHAR;
BEGIN Flush();
i := 0; Read(ch);
WHILE (i < LEN(line) - 1) & (ch # 0AX) & (ch # 0X) DO line[i] := ch; INC(i); Read(ch) END ;
WHILE (i < LEN(line) - 1)
& (ch # 0AX)
& (ch # 0X) DO
line[i] := ch; INC(i); Read(ch)
END;
IF (i > 0) & (line[i-1] = 0DX) THEN DEC(i) END; (* Swallow CR before LF *)
line[i] := 0X
END ReadLine;