File: WalnutRetrieve.mesa
Copyright © 1985 by Xerox Corporation. All rights reserved.
Created by: Haugeland, August 26, 1982
Edited by
Willie-Sue on May 18, 1983 3:04 pm
DIRECTORY
IO USING [STREAM],
WalnutLog USING [MsgRec, RName],
WalnutParseMsg USING [ParseStatus];
WalnutRetrieve: CEDAR DEFINITIONS =
BEGIN OPEN WalnutLog;
***********************************************************
Operations for retrieving messages [WalnutRetrieveImpl]
OpenConnection:
PROC[user: RName];
Establish a connection for this user.
CloseConnection: PROC;
NewUser:
PROC[user: RName];
Establish a new user on this connection.
RetrieveGVMessages:
PROC
RETURNS[numRetrieved:
INT, allOK:
BOOL];
reads messages from Grapevine & writes them on the log file
***********************************************************
Operations for parsing new messages [WalnutRetrieveParseImpl]
ParseMsgIntoFields:
PROC[msg: MsgRec, strm:
IO.
STREAM, msgLength:
INT]
RETURNS[s: WalnutParseMsg.ParseStatus, sPos, mPos: INT];
END.