-- 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--