-- file: DMSTimeDefs.Mesa
-- edited by Brotz, March 17, 1981  12:01 PM
-- edited by Levin, June 6, 1980  8:25 AM

DIRECTORY
	InlineDefs: FROM "InlineDefs",
	TimeDefs: FROM "TimeDefs";

DMSTimeDefs: DEFINITIONS =

BEGIN

timeStringLength: CARDINAL = 38;
    -- length of "23 March 1978 12:45 pm PST (Wednesday)"

WestEast: TYPE = TimeDefs.WestEast;
LocalTimeParameters: TYPE = TimeDefs.LocalTimeParameters;

currentParameters: POINTER TO LocalTimeParameters = TimeDefs.currentParameters;

HardwareTime: TYPE = InlineDefs.BcplLongNumber;

currentTime: POINTER TO HardwareTime = TimeDefs.currentTime;

PackedTime: TYPE = InlineDefs.LongNumber;	-- Note: not LONG CARDINAL
UnpackedTime: TYPE = TimeDefs.UnpackedTime;

TimeFormat: TYPE = {timeHouse, laurelMsg, arpaMsg};
  -- timeHouse:  Thursday Sept. 23, 1977 12:34 am PST
  -- laurelMsg:  23 Sept. 1977 12:34 am PST (Thursday)
  -- arpaMsg:  23 Sep 1977 00:34 PST

MapPackedTimeToTimeZoneString: PROCEDURE[pt: PackedTime, s: STRING,
	format: TimeFormat _ timeHouse];


SetLaurelTime: PROCEDURE;
-- Initializes Laurel's time variables so that time updating is synchronized with the Alto OS.


END. -- of DMSTimeDefsz20461(635)\f1 1161f0