Overview
| Comment: | Moved pragmas sync to always be called for no-sync.db |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.70 |
| Files: | files | file ages | folders |
| SHA1: |
69b8acfb9f921eef3aa62266c12ca8c6 |
| User & Date: | matt on 2022-08-02 10:40:08 |
| Other Links: | branch diff | manifest | tags |
Context
|
2022-08-02
| ||
| 10:59 | Merged fork check-in: abb8b3c79e user: matt tags: v1.70 | |
| 10:40 | Moved pragmas sync to always be called for no-sync.db check-in: 69b8acfb9f user: matt tags: v1.70 | |
| 07:59 | Throttle polling in runs.scm when we are just waiting for tests to complete running check-in: 090d26210c user: matt tags: v1.70 | |
Changes
Modified dbfile.scm from [995b13ba22] to [bd48eb2f43].
| ︙ | ︙ | |||
592 593 594 595 596 597 598 | (if (not (file-exists? dbpath)) (create-directory dbpath #t)) (let* ((dbname (conc dbpath "/no-sync.db")) (db-exists (file-exists? dbname)) (init-proc (lambda (db) (if (not db-exists) (begin | < > | 592 593 594 595 596 597 598 599 600 601 602 603 604 605 606 607 608 609 | (if (not (file-exists? dbpath)) (create-directory dbpath #t)) (let* ((dbname (conc dbpath "/no-sync.db")) (db-exists (file-exists? dbname)) (init-proc (lambda (db) (if (not db-exists) (begin (sqlite3:execute db "CREATE TABLE IF NOT EXISTS no_sync_metadat (var TEXT,val TEXT, CONSTRAINT no_sync_metadat_constraint UNIQUE (var));")) ))) (db (dbfile:cautious-open-database dbname init-proc))) ;; (sqlite3:open-database dbname))) (sqlite3:execute db "PRAGMA synchronous = 0;") (sqlite3:set-busy-handler! db (sqlite3:make-busy-timeout 136000)) ;;(sqlite3:execute db "PRAGMA journal_mode=WAL;") (set! *no-sync-db* db) db)))) (define (db:no-sync-set db var val) (sqlite3:execute db "INSERT OR REPLACE INTO no_sync_metadat (var,val) VALUES (?,?);" var val)) |
| ︙ | ︙ |