Index: dashboard.scm ================================================================== --- dashboard.scm +++ dashboard.scm @@ -263,23 +263,31 @@ (let loop () (case (thread-state th1) ((terminated) (debug:print 0 *default-log-port* "th1 terminated, all done for now.")) ((running) + (debug:print 0 *default-log-port* "th1 running, suspending now.") (thread-suspend! th1) (thread-sleep! 0.1) (loop)) ((sleeping) + (debug:print 0 *default-log-port* "th1 sleeping, resuming now.") (thread-resume! th1) (thread-sleep! 0.9) (loop)) + ((dead) + (debug:print 0 *default-log-port* "th1 "(thread-state th1)", what's next?")) (else + (debug:print 0 *default-log-port* "th1 "(thread-state th1)", what's next?") + (thread-sleep! 0.5) (loop)))))))) + (set! *updaters-running* #t) (thread-start! th1) (thread-sleep! 0.1) (thread-start! th2) - (thread-join! th1)))))) + (thread-join! th1) + (set! *updaters-running* #f)))))) ;; if tab-num passed in then use it, otherwise look in commondat at curr-tab-num ;; adds the updater passed in the updaters list at that hashkey ;; (define (dboard:commondat-add-updater commondat updater #!key (tab-num #f)) Index: dbmod.scm ================================================================== --- dbmod.scm +++ dbmod.scm @@ -785,8 +785,18 @@ (lambda (dbdat db) (sqlite3:execute db qry (or newstate currstate "NOT_STARTED") (or newstatus currstate "UNKNOWN") run-id testname))))) +;;====================================================================== +;; db to db sync +;;====================================================================== + +(define (dbmod:db-to-db-sync src-db dest-db last-update) + (let ((sdb #f) ;; + (ddb #f)) + (dbmod:sync-gasket tables last-update inmem db + dbfullname syncdir) + )) )