(define-module(www utcsec)#:export(format-utcsec rfc1123-date<- <-rfc1123-date <-mtime <-ctime rfc1123-now))
(define(format-utcsec port format utc-seconds)(simple-format port(strftime format(gmtime utc-seconds))))
(define *rfc1123-format* "%a, %d %b %Y %T GMT")
(define(rfc1123-date<- port utc-seconds)(format-utcsec port *rfc1123-format* utc-seconds))
(define(<-rfc1123-date s)(car(mktime(car(strptime *rfc1123-format* s))"UTC")))
(define(<-*time which who filespec)(let((si(cond((vector? filespec)filespec)((or(port? filespec)(string? filespec))(stat filespec))(else(scm-error  'wrong-type-arg who "Bad filespec in position 1: ~S"(list filespec)#f)))))(car(mktime(gmtime(which si))"UTC"))))
(define(<-mtime filespec)(<-*time stat:mtime  '<-mtime filespec))
(define(<-ctime filespec)(<-*time stat:ctime  '<-ctime filespec))
(define(rfc1123-now)(rfc1123-date<- #f(current-time)))
