Time.mesa
Cedar PilotBridge version
last edited by:
Smokey 12-Jul-81 15:59:12
McJones August 5, 1980 2:31 PM
Loretta 17-Sep-82 13:23:04
Johnsson 1-Jul-83 12:05:25
Marzullo 1-Jul-83 11:20:57
Plass September 4, 1984 1:05:09 pm PDT
Copyright (C) Xerox Corporation 1982. All rights reserved.
DIRECTORY BasicTime
USING [
GMT, nullGMT, Unpacked];
Time:
DEFINITIONS =
BEGIN
Packed:
TYPE = BasicTime.
GMT;
N.B.: Not the same format as Pilot.
Unpacked:
TYPE = BasicTime.Unpacked;
defaultTime: Packed = BasicTime.nullGMT;
Current: PROCEDURE RETURNS [time: Packed];
Unpack: PROCEDURE [time: Packed ← defaultTime] RETURNS [unpacked: Unpacked];
Invalid: ERROR;
Pack: PROCEDURE [unpacked: Unpacked] RETURNS [time: Packed];
Append: PROCEDURE [s: LONG STRING, unpacked: Unpacked, zone: BOOLEAN ← FALSE];
AppendCurrent:
PROCEDURE [s:
LONG
STRING, zone:
BOOLEAN ←
FALSE];
END.