changed trap messages somewhat, corrected bug in InOut, undone changes
to confarray.c
This commit is contained in:
@@ -256,6 +256,8 @@ IMPLEMENTATION MODULE InOut ;
|
||||
integ := int
|
||||
END;
|
||||
IF buf[index] > " " THEN
|
||||
Write(buf[index]);
|
||||
Write(termCH);
|
||||
Traps.Message("illegal integer");
|
||||
HALT;
|
||||
END;
|
||||
@@ -419,6 +421,7 @@ IMPLEMENTATION MODULE InOut ;
|
||||
END WriteString;
|
||||
|
||||
BEGIN (* InOut initialization *)
|
||||
unread := FALSE;
|
||||
WITH ibuf DO
|
||||
fildes := 0;
|
||||
bufferedcount := BUFSIZ;
|
||||
|
||||
Reference in New Issue
Block a user