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

Added cap.c

Browse Source
This commit is contained in:
ceriel
1988-04-05 15:27:50 +00:00
parent e566fc551d
commit f47d49b1c0
3 changed files with 22 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
lang/m2/libm2/PascalIO.mod
View File

@@ -117,6 +117,10 @@ IMPLEMENTATION MODULE PascalIO;
PROCEDURE ReadChar(InputText: Text; VAR ch : CHAR);
BEGIN
ch := NextChar(InputText);
IF InputText^.eof THEN
Traps.Message("unexpected EOF");
HALT;
END;
InputText^.done := FALSE;
END ReadChar;
@@ -140,16 +144,7 @@ IMPLEMENTATION MODULE PascalIO;
PROCEDURE Get(InputText: Text);
VAR dummy: CHAR;
BEGIN
WITH InputText^ DO
IF type # Preading THEN Error(Preading); END;
IF eof THEN
Traps.Message("unexpected EOF");
HALT;
END;
IF done THEN done := FALSE;
ELSE dummy := NextChar(InputText);
END;
END;
ReadChar(InputText, dummy);
END Get;
PROCEDURE Eoln(InputText: Text): BOOLEAN;