Changes In Branch v1.80-mtdb Through [8bd0fd0763] Excluding Merge-Ins
This is equivalent to a diff from 747321a245 to 8bd0fd0763
|
2023-03-22
| ||
| 09:05 | Merged mtdb change. check-in: a50d34f842 user: mrwellan tags: v1.80 | |
|
2023-03-21
| ||
| 21:09 | Converted .megatest to .mtdb Leaf check-in: f00c7b0bd9 user: matt tags: v1.80-mtdb | |
| 20:07 | Change .megatest -> .mtdb check-in: 8bd0fd0763 user: mrwellan tags: v1.80-mtdb | |
| 16:10 | disabled syncing of test steps and test data check-in: c2e29b696d user: mmgraham tags: v1.80, v1.8009 | |
| 08:46 | Merged fork check-in: 747321a245 user: mrwellan tags: v1.80 | |
| 08:35 | Merged fork check-in: 664605b88d user: mrwellan tags: v1.80 | |
|
2023-03-20
| ||
| 10:17 | changed version to 1.8009. check-in: 901bbd55b3 user: icfadm tags: v1.80, v1.8009 | |
Modified db.scm from [f0df6a6b92] to [f29f5e0edf].
| ︙ | ︙ | |||
1477 1478 1479 1480 1481 1482 1483 |
;;======================================================================
;; no-sync.db - small bits of data to be shared between servers
;;======================================================================
(define (db:get-dbsync-path)
(case (rmt:transport-mode)
((http)(common:get-db-tmp-area))
| | | | 1477 1478 1479 1480 1481 1482 1483 1484 1485 1486 1487 1488 1489 1490 1491 1492 |
;;======================================================================
;; no-sync.db - small bits of data to be shared between servers
;;======================================================================
(define (db:get-dbsync-path)
(case (rmt:transport-mode)
((http)(common:get-db-tmp-area))
((tcp) (conc *toppath*"/.mtdb"))
((nfs) (conc *toppath*"/.mtdb"))
(else "/tmp/dunno-this-gonna-exist")))
;; This is needed for api.scm
(define (db:open-no-sync-db)
(dbfile:open-no-sync-db (db:get-dbsync-path)))
;; why get the keys from the db? why not get from the *configdat*
|
| ︙ | ︙ |
Modified dbmod.scm from [d1bb9414cd] to [b286c5dacd].
| ︙ | ︙ | |||
47 48 49 50 51 52 53 | ;; NOTE: This returns only the name "1.db", "main.db", not the path ;; (define (dbmod:run-id->dbfname run-id) (conc (dbfile:run-id->dbnum run-id)".db")) (define (dbmod:get-dbdir dbstruct) (let* ((areapath (dbr:dbstruct-areapath dbstruct)) | | | > > > > | 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 |
;; NOTE: This returns only the name "1.db", "main.db", not the path
;;
(define (dbmod:run-id->dbfname run-id)
(conc (dbfile:run-id->dbnum run-id)".db"))
(define (dbmod:get-dbdir dbstruct)
(let* ((areapath (dbr:dbstruct-areapath dbstruct))
(dbdir (conc areapath"/.mtdb")))
(if (and (file-write-access? areapath)
(not (file-exists? dbdir)))
(create-directory dbdir))
dbdir))
(define (dbmod:run-id->full-dbfname dbstruct run-id)
(conc (dbmod:get-dbdir dbstruct
run-id
)"/"(dbmod:run-id->dbfname run-id)))
;;======================================================================
;; Read-only inmem cached direct from disk method
;;======================================================================
(define *dbmod:nfs-db-handles* (make-hash-table)) ;; dbfname -> dbstruct
|
| ︙ | ︙ |