INTERFACEUtime ; IMPORT Utypes; FROM Utypes IMPORT clock_t; FROM Ctypes IMPORT char_star, int, long, long_int, unsigned_short, short; CONST ITIMER_REAL = 0; ITIMER_VIRTUAL = 1; ITIMER_PROF = 2; TYPE struct_timeval = RECORD tv_sec: long; tv_usec: long; END; struct_timezone = RECORD tz_minuteswest: int; tz_dsttime: int; END; struct_timespec = RECORD tv_sec: time_t; tv_nsec: long_int; END; struct_itimerval = RECORD it_interval: struct_timeval; it_value: struct_timeval; END; struct_tm = RECORD tm_sec: int; tm_min: int; tm_hour: int; tm_mday: int; tm_mon: int; tm_year: int; tm_wday: int; tm_yday: int; tm_isdst: int; tm_gmtoff:long; tm_zone: char_star; END; struct_tm_star = UNTRACED REF struct_tm; time_t = Utypes.time_t; struct_tms = RECORD tms_utime: clock_t; tms_stime: clock_t; tms_cutime: clock_t; tms_cstime: clock_t; END; struct_tms_star = UNTRACED REF struct_tms; struct_timeb = RECORD time: time_t; millitm: unsigned_short; timezone: short; dstflag: short; END; struct_timeb_star = UNTRACED REF struct_timeb; <*EXTERNAL*> PROCEDURE gettimeofday (VAR t: struct_timeval; z: UNTRACED REF struct_timezone := NIL): int; <*EXTERNAL*> PROCEDURE settimeofday (VAR t: (*const*) struct_timeval; z: UNTRACED REF (*const*) struct_timezone := NIL): int; <*EXTERNAL*> PROCEDURE getitimer (which: int; VAR value: struct_itimerval): int; <*EXTERNAL*> PROCEDURE setitimer (which: int; VAR (*const*) value, ovalue: struct_itimerval): int; <*EXTERNAL*> PROCEDURE clock (): clock_t; <*EXTERNAL*> PROCEDURE times (buffer: struct_tms_star): clock_t; <*EXTERNAL*> PROCEDURE time (tloc: UNTRACED REF time_t): time_t; <*EXTERNAL*> PROCEDURE ctime (READONLY clock: time_t): char_star; <*EXTERNAL*> PROCEDURE asctime (tm: (*const*) struct_tm_star): char_star; <*EXTERNAL*> PROCEDURE localtime (clock: (*const*) UNTRACED REF time_t): struct_tm_star; <*EXTERNAL*> PROCEDURE gmtime (clock: (*const*) UNTRACED REF time_t): struct_tm_star; <*EXTERNAL*> PROCEDURE mktime (tm: struct_tm_star): time_t; <*EXTERNAL*> PROCEDURE nanosleep (READONLY req: struct_timespec; VAR rem: struct_timespec): int; END Utime.