-- DummyForMail.mesa - last edit:
-- MAS May 19, 1980  6:00 PM
-- HGM July 31, 1980  5:46 PM

-- Copyright  Xerox Corporation 1979, 1980

DIRECTORY
  FTPDefs,
  FTPPrivateDefs;

DummyForMail: PROGRAM EXPORTS FTPPrivateDefs SHARES FTPDefs =
  BEGIN

  ServerFilesLoaded, UserFilesLoaded, ServerMailLoaded, AccessoriesLoaded: PUBLIC
    PROCEDURE = BEGIN END;



  DummyProcedureThatShouldntGetCalled: PUBLIC ERROR = CODE;

  -- Traps to keep the binder happy

  TransferBytes: PUBLIC PROCEDURE [
    srcBytePointer, dstBytePointer: FTPDefs.BytePointer] =
    BEGIN ERROR DummyProcedureThatShouldntGetCalled; END;

  VerbalizeFtpError, VerbalizeRecipientError: PUBLIC PROCEDURE [
    UNSPECIFIED, STRING] = BEGIN ERROR DummyProcedureThatShouldntGetCalled; END;

  PrepareEvent, PostEvent, AwaitEvent: PUBLIC PROCEDURE [
    event: FTPPrivateDefs.Event] =
    BEGIN ERROR DummyProcedureThatShouldntGetCalled; END;

  TraceOut: PUBLIC PROCEDURE [ftper: FTPDefs.FTPer, mark: FTPDefs.Byte] =
    BEGIN ERROR DummyProcedureThatShouldntGetCalled; END;

  TraceIn: PUBLIC PROCEDURE [ftper: FTPDefs.FTPer] =
    BEGIN ERROR DummyProcedureThatShouldntGetCalled; END;

  TraceString: PUBLIC PROCEDURE [ftper: FTPDefs.FTPer, string: STRING] =
    BEGIN ERROR DummyProcedureThatShouldntGetCalled; END;

  TraceCharacter: PUBLIC PROCEDURE [ftper: FTPDefs.FTPer, character: CHARACTER] =
    BEGIN ERROR DummyProcedureThatShouldntGetCalled; END;

  END.