DIRECTORY IO, PupTypes, Rope; Protocols: CEDAR DEFINITIONS = { ROPE: TYPE = Rope.ROPE; Socket: TYPE = PupTypes.PupSocketID; Protocol: TYPE = REF ProtocolRep; ProtocolRep: TYPE = RECORD [ name: ROPE, Connect: PROC [ serverName: ROPE, fromClient, toClient: IO.STREAM, noteDisconnect: PROC [clientData: REF ANY] _ NIL, clientData: REF ANY _ NIL] RETURNS [c: Conversation], Disconnect: PROC [c: Conversation], data: REF ANY _ NIL]; Conversation: TYPE = REF ConversationRep; ConversationRep: TYPE = RECORD [ protocol: Protocol, noteDisconnect: PROC [clientData: REF ANY], data, clientData: REF ANY _ NIL]; GetProtocol: PROC [name: ROPE] RETURNS [p: Protocol]; RegProtocol: PROC [p: Protocol]; }. NProtocols.Mesa Last Edited by: Spreitzer, March 13, 1985 5:35:48 pm PST Κ – "cedar" style˜Icode™J™8K˜KšΟk œœ˜K˜šΠbx œœ œ˜ K˜Kšœœœ˜Kšœœ˜$K˜Kšœ œœ ˜!šœ œœ˜Kšœœ˜ šΟnœ˜ šœ˜Kšœ œ˜Kšœœœ˜ Kš œœœœœ˜1Kšœ œœœ˜—Kšœ˜—KšŸ œœ˜#Kšœœœœ˜—K˜Kšœœœ˜)šœœœ˜ K˜Kšœœœœ˜+Kšœœœœ˜!—K˜KšŸ œœœœ˜5KšŸ œœ˜ K˜K˜——…—Όͺ