106
107
108
109
110
111
112
113
114
115
116
117
118
119
|
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
|
+
|
(defstruct bdat
(home (getenv "HOME"))
(user (getenv "USER"))
(watchdog #f)
(time-to-exit #f)
(task-db #f)
(target #f)
;; (server-loop-heart-beat (current-seconds))
)
(define (make-and-init-bigdata)
(set! *bdat*
(make-bdat)))
|
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
|
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
|
-
+
|
;; client
(define *rmt-mutex* (make-mutex)) ;; remote access calls mutex
;; RPC transport
(define *rpc:listener* #f)
;; KEY info
(define *target* (make-hash-table)) ;; cache the target here; target is keyval1/keyval2/.../keyvalN
;; (define *target* (make-hash-table)) ;; cache the target here; target is keyval1/keyval2/.../keyvalN
(define *keys* (make-hash-table)) ;; cache the keys here
(define *keyvals* (make-hash-table))
(define *toptest-paths* (make-hash-table)) ;; cache toptest path settings here
(define *test-paths* (make-hash-table)) ;; cache test-id to test run paths here
(define *test-ids* (make-hash-table)) ;; cache run-id, testname, and item-path => test-id
(define *test-info* (make-hash-table)) ;; cache the test info records, update the state, status, run_duration etc. from testdat.db
|
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
|
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
|
-
+
|
(define *pre-reqs-met-cache* (make-hash-table))
;; cache of verbosity given string
;;
(define *verbosity-cache* (make-hash-table))
(define (common:clear-caches)
(set! *target* (make-hash-table))
(bdat-target-set! *bdat* (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))
(set! *test-info* (make-hash-table))
(set! *run-info-cache* (make-hash-table))
|