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

Update Files.Mod

Browse source
This commit is contained in:
Ivan Sukin 2016-11-12 02:07:59 +04:00 • committed by GitHub
parent 7d4815e2ae
commit 9c5320aee5
1 changed files with 8 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

11
src/system/Files.Mod
View file

@ -642,14 +642,19 @@ Especially Length would become fairly complex.
END ReadString; END ReadString;
PROCEDURE ReadLine* (VAR R: Rider; VAR x: ARRAY OF CHAR); PROCEDURE ReadLine* (VAR R: Rider; VAR x: ARRAY OF CHAR);
VAR i: INTEGER; ch: CHAR; b : BOOLEAN; pos: LONGINT; VAR i: INTEGER; ch: CHAR; b : BOOLEAN; pos: LONGINT; tail: INTEGER;
BEGIN BEGIN
i := 0; i := 0;
b := FALSE; b := FALSE;
pos := Pos(R); pos := Pos(R);
tail := 0;
REPEAT REPEAT
Read(R, ch); Read(R, ch);
IF ((ch = 0X) OR (ch = 0AX) OR (ch = 0DX)) THEN IF ((ch = 0X) OR (ch = 0AX) OR (ch = 0DX)) THEN
IF (ch = 0X) THEN
tail := 1;
ELSE
tail := Strings.Length(Platform.nl);
b := TRUE b := TRUE
ELSE ELSE
x[i] := ch; x[i] := ch;
@ -657,7 +662,7 @@ Especially Length would become fairly complex.
END; END;
UNTIL b; UNTIL b;
x[i] := 0X; x[i] := 0X;
IF ~R.eof THEN Set(R, R.buf.f, pos + i + 1); END; IF ~R.eof THEN Set(R, R.buf.f, pos + i + tail); END;
END ReadLine; END ReadLine;
PROCEDURE ReadNum* (VAR R: Rider; VAR x: LONGINT); PROCEDURE ReadNum* (VAR R: Rider; VAR x: LONGINT);