Overview
| Comment: | Silenced on-exit call, bumped version |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk | v1.33 |
| Files: | files | file ages | folders |
| SHA1: |
aeefd528dca4cc80d02d566ee075fd31 |
| User & Date: | mrwellan on 2011-11-07 12:29:49 |
| Other Links: | manifest | tags |
Context
|
2011-11-07
| ||
| 12:39 | Added handling of NULLs in logfile check-in: 0cdd554a61 user: mrwellan tags: trunk, v1.33 | |
| 12:29 | Silenced on-exit call, bumped version check-in: aeefd528dc user: mrwellan tags: trunk, v1.33 | |
| 11:10 | Bunchofixes for ezsteps check-in: a50e564c64 user: mrwellan tags: trunk | |
Changes
Modified dashboard-guimonitor.scm from [575eae8fef] to [f8afb0e4b7].
| ︙ | ︙ | |||
172 173 174 175 176 177 178 |
(iup:attribute-set! tabtop "TABTITLE1" "Collateral")
(iup:attribute-set! tabtop "TABTITLE2" "Fossil")
(iup:attribute-set! tabtop "TABTITLE3" "Tools")
tabtop))))
(on-exit (lambda ()
(let ((tdb (tasks:open-db)))
| | | 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 |
(iup:attribute-set! tabtop "TABTITLE1" "Collateral")
(iup:attribute-set! tabtop "TABTITLE2" "Fossil")
(iup:attribute-set! tabtop "TABTITLE3" "Tools")
tabtop))))
(on-exit (lambda ()
(let ((tdb (tasks:open-db)))
;; (print "On-exit called")
(tasks:remove-monitor-record tdb)
(sqlite3:finalize! tdb))))
(define (gui-monitor db)
(let ((keys (get-keys db))
(tdb (tasks:open-db)))
(tasks:register-monitor db tdb) ;;; let the other monitors know we are here
|
| ︙ | ︙ |
Modified launch.scm from [914302d488] to [d206050f69].
| ︙ | ︙ | |||
320 321 322 323 324 325 326 327 328 329 330 331 332 333 |
work-area ":\n====\n exit code " (vector-ref exit-info 2) "\n" "====\n")
(sqlite3:finalize! db)
(if (not (vector-ref exit-info 1))
(exit 4)))))))
;; set up the very basics needed for doing anything here.
(define (setup-for-run)
(set! *configinfo* (find-and-read-config (if (args:get-arg "-config")(args:get-arg "-config") "megatest.config") environ-patt: "env-override"))
(set! *configdat* (if (car *configinfo*)(car *configinfo*) #f))
(set! *toppath* (if (car *configinfo*)(cadr *configinfo*) #f))
(if *toppath*
(setenv "MT_RUN_AREA_HOME" *toppath*) ;; to be deprecated
(debug:print 0 "ERROR: failed to find the top path to your run setup."))
*toppath*)
| > > > | 320 321 322 323 324 325 326 327 328 329 330 331 332 333 334 335 336 |
work-area ":\n====\n exit code " (vector-ref exit-info 2) "\n" "====\n")
(sqlite3:finalize! db)
(if (not (vector-ref exit-info 1))
(exit 4)))))))
;; set up the very basics needed for doing anything here.
(define (setup-for-run)
;; would set values for KEYS in the environment here for better support of env-override but
;; have chicken/egg scenario. need to read megatest.config then read it again. Going to
;; pass on that idea for now.
(set! *configinfo* (find-and-read-config (if (args:get-arg "-config")(args:get-arg "-config") "megatest.config") environ-patt: "env-override"))
(set! *configdat* (if (car *configinfo*)(car *configinfo*) #f))
(set! *toppath* (if (car *configinfo*)(cadr *configinfo*) #f))
(if *toppath*
(setenv "MT_RUN_AREA_HOME" *toppath*) ;; to be deprecated
(debug:print 0 "ERROR: failed to find the top path to your run setup."))
*toppath*)
|
| ︙ | ︙ |
Modified megatest-version.scm from [b46b5a7d77] to [6627cdeda1].
1 2 3 4 5 | ;; Always use two digit decimal ;; 1.01, 1.02...1.10,1.11 ... 1.99,2.00.. (declare (unit megatest-version)) | | | 1 2 3 4 5 6 7 | ;; Always use two digit decimal ;; 1.01, 1.02...1.10,1.11 ... 1.99,2.00.. (declare (unit megatest-version)) (define megatest-version 1.33) |