DIRECTORY AMBridge, AMTypes, DFUtilities, FS, IO, PrintTV, Rope, --StructuredStreams,-- ViewerIO; DFUTest: CEDAR PROGRAM IMPORTS AMBridge, DFU: DFUtilities, FS, IO, PrintTV, --StructuredStreams,-- ViewerIO = BEGIN ROPE: TYPE = Rope.ROPE; log: IO.STREAM _ --StructuredStreams.Create[--ViewerIO.CreateViewerStreams["DFU Test"].out--]--; Doit: PROC [fileName: ROPE] = BEGIN from: IO.STREAM _ FS.StreamOpen[fileName]; log.PutRope["\n"]; DFU.ParseFromStream[in: from, proc: PerItem]; from.Close[]; END; PerItem: DFU.ProcessItemProc --PROC [item: REF ANY] RETURNS [stop: BOOL _ FALSE]-- = BEGIN i: AMTypes.TV; TRUSTED {i _ AMBridge.TVForReferent[item]}; PrintTV.Print[tv: i, put: log, depth: 6]; log.PutRope["\n"]; END; END. TDFDWIM>DFUTest.Mesa Last Edited by: Spreitzer, October 2, 1985 8:59:35 pm PDT ΚE– "cedar" style˜Icode™J™9K˜KšΟk œ!œœΟcœ ˜aK˜šΠbxœœ˜Kš œ œœœ žœ ˜V—K˜Kš˜K˜Kšœœœ˜K˜Kš œœœžœ,žœ˜`K˜šΟnœœ œ˜Kš˜Kšœœœœ˜*K˜Kšœ*˜-K˜ Kšœ˜—K˜šœ œž5œ˜TKš˜Kšœ œ˜Kšœ$˜+K˜)K˜Kšœ˜—K˜Kšœ˜—…—Ψq