Use duck for util-time as test-bed for new in-source documentation tool.

This commit is contained in:
Dominik Pantůček 2023-07-04 19:33:54 +02:00
parent 3563279b57
commit 7cab364c73
2 changed files with 8 additions and 8 deletions

View file

@ -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.o: util-set-list.import.scm
util-set-list.import.scm: $(UTIL-SET-LIST-SOURCES) 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.o: util-time.import.scm
util-time.import.scm: $(UTIL-TIME-SOURCES) util-time.import.scm: $(UTIL-TIME-SOURCES)

View file

@ -25,12 +25,12 @@
(declare (unit util-time)) (declare (unit util-time))
;;; # Utilities (import duck)
(module (module*
util-time util-time
#:doc ("Compatibility time module for <5.2 and >=5.3 versions of CHICKEN.")
;;; Test
( (
current-util-milliseconds current-util-milliseconds
seconds->iso-date-string seconds->iso-date-string
@ -42,8 +42,8 @@
(chicken time posix) (chicken time posix)
(chicken format)) (chicken format))
;;; Compatibility wrapper (define/doc (current-util-milliseconds)
(define (current-util-milliseconds) ("Returns the current milliseconds counter that can be used for high-precision time measurements.")
(cond-expand (cond-expand
(chicken-5.0 (chicken-5.0
(current-milliseconds)) (current-milliseconds))
@ -54,8 +54,8 @@
(else (else
(current-process-milliseconds)))) (current-process-milliseconds))))
;;; Converts seconds since epoch to ISO date string (define/doc (seconds->iso-date-string . args)
(define (seconds->iso-date-string . args) ("Converts given seconds to ISO date string. Defaults to ```(current-seconds)```.")
(let ((d (apply seconds->local-time args))) (let ((d (apply seconds->local-time args)))
(format "~A-~A-~A" (format "~A-~A-~A"
(number->string (number->string