Overview
| Comment: | Fixed bug on handling of an empty sheet in refdb |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.55 |
| Files: | files | file ages | folders |
| SHA1: |
1f7e2b9d5c640b11b67126b88cd8de25 |
| User & Date: | mrwellan on 2014-05-02 09:18:43 |
| Other Links: | branch diff | manifest | tags |
Context
|
2014-06-02
| ||
| 13:57 | Merged 1f7e from v1.55 into v1.60 check-in: 53d8bc89d7 user: mrwellan tags: v1.60 | |
|
2014-05-19
| ||
| 23:52 | Added .db-journal based db throttle. check-in: 1b2b31b21b user: matt tags: v1.55 | |
|
2014-05-02
| ||
| 09:18 | Fixed bug on handling of an empty sheet in refdb check-in: 1f7e2b9d5c user: mrwellan tags: v1.55 | |
|
2014-05-01
| ||
| 23:00 | Added ability to have row keys containing spaces in refdb check-in: 14e26aaf81 user: matt tags: v1.55 | |
Changes
Modified txtdb/txtdb.scm from [3b218e28e0] to [e82989d975].
| ︙ | ︙ | |||
268 269 270 271 272 273 274 275 276 277 278 279 280 281 |
(cons (list k section "") res)))
(else (begin
(print "ERROR: Unrecognised line in input file " fname ", ignoring it")
(loop (read-line inp) section res))))))))
(define (get-value-type val expressions)
(cond
((string->number val) '(ValueType "40"))
((equal? val "") '(ValueType "60"))
((equal? (substring val 0 1) "=")
(let ((exid (hash-table-ref/default expressions val #f)))
(if exid
(list 'ExprID exid)
(let* ((values (hash-table-keys expressions)) ;; note, values are the id numbers
| > | 268 269 270 271 272 273 274 275 276 277 278 279 280 281 282 |
(cons (list k section "") res)))
(else (begin
(print "ERROR: Unrecognised line in input file " fname ", ignoring it")
(loop (read-line inp) section res))))))))
(define (get-value-type val expressions)
(cond
((not val) '(ValueType "60"))
((string->number val) '(ValueType "40"))
((equal? val "") '(ValueType "60"))
((equal? (substring val 0 1) "=")
(let ((exid (hash-table-ref/default expressions val #f)))
(if exid
(list 'ExprID exid)
(let* ((values (hash-table-keys expressions)) ;; note, values are the id numbers
|
| ︙ | ︙ |