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-- jGrapevineUser: dummy MTP retrieval RetrieveMTPDummy.mesa Andrew Birrell September 1, 1982 10:34 am Ê’˜Jšœ"™"J˜Jšœ™J˜Jšœ*™*J˜JšÏk ˜ Jšœ œ˜Jšœ œ ˜Jšœœ ˜J˜šœ˜Jšœ ˜Jšœ˜—Jš˜J˜šÏnœœœ˜9Jšœ œ œ œ˜@Jšœœ.Ïc˜DJ˜—Jšœœœ˜ J˜šž œœœ˜6Jšœ#˜*Jšœœ˜J˜—šž œœœ˜7Jš œ œœœœœ œ˜0Jšœœ˜Jšœœ˜J˜—šž œœœ ˜6Jšœœ˜J˜—šžœœœ ˜5J˜J˜J˜—JšœŸ˜J˜—…—nj