Use duck for util-time as test-bed for new in-source documentation tool.
This commit is contained in:
parent
3563279b57
commit
7cab364c73
2 changed files with 8 additions and 8 deletions
|
@ -261,7 +261,7 @@ UTIL-SET-LIST-SOURCES=util-set-list.scm testing.import.scm \
|
|||
util-set-list.o: util-set-list.import.scm
|
||||
util-set-list.import.scm: $(UTIL-SET-LIST-SOURCES)
|
||||
|
||||
UTIL-TIME-SOURCES=util-time.scm
|
||||
UTIL-TIME-SOURCES=util-time.scm duck.import.scm
|
||||
|
||||
util-time.o: util-time.import.scm
|
||||
util-time.import.scm: $(UTIL-TIME-SOURCES)
|
||||
|
|
|
@ -25,12 +25,12 @@
|
|||
|
||||
(declare (unit util-time))
|
||||
|
||||
;;; # Utilities
|
||||
(import duck)
|
||||
|
||||
(module
|
||||
(module*
|
||||
util-time
|
||||
#:doc ("Compatibility time module for <5.2 and >=5.3 versions of CHICKEN.")
|
||||
|
||||
;;; Test
|
||||
(
|
||||
current-util-milliseconds
|
||||
seconds->iso-date-string
|
||||
|
@ -42,8 +42,8 @@
|
|||
(chicken time posix)
|
||||
(chicken format))
|
||||
|
||||
;;; Compatibility wrapper
|
||||
(define (current-util-milliseconds)
|
||||
(define/doc (current-util-milliseconds)
|
||||
("Returns the current milliseconds counter that can be used for high-precision time measurements.")
|
||||
(cond-expand
|
||||
(chicken-5.0
|
||||
(current-milliseconds))
|
||||
|
@ -54,8 +54,8 @@
|
|||
(else
|
||||
(current-process-milliseconds))))
|
||||
|
||||
;;; Converts seconds since epoch to ISO date string
|
||||
(define (seconds->iso-date-string . args)
|
||||
(define/doc (seconds->iso-date-string . args)
|
||||
("Converts given seconds to ISO date string. Defaults to ```(current-seconds)```.")
|
||||
(let ((d (apply seconds->local-time args)))
|
||||
(format "~A-~A-~A"
|
||||
(number->string
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue