Overview
| Comment: | Put out useful message on bad timestring inputs from config files. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.80-revolution |
| Files: | files | file ages | folders |
| SHA1: |
938ab5c99e242db2189d4a678cc75cd6 |
| User & Date: | mrwellan on 2024-01-26 09:44:31 |
| Other Links: | branch diff | manifest | tags |
Context
|
2024-01-26
| ||
| 09:48 | Regenerated manual pdf and html files. check-in: 5dc33c18e6 user: mrwellan tags: v1.80-revolution | |
| 09:44 | Put out useful message on bad timestring inputs from config files. check-in: 938ab5c99e user: mrwellan tags: v1.80-revolution | |
| 09:43 | Deal better with malformed .final-status files check-in: ddf07290ee user: mrwellan tags: v1.80-revolution | |
Changes
Modified commonmod.scm from [687653c938] to [faac2f70ad].
| ︙ | ︙ | |||
410 411 412 413 414 415 416 | ((m) 60) ;; minutes ((h) 3600) ((d) 86400) ((w) 604800) ((M) 2628000) ;; aproximately one month ((y) 31536000) (else | | > | < < | 410 411 412 413 414 415 416 417 418 419 420 421 422 423 424 425 426 |
((m) 60) ;; minutes
((h) 3600)
((d) 86400)
((w) 604800)
((M) 2628000) ;; aproximately one month
((y) 31536000)
(else
0)))))
(debug:print 0 *default-log-port* "ERROR: can't parse timestring "tstr", component "part", string: "(cadr match))))
(debug:print 0 *default-log-port* "ERROR: can't parse timestring "tstr", component "part))))
parts)
time-secs))
(define (seconds->hr-min-sec secs)
(let* ((hrs (quotient secs 3600))
(min (quotient (- secs (* hrs 3600)) 60))
(sec (- secs (* hrs 3600)(* min 60))))
|
| ︙ | ︙ |