Index: common.scm ================================================================== --- common.scm +++ common.scm @@ -64,10 +64,15 @@ (mutex-lock! cxt-mutex) (let ((res (proc cxt))) (mutex-unlock! cxt-mutex) res)))) +;; A hash table that can be accessed by #{scheme ...} calls in +;; config files. Allows communicating between confgs +;; +(define *user-hash-data* (make-hash-table)) + (define *db-keys* #f) (define *configinfo* #f) ;; raw results from setup, includes toppath and table from megatest.config (define *runconfigdat* #f) ;; run configs data (define *configdat* #f) ;; megatest.config data