DEFINITION MODULE wraptime;
(* gm2-compatible: time primitives (C library structs are opaque). *)

FROM SYSTEM IMPORT ADDRESS;

TYPE
  timeval  = ADDRESS;
  timezone = ADDRESS;
  tm       = ADDRESS;

PROCEDURE InitTimeval () : timeval;
PROCEDURE KillTimeval (tv : timeval) : timeval;
PROCEDURE InitTimezone () : timezone;
PROCEDURE KillTimezone (tz : timezone) : timezone;
PROCEDURE InitTM () : tm;
PROCEDURE KillTM (t : tm) : tm;

PROCEDURE gettimeofday (tv : timeval; tz : timezone) : INTEGER;
PROCEDURE settimeofday (tv : timeval; tz : timezone) : INTEGER;
PROCEDURE GetFractions (tv : timeval) : CARDINAL;
PROCEDURE LocalTime (tv : timeval; m : tm) : tm;

PROCEDURE GetYear (m : tm) : CARDINAL;
PROCEDURE GetMonth (m : tm) : CARDINAL;
PROCEDURE GetDay (m : tm) : CARDINAL;
PROCEDURE GetHour (m : tm) : CARDINAL;
PROCEDURE GetMinute (m : tm) : CARDINAL;
PROCEDURE GetSecond (m : tm) : CARDINAL;

PROCEDURE SetTimeval (tv : timeval; sec, usec : LONGCARD);
PROCEDURE SetTimezone (tz : timezone; minuteswest, dsttime : INTEGER);

END wraptime.