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. DStandardDummies2.Mesa Spreitzer, May 10, 1986 4:28:49 pm PDT Κ’– "cedar" style˜code™K™&—K˜KšΟk œ?œ–˜ΰK˜šΟnœœ˜Kšœ+˜2K˜—K˜Kš˜K˜šžœœ˜8Kšœ8˜8Kšœ(˜(K˜ K˜—K˜šž œœ˜.Kšœ8˜8Kšœ(˜(K˜ K˜—K˜šžœœ˜3Kšœ8˜8Kšœ(˜(K˜ K˜—K˜šž œœ˜-Kšœ8˜8Kšœ(˜(K˜ K˜—K˜šžœœ˜0Kšœœ˜Kšœ8˜8Kšœ(œ˜.K˜ Kšœ˜K˜—K˜šžœœ˜1Kšœœ˜ Kšœ8˜8Kšœ(œ˜.K˜ Kšœ ˜K˜—K˜šžœœ˜9Kšœ8˜8Kšœ(˜(K˜ K˜—K˜šžœ œ˜?Kšœ8˜8Kšœ(˜(K˜ K˜—K˜šžœœ˜5Kšœ8˜8Kšœœœœ ˜*Kšœ(˜(K˜ K˜—K˜šžœœ˜5Kšœ8˜8Kšœœœœ ˜*Kšœ(˜(K˜ K˜—K˜šžœœ˜*Kšœœ˜Kšœ8˜8Kšœ(œ˜.K˜ Kšœ˜ K˜—K˜šž œœ˜&Kšœ8˜8Kšœ(˜(K˜ K˜—K˜šžœœ˜,Kšœ8˜8Kšœ(˜(K˜ K˜—K˜šžœœ˜4Kšœ8˜8Kšœ(˜(K˜ K˜—K˜šžœœ˜:Kšœ8˜8Kšœ(˜(K˜ K˜—K˜šžœœ˜4Kšœ8˜8Kšœ(˜(K˜ K˜—K˜šžœœ˜