ref: 1018d7a7091fd5e0433f501a3474cdc3fec322cc
dir: /appl/charon/date.b/
implement Date; include "common.m"; include "date.m"; include "daytime.m"; daytime: Daytime; Tm: import daytime; sys: Sys; CU: CharonUtils; wdayname := array[] of { "Sun", "Mon", "Tue", "Wed", "Thu", "Fri", "Sat" }; monname := array[] of { "Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov", "Dec" }; init(cu: CharonUtils) { sys = load Sys Sys->PATH; CU = cu; daytime = load Daytime Daytime->PATH; if (daytime==nil) raise sys->sprint("EXInternal: can't load Daytime: %r"); } # print dates in the format # Wkd, DD Mon YYYY HH:MM:SS GMT dateconv(t: int): string { tm : ref Tm; tm = daytime->gmt(t); return sys->sprint("%s, %.2d %s %.4d %.2d:%.2d:%.2d GMT", wdayname[tm.wday], tm.mday, monname[tm.mon], tm.year+1900, tm.hour, tm.min, tm.sec); } # parse a date and return the seconds since the epoch # return 0 for a failure # # need to handle three formats (we'll be a bit more tolerant) # Sun, 06 Nov 1994 08:49:37 GMT (rfc822+rfc1123; preferred) # Sunday, 06-Nov-94 08:49:37 GMT (rfc850, obsoleted by rfc1036) # Sun Nov 6 08:49:37 1994 (ANSI C's asctime() format; GMT assumed) date2sec(date : string): int { tm := daytime->string2tm(date); if(tm == nil || tm.year < 70 || tm.zone != "GMT") t := 0; else t = daytime->tm2epoch(tm); return t; } now(): int { return daytime->now(); }