FOREIGN DEFINITION MODULE SysClock;
IMPORT IMPLEMENTATION FROM "sysclock.o";
FROM Types IMPORT Card32;
CONST
maxSecondParts = 0;
TYPE
Month = [1 .. 12];
Day = [1 .. 31];
Hour = [0 .. 23];
Min = [0 .. 59];
Sec = [0 .. 59];
Fraction = [0 .. maxSecondParts];
UTCDiff = [-780 .. 720];
DateTime =
RECORD
year : Card32;
month : Month;
day : Day;
hour : Hour;
minute : Min;
second : Sec;
fractions: Fraction;
zone : UTCDiff;
SummerTimeFlag : BOOLEAN;
END;
PROCEDURE CanGetClock () : BOOLEAN;
PROCEDURE CanSetClock () : BOOLEAN;
PROCEDURE IsValidDateTime (userData : DateTime) : BOOLEAN;
PROCEDURE GetClock (VAR userData : DateTime);
PROCEDURE SetClock (userData : DateTime);
END SysClock.