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