DIRECTORY EDIFfing, EDIFGrammar, EDIFSemantics, FS, IO, Rope; EDIFSemanticsTest: CEDAR PROGRAM IMPORTS EDIFfing, EDIFGrammar, EDIFSemantics, FS, IO = BEGIN OPEN EDIFfing, EDIFGrammar, EDIFSemantics; rootRule: Rule = MakeRule[$EDIF]; TestFile: PROC [fileName: ROPE] RETURNS [match: BOOL, result: REF ANY] = { source: Source = NEW [SourcePrivate _ [description: fileName]]; in: IO.STREAM = FS.StreamOpen[fileName]; pt: ParseTree = LexEDIF[source, in]; in.Close[]; [match, result] _ Traverse[pt, rootRule, 0, fileName]; }; END. JEDIFSemanticsTest.Mesa Spreitzer, February 24, 1986 10:22:46 pm PST Κν– "cedar" style˜code™K™,—K˜KšΟk œ'œœ˜=K˜šΠbxœœ˜ Kšœ'œ˜4K˜—K˜Kšœœœ&˜2K˜Kšœ!˜!K˜šΟnœœ œœ œ œœ˜JKšœœ+˜?Kšœœœœ˜(K˜$K˜ Kšœ6˜6K˜—K˜Kšœ˜—…—M