Differences From Artifact [66b9c38588]:
- File attic/runconfig.scm — part of check-in [101ee7c52b] at 2021-03-06 04:39:46 on branch v1.65-real-chicken-5 — Try a grounds-up switch to chicken-5 (user: matt, size: 6132) [annotate] [blame] [check-ins using]
- File runconfig-inc.scm — part of check-in [fde3cd0ad1] at 2019-11-03 04:00:00 on branch v1.65-try3 — try3 (user: matt, size: 6132) [annotate] [blame] [check-ins using]
- File runconfig.scm — part of check-in [7a74b8e952] at 2018-03-26 10:46:58 on branch v1.65-modularization — Added missing copyright notices (user: mrwellan, size: 6132) [annotate] [blame] [check-ins using]
To Artifact [e745c7478e]:
- File runconfig.scm — part of check-in [7060a6d776] at 2023-03-27 18:15:58 on branch v1.80 — Lots of proper use of debugprint and mtargs plus some small cleanup. (user: mrwellan, size: 6219) [annotate] [blame] [check-ins using] [more...]
| ︙ | |||
20 21 22 23 24 25 26 27 28 29 30 31 32 33 | 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 | + + + + + |
;; to this run field1val/field2val/field3val ...
;;======================================================================
(use format directory-utils)
(declare (unit runconfig))
(declare (uses common))
(declare (uses debugprint))
(declare (uses commonmod))
(import commonmod
debugprint)
(include "common_records.scm")
(define (runconfig:read fname target environ-patt)
(let ((ht (make-hash-table)))
(if target (hash-table-set! ht target '()))
(read-config fname ht #t environ-patt: environ-patt sections: (if target (list "default" target) #f))))
|
| ︙ |