Overview
Comment: | Still trying to get watchdog, on-exit and signal/int or signal/term working gracefully |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | v1.60 |
Files: | files | file ages | folders |
SHA1: |
ec49837f010711a8a9c28fbf52ab1081 |
User & Date: | matt on 2015-05-26 23:40:02 |
Other Links: | branch diff | manifest | tags |
Context
2015-05-27
| ||
05:36 | More cleanup on exit handling. Exit on ^Z check-in: 824cbc749e user: matt tags: v1.60 | |
2015-05-26
| ||
23:40 | Still trying to get watchdog, on-exit and signal/int or signal/term working gracefully check-in: ec49837f01 user: matt tags: v1.60 | |
23:07 | Moved watchdog timer exit message check-in: 1ab7fff8bf user: matt tags: v1.60 | |
Changes
Modified client.scm from [ae90ed41bd] to [56bcfe26a8].
︙ | |||
234 235 236 237 238 239 240 | 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 | - + + | (thread-join! th2)))) ;; client:launch ;; Need to set the signal handler somewhere other than here as this ;; routine will go away. ;; (define (client:launch run-id) |
Modified common.scm from [a861c03ed0] to [2dd389ebcc].
︙ | |||
242 243 244 245 246 247 248 | 242 243 244 245 246 247 248 249 250 251 252 253 254 255 256 | - + | ;;====================================================================== ;; E X I T H A N D L I N G ;;====================================================================== (define (std-exit-procedure) (set! *time-to-exit* #t) |
︙ | |||
265 266 267 268 269 270 271 | 265 266 267 268 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283 | - + - - + + | (if *task-db* (let ((db (cdr *task-db*))) (if (sqlite3:database? db) (begin (sqlite3:interrupt! db) (sqlite3:finalize! db #t) (vector-set! *task-db* 0 #f)))))) "Cleanup db exit thread")) (th2 (make-thread (lambda () |
︙ |
Modified megatest.scm from [0fff055d69] to [134d7dd741].
︙ | |||
350 351 352 353 354 355 356 | 350 351 352 353 354 355 356 357 358 359 360 361 362 363 364 365 | + - + | (let delay-loop ((count 0)) (if (and (not *time-to-exit*) (< count 11)) ;; aprox 5-6 seconds (begin (thread-sleep! 1) (delay-loop (+ count 1)))) (loop))) (if (common:low-noise-print 30) |
︙ |