Overview
| Comment: | Update schema creation to allow retrying to create schema |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.60 |
| Files: | files | file ages | folders |
| SHA1: |
483e2bb5d365841d3b13e68ab626b1fc |
| User & Date: | matt on 2014-11-12 23:21:30 |
| Other Links: | branch diff | manifest | tags |
Context
|
2014-11-13
| ||
| 08:51 | 99.9%. Added exception handler when checking for journal file - if the test for the file happens at the wrong time it can fail check-in: 19e5d7e0c2 user: mrwellan tags: v1.60 | |
|
2014-11-12
| ||
| 23:21 | Update schema creation to allow retrying to create schema check-in: 483e2bb5d3 user: matt tags: v1.60 | |
| 22:40 | 99.8% check-in: edc56c4136 user: matt tags: v1.60 | |
Changes
Modified db.scm from [9f448022ca] to [dc27fe9f35].
| ︙ | ︙ | |||
661 662 663 664 665 666 667 |
(exit 1)))))
keys)
(sqlite3:with-transaction
db
(lambda ()
(sqlite3:execute db "CREATE TABLE IF NOT EXISTS keys (id INTEGER PRIMARY KEY, fieldname TEXT, fieldtype TEXT, CONSTRAINT keyconstraint UNIQUE (fieldname));")
(for-each (lambda (key)
| | | 661 662 663 664 665 666 667 668 669 670 671 672 673 674 675 |
(exit 1)))))
keys)
(sqlite3:with-transaction
db
(lambda ()
(sqlite3:execute db "CREATE TABLE IF NOT EXISTS keys (id INTEGER PRIMARY KEY, fieldname TEXT, fieldtype TEXT, CONSTRAINT keyconstraint UNIQUE (fieldname));")
(for-each (lambda (key)
(sqlite3:execute db "INSERT OR REPLACE INTO keys (fieldname,fieldtype) VALUES (?,?);" key "TEXT"))
keys)
(sqlite3:execute db (conc
"CREATE TABLE IF NOT EXISTS runs (id INTEGER PRIMARY KEY, \n "
fieldstr (if havekeys "," "") "
runname TEXT DEFAULT 'norun',
state TEXT DEFAULT '',
status TEXT DEFAULT '',
|
| ︙ | ︙ |