Overview
Comment: | couple whitespace changes |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | v1.66-captain-ulex |
Files: | files | file ages | folders |
SHA1: |
eacf2f6fae2b83f3e96e223134db2c55 |
User & Date: | mrwellan on 2020-07-22 14:29:23 |
Other Links: | branch diff | manifest | tags |
Context
2020-07-22
| ||
23:07 | Merged from v1.65 check-in: 128dc8b1a8 user: matt tags: v1.66-captain-ulex | |
14:29 | couple whitespace changes check-in: eacf2f6fae user: mrwellan tags: v1.66-captain-ulex | |
2020-07-21
| ||
09:57 | Beginnings of captain ulex db check-in: 87f37a8dc0 user: matt tags: v1.66-captain-ulex | |
Changes
Modified api.scm from [8a3eb8aa72] to [2fe1f1cad5].
︙ | |||
79 80 81 82 83 84 85 | 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 | - + - + | read-test-data* login tasks-get-last testmeta-get-record have-incompletes? ;; synchash-get get-changed-record-ids |
︙ | |||
241 242 243 244 245 246 247 | 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 | - + | ((tasks-get-last) (apply tasks:get-last dbstruct params)) ;; NO SYNC DB ((no-sync-set) (apply db:no-sync-set *no-sync-db* params)) ((no-sync-get/default) (apply db:no-sync-get/default *no-sync-db* params)) ((no-sync-del!) (apply db:no-sync-del! *no-sync-db* params)) ((no-sync-get-lock) (apply db:no-sync-get-lock *no-sync-db* params)) |
︙ |
Modified pkts/pkts.scm from [d1cd1cb6f6] to [90f8c93eeb].
︙ | |||
619 620 621 622 623 624 625 | 619 620 621 622 623 624 625 626 627 628 629 630 631 632 633 | - + | ;; schema is list of SQL statements - can be used to extend db with more tables ;; (define (open-queue-db dbpath dbfile #!key (schema '())) (let* ((dbfname (conc dbpath "/" dbfile)) (dbexists (if (file-exists? dbfname) #t (begin (create-directory dbpath #t) #f))) (db (dbi:open 'sqlite3 (list (cons 'dbname dbfname))))) |
︙ |