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