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 Ó 1985, 1986, 1992 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

Ê.  •NewlineDelimiter
–(cedarcode) style™ šÏb™Jšœ	Ïeœ<™HJ™$Icode™(K™'J™ J™vJ™ šÏk	˜	KšœŸœ˜KšœŸœŸœ˜Kšœ˜—K˜ šœŸœŸœ˜+KšŸ˜K˜ KšœŸœŸœ˜"K˜ šœŸœŸ	œŸœ˜%KšÏn	œŸœ˜(Kš œŸœ˜$Kš œŸœ˜&Kš œŸœ˜.Kš 
œŸœ˜*K˜$K˜,K˜2K˜0KšœŸœŸœ˜KšœŸœŸœ˜KšœŸœŸœ˜Kšœ
ŸœŸœ˜,KšœŸœŸœŸ˜Kšœ˜—K˜ Kš 
œŸœ`ŸœŸœ˜yK˜ Kš
 œŸœ.ŸœBŸœŸœ˜K˜ Kš œŸœŸœŸœCŸœŸœ˜„K˜ Kš
 œŸœ-Ÿœ_ŸœŸœ˜°K˜ Kš
 œŸœ1ŸœEŸœŸœ˜™K˜ KšŸœ˜——™'K™XKšœÏr™"—K™ — …—    ¾  	ì  