548
549
550
551
552
553
554
555
556
557
558
559
560
561
|
;; I have been having trouble with init of no-sync.db so
;; doing the init in a transaction every time (no gating
;; on file existance.
(for-each
(lambda (stmt)
(sqlite3:execute db stmt))
(list
"CREATE TABLE IF NOT EXISTS no_sync_metadat
(var TEXT,
val TEXT,
CONSTRAINT no_sync_metadat_constraint UNIQUE (var));"
"CREATE TABLE IF NOT EXISTS no_sync_locks
(key TEXT,
val TEXT,
|
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
|
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
|
;; I have been having trouble with init of no-sync.db so
;; doing the init in a transaction every time (no gating
;; on file existance.
(for-each
(lambda (stmt)
(sqlite3:execute db stmt))
(list
"CREATE TABLE IF NOT EXISTS jobs_queue
(id INTEGER PRIMARY KEY,
host_type TEXT,
cores INTEGER,
memory TEXT,
vars TEXT,
exekey TEXT,
cmdline TEXT,
state TEXT,
event_time INTEGER,
last_update INTEGER);"
"CREATE TABLE IF NOT EXISTS test_extra_data
(id INTEGER PRIMARY KEY,
run_id INTEGER,
test_id INTEGER,
last_seen_running INTEGER);"
"CREATE TABLE IF NOT EXISTS no_sync_metadat
(var TEXT,
val TEXT,
CONSTRAINT no_sync_metadat_constraint UNIQUE (var));"
"CREATE TABLE IF NOT EXISTS no_sync_locks
(key TEXT,
val TEXT,
|