Read a file line by line: Difference between revisions
Added GNU APL example
(Read a file line by line en BASIC256) |
(Added GNU APL example) |
||
Line 352:
21: done: SKIP
</pre>
=={{header|APL}}==
<lang APL>
⍝⍝ GNU APL Version
∇r ← listFile fname ;fileHandle;maxLineLen;line
maxLineLen ← 128
fileHandle ← ⎕FIO['fopen'] fname
readLoop:
→(0=⍴(line ← maxLineLen ⎕FIO['fgets'] fileHandle))/eof
⍞ ← ⎕AV[1+line] ⍝⍝ bytes to ASCII
→ readLoop
eof:
⎕FIO['fclose'] fileHandle
r ← ⎕FIO['errno'] fileHandle
∇
</lang>
=={{header|Amazing Hopper}}==
<lang Amazing Hopper>
| |||