Turing/Arrays, flexible arrays
Appearance
< Turing
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