[Cyan]<CedarChest6.1>StatementInterpreter>StandardDummies2.Mesa!1

StandardDummies2.Mesa

Spreitzer, May 10, 1986 4:28:49 pm PDT

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

StandardDummies2: CEDAR PROGRAM

IMPORTS PrincOpsUtils, StatementInterpreterPrivate

BEGIN

DummyForkableProc: CedarProcess.ForkableProc = TRUSTED {

lf: PrincOps.FrameHandle = PrincOpsUtils.MyLocalFrame[];

StatementInterpreterPrivate.DoDummy[lf];

x ← x + 1;

};

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;

TRUSTED {StatementInterpreterPrivate.RegisterDummys[

"StandardDummies2.BCD",

PrincOpsUtils.MyGlobalFrame[]

]};

END.