-- Copyright (C) 1981, 1982, 1983, 1984, 1985  by Xerox Corporation. All rights reserved. 
-- Server.config, HGM, 15-Sep-85  1:34:15

-- Randy Gobbel     9-Mar-83 12:25:32
-- Brenda Hankins  23-Aug-84 14:18:33
-- Ted Wobber	    2-Nov-82 12:38:20 
-- AlHall	    9-Jul-82 15:25:09 
-- Mark Johnson    14-Jan-82 11:56:49 
-- Andrew Birrell  20-Oct-81 10:53:51 


Server: CONFIGURATION LINKS: CODE
  IMPORTS 
    BodyDefs, Buffer, BufferOps, ByteBlt, DeviceError, Driver,
    Format, Heap, Inline, MDSStorage, MFile, MScavenge, Protocol1, Process,
    ProcessOperations, ProcessorFace, PupDefs, PupRouterDefs,
    PupPktOps, PupStream, Runtime, RestartDefs, Space, SpecialSpace,
    SpecialMFile, Stream, String, Supervisor, System,
    TemporaryBooting, Time, TTY, Volume
  EXPORTS
    AclDefs, BTreeDefs, Event, FTPDefs, GlassDefs, HeapDefs,
    LocateDefs, LogDefs, NameInfoDefs, NameInfoSpecialDefs,
    ObjectDirDefs, PilotClient, PolicyDefs, ProtocolDefs,
    RegBTreeDefs, RegistryDefs, RegServerDefs, RetrieveDefs,
    SendDefs, TimeExtra
  CONTROL GVSwitches, Restart, MSMail, FTPServer, Enquiry =
  BEGIN


-- ******** GrapevineUser ******** --

  GrapevineUser: CONFIGURATION
    IMPORTS
      Buffer, Heap, HeapDefs, Process, PupDefs, PupStream, Stream, 
      String, Time
    EXPORTS
      LocateDefs, NameInfoDefs, NameInfoSpecialDefs, ProtocolDefs,
      RetrieveDefs, RListDefs
      --, not SendDefs: CreateMail in MServer provides that -- =
    BEGIN
    Protocol;
    Locate;
    NameInfo;
    HeapRList;
    RetrieveGV;
    RetrieveInit;
    RetrieveMail;
    RetrievePoll;
    END;

  GrapevineUser;



-- ******** ServerMisc ******** --

   ServerMisc;




-- ******** R-Server ******** --

  RServer: CONFIGURATION
    IMPORTS
      BodyDefs, BTreeDefs, Buffer, Heap, HeapDefs, Inline, LocalNameDefs,
      LocateDefs, LogDefs, LogPrivateDefs, ObjectDirDefs, PolicyDefs,
      Process, ProtocolDefs, PupDefs, PupStream, RetrieveDefs, RListDefs, 
      Runtime, SendDefs, String, Time, TTY, VMDefs
    EXPORTS
      AclDefs, EnquiryDefs, RegBTreeDefs, RegistryDefs, 
      RegServerDefs, RestartDefs =
    BEGIN
    Acl;
    Registration;
    Registry;
    RegAccess;
    RegBTree;
    RegCache;
    RegServerImpl;
    RegMail;
    RegRestart;
    -- The R-Server has its own copy of NameInfo, because the other one may
    -- be in use by the M-Server calling the R-Server at the time the
    -- R-Server wants to use NameInfo, which would cause a deadlock.
    NameInfo;
    END;

    RServer;



-- ******** M-Server ******** --

  MServer: CONFIGURATION
    IMPORTS
      BitMapDefs, BodyDefs, BTreeDefs, Buffer,
      Heap, HeapDefs, LocalNameDefs, LogDefs, LogPrivateDefs, NameInfoDefs,
      ObjectDirDefs, PolicyDefs, Process, ProtocolDefs, PupDefs, PupStream,
      RetrieveDefs, Stream, String, Storage, System, Time, VMDefs
    EXPORTS
      EnquiryDefs, MailboxDefs, MSMail, RestartDefs, SendDefs,
      SLDefs =
    BEGIN
    -- Server sub-routines --
    CreateMail;
    MailboxAlloc;
    MailboxRestart;
    ReturnMail;
    ServerAlloc;
    ServerInfo;
    SiteCache;
    SLQueueImpl;
    SLRestart;
    Spiller;
    -- The driving processes --
    MiscSoc;
    MSMail;
    ReadForward;
    ReadInput;
    ReadMail;
    ReceiveInput;
    ReceiveMail;
    END;

  MServer;



-- ******** Everything else ******** --

  LocalName;
  Enquiry;
  EnquiryPup;
  FTPServer;


-- ******** Mainline program! ******** --

  ImageDefsImpl;
  GVSwitches;
  GVPServer;
  Restart LINKS: FRAME;


END.