Overview
| Comment: | possible improvement, untested. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.70 |
| Files: | files | file ages | folders |
| SHA1: |
4f0aa048749b01ad2d0303b5c1bd400b |
| User & Date: | matt on 2022-11-20 16:15:42 |
| Other Links: | branch diff | manifest | tags |
Context
|
2022-12-24
| ||
| 00:08 | added in the wal and shm file times when deciding whether to sync check-in: 46be9f0c6f user: mmgraham tags: v1.70 | |
|
2022-11-20
| ||
| 19:44 | Pulled in latest changes from v1.70 check-in: e966c3ef7e user: matt tags: v1.70-nohomehost | |
| 16:15 | possible improvement, untested. check-in: 4f0aa04874 user: matt tags: v1.70 | |
| 08:34 | Couple minor changes to where client connections are cleared. check-in: ae21734c5e user: matt tags: v1.70 | |
Changes
Modified dbfile.scm from [055306d2af] to [e95b97d328].
| ︙ | ︙ | |||
978 979 980 981 982 983 984 | ;;====================================================================== ;; db access stuff ;;====================================================================== ;; call with dbinit=db:initialize-main-db ;; (define (db:open-db dbstruct run-id dbinit) | | | | 978 979 980 981 982 983 984 985 986 987 988 989 990 991 992 993 994 995 |
;;======================================================================
;; db access stuff
;;======================================================================
;; call with dbinit=db:initialize-main-db
;;
(define (db:open-db dbstruct run-id dbinit)
;; (mutex-lock! *db-open-mutex*)
(let* ((dbdat (dbfile:open-db dbstruct run-id dbinit)))
(set! *db-write-access* (not (dbr:dbdat-read-only dbdat)))
;; (mutex-unlock! *db-open-mutex*)
dbdat))
(define dbfile:db-init-proc (make-parameter #f))
;; (db:with-db dbstruct run-id sqlite3:exec "select blah fgrom blaz;")
;; r/w is a flag to indicate if the db is modified by this query #t = yes, #f = no
;;
|
| ︙ | ︙ |