Overview
| Comment: | wip - moving globals into *bdat* |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.6584-ck5 |
| Files: | files | file ages | folders |
| SHA1: |
b4b89683efae517a4b8ac12e0811864f |
| User & Date: | matt on 2021-04-15 22:15:30 |
| Other Links: | branch diff | manifest | tags |
Context
|
2021-04-16
| ||
| 03:17 | wip check-in: dd2b8adfb2 user: matt tags: v1.6584-ck5 | |
|
2021-04-15
| ||
| 22:15 | wip - moving globals into *bdat* check-in: b4b89683ef user: matt tags: v1.6584-ck5 | |
| 21:32 | wip - moving globals into *bdat* check-in: f3116a6a76 user: matt tags: v1.6584-ck5 | |
Changes
Modified commonmod.scm from [8c49f94fa1] to [8d1f789d9b].
| ︙ | ︙ | |||
106 107 108 109 110 111 112 113 114 115 116 117 118 119 | (defstruct bdat (home (getenv "HOME")) (user (getenv "USER")) (watchdog #f) (time-to-exit #f) (task-db #f) ;; (server-loop-heart-beat (current-seconds)) ) (define (make-and-init-bigdata) (set! *bdat* (make-bdat))) | > | 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 | ;; client (define *rmt-mutex* (make-mutex)) ;; remote access calls mutex ;; RPC transport (define *rpc:listener* #f) ;; KEY info | | | 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 *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 | (define *pre-reqs-met-cache* (make-hash-table)) ;; cache of verbosity given string ;; (define *verbosity-cache* (make-hash-table)) (define (common:clear-caches) | | | 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) (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)) |
| ︙ | ︙ |
Modified mtmod.scm from [961c38c9fc] to [39b5943135].
| ︙ | ︙ | |||
139 140 141 142 143 144 145 | "nothing matches this I hope")))) ;; Why was system disallowed in the reading of the runconfigs file? ;; NOTE: Should be setting env vars based on (target|default) (confdat (runconfig:read fname thekey environ-patt)) (whatfound (make-hash-table)) (finaldat (make-hash-table)) (sections (list "default" thekey))) | | | 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 |
"nothing matches this I hope"))))
;; Why was system disallowed in the reading of the runconfigs file?
;; NOTE: Should be setting env vars based on (target|default)
(confdat (runconfig:read fname thekey environ-patt))
(whatfound (make-hash-table))
(finaldat (make-hash-table))
(sections (list "default" thekey)))
(if (not (bdat-target *bdat*))(bdat-target-set! *bdat* thekey)) ;; may save a db access or two but repeats db:get-target code
(debug:print 4 *default-log-port* "Using key=\"" thekey "\"")
(if change-env
(for-each ;; NB// This can be simplified with new content of keyvals having all that is needed.
(lambda (keyval)
(safe-setenv (car keyval)(cadr keyval)))
keyvals))
|
| ︙ | ︙ |