Overview
| Comment: | Added cxt and global hash |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.62 |
| Files: | files | file ages | folders |
| SHA1: |
d256b0749577f1080bcff1f79530a552 |
| User & Date: | mrwellan on 2016-11-03 09:26:08 |
| Other Links: | branch diff | manifest | tags |
Context
|
2016-11-03
| ||
| 23:47 | Set up cxt check-in: 581a0d357c user: mrwellan tags: v1.62 | |
| 09:26 | Added cxt and global hash check-in: d256b07495 user: mrwellan tags: v1.62 | |
|
2016-11-02
| ||
| 23:26 | Added inter-test launch delay of 5 seconds. Override with setting: [setup]\nlaunch-delay D where D is delay in seconds. check-in: 39fc4b3bd9 user: matt tags: v1.62 | |
Changes
Modified common.scm from [d577dfee02] to [47f9e0c9c0].
| ︙ | |||
40 41 42 43 44 45 46 47 48 49 50 51 52 53 | 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 | + + + + + + + |
(setenv key val))
(debug:print-error 0 *default-log-port* "bad value for setenv, key=" key ", value=" val)))
(define home (getenv "HOME"))
(define user (getenv "USER"))
;; GLOBAL GLETCHES
;; Common data structure for
(defstruct cxt
(taskdb #f))
(define *contexts* (make-hash-table)) ;; toppath => cxt
(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
(define *configstatus* #f) ;; status of data; 'fulldata : all processing done, #f : no data yet, 'partialdata : partial read done
(define *toppath* #f)
|
| ︙ |
Modified megatest.scm from [3fb995e08e] to [eb981b0df9].
| ︙ | |||
392 393 394 395 396 397 398 399 400 401 402 403 404 405 | 392 393 394 395 396 397 398 399 400 401 402 403 404 405 406 407 408 409 | + + + + |
(loop)))
(if (common:low-noise-print 30)
(debug:print-info 0 *default-log-port* "Exiting watchdog timer, *time-to-exit* = " *time-to-exit*)))))
"Watchdog thread")))
(thread-start! *watchdog*)
(defstruct cxt
(taskdb #f))
(define *contexts* (make-hash-table)) ;; toppath => cxt
(if (args:get-arg "-log")
(let ((oup (open-output-file (args:get-arg "-log"))))
(debug:print-info 0 *default-log-port* "Sending log output to " (args:get-arg "-log"))
(set! *default-log-port* oup)))
(if (or (args:get-arg "-h")
|
| ︙ |