Hi folks, In case it helps others, I've bundled up my timezone-discovering code (attached). I should make an egg but I don't have the time right now. I'm putting it in the public domain; might only work on Unix-like OS'es.
[proc] (local-timezone y m d #!optional (hr -1) (min -1) (as-offset #f)) ;; return the timezone for the given date as a string, ;; (e.g. "EST"). If as-offset is true, then return it in RFC-822 ;; format (e.g. "-0500"). [proc] (local-timezone/srfi-19 y m d #!optional (hr -1) (min -1)) ;; return the timezone for the given date in SRFI-19 format. [proc] (make-local-date nsec sec min hour day month year) ;; Make a SRFI-19 date in the local timezone, honouring daylight savings ;; rules. Requires SRFI-19 to work (make-date). Graham
dateutils.tgz
Description: GNU Zip compressed data
_______________________________________________ Chicken-users mailing list Chicken-users@nongnu.org http://lists.nongnu.org/mailman/listinfo/chicken-users
