11 lines
213 B
Text
11 lines
213 B
Text
|
procedure process_line_by_line(integer fn)
|
||
|
|
object line
|
||
|
|
while 1 do
|
||
|
|
line = gets(fn)
|
||
|
|
if atom(line) then
|
||
|
|
exit
|
||
|
|
end if
|
||
|
|
-- process the line
|
||
|
|
end while
|
||
|
|
end procedure
|