GrapevineUser: dummy MTP retrieval
RetrieveMTPDummy.mesa
Andrew Birrell September 1, 1982 10:34 am
DIRECTORY
BodyDefs USING [ItemHeader],
RetrieveDefs USING [Failed],
RetrieveXDefs USING [Handle];
RetrieveMTPDummy:
PROGRAM
IMPORTS RetrieveDefs
EXPORTS RetrieveXDefs =
BEGIN
MTPNextMessage:
PUBLIC
PROC [handle:RetrieveXDefs.Handle]
RETURNS [msgExists:BOOLEAN, archived:BOOLEAN, deleted:BOOLEAN] =
{ ERROR RetrieveDefs.Failed[communicationFailure] }; --NextMessage--
WrongCallSequence: ERROR = CODE;
MTPNextItem:
PUBLIC
PROC [handle:RetrieveXDefs.Handle]
RETURNS [itemHeader:BodyDefs.ItemHeader] =
{ ERROR WrongCallSequence[] };
MTPNextBlock:
PUBLIC
PROC [handle:RetrieveXDefs.Handle,
buffer:DESCRIPTOR FOR PACKED ARRAY OF CHARACTER]
RETURNS[bytes:CARDINAL] =
{ ERROR WrongCallSequence[] };
MTPAccept:
PUBLIC
PROC [handle:RetrieveXDefs.Handle] =
{ ERROR WrongCallSequence[] };
MTPClose:
PUBLIC
PROC [handle:RetrieveXDefs.Handle] =
{ };
END. -- RetrieveMTPDummy--