-- File: CommunicationControl.mesa - last edit:
-- AOF                 12-Aug-87 18:42:01
-- Copyright (C) 1984, 1987 by Xerox Corporation. All rights reserved.
 
DIRECTORY
  CommSwitches USING [dontStartXNS],
  CommunicationInternal USING [CommPackageGo, NSPackageMake],
  CommunicationPrograms USING [],
  System USING [switches];

CommunicationControl: PROGRAM
  IMPORTS CommunicationInternal, System
  EXPORTS CommunicationPrograms =
  BEGIN

  InitializeCommunication: PUBLIC <<CommunicationPrograms>> PROC =
    BEGIN
    CommunicationInternal.CommPackageGo[];  --baseline communication
    IF System.switches[CommSwitches.dontStartXNS] = up THEN
      [] ← CommunicationInternal.NSPackageMake[];  --start XNS protocol support
    END;  --InitializeCommunication

  END....  --CommunicationControl module


LOG
17-May-84 15:51:12  AOF  Post Klamath.
12-Aug-87 18:40:32  AOF  Optional starting of XNS.