-- Copyright (C) 1983, 1985  by Xerox Corporation. All rights reserved. 
-- EthernetOneStarter.mesa, HGM,  5-Oct-85 19:32:11

DIRECTORY
  Driver USING [CreateDefaultEthernetOneDrivers],
  Environment USING [Byte],
  EthernetOneFace USING [
    DeviceHandle, GetEthernet1Address, GetNextDevice, nullDeviceHandle],
  PupDefs USING [PupPackageMake, SmashMyHostNumber];

EthernetOneStarter: PROGRAM
  IMPORTS Driver, EthernetOneFace, PupDefs =
  BEGIN

 MaybeGetEthernetHostNumber: PROCEDURE =
    BEGIN
    ether: EthernetOneFace.DeviceHandle;
    ether ¬ EthernetOneFace.GetNextDevice[EthernetOneFace.nullDeviceHandle];
    IF ether#EthernetOneFace.nullDeviceHandle THEN
      BEGIN
      net, host: Environment.Byte;
      [net, host] ¬ EthernetOneFace.GetEthernet1Address[ether];
      PupDefs.SmashMyHostNumber[host];
      END;
    END;

  SetupEthernetOneDriver: PROCEDURE =
    BEGIN
    ether: EthernetOneFace.DeviceHandle;
    ether ¬ EthernetOneFace.GetNextDevice[EthernetOneFace.nullDeviceHandle];
    IF ether = EthernetOneFace.nullDeviceHandle THEN RETURN; -- DLion: Beware of 981
    [] ¬ PupDefs.PupPackageMake[]; -- One for free
    [] ¬ Driver.CreateDefaultEthernetOneDrivers[];
    END;

  MaybeGetEthernetHostNumber[];
  SetupEthernetOneDriver[];

  END..