ref: 6bb619c8db2867ddd9cd19c0aec05065f5ee0cae
dir: /module/daytime.m/
Daytime: module
{
PATH: con "/dis/lib/daytime.dis";
Tm: adt {
sec: int; # seconds (0 to 59)
min: int; # minutes (0 to 59)
hour: int; # hours (0 to 23)
mday: int; # day of the month (1 to 31)
mon: int; # month (0 to 11)
year: int; # year-1900; 2000AD is 100
wday: int; # day of week (0 to 6, Sunday is 0)
yday: int; # day of year (0 to 365)
zone: string; # time zone name
tzoff: int; # time zone offset (seconds from GMT)
};
# now:
# return the time in seconds since the epoch
#
# time:
# return the current local time as string
#
# text:
# convert a time structure from local or gmt
# into a text string
#
# filet:
# return a string containing the file time
# prints mon day hh:mm if the file is < 6 months old
# mon day year if > 6 months old
#
# local:
# uses /locale/timezone to convert an epoch time in seconds into
# a local time structure
#
# gmt:
# return a time structure for GMT
#
# tm2epoch:
# convert a time structure to an epoch time in seconds
#
# string2tm:
# parse a string representing a date into a time structure
now: fn(): int;
time: fn(): string;
text: fn(tm: ref Tm): string;
filet: fn(now, file: int): string;
local: fn(tim: int): ref Tm;
gmt: fn(tim: int): ref Tm;
tm2epoch: fn(tm: ref Tm): int;
string2tm: fn(date: string): ref Tm;
};