YggConversationTable.mesa
Copyright Ó 1985, 1988 by Xerox Corporation. All rights reserved.
Conversations to Alpine servers, including this one.
Last edited by
MBrown on November 21, 1982 3:43 pm
Hauser, March 7, 1985 2:30:11 pm PST
Bob Hagmann May 2, 1988 2:24:49 pm PDT
DIRECTORY
YggEnvironment,
YggImport USING [Handle];
YggConversationTable: CEDAR DEFINITIONS =
BEGIN
Conversation: TYPE = YggEnvironment.Conversation;
Initialize: PROC [nSlots: NAT];
nSlots is an estimate of the number of conversations that will exist simultaneously.
Fetch: PROC [s: YggImport.Handle] RETURNS [Conversation];
If an established connection with the server s exists, return it. Otherwise
establish a conversation with the server s and return it. If the attempt to
establish the conversation fails due to communications failure, return NIL.
Erase: PROC [s: YggImport.Handle, c: Conversation];
Disassociates conversation c from server s, and terminates the conversation.
I'm not sure why anyone would want to do this.
END.--ConversationTable
Hauser, March 7, 1985 2:29:38 pm PST
Nodified, added copyright.