Differences From Artifact [26cad9ffd1]:
- File configf.scm — part of check-in [7a7f9c7318] at 2012-04-19 23:45:24 on branch runconfigs-fix-irrelevant-vars — Fixed runconfigs.config where wrong vars slipped through (user: matt, size: 15927) [annotate] [blame] [check-ins using] [more...]
To Artifact [2c4fe9609e]:
- File configf.scm — part of check-in [8f2a9bcf7c] at 2012-04-20 22:29:54 on branch extend-test-get-path — Extend test get path (user: mrwellan, size: 16019) [annotate] [blame] [check-ins using] [more...]
| ︙ | |||
231 232 233 234 235 236 237 238 239 240 241 242 243 244 | 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 | + + + |
(define (configf:section-vars cfgdat section)
(let ((sectdat (hash-table-ref/default cfgdat section '())))
(if (null? sectdat)
'()
(map car sectdat))))
(define (configf:get-section cfdat section)
(hash-table-ref/default cfgdat section '()))
(define (setup)
(let* ((configf (find-config))
(config (if configf (read-config configf #f #t) #f)))
(if config
(setenv "RUN_AREA_HOME" (pathname-directory configf)))
config))
|
| ︙ |