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].
whitespace changes only
Modified pkts/pkts.scm from [d1cd1cb6f6] to [90f8c93eeb].
| ︙ | ︙ | |||
619 620 621 622 623 624 625 | ;; 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))))) | | | 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)))))
;; (set-busy-handler! (dbi:db-conn db) (busy-timeout 10000))
(if (not dbexists) ;; NOTE: In the archive we allow duplicates and other messiness.
(for-each
(lambda (stmt)
(dbi:exec db stmt))
(cons "CREATE TABLE IF NOT EXISTS pkts
(id INTEGER PRIMARY KEY,
group_id INTEGER NOT NULL,
|
| ︙ | ︙ |