-- DummyForLaurel.mesa,  Edit: HGM July 31, 1980  7:28 PM

-- Copyright  Xerox Corporation 1979, 1980

DIRECTORY
  FTPDefs,
  FTPPrivateDefs;

DummyForLaurel: PROGRAM
  IMPORTS FTPPrivateDefs
  EXPORTS FTPPrivateDefs
  SHARES FTPDefs =
BEGIN

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

UserFilesLoaded: PUBLIC PROCEDURE =
  BEGIN
  FTPPrivateDefs.LocateFtpSystemObject[]↑.userFilesLoaded ← TRUE;
  END;
 
UserMailLoaded: PUBLIC PROCEDURE =
  BEGIN
  FTPPrivateDefs.LocateFtpSystemObject[]↑.userMailLoaded ← TRUE;
  END;


DummyProcedureThatShouldntGetCalled: PUBLIC ERROR = CODE;

-- Traps to keep the binder happy

SendHeaderBlock: PUBLIC PROCEDURE [
  dumpState: FTPPrivateDefs.DumpState, fileName, creation : STRING] =
  BEGIN
  ERROR DummyProcedureThatShouldntGetCalled;
  END;

DumpBlock: PUBLIC PROCEDURE [
  dumpState: FTPPrivateDefs.DumpState, source: POINTER, byteCount: CARDINAL] =
  BEGIN
  ERROR DummyProcedureThatShouldntGetCalled;
  END;

LoadBlock: PUBLIC PROCEDURE [
  dumpState: FTPPrivateDefs.DumpState,
  destination: POINTER, maxWordCount: CARDINAL]
  RETURNS [actualByteCount: CARDINAL] =
  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.