64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
|
(if (and (not (get-environment-variable "CHICKEN_REPOSITORY"))
(directory-exists? libpath))
(repository-path libpath)))
;;(declare (uses mtconfigf))
(use (prefix mtconfigf configf:))
;;(configf:add-eval-string "(use common)")
(include "common_records.scm")
|
|
|
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
|
(if (and (not (get-environment-variable "CHICKEN_REPOSITORY"))
(directory-exists? libpath))
(repository-path libpath)))
;;(declare (uses mtconfigf))
;; (use (prefix mtconfigf configf:))
;;(configf:add-eval-string "(use common)")
(include "common_records.scm")
|
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
|
(define *testconfigs* (make-hash-table)) ;; test-name => testconfig
(define *runconfigs* (make-hash-table)) ;; target => runconfig
;; This is a cache of pre-reqs met, don't re-calc in cases where called with same params less than
;; five seconds ago
(define *pre-reqs-met-cache* (make-hash-table))
;; cache of verbosity given string
;;
(define *verbosity-cache* (make-hash-table))
|
<
<
<
<
|
270
271
272
273
274
275
276
277
278
279
280
281
282
283
|
(define *testconfigs* (make-hash-table)) ;; test-name => testconfig
(define *runconfigs* (make-hash-table)) ;; target => runconfig
;; This is a cache of pre-reqs met, don't re-calc in cases where called with same params less than
;; five seconds ago
(define *pre-reqs-met-cache* (make-hash-table))
(define (common:clear-caches)
(set! *target* (make-hash-table))
(set! *keys* (make-hash-table))
(set! *keyvals* (make-hash-table))
(set! *toptest-paths* (make-hash-table))
(set! *test-paths* (make-hash-table))
(set! *test-ids* (make-hash-table))
|