DIRECTORY AMBridge, AMTypes, DFUtilities, FS, IO, PrintTV, Rope, StructuredStreams, ViewerIO; DFUTest: CEDAR PROGRAM IMPORTS AMBridge, 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"]; DFUtilities.ParseFromStream[in: from, proc: PerItem]; from.Close[]; END; PerItem: DFUtilities.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, March 16, 1984 2:48:16 pm PST Κ)– "cedar" style˜Icode™J™8K˜KšΟk œ!œœ-˜]K˜šΠbxœœ˜Kšœœœ(˜M—K˜Kš˜K˜Kšœœœ˜K˜KšœœœJ˜XK˜šΟnœœ œ˜Kš˜Kšœœœœ˜*K˜K˜5K˜ Kšœ˜—K˜šŸœΟc5œ˜\Kš˜Kšœ œ˜Kšœ$˜+K˜)K˜Kšœ˜—K˜Kšœ˜—…—ΤQ