[Cyan]<CedarChest6.0>StatementInterpreter>StandardDummyProcedures.Mesa!2

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.