LoadParseTreePrintTest.cm
Spreitzer, February 23, 1986 2:42:31 pm PST
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}