Overview
Comment: | Added mutex for db sync |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | v1.60 |
Files: | files | file ages | folders |
SHA1: |
0ace787cbdb15414bc99b9296d665779 |
User & Date: | mrwellan on 2014-09-12 14:17:33 |
Other Links: | branch diff | manifest | tags |
Context
2014-09-15
| ||
22:42 | Switch out loadrunner for nbfake, update help in datashare check-in: 6fc75e1afb user: mrwellan tags: v1.60 | |
2014-09-12
| ||
14:17 | Added mutex for db sync check-in: 0ace787cbd user: mrwellan tags: v1.60 | |
06:45 | Partially added latest support but method is not right. Need to re-think check-in: c7e493c054 user: matt tags: v1.60 | |
Changes
Modified common.scm from [349304dac5] to [2b7ef59b4f].
︙ | |||
44 45 46 47 48 49 50 | 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 | - + | (define *already-seen-runconfig-info* #f) (define *waiting-queue* (make-hash-table)) (define *test-meta-updated* (make-hash-table)) (define *globalexitstatus* 0) ;; attempt to work around possible thread issues (define *passnum* 0) ;; when running track calls to run-tests or similar (define *write-frequency* (make-hash-table)) ;; run-id => (vector (current-seconds) 0)) (define *alt-log-file* #f) ;; used by -log |
︙ |
Modified db.scm from [922a7b73d4] to [7354409e51].
︙ | |||
371 372 373 374 375 376 377 378 379 380 381 382 383 384 | 371 372 373 374 375 376 377 378 379 380 381 382 383 384 385 | + | '("avg_runtime" #f) '("avg_disk" #f) '("tags" #f) '("jobgroup" #f))))) ;; tbls is ( ("tablename" ( "field1" [#f|proc1] ) ( "field2" [#f|proc2] ) .... ) ) (define (db:sync-tables tbls fromdb todb . slave-dbs) (mutex-lock! *db-sync-mutex*) (cond ((not fromdb) (debug:print 3 "WARNING: db:sync-tables called with fromdb missing") -1) ((not todb) (debug:print 3 "WARNING: db:sync-tables called with todb missing") -2) ((not (sqlite3:database? fromdb)) (debug:print 0 "ERROR: db:sync-tables called with fromdb not a database " fromdb) -3) ((not (sqlite3:database? todb)) (debug:print 0 "ERROR: db:sync-tables called with todb not a database " todb) -4) |
︙ | |||
459 460 461 462 463 464 465 | 460 461 462 463 464 465 466 467 468 469 470 471 472 473 474 475 | - + + | (lambda (dat) (let ((tblname (car dat)) (count (cdr dat))) (set! tot-count (+ tot-count count)) (if (> count 0) (debug:print 0 (format #f " ~10a ~5a" tblname count))))) (sort (hash-table->alist numrecs)(lambda (a b)(> (cdr a)(cdr b)))))) |
︙ | |||
2235 2236 2237 2238 2239 2240 2241 | 2237 2238 2239 2240 2241 2242 2243 2244 2245 2246 2247 2248 2249 2250 2251 | - + | ;;====================================================================== ;; M I S C M A N A G E M E N T I T E M S ;;====================================================================== ;; A routine to map itempaths using a itemmap (define (db:compare-itempaths patha pathb itemmap) |
︙ |