41
42
43
44
45
46
47
48
49
50
51
52
53
54
|
configf:alist->config
configf:set-section-var
find-and-read-config
common:args-get-target
configf:eval-string-in-environment
)
(import scheme
chicken
extras
files
matchable
|
>
>
>
>
>
|
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
|
configf:alist->config
configf:set-section-var
find-and-read-config
common:args-get-target
configf:eval-string-in-environment
read-config-set!
configf:read-file
configf:system
shell
)
(import scheme
chicken
extras
files
matchable
|
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
|
target)
(if target
(begin
(debug:print-error 0 *default-log-port* "Invalid target, spaces or blanks not allowed \"" target "\", target should be: " (string-intersperse keys "/") ", have " tlist " for elements")
(if exit-if-bad (exit 1))
#f)
#f))))
|
<
<
<
|
532
533
534
535
536
537
538
539
540
541
542
543
|
target)
(if target
(begin
(debug:print-error 0 *default-log-port* "Invalid target, spaces or blanks not allowed \"" target "\", target should be: " (string-intersperse keys "/") ", have " tlist " for elements")
(if exit-if-bad (exit 1))
#f)
#f))))
(include "configf-guts.scm")
)
|