Overview
Comment: | db refactor |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | v1.60-db-refactor |
Files: | files | file ages | folders |
SHA1: |
7102506f8d436175ee708d299b77da8f |
User & Date: | matt on 2015-11-26 21:59:22 |
Other Links: | branch diff | manifest | tags |
Context
2015-11-26
| ||
21:59 | db refactor Closed-Leaf check-in: 7102506f8d user: matt tags: v1.60-db-refactor | |
2015-11-16
| ||
13:00 | First pass at processing sections on the fly check-in: 22daf8e282 user: mrwellan tags: v1.60 | |
Changes
Modified db.scm from [725b61e04a] to [cd97844a09].
︙ | |||
298 299 300 301 302 303 304 | 298 299 300 301 302 303 304 305 306 307 308 309 310 311 312 313 314 315 316 317 318 319 320 321 322 323 | + - + + + | (if (and dbexists (not write-access)) (set! *db-write-access* #f)) (cons db dbpath))) ;; sync run to disk if touched ;; (define (db:sync-touched dbstruct run-id #!key (force-sync #f)) (let ((local (dbr:dbstruct-get-local dbstruct)) |
︙ | |||
343 344 345 346 347 348 349 | 346 347 348 349 350 351 352 353 354 355 356 357 358 359 360 361 362 | - + + + | (db:delay-if-busy olddb) (dbr:dbstruct-set-stime! dbstruct (current-milliseconds)) (let ((num-synced (db:sync-tables db:sync-tests-only inmem refdb rundb olddb))) ;; (mutex-unlock! *http-mutex*) num-synced) (begin ;; (mutex-unlock! *http-mutex*) |
︙ |
Modified http-transport.scm from [d387fec12a] to [6ee712968b].
︙ | |||
424 425 426 427 428 429 430 | 424 425 426 427 428 429 430 431 432 433 434 435 436 437 438 | - + | ;; (if (eq? server-state 'available) (let ((new-server-id (tasks:server-am-i-the-server? (db:delay-if-busy tdbdat) run-id))) ;; try to ensure no double registering of servers (if (equal? new-server-id server-id) (begin (tasks:server-set-state! (db:delay-if-busy tdbdat) server-id "dbprep") (thread-sleep! 0.5) ;; give some margin for queries to complete before switching from file based access to server based access |
︙ |