Overview
| Comment: | wip |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.6584-ck5 |
| Files: | files | file ages | folders |
| SHA1: |
641ecb4b57e21dabb423b8b969610e32 |
| User & Date: | matt on 2021-04-18 23:26:42 |
| Other Links: | branch diff | manifest | tags |
Context
|
2021-04-19
| ||
| 23:18 | Added basic server pkt stuff check-in: 51b1485d60 user: matt tags: v1.6584-ck5 | |
|
2021-04-18
| ||
| 23:26 | wip check-in: 641ecb4b57 user: matt tags: v1.6584-ck5 | |
| 22:58 | multiple tweaks getting it to all work again check-in: 507ea188e3 user: matt tags: v1.6584-ck5 | |
Changes
Modified dbmod.scm from [8e5937bb80] to [06dc791e29].
| ︙ | ︙ | |||
743 744 745 746 747 748 749 | (let ((dbpath (db:dbdat-get-path dbdat))) (debug:print 0 *default-log-port* " dbpath: " dbpath) (if (not (db:repair-db dbdat)) (begin (debug:print-error 0 *default-log-port* "Failed to rebuild " dbpath ", exiting now.") (exit))))) (cons todb slave-dbs)) | < > > < | 743 744 745 746 747 748 749 750 751 752 753 754 755 756 757 758 759 760 761 762 763 764 765 766 767 768 769 770 771 |
(let ((dbpath (db:dbdat-get-path dbdat)))
(debug:print 0 *default-log-port* " dbpath: " dbpath)
(if (not (db:repair-db dbdat))
(begin
(debug:print-error 0 *default-log-port* "Failed to rebuild " dbpath ", exiting now.")
(exit)))))
(cons todb slave-dbs))
0)
;; this is the work to be done
(cond
((not fromdb) (debug:print 3 *default-log-port* "WARNING: db:sync-tables called with fromdb missing")
-1)
((not todb) (debug:print 3 *default-log-port* "WARNING: db:sync-tables called with todb missing")
-2)
((or (not (file-exists? fromdb))(not (file-exists? todb)))
(debug:print-info 0 *default-log-port* "db:sync-tables called but db files do not exist.") 0)
((not (sqlite3:database? (db:dbdat-get-db fromdb)))
(debug:print-error 0 *default-log-port* "db:sync-tables called with fromdb not a database " fromdb)
-3)
((not (sqlite3:database? (db:dbdat-get-db todb)))
(debug:print-error 0 *default-log-port* "db:sync-tables called with todb not a database " todb)
-4)
((not (file-writable? (db:dbdat-get-path todb)))
(debug:print-error 0 *default-log-port* "db:sync-tables called with todb not a read-only database " todb)
-5)
((not (null? (let ((readonly-slave-dbs
(filter
(lambda (dbdat)
(not (file-writable? (db:dbdat-get-path todb))))
|
| ︙ | ︙ |
Modified testsmod.scm from [b61c571478] to [428171339f].
| ︙ | ︙ | |||
1084 1085 1086 1087 1088 1089 1090 | #f) env-to-use: (module-environment 'bigmod)) #f))) (if (and tcfg cache-file) (hash-table-set! tcfg "have fulldata" #t)) ;; mark this as fully read data (if tcfg (hash-table-set! *testconfigs* test-full-name tcfg)) (if (and testexists cache-file | > | | 1084 1085 1086 1087 1088 1089 1090 1091 1092 1093 1094 1095 1096 1097 1098 1099 |
#f)
env-to-use: (module-environment 'bigmod))
#f)))
(if (and tcfg cache-file) (hash-table-set! tcfg "have fulldata" #t)) ;; mark this as fully read data
(if tcfg (hash-table-set! *testconfigs* test-full-name tcfg))
(if (and testexists
cache-file
(and (file-exists? cache-path)
(file-writable? cache-path))
allow-write-cache)
(let ((tpath (conc cache-path "/.testconfig")))
(debug:print-info 1 *default-log-port* "Caching testconfig for " test-name " in " tpath)
(if (and tcfg (not (common:in-running-test?)))
(configf:write-alist tcfg tpath))))
tcfg))))))
|
| ︙ | ︙ |