Differences From Artifact [bb72d6bc7f]:
- File db.scm — part of check-in [e2c3e19524] at 2011-10-09 23:54:30 on branch trunk — Added toggles to hide tests based on PASS, FAIL etc. (user: matt, size: 35798) [annotate] [blame] [check-ins using]
To Artifact [931afe1758]:
- File db.scm — part of check-in [85c2621ab5] at 2011-10-10 15:40:28 on branch trunk — Moved quit button to lower left (user: mrwellan, size: 35819) [annotate] [blame] [check-ins using]
| ︙ | |||
15 16 17 18 19 20 21 22 23 24 25 26 27 28 | 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 | + | (use sqlite3 srfi-1 posix regex regex-case srfi-69 csv-xml) (import (prefix sqlite3 sqlite3:)) (declare (unit db)) (declare (uses common)) (declare (uses keys)) (declare (uses ods)) (include "common_records.scm") (include "db_records.scm") (include "key_records.scm") (define (open-db) ;; (conc *toppath* "/megatest.db") (car *configinfo*))) (let* ((dbpath (conc *toppath* "/megatest.db")) ;; fname) |
| ︙ |