DIRECTORY MBQueue USING[Queue], Rope USING [ROPE], WalnutRegistry; WalnutRegistryInternal: CEDAR DEFINITIONS = BEGIN QueueData: TYPE = REF QueueRecord; QueueRecord: TYPE = MONITORED RECORD[ eventProc: WalnutRegistry.EventProc_NIL, msgProc: WalnutRegistry.MsgProc_NIL, moveProc: WalnutRegistry.MoveProc_NIL, msgGroupProc: WalnutRegistry.MsgGroupProc_NIL, msgSetProc: WalnutRegistry.MsgSetProc_NIL, event: WalnutRegistry.Event_started, msgEvent: WalnutRegistry.MsgEvent_firstRead, msgGroupEvent: WalnutRegistry.MsgGroupEvent_added, msgSetEvent: WalnutRegistry.MsgSetEvent_created, name: Rope.ROPE_NIL, fromMsgSet: Rope.ROPE_NIL, toMsgSet: Rope.ROPE_NIL, msgGroup: REF WalnutRegistry.MsgGroup _ NIL, clientData: REF ANY_NIL ]; QueueEvent: PROC[event: WalnutRegistry.Event, queue: MBQueue.Queue, proc: WalnutRegistry.EventProc, clientData: REF ANY]; QueueMsgEvent: PROC[msgEvent: WalnutRegistry.MsgEvent, msg: Rope.ROPE, queue: MBQueue.Queue, proc: WalnutRegistry.MsgProc, clientData: REF ANY]; QueueMoveEvent: PROC[msg: Rope.ROPE, to, from: Rope.ROPE, queue: MBQueue.Queue, proc: WalnutRegistry.MoveProc, clientData: REF ANY]; QueueMsgGroupEvent: PROC[event: WalnutRegistry.MsgGroupEvent, group: REF WalnutRegistry.MsgGroup, queue: MBQueue.Queue, proc: WalnutRegistry.MsgGroupProc, clientData: REF ANY]; QueueMsgSetEvent: PROC[event: WalnutRegistry.MsgSetEvent, msgSet: Rope.ROPE, queue: MBQueue.Queue, proc: WalnutRegistry.MsgSetProc, clientData: REF ANY]; END. ϊWalnutRegistryInternal.mesa Copyright c 1985, 1986 by Xerox Corporation. All rights reserved. Donahue, July 9, 1985 1:21:44 pm PDT Willie-Sue, June 14, 1985 8:58:30 am PDT Swinehart, May 16, 1986 10:52:36 am PDT These are procedures place entries on the given queues and call the operations when the queued operations are invoked. Swinehart, May 16, 1986 10:49:11 am PDT Couldn't use PROC ANY for all the procs, because NARROWs require symbol files. Too bad. changes to: WalnutRegistryInternal Κ˜šΟb™Jšœ Οmœ7™BJ™$Icode™(K™'J™J™vJ™šΟk ˜ JšœŸœ˜JšœŸœŸœ˜Jšœ˜—J˜šœŸœŸ œ˜+JšŸ˜J˜Jšœ ŸœŸœ ˜"J˜šœ ŸœŸ œŸœ˜%JšΟn œŸœ˜(Jš œŸœ˜$Jš œŸœ˜&Jš  œŸœ˜.Jš  œŸœ˜*Jšœ$˜$Jšœ,˜,Jšœ2˜2Jšœ0˜0Jšœ ŸœŸœ˜JšœŸœŸœ˜JšœŸœŸœ˜Jšœ ŸœŸœ˜,Jšœ ŸœŸœŸ˜Jšœ˜—J˜Jš  œŸœ`ŸœŸœ˜yJ˜Jš   œŸœ.ŸœBŸœŸœ˜J˜Jš  œŸœ ŸœŸœCŸœŸœ˜„J˜Jš  œŸœ-Ÿœ_ŸœŸœ˜°J˜Jš  œŸœ1ŸœEŸœŸœ˜™J˜JšŸœ˜——™'K™XKšœ Οr™"—K™—…—Ύ Ξ