Overview
| Comment: | Fixed couple typos |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.55 | v1.5513-1 |
| Files: | files | file ages | folders |
| SHA1: |
76e1588a7c619b00735daec1b2dcef00 |
| User & Date: | matt on 2013-10-29 00:01:54 |
| Other Links: | branch diff | manifest | tags |
Context
|
2013-10-30
| ||
| 07:41 | Added placeholder for script runner mtrunscript check-in: 9890845462 user: matt tags: v1.55 | |
|
2013-10-29
| ||
| 00:02 | Normalize db experiments check-in: 1d81882ece user: matt tags: normalize-db | |
| 00:01 | Fixed couple typos check-in: 76e1588a7c user: matt tags: v1.55, v1.5513-1 | |
|
2013-10-28
| ||
| 23:22 | Completed sdb code check-in: f20d481bb0 user: matt tags: v1.55 | |
Changes
Modified sdb.scm from [9e8a27a176] to [1de5adb23b].
| ︙ | ︙ | |||
80 81 82 83 84 85 86 87 |
str))
(define sdb:qry
(let ((sdb #f)
(scache (make-hash-table))
(icache (make-hash-table)))
(lambda (cmd var)
(case cmd
| > | | > > | > > | 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 |
str))
(define sdb:qry
(let ((sdb #f)
(scache (make-hash-table))
(icache (make-hash-table)))
(lambda (cmd var)
(if (not sdb)(set! sdb (sdb:open)))
(case cmd
((init) (if (not sdb)(set! sdb (sdb:open))))
((finalize!) (if sdb (sqlite3:finalize! sdb)))
((getid) (let ((id (sdb:string->id sdb scache var)))
(if id
id
(begin
(sdb:register-string sdb var)
(sdb:string->id sdb scache var)))))
((getstr) (if (or (number? var)
(string->number var))
(sdb:id->string sdb icache var)
var))
(else #f)))))
|