Overview
| Comment: | reduce noise on output |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.60 |
| Files: | files | file ages | folders |
| SHA1: |
678ea430aaeea59e53c913165d386eb7 |
| User & Date: | mrwellan on 2014-11-11 09:21:46 |
| Other Links: | branch diff | manifest | tags |
Context
|
2014-11-12
| ||
| 00:23 | Part of massive change to defend <rid>.db against access storms 50% done. Stopped at T E S T S. check-in: 712b23604e user: matt tags: v1.60 | |
|
2014-11-11
| ||
| 09:21 | reduce noise on output check-in: 678ea430aa user: mrwellan tags: v1.60 | |
|
2014-11-10
| ||
| 22:31 | Protected accesses to megatest.db and monitor.db with journal file busy control check-in: faeb319c76 user: matt tags: v1.60 | |
Changes
Modified megatest.scm from [4ce5effbaa] to [9b64b448cf].
| ︙ | ︙ | |||
288 289 290 291 292 293 294 |
(define *watchdog*
(make-thread
(lambda ()
(thread-sleep! 0.5) ;; half second delay for startup
(let loop ()
;; sync for filesystem local db writes
;;
| | > < | < | | | | | | > > | | > | | 288 289 290 291 292 293 294 295 296 297 298 299 300 301 302 303 304 305 306 307 308 309 310 311 312 313 314 315 316 317 318 319 320 |
(define *watchdog*
(make-thread
(lambda ()
(thread-sleep! 0.5) ;; half second delay for startup
(let loop ()
;; sync for filesystem local db writes
;;
(let ((start-time (current-seconds))
(servers-started (make-hash-table)))
(mutex-lock! *db-multi-sync-mutex*)
(for-each
(lambda (run-id)
(let ((last-write (hash-table-ref/default *db-local-sync* run-id 0)))
(if (> (- start-time last-write) 5) ;; every five seconds
(let ((sync-time (- (current-seconds) start-time)))
(db:multi-db-sync (list run-id) 'new2old)
(if (common:low-noise-print 30 "sync new to old")
(begin
(debug:print-info 0 "Sync of newdb to olddb for run-id " run-id " completed in " sync-time " seconds")
(if (and (> sync-time 10) ;; took more than ten seconds, start a server for this run
(hash-table-ref/default servers-started run-id #f))
(begin
(debug:print-info 0 "Sync is taking a long time, start up a server to assist for run " run-id)
(server:kind-run run-id)
(hash-table-set! servers-started run-id #t)))))
(hash-table-delete! *db-local-sync* run-id)))))
(hash-table-keys *db-local-sync*))
(mutex-unlock! *db-multi-sync-mutex*))
;; keep going unless time to exit
;;
(if (not *time-to-exit*)
(begin
|
| ︙ | ︙ |