Overview
Comment: | fix fork to background for syncer |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | v1.65-tweak-bfsync |
Files: | files | file ages | folders |
SHA1: |
b90b2aeb109ba19f09c3e1309bc2067e |
User & Date: | bjbarcla on 2019-03-15 20:32:39 |
Other Links: | branch diff | manifest | tags |
Context
2019-03-28
| ||
15:06 | catch up Closed-Leaf check-in: 6675d21bd4 user: bjbarcla tags: v1.65-tweak-bfsync | |
2019-03-15
| ||
20:32 | fix fork to background for syncer check-in: b90b2aeb10 user: bjbarcla tags: v1.65-tweak-bfsync | |
18:38 | ok, new syncer works, but -run-wait is not waiting. check-in: 1b9511af26 user: bjbarcla tags: v1.65-tweak-bfsync | |
Changes
Modified server.scm from [219dea7dfd] to [a266765465].
︙ | |||
509 510 511 512 513 514 515 | 509 510 511 512 513 514 515 516 517 518 519 520 521 522 523 | - + | (tmp-area (common:get-db-tmp-area)) (tmp-db (conc tmp-area "/megatest.db")) (staging-file (conc *toppath* "/.megatest.db")) (mtdbfile (conc *toppath* "/megatest.db")) (lockfile (common:get-sync-lock-filepath)) (sync-cmd-core (conc sqlite-exe" " tmp-db " .dump | "sqlite-exe" " staging-file "&>"sync-log)) (sync-cmd (if fork-to-background |
︙ | |||
578 579 580 581 582 583 584 | 578 579 580 581 582 583 584 585 586 587 588 589 590 591 592 593 594 595 596 597 598 599 600 601 602 603 604 605 606 607 608 | - + + - + | );; end begin ;; else (cond (persist-until-sync (thread-sleep! 1) (debug:print 1 *default-log-port* "INFO: ["(common:human-time)"] pid="(current-process-id)" other SYNC in progress; we're in a fork-to-background so we need to succeed. Let's wait a jiffy and and try again. num-tries="num-tries" (waiting for lockfile="lockfile" to disappear)") (retry-loop (add1 num-tries))) |
︙ |