
    <<StandardDummyProcedures.Mesa>>
        <<Spreitzer, May 10, 1986 0:35:55 am PDT>>

    DIRECTORY CedarProcess, DFOperations, DFUtilities, EvalQuote, FileSets, FS, HashTable, ImagerPath, IntHashTable, IO, Menus, 
    PrincOps, PrincOpsUtils, RedBlackTree, RefTab, Rope, StatementInterpreterPrivate, SymTab, ViewerClasses;

    StandardDummyProcedures: CEDAR PROGRAM
        IMPORTS PrincOpsUtils, StatementInterpreterPrivate
        =

    BEGIN

    DummyForkableProc: CedarProcess.ForkableProc = TRUSTED {
        lf: PrincOps.FrameHandle = PrincOpsUtils.MyLocalFrame[];
        StatementInterpreterPrivate.DoDummy[lf];
        x _ x + 1;
        };

    DummyBreakProc: IO.BreakProc = TRUSTED {
        cc: IO.CharClass;
        lf: PrincOps.FrameHandle = PrincOpsUtils.MyLocalFrame[];
        StatementInterpreterPrivate.DoDummy[lf, TRUE];
        x _ x + 1;
        RETURN [cc];
        };

    DummyPathProc: ImagerPath.PathProc = TRUSTED {
        lf: PrincOps.FrameHandle = PrincOpsUtils.MyLocalFrame[];
        StatementInterpreterPrivate.DoDummy[lf];
        x _ x + 1;
        };

    DummyEvalQuote: EvalQuote.EvalQuoteProc = TRUSTED {
        lf: PrincOps.FrameHandle = PrincOpsUtils.MyLocalFrame[];
        StatementInterpreterPrivate.DoDummy[lf];
        x _ x + 1;
        };

    DummyNameProc: EvalQuote.NameProc = TRUSTED {
        lf: PrincOps.FrameHandle = PrincOpsUtils.MyLocalFrame[];
        StatementInterpreterPrivate.DoDummy[lf];
        x _ x + 1;
        };

    DummyTableHasher: HashTable.HashProc = TRUSTED {
        hash: CARDINAL;
        lf: PrincOps.FrameHandle = PrincOpsUtils.MyLocalFrame[];
        StatementInterpreterPrivate.DoDummy[lf, TRUE];
        x _ x + 1;
        RETURN [hash];
        };

    DummyHashCompare: HashTable.EqualProc = TRUSTED {
        equal: BOOL;
        lf: PrincOps.FrameHandle = PrincOpsUtils.MyLocalFrame[];
        StatementInterpreterPrivate.DoDummy[lf, TRUE];
        x _ x + 1;
        RETURN [equal];
        };

    DummyHashPairAction: HashTable.EachPairAction = TRUSTED {
        lf: PrincOps.FrameHandle = PrincOpsUtils.MyLocalFrame[];
        StatementInterpreterPrivate.DoDummy[lf];
        x _ x + 1;
        };

    DummyIntHashPairAction: IntHashTable.EachPairAction = TRUSTED {
        lf: PrincOps.FrameHandle = PrincOpsUtils.MyLocalFrame[];
        StatementInterpreterPrivate.DoDummy[lf];
        x _ x + 1;
        };

    DummySymPairAction: SymTab.EachPairAction = TRUSTED {
        lf: PrincOps.FrameHandle = PrincOpsUtils.MyLocalFrame[];
        quit _ LOOPHOLE[lf, CARDINAL] MOD 17 >= 8;
        StatementInterpreterPrivate.DoDummy[lf];
        x _ x + 1;
        };

    DummyRefPairAction: RefTab.EachPairAction = TRUSTED {
        lf: PrincOps.FrameHandle = PrincOpsUtils.MyLocalFrame[];
        quit _ LOOPHOLE[lf, CARDINAL] MOD 17 >= 8;
        StatementInterpreterPrivate.DoDummy[lf];
        x _ x + 1;
        };

    DummyRopeFetch: Rope.FetchType = TRUSTED {
        c: CHAR;
        lf: PrincOps.FrameHandle = PrincOpsUtils.MyLocalFrame[];
        StatementInterpreterPrivate.DoDummy[lf, TRUE];
        x _ x + 1;
        RETURN [c];
        };

    DummyRopeMap: Rope.MapType = TRUSTED {
        lf: PrincOps.FrameHandle = PrincOpsUtils.MyLocalFrame[];
        StatementInterpreterPrivate.DoDummy[lf];
        x _ x + 1;
        };

    DummyRopeAction: Rope.ActionType = TRUSTED {
        lf: PrincOps.FrameHandle = PrincOpsUtils.MyLocalFrame[];
        StatementInterpreterPrivate.DoDummy[lf];
        x _ x + 1;
        };

    DummyRopeTranslator: Rope.TranslatorType = TRUSTED {
        lf: PrincOps.FrameHandle = PrincOpsUtils.MyLocalFrame[];
        StatementInterpreterPrivate.DoDummy[lf];
        x _ x + 1;
        };

    DummyRopeAppendCharsProc: Rope.AppendCharsType = TRUSTED {
        lf: PrincOps.FrameHandle = PrincOpsUtils.MyLocalFrame[];
        StatementInterpreterPrivate.DoDummy[lf];
        x _ x + 1;
        };

    DummyFileConsumer: FileSets.FileConsumer = TRUSTED {
        lf: PrincOps.FrameHandle = PrincOpsUtils.MyLocalFrame[];
        StatementInterpreterPrivate.DoDummy[lf];
        x _ x + 1;
        };

    DummyFileFilterEvalProc: FileSets.FilterEvalProc = TRUSTED {
        pass: BOOL;
        lf: PrincOps.FrameHandle = PrincOpsUtils.MyLocalFrame[];
        StatementInterpreterPrivate.DoDummy[lf, TRUE];
        x _ x + 1;
        RETURN [pass];
        };

    DummyRedBlackNodeProc: RedBlackTree.EachNode = TRUSTED {
        lf: PrincOps.FrameHandle = PrincOpsUtils.MyLocalFrame[];
        StatementInterpreterPrivate.DoDummy[lf];
        x _ x + 1;
        };

    DummyDFItemProc: DFUtilities.ProcessItemProc = TRUSTED {
        lf: PrincOps.FrameHandle = PrincOpsUtils.MyLocalFrame[];
        StatementInterpreterPrivate.DoDummy[lf];
        x _ x + 1;
        };

    DummyDFInteractionProc: DFOperations.InteractionProc = TRUSTED {
        lf: PrincOps.FrameHandle = PrincOpsUtils.MyLocalFrame[];
        StatementInterpreterPrivate.DoDummy[lf];
        x _ x + 1;
        };

    DummyFSNameProc: FS.NameProc = TRUSTED {
        lf: PrincOps.FrameHandle = PrincOpsUtils.MyLocalFrame[];
        StatementInterpreterPrivate.DoDummy[lf];
        x _ x + 1;
        };

    DummyFSInfoProc: FS.InfoProc = TRUSTED {
        lf: PrincOps.FrameHandle = PrincOpsUtils.MyLocalFrame[];
        StatementInterpreterPrivate.DoDummy[lf];
        x _ x + 1;
        };

    DummyPaintProc: ViewerClasses.PaintProc = TRUSTED {
        lf: PrincOps.FrameHandle = PrincOpsUtils.MyLocalFrame[];
        StatementInterpreterPrivate.DoDummy[lf];
        x _ x + 1;
        };

    DummyNotifyProc: ViewerClasses.NotifyProc = TRUSTED {
        lf: PrincOps.FrameHandle = PrincOpsUtils.MyLocalFrame[];
        StatementInterpreterPrivate.DoDummy[lf];
        x _ x + 1;
        };

    DummyModifyProc: ViewerClasses.ModifyProc = TRUSTED {
        lf: PrincOps.FrameHandle = PrincOpsUtils.MyLocalFrame[];
        StatementInterpreterPrivate.DoDummy[lf];
        x _ x + 1;
        };

    DummyDestroyProc: ViewerClasses.DestroyProc = TRUSTED {
        lf: PrincOps.FrameHandle = PrincOpsUtils.MyLocalFrame[];
        StatementInterpreterPrivate.DoDummy[lf];
        x _ x + 1;
        };

    DummyInitProc: ViewerClasses.InitProc = TRUSTED {
        lf: PrincOps.FrameHandle = PrincOpsUtils.MyLocalFrame[];
        StatementInterpreterPrivate.DoDummy[lf];
        x _ x + 1;
        };

    DummyScrollProc: ViewerClasses.ScrollProc = TRUSTED {
        lf: PrincOps.FrameHandle = PrincOpsUtils.MyLocalFrame[];
        StatementInterpreterPrivate.DoDummy[lf];
        x _ x + 1;
        };

    DummyHScrollProc: ViewerClasses.HScrollProc = TRUSTED {
        lf: PrincOps.FrameHandle = PrincOpsUtils.MyLocalFrame[];
        StatementInterpreterPrivate.DoDummy[lf];
        x _ x + 1;
        };

    DummyClickProc: Menus.ClickProc = TRUSTED {
        lf: PrincOps.FrameHandle = PrincOpsUtils.MyLocalFrame[];
        StatementInterpreterPrivate.DoDummy[lf];
        x _ x + 1;
        };

    x: INT _ 0;

    StatementInterpreterPrivate.RegisterDummys[
        "StandardDummyProcedures.BCD",
        LIST[
            DummyForkableProc,
            DummyBreakProc,
            DummyPathProc,
            DummyEvalQuote,
            DummyNameProc,
            DummyTableHasher,
            DummyHashCompare,
            DummyHashPairAction,
            DummyIntHashPairAction,
            DummySymPairAction,
            DummyRefPairAction,
            DummyRopeFetch,
            DummyRopeMap,
            DummyRopeAction,
            DummyRopeTranslator,
            DummyRopeAppendCharsProc,
            DummyFileConsumer,
            DummyFileFilterEvalProc,
            DummyRedBlackNodeProc,
            DummyDFItemProc,
            DummyDFInteractionProc,
            DummyFSNameProc,
            DummyFSInfoProc,
            DummyPaintProc,
            DummyNotifyProc,
            DummyModifyProc,
            DummyDestroyProc,
            DummyInitProc,
            DummyScrollProc,
            DummyHScrollProc,
            DummyClickProc
            ]];

    END.