Overview
| Comment: | Merged fork |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.61 |
| Files: | files | file ages | folders |
| SHA1: |
6adb002803c33ab317cc7d2af02f0b8c |
| User & Date: | mrwellan on 2016-08-12 11:51:16 |
| Other Links: | branch diff | manifest | tags |
Context
|
2016-08-14
| ||
| 01:18 | Added nice min-path (on by default for envdelta to ini mode) check-in: ccb0a505a6 user: matt tags: v1.61 | |
|
2016-08-12
| ||
| 11:51 | Merged fork check-in: 6adb002803 user: mrwellan tags: v1.61 | |
| 11:49 | First steps on refactoring runs.scm calls with lots of params check-in: 51dad8955f user: mrwellan tags: v1.61 | |
| 11:47 | Fix for corrupt rows in db check-in: 8edec9c7dc user: ritikaag tags: v1.61 | |
Changes
Modified db.scm from [bedbc0fe70] to [e4bdea0e8f].
| ︙ | ︙ | |||
1625 1626 1627 1628 1629 1630 1631 | db "SELECT fieldname FROM keys ORDER BY id DESC;"))) (set! *db-keys* res) res))) ;; look up values in a header/data structure (define (db:get-value-by-header row header field) | | > | 1625 1626 1627 1628 1629 1630 1631 1632 1633 1634 1635 1636 1637 1638 1639 1640 |
db
"SELECT fieldname FROM keys ORDER BY id DESC;")))
(set! *db-keys* res)
res)))
;; look up values in a header/data structure
(define (db:get-value-by-header row header field)
(if (or (null? header) (not row))
#f
(let loop ((hed (car header))
(tal (cdr header))
(n 0))
(if (equal? hed field)
(vector-ref row n)
(if (null? tal) #f (loop (car tal)(cdr tal)(+ n 1)))))))
|
| ︙ | ︙ |