113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
|
processmod
pgdb
mtmod
megatestmod
)
(include "task_records.scm")
(include "db_records.scm")
;;======================================================================
;; Tasks db
;;======================================================================
(define (tasks:get-task-db-path)
(let ((dbdir (or (configf:lookup *configdat* "setup" "monitordir")
|
|
|
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
|
processmod
pgdb
mtmod
megatestmod
)
(include "task_records.scm")
;; (include "db_records.scm")
;;======================================================================
;; Tasks db
;;======================================================================
(define (tasks:get-task-db-path)
(let ((dbdir (or (configf:lookup *configdat* "setup" "monitordir")
|