Read a file line by line: Difference between revisions
Content added Content deleted
(Read a file line by line en BASIC256) |
(Added GNU APL example) |
||
Line 352: | Line 352: | ||
21: done: SKIP |
21: done: SKIP |
||
</pre> |
</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}}== |
=={{header|Amazing Hopper}}== |
||
<lang Amazing Hopper> |
<lang Amazing Hopper> |