36
37
38
39
40
41
42
43
44
45
46
47
48
49
|
(import scheme
chicken.base
chicken.condition
chicken.file
chicken.io
chicken.pathname
chicken.file.posix
chicken.process-context.posix
chicken.format
chicken.port
chicken.pretty-print
chicken.process
chicken.process-context
|
>
|
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
|
(import scheme
chicken.base
chicken.condition
chicken.file
chicken.io
chicken.pathname
chicken.eval
chicken.file.posix
chicken.process-context.posix
chicken.format
chicken.port
chicken.pretty-print
chicken.process
chicken.process-context
|
1076
1077
1078
1079
1080
1081
1082
1083
1084
1085
1086
1087
1088
1089
1090
|
(else
(debug:print 0 *default-log-port* "WARNING: testconfig file does not exist: "test-configf) ;; BB: this fires
#f))))
(tcfg (if testexists
(configf:read-config test-configf #f system-allowed
environ-patt: (if system-allowed
"pre-launch-env-vars"
#f))
#f)))
(if (and tcfg cache-file) (hash-table-set! tcfg "have fulldata" #t)) ;; mark this as fully read data
(if tcfg (hash-table-set! *testconfigs* test-full-name tcfg))
(if (and testexists
cache-file
(file-writable? cache-path)
allow-write-cache)
|
|
>
|
1077
1078
1079
1080
1081
1082
1083
1084
1085
1086
1087
1088
1089
1090
1091
1092
|
(else
(debug:print 0 *default-log-port* "WARNING: testconfig file does not exist: "test-configf) ;; BB: this fires
#f))))
(tcfg (if testexists
(configf:read-config test-configf #f system-allowed
environ-patt: (if system-allowed
"pre-launch-env-vars"
#f)
env-to-use: (module-environment 'bigmod))
#f)))
(if (and tcfg cache-file) (hash-table-set! tcfg "have fulldata" #t)) ;; mark this as fully read data
(if tcfg (hash-table-set! *testconfigs* test-full-name tcfg))
(if (and testexists
cache-file
(file-writable? cache-path)
allow-write-cache)
|