-- Copyright (C) 1982  by Xerox Corporation. All rights reserved. 
-- PopCorn.mesa, HGM, 30-Mar-82 19:09:48

DIRECTORY
  PupTypes USING [PupAddress];

PopCorn: DEFINITIONS =
  BEGIN
  
  GetClockOffset: PROCEDURE [where: PupTypes.PupAddress, tries: CARDINAL]
    RETURNS [msDiff: LONG INTEGER, msDelay: LONG CARDINAL];
    -- delta > 0 => his clock is faster then ours

  ErrorType: TYPE = {
    rejecting, timeout, pupConfusion,
    cantParse, notLocked, localClockWayOff,
    spare1, spare2, spare3};
  Error: ERROR [why: ErrorType, text: LONG STRING];

  END..