Control: obj
%requires FileSys,Compiler_IF,AST,parser
%visible AST
readFileName:
Dxx: obj Indexed(,#char)
get:
%basic
out c: var char
ch: var char
S: obj Indexed(,#char)
top: var integer
readxxx:
Sxx: ref String
sourceF: ref FileSys.File
sourceFN: ref String
go:
N: ref Node
S: ref Compiler_IF.text