
    <<DFDWIM>DFUTest.Mesa>>
<<Last Edited by: Spreitzer, March 16, 1984 2:48:16 pm PST>>

    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.