Read a file line by line: Difference between revisions

m
Line 356:
<lang APL>
⍝⍝ GNU APL Version
∇r ← listFile∇listFile fname ;fileHandle;maxLineLen;line
maxLineLen ← 128
fileHandle ← ⎕FIO['fopen'] fname
Line 364:
→ readLoop
eof:
⎕FIO⊣⎕FIO['fclose'] fileHandle
r ← ⎕FIO⊣⎕FIO['errno'] fileHandle
 
Line 376:
This is the end of the text.
 
0
0
</lang>
 
67

edits