Overview
| Comment: | test_info initalization |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | testdata |
| Files: | files | file ages | folders |
| SHA1: |
7e2a9a176bbdeea6b633ce74c2a3f91c |
| User & Date: | matt on 2012-02-28 07:02:13 |
| Other Links: | branch diff | manifest | tags |
Context
|
2012-02-28
| ||
| 21:28 | Incrementail changes towards the test-info data split check-in: 0bdbd9ba53 user: matt tags: testdata | |
| 07:02 | test_info initalization check-in: 7e2a9a176b user: matt tags: testdata | |
| 03:15 | Initial steps to separate test data into file testdata.db check-in: 0187531d3d user: matt tags: testdata | |
Changes
Modified db.scm from [22bc1d079f] to [4bdf99dc8b].
| ︙ | ︙ | |||
44 45 46 47 48 49 50 |
(db (sqlite3:open-database dbpath)) ;; (never-give-up-open-db dbpath))
(handler (make-busy-timeout 36000)))
(sqlite3:set-busy-handler! db handler)
(if (not dbexists)
(db:initialize db))
(cond
((and (not tdataexists)(not dbexists))
| | > > > > > > > > > > > > | 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 |
(db (sqlite3:open-database dbpath)) ;; (never-give-up-open-db dbpath))
(handler (make-busy-timeout 36000)))
(sqlite3:set-busy-handler! db handler)
(if (not dbexists)
(db:initialize db))
(cond
((and (not tdataexists)(not dbexists))
(db:initialize-test-data-db))
((not tdataexists)
(db:migrate-to-testdata db)))
(db:attach-testdata db)
db))
;; Initialize the testdata db
(define (db:initialize-test-data-db)
(let ((tdb (sqlite3:open-database (conc *toppath* "/testdata.db"))))
(sqlite3:execute tdb "CREATE TABLE test_info (
id INTEGER PRIMARY KEY,
diskspace INTEGER,
cpuusage INTEGER,
tmpdiskspace INTEGER,
memoryusage INTEGER);")
(sqlite3:finalize! tdb)))
;; Initialize the main db
(define (db:initialize db)
(let* ((configdat (car *configinfo*)) ;; tut tut, global warning...
(keys (config-get-fields configdat))
(havekeys (> (length keys) 0))
(keystr (keys->keystr keys))
(fieldstr (keys->key/field keys)))
(for-each (lambda (key)
|
| ︙ | ︙ |