include "daytime.m";
daytime:= load Daytime Daytime->PATH;
Tm: adt
{
  sec:     int;
  min:     int;
  hour:    int;
  mday:    int;
  mon:     int;
  year:    int;
  wday:    int;
  yday:    int;
  zone:    string;
  tzoff:   int;
};
text:     fn(tm: ref Tm)    : string;
filet:    fn(now, file: int): string;
gmt:      fn(tim: int)      : ref Tm;
local:    fn(tim: int)      : ref Tm;
now:      fn()              : int;
time:     fn()              : string;
tm2epoch: fn(tm: ref Tm)    : int;

Caveat

"GMT" is used rather than "UTC" as in other operating systems. There is no serious treatment of leap seconds, instead the epoch is implicitly shifted. Existing practice also dictate the following conventions:

year=96	means 1996
mday=1	means first day of the month
wday=0	means Sunday
mon=0	means January