Artifact
38572fd24ba37b64e3706b99f64d24fb4ecdc599:
;; Copyright (c) Higepon(Taro Minowa)
;;
;; Permission is hereby granted, free of charge, to any person obtaining a
;; copy of this software and associated documentation files (the "Software"),
;; to deal in the Software without restriction, including without limitation
;; the rights to use, copy, modify, merge, publish, distribute, sublicense,
;; and/or sell copies of the Software, and to permit persons to whom the
;; Software is furnished to do so, subject to the following conditions:
;;
;; The above copyright notice and this permission notice shall be included in
;; all copies or substantial portions of the Software.
;;
;; Except as contained in this notice, the name(s) of the above copyright
;; holders shall not be used in advertising or otherwise to promote the sale,
;; use or other dealings in this Software without prior written authorization.
;;
;; THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
;; IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
;; FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL
;; THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
;; LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
;; FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER
;; DEALINGS IN THE SOFTWARE.
(library (srfi s19 time compat)
(export
format
host:time-resolution
host:current-time
host:time-nanosecond
host:time-second
host:time-gmt-offset)
(import
(rnrs base)
(only (mosh) format)
(only (system) microseconds local-tz-offset))
(define host:time-resolution 1000)
(define (host:current-time) (microseconds))
(define (host:time-nanosecond t) (* (mod t 1000000) 1000))
(define (host:time-second t) (div t 1000000))
(define (host:time-gmt-offset t) (local-tz-offset))
)