Overview
| Comment: | Comment |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | v1.64-locked-records |
| Files: | files | file ages | folders |
| SHA1: |
7dbb46b4176510fb5f34362915eb78e3 |
| User & Date: | matt on 2017-08-03 22:13:50 |
| Other Links: | branch diff | manifest | tags |
Context
|
2017-08-03
| ||
| 22:13 | Comment Closed-Leaf check-in: 7dbb46b417 user: matt tags: v1.64-locked-records | |
|
2017-07-23
| ||
| 23:02 | Beginings of locked records being moved to alt db. check-in: 7b033579f4 user: matt tags: v1.64-locked-records | |
Changes
Modified db.scm from [a9056f8cb1] to [bffce543ab].
| ︙ | ︙ | |||
120 121 122 123 124 125 126 |
newdb)
(stack-pop! (dbr:dbstruct-dbstack dbstruct)))
(db:open-db dbstruct)))
((locked)
(let* ((current-other (dbr:dbstruct-current-other dbstruct)) ;; contains the name of the current "other" db to work with
(locked-db (dbr:dbstruct-lookup-other-db dbstruct current-other)))
(if locked-db
| | | 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 |
newdb)
(stack-pop! (dbr:dbstruct-dbstack dbstruct)))
(db:open-db dbstruct)))
((locked)
(let* ((current-other (dbr:dbstruct-current-other dbstruct)) ;; contains the name of the current "other" db to work with
(locked-db (dbr:dbstruct-lookup-other-db dbstruct current-other)))
(if locked-db
locked-db ;; problem here is we don't know which locked db to open
(let* ((link-tree (common:get-link-tree))
(dbdir (conc link-tree "/.db")) ;; sure, let's use the old .db dir
(dbdat (db:open-megatest-db
path: dbdir
name: (conc (time->string (seconds->local-time sec) "%Y")
"-q" (seconds->quarter sec) ".db"))))
(hash-table-set! (dbr:dbstruct-other-dbs dbstruct) current-other dbdat)
|
| ︙ | ︙ |