Overview
| Comment: | Fix for corrupt rows in db |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.61 |
| Files: | files | file ages | folders |
| SHA1: |
8edec9c7dc67291d63d5c24329dab3a9 |
| User & Date: | ritikaag on 2016-08-12 11:47:56 |
| Other Links: | branch diff | manifest | tags |
Context
|
2016-08-12
| ||
| 11:51 | Merged fork check-in: 6adb002803 user: mrwellan tags: v1.61 | |
| 11:47 | Fix for corrupt rows in db check-in: 8edec9c7dc user: ritikaag tags: v1.61 | |
|
2016-08-10
| ||
| 23:15 | Removed a couple of functions that had gotten duplicated. check-in: 9355e9290b user: matt 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)))))))
|
| ︙ | ︙ |