-- File: TimeServersParmTajo.mesa - last edit:
-- WIrish               5-Feb-88 13:31:42
-- HGM                 15-Jun-85 15:52:11
-- Copyright (C) 1983, 1984, 1985, 1988 by Xerox Corporation. All rights reserved.
 
DIRECTORY
  Ascii USING [CR],
  CmFile USING [Handle, TableError],
  FormSW USING [
    ClientItemsProcType, Display, ProcType, AllocateItemDescriptor, newLine,
    CommandItem, NumberItem],
  Inline USING [LowHalf],
  Process USING [Detach, Pause, SecondsToTicks, Ticks],
  Put USING [Text],
  Runtime USING [GetBcdTime],
  String USING [AppendChar, AppendDecimal, AppendString, AppendLongDecimal],
  StringLookUp USING [noMatch, TableDesc],
  System USING [
    GetLocalTimeParameters, LocalTimeParameters, NetworkAddress, nullNetworkAddress, WestEast],
  TemporarySetGMT USING [adjustableClockRate, SetClockRate],
  Time USING [Append, AppendCurrent, Unpack],
  Token USING [Boolean, Decimal, LongDecimal],
  Tool USING [Create, MakeSWsProc, MakeMsgSW, MakeFormSW],
  ToolWindow USING [TransitionProcType],
  Window USING [Handle],

  Indirect USING [Close, NextValue, OpenSection],
  PupTimeServer USING [PupTimeServerOff, PupTimeServerOn],
  PupTimeServerOps USING [parmsOk, correction],
  TimeServerOps USING [SetClockDrift, SetClockWobble, Start, StartReset, Stop],
  Trouble USING [Bug];

TimeServersParmTajo: PROGRAM
  IMPORTS
    CmFile, FormSW, Inline, Process, Put, Runtime, String,
    System, TemporarySetGMT, Time, Token, Tool,
    Indirect, PupTimeServer, PupTimeServerOps, TimeServerOps, Trouble =
  BEGIN

  msg, form: PUBLIC Window.Handle ¬ NIL;

  Init: PROCEDURE =
    BEGIN
    herald: LONG STRING = [100];
    String.AppendString[herald, "Time Servers of "L];
    Time.Append[herald, Time.Unpack[Runtime.GetBcdTime[]]];
    [] ¬ Tool.Create[
      name: herald, makeSWsProc: MakeSWs,
      clientTransition: ClientTransition, initialState: inactive];
    END;

  FindParameters: PROCEDURE =
    BEGIN
    ok: BOOLEAN ¬ TRUE;
    flakey, disableNSTimeServer: BOOLEAN ¬ FALSE;
    dstSpecified, zoneSpecified: BOOLEAN ¬ FALSE;
    driftSpecified, wobbleSpecified, correctionSpecified: BOOLEAN ¬ FALSE;
    parms: System.LocalTimeParameters ¬ System.GetLocalTimeParameters[];
    cmFile: CmFile.Handle;
    Option: TYPE = MACHINE DEPENDENT{
      correction(0), drift, wobble, dst, zone, flakey, disableNSTimeServer,
      noMatch(StringLookUp.noMatch)};
    DefinedOption: TYPE = Option [correction..disableNSTimeServer];
    CheckType: PROCEDURE [h: CmFile.Handle, table: StringLookUp.TableDesc]
      RETURNS [index: CARDINAL] = Indirect.NextValue;
    MyNextValue: PROCEDURE [
      h: CmFile.Handle,
      table: LONG DESCRIPTOR FOR ARRAY DefinedOption OF LONG STRING]
      RETURNS [index: Option] = LOOPHOLE[CheckType];
    optionTable: ARRAY DefinedOption OF LONG STRING ¬ [
      correction: "Correction"L, drift: "Drift"L, wobble: "Wobble"L,
      dst: "DST"L, zone: "Zone"L, flakey: "Flakey"L,
      disableNSTimeServer: "Disable NS Time Server"L];
    PupTimeServerOps.parmsOk ¬ FALSE;
    cmFile ¬ Indirect.OpenSection["TimeServer"L];
    IF cmFile = NIL THEN
      BEGIN
      Message["Can't find [TimeServer] section in parameter file"L];
      RETURN;
      END;
    DO
      text: STRING = [200];
      option: Option;
      option ¬ MyNextValue[cmFile, DESCRIPTOR[optionTable] !
        CmFile.TableError =>
          BEGIN
	  IF name[0] # '; THEN Message["Unrecognized parameter: ", name];
	  RETRY;
	  END];
      SELECT option FROM
        noMatch => EXIT;
        correction =>
          BEGIN
          correction: LONG INTEGER ¬ Token.LongDecimal[cmFile];
          String.AppendLongDecimal[text, correction];
          Message["The crystal correction is "L, text, " milliseconds per day"L];
          SetCorrection[correction];
          PupTimeServerOps.correction ¬ Inline.LowHalf[correction/1000];
          correctionSpecified ¬ TRUE;
          END;
        drift =>
          BEGIN
          drift: CARDINAL ¬ Token.Decimal[cmFile];
          String.AppendLongDecimal[text, drift];
          Message["The clock drift is "L, text, " milliseconds per day"L];
	  TimeServerOps.SetClockDrift[86400, drift];
          driftSpecified ¬ TRUE;
          END;
        wobble =>
          BEGIN
          wobble: CARDINAL ¬ Token.Decimal[cmFile];
          String.AppendLongDecimal[text, wobble];
          Message["The clock wobble is "L, text, " milliseconds per quarter day"L];
	  TimeServerOps.SetClockWobble[86400/4, wobble];
          wobbleSpecified ¬ TRUE;
          END;
	dst =>  -- <begin day> <end day>
          BEGIN
          first: CARDINAL ¬ Token.Decimal[cmFile];
          last: CARDINAL ¬ Token.Decimal[cmFile];
          IF first # parms.beginDST OR last # parms.endDST THEN
            BEGIN Message["The DST info on this disk is wrong"L]; ok ¬ FALSE; END;
          String.AppendString[text, "DST: begin="L];
          String.AppendDecimal[text, first];
          String.AppendString[text, ", last="L];
          String.AppendDecimal[text, last];
          Message[text];
          dstSpecified ¬ TRUE;
          END;
        zone =>  -- <sign> <hours>:<minutes>
          BEGIN
          hours: INTEGER ¬ Token.Decimal[cmFile];
          minutes: CARDINAL ¬ Token.Decimal[cmFile];
          westEast: System.WestEast ¬ IF hours < 0 THEN east ELSE west;
          hours ¬ ABS[hours];
          IF westEast # parms.direction OR hours # parms.zone
            OR minutes # parms.zoneMinutes THEN
            BEGIN
            Message["The time zone info on this disk is wrong"L];
            ok ¬ FALSE;
            END;
          String.AppendString[text, "ZONE: hours="L];
          String.AppendDecimal[text, hours];
          String.AppendString[
            text, IF westEast = west THEN "(west)"L ELSE "(east)"L];
          String.AppendString[text, ", minutes="L];
          String.AppendDecimal[text, minutes];
          Message[text];
          zoneSpecified ¬ TRUE;
          END;
        flakey =>
          BEGIN
          IF Token.Boolean[cmFile] THEN
            BEGIN
            Message["This clock is Flakey"L];
            Process.Detach[FORK Flakey[]];
	    flakey ¬ TRUE;
            END
          ELSE Message["This clock is not Flakey"L];
          END;
        disableNSTimeServer =>
          BEGIN
          IF Token.Boolean[cmFile] THEN
            BEGIN
            Message["Turning OFF the NS Time Server"L];
	    disableNSTimeServer ¬ TRUE;
            END
          ELSE Message["Didn't turn OFF the NS Time Server"L];
          END;
        ENDCASE => ERROR;
      ENDLOOP;
    Indirect.Close[cmFile];
    ok ¬ ok AND dstSpecified AND zoneSpecified AND correctionSpecified
      AND driftSpecified AND wobbleSpecified;
    IF ~(PupTimeServerOps.parmsOk ¬ (ok AND ~flakey))
      THEN Message["*** WARNING! PUP Time Server NOT started. ***"L];
    IF ok AND ~disableNSTimeServer
      THEN TimeServerOps.Start[]
      ELSE BEGIN
        TimeServerOps.Stop[];  -- Created and Started by START Trap
	Message["*** WARNING! NS Time Server NOT started. ***"L];
	END;
    END;

  SetCorrection: PROCEDURE [arg: LONG INTEGER] =
    BEGIN
    IF arg # 0 THEN
      BEGIN
      secondsPerDay: LONG CARDINAL = 86400;
      delta: LONG INTEGER ¬ arg;
      bottom: LONG CARDINAL ¬ 1000*secondsPerDay;
      IF ~TemporarySetGMT.adjustableClockRate THEN
        Trouble.Bug["The clock on this machine is not adjustable"L];
-- Yetch, what a pile of crap
-- 640 works on D0s (or at least some of them)
-- Beware, Dicentras need a smaller number: 274
      UNTIL ABS[delta] < 640 DO  -- Avoid overflow
        delta ¬ delta/2;
	bottom ¬ bottom/2;
	ENDLOOP;
      TemporarySetGMT.SetClockRate[bottom, bottom + delta];   
      END;
    END;
  
  Message: PROCEDURE [one, two, three: LONG STRING ¬ NIL] =
    BEGIN
    text: STRING = [100];
    Time.AppendCurrent[text];
    String.AppendString[text, "  TimeServer: "L];
    String.AppendString[text, one];
    IF two # NIL THEN String.AppendString[text, two];
    IF three # NIL THEN String.AppendString[text, three];
    LogString[text];
    END;
  
  UpdatePicture: PUBLIC PROCEDURE =
    BEGIN
    IF form = NIL THEN RETURN;
    FormSW.Display[form];
    END;

  Start: FormSW.ProcType =
    BEGIN
    PupTimeServer.PupTimeServerOn[];
    END;

  Stop: FormSW.ProcType =
    BEGIN
    PupTimeServer.PupTimeServerOff[];
    END;

  NSReset: FormSW.ProcType =
    BEGIN
    where: System.NetworkAddress = System.nullNetworkAddress;
    TimeServerOps.StartReset[where];
    END;

  LogString: PROCEDURE [text: LONG STRING] =
    BEGIN
    String.AppendChar[text, '.];
    String.AppendChar[text, Ascii.CR];
    Put.Text[NIL, text];
    IF msg # NIL THEN Put.Text[msg, text];
    END;

  MakeSWs: Tool.MakeSWsProc =
    BEGIN
    msg ¬ Tool.MakeMsgSW[window: window, lines: 5];
    form ¬ Tool.MakeFormSW[window: window, formProc: MakeForm];
    END;

  startIX: CARDINAL = 0;
  stopIX: CARDINAL = 1;
  MakeForm: FormSW.ClientItemsProcType =
    BEGIN
    nParams: CARDINAL = 4;
    items ¬ FormSW.AllocateItemDescriptor[nParams];
    items[0] ¬ FormSW.CommandItem[
      tag: "PupStart"L, proc: Start, place: FormSW.newLine];
    items[1] ¬ FormSW.CommandItem[tag: "PupStop"L, proc: Stop];

    items[2] ¬ FormSW.NumberItem[
      tag: "Correction"L, value: @PupTimeServerOps.correction, boxWidth: 50,
      place: FormSW.newLine, readOnly: TRUE];

    items[3] ¬ FormSW.CommandItem[
      tag: "NS Reset"L, proc: NSReset, place: FormSW.newLine];
    
    RETURN[items, TRUE];
    END;

  ClientTransition: ToolWindow.TransitionProcType =
    BEGIN
    IF new = inactive THEN msg ¬ form ¬ NIL;
    SELECT TRUE FROM
      old = inactive =>
        BEGIN
        END;
      new = inactive =>
        BEGIN
        END;
      ENDCASE;
    END;

  Flakey: PROCEDURE =
    BEGIN
    halfHour: Process.Ticks = Process.SecondsToTicks[30*60];
    DO
      Process.Pause[halfHour];
      TimeServerOps.StartReset[System.nullNetworkAddress];
      ENDLOOP;
    END;


  -- Initialization

  Init[];
  FindParameters[];
  PupTimeServer.PupTimeServerOn[];
  END.