Overview
Comment: | Be more lazy on running sync to megatest.db |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | v1.60 |
Files: | files | file ages | folders |
SHA1: |
27552d9089c41436da134535110846e5 |
User & Date: | mrwellan on 2015-11-12 14:11:43 |
Other Links: | branch diff | manifest | tags |
Context
2015-11-16
| ||
13:00 | First pass at processing sections on the fly check-in: 22daf8e282 user: mrwellan tags: v1.60 | |
2015-11-12
| ||
14:11 | Be more lazy on running sync to megatest.db check-in: 27552d9089 user: mrwellan tags: v1.60 | |
2015-11-11
| ||
20:47 | All states supported now check-in: ab348d3b46 user: matt tags: v1.60 | |
Changes
Modified common.scm from [2955bbfc6b] to [83d9632595].
︙ | |||
203 204 205 206 207 208 209 | 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 | + - - - + + + + | (common:simple-file-lock fname expire-time: expire-time)) #f) (let ((key-string (conc (get-host-name) "-" (current-process-id)))) (with-output-to-file fname (lambda () (print key-string))) (thread-sleep! 0.25) (if (file-exists? fname) |
︙ | |||
267 268 269 270 271 272 273 | 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283 284 285 286 287 288 289 290 291 292 293 294 295 296 297 298 299 300 301 302 303 304 | - + - + + - + | ;;====================================================================== ;; E X I T H A N D L I N G ;;====================================================================== (define (common:legacy-sync-recommended) (or (args:get-arg "-runtests") (args:get-arg "-server") |
︙ |
Modified db.scm from [3b21c0f4f0] to [725b61e04a].
︙ | |||
773 774 775 776 777 778 779 | 773 774 775 776 777 778 779 780 781 782 783 784 785 786 787 | - + | run-ids))) ;; now ensure all newdb data are synced to megatest.db ;; do not use the run-ids list passed in to the function ;; (if (member 'new2old options) (let* ((maindb (make-dbr:dbstruct path: toppath local: #t)) |
︙ |
Modified megatest.scm from [47f4506230] to [246bdb6838].
︙ | |||
339 340 341 342 343 344 345 | 339 340 341 342 343 344 345 346 347 348 349 350 351 352 353 354 355 | - - + + + | (lambda (run-id) (mutex-lock! *db-multi-sync-mutex*) (if (and legacy-sync (hash-table-ref/default *db-local-sync* run-id #f)) ;; (if (> (- start-time last-write) 5) ;; every five seconds (begin ;; let ((sync-time (- (current-seconds) start-time))) (db:multi-db-sync (list run-id) 'new2old) |
︙ |