<> <> Install StructuredStreams StatementInterpreter ParseTreePrinting { LexFile: PROC [fileName: ROPE] RETURNS [pt: EDIFfing.ParseTree] = {s: IO.STREAM = FS.StreamOpen[fileName: fileName, accessOptions: read, extendFileProc: NIL]; source: EDIFfing.Source = NEW [EDIFfing.SourcePrivate _ [description: Rope.Cat["file ", fileName], data: s]]; pt _ EDIFfing.LexEDIF[source, s]; IO.Close[s]}; NULL}