411 REFERENCE · Wikibooks
Turing/Arrays, flexible arrays
Reference material by Wikibooks contributors. This retains its source identity and is not 411 news reporting.
function getLines (fileName : string) : int
var f, numLines : int
var line : string
open : f, fileName, get
numLines := 0
loop
exit when eof (f)
get : f, line : *
numLines += 1
end loop
close : f
result numLines
end getLines
procedure readFile (var lines : array 1 .. * of string, fileName : string)
var f : int
var line : string
open : f, fileName, get
for i : 1 .. upper (lines)
get : f, lines (i) : *
end for
close : f
end readFile
var lines : flexible array 1 .. 0 of string
new lines, getLines ("text.dat")
readFile (lines, "text.dat")
for i : 1 .. upper (lines)
put lines (i)
end for