Overview
| Comment: | removed debug comment |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.65 |
| Files: | files | file ages | folders |
| SHA1: |
0a8c497528261aa173658da4e2b416b3 |
| User & Date: | pjhatwal on 2018-08-10 17:13:59 |
| Other Links: | branch diff | manifest | tags |
Context
|
2018-08-12
| ||
| 17:54 | Clarified help on show in mtutils. Adjusted targets in gentargets.sh to match what is in ext-tests. Fixed endless loop in runs.scm when there is a subrun that cannot be removed or fails to remove. check-in: e669693ecf user: matt tags: v1.65 | |
| 15:55 | A different try at modularization Leaf check-in: 186af26419 user: matt tags: 1.65-modularization | |
|
2018-08-10
| ||
| 17:13 | removed debug comment check-in: 0a8c497528 user: pjhatwal tags: v1.65 | |
| 16:31 | Merged mtutil changes into main 1.65 branch check-in: 058bef1510 user: jmoon18 tags: v1.65 | |
Changes
Modified db.scm from [36e4111f28] to [f030aee63b].
| ︙ | ︙ | |||
330 331 332 333 334 335 336 |
(write-access (file-write-access? mtdbpath))
;(mtdbmodtime (if mtdbexists (common:lazy-sqlite-db-modification-time mtdbpath) #f)) ; moving this before db:open-megatest-db is called. if wal mode is on -WAL and -shm file get created with causing the tmpdbmodtime timestamp always greater than mtdbmodtime
;(tmpdbmodtime (if dbfexists (common:lazy-sqlite-db-modification-time tmpdbfname) #f))
;if wal mode is on -WAL and -shm file get created when db:open-megatest-db is called. modtimedelta will always be < 10 so db in tmp not get synced
;(tmpdbmodtime (if dbfexists (db:get-last-update-time (car tmpdb)) #f))
;(fmt (file-modification-time tmpdbfname))
(modtimedelta (and mtdbmodtime tmpdbmodtime (- mtdbmodtime tmpdbmodtime))))
| | | 330 331 332 333 334 335 336 337 338 339 340 341 342 343 344 |
(write-access (file-write-access? mtdbpath))
;(mtdbmodtime (if mtdbexists (common:lazy-sqlite-db-modification-time mtdbpath) #f)) ; moving this before db:open-megatest-db is called. if wal mode is on -WAL and -shm file get created with causing the tmpdbmodtime timestamp always greater than mtdbmodtime
;(tmpdbmodtime (if dbfexists (common:lazy-sqlite-db-modification-time tmpdbfname) #f))
;if wal mode is on -WAL and -shm file get created when db:open-megatest-db is called. modtimedelta will always be < 10 so db in tmp not get synced
;(tmpdbmodtime (if dbfexists (db:get-last-update-time (car tmpdb)) #f))
;(fmt (file-modification-time tmpdbfname))
(modtimedelta (and mtdbmodtime tmpdbmodtime (- mtdbmodtime tmpdbmodtime))))
;(print "mtdbmodtime " mtdbmodtime " tmpdbmodtime " tmpdbmodtime " mtdbpath " mtdbpath " " (conc *toppath* "/megatest.db"))
;;(debug:print-info 13 *default-log-port* "db:open-db>> mtdbpath="mtdbpath" mtdbexists="mtdbexists" and write-access="write-access)
(if (and dbexists (not write-access))
(begin
(set! *db-write-access* #f)
(dbr:dbstruct-read-only-set! dbstruct #t)))
(dbr:dbstruct-mtdb-set! dbstruct mtdb)
(dbr:dbstruct-tmpdb-set! dbstruct tmpdb)
|
| ︙ | ︙ |