<> <> <> <> <> <<>> <> <<>> 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. <> <> <> <<>>