27 lines
522 B
Plaintext
27 lines
522 B
Plaintext
CONST BUFLEN=1024, EOF=-1
|
|
|
|
PROC consume_input(fh)
|
|
DEF buf[BUFLEN] : STRING, r
|
|
REPEAT
|
|
/* even if the line si longer than BUFLEN,
|
|
ReadStr won't overflow; rather the line is
|
|
"splitted" and the remaining part is read in
|
|
the next ReadStr */
|
|
r := ReadStr(fh, buf)
|
|
IF buf[] OR (r <> EOF)
|
|
-> do something
|
|
WriteF('\s\n',buf)
|
|
ENDIF
|
|
UNTIL r=EOF
|
|
ENDPROC
|
|
|
|
PROC main()
|
|
DEF fh
|
|
|
|
fh := Open('basicinputloop.e', OLDFILE)
|
|
IF fh
|
|
consume_input(fh)
|
|
Close(fh)
|
|
ENDIF
|
|
ENDPROC
|