-- Copyright (C) 1982, 1983, 1985  by Xerox Corporation. All rights reserved. 
-- TimeServerLog.mesa
-- Last edited by HGM,   25-Jun-85  2:46:36
-- Last edited by Keith,  6-Feb-82 16:19:56

DIRECTORY
  System USING [GreenwichMeanTime, NetworkAddress];

TimeServerLog: DEFINITIONS =
  BEGIN

  StartLogging: PROCEDURE;

  StopLogging: PROCEDURE;

  LogClockChange: PROCEDURE [
    time: System.GreenwichMeanTime, delta: LONG INTEGER,
    whoFrom: System.NetworkAddress, errorAccurate: BOOLEAN,
    oldError, newError, flightTime, newVersion: LONG CARDINAL];

  LogInconsistancy: PROCEDURE [
    whoWith: System.NetworkAddress,
    myTime: System.GreenwichMeanTime, myError: LONG CARDINAL,
    theirTime: System.GreenwichMeanTime, theirError: LONG CARDINAL];
    
  LogReset: PROCEDURE [whoSays, from: System.NetworkAddress];

  LogStop: PROCEDURE [whoSays: System.NetworkAddress];
  
  LogStart: PROCEDURE [whoSays: System.NetworkAddress];

  END...