455
456
457
458
459
460
461
462
463
464
465
466
467
468
|
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
|
+
+
+
+
+
|
(let ((sectdat (hash-table-ref/default cfgdat section '())))
(if (null? sectdat)
'()
(map car sectdat))))
(define (configf:get-section cfgdat section)
(hash-table-ref/default cfgdat section '()))
(define (configf:set-section-var cfgdat section var val)
(let ((sectdat (configf:get-section cfgdat section)))
(append (filter (lambda (x)(not (assoc var sectdat))) sectdat)
(list var val))))
(define (setup)
(let* ((configf (find-config "megatest.config"))
(config (if configf (read-config configf #f #t) #f)))
(if config
(setenv "RUN_AREA_HOME" (pathname-directory configf)))
config))
|