Overview
| Comment: | Renabling set sync for db |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | network-only-transport |
| Files: | files | file ages | folders |
| SHA1: |
3b87578fa469b68183e725ea9ec58868 |
| User & Date: | matt on 2013-03-05 06:47:24 |
| Other Links: | branch diff | manifest | tags |
Context
|
2013-03-05
| ||
| 09:51 | Fixed wrongful setting of *runremote* check-in: 098e5bf675 user: mrwellan tags: network-only-transport | |
| 06:47 | Renabling set sync for db check-in: 3b87578fa4 user: matt tags: network-only-transport | |
|
2013-03-04
| ||
| 23:30 | zmq running ok on Ubuntu check-in: 1a3dcbdc46 user: matt tags: network-only-transport | |
Changes
Modified db.scm from [d9063fc14a] to [586315216a].
| ︙ | ︙ | |||
73 74 75 76 77 78 79 |
(handler (make-busy-timeout (if (args:get-arg "-override-timeout")
(string->number (args:get-arg "-override-timeout"))
136000)))) ;; 136000))) ;; 136000 = 2.2 minutes
(debug:print-info 11 "open-db, dbpath=" dbpath " argv=" (argv))
(sqlite3:set-busy-handler! db handler)
(if (not dbexists)
(db:initialize db))
| | | 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 |
(handler (make-busy-timeout (if (args:get-arg "-override-timeout")
(string->number (args:get-arg "-override-timeout"))
136000)))) ;; 136000))) ;; 136000 = 2.2 minutes
(debug:print-info 11 "open-db, dbpath=" dbpath " argv=" (argv))
(sqlite3:set-busy-handler! db handler)
(if (not dbexists)
(db:initialize db))
(db:set-sync db)
db))
;; keeping it around for debugging purposes only
(define (open-run-close-no-exception-handling proc idb . params)
(debug:print-info 11 "open-run-close-no-exception-handling START given a db=" (if idb "yes " "no ") ", params=" params)
(let* ((db (if idb
(if (procedure? idb)
|
| ︙ | ︙ |