Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | fixed bug in open-database for sqlite3 |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
8b9bf33c93a4d500a50b80cda41ee154 |
| User & Date: | aldo 2017-01-19 16:26:49 |
Context
|
2017-05-03
| ||
| 17:58 | added sub-bytevector and sub-bytevector=?, fix in bytevector-copy* check-in: 8dc2d825f4 user: aldo tags: trunk | |
|
2017-01-19
| ||
| 16:26 | fixed bug in open-database for sqlite3 check-in: 8b9bf33c93 user: aldo tags: trunk | |
|
2017-01-11
| ||
| 18:30 | deleted romedalen.png check-in: fb2103dcde user: aldo tags: trunk | |
Changes
Changes to sqlite3.sls.
214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 |
;; Open a database
(define (open-database path)
(assert (and open-database (string? path)))
(let* ([ptr (make-ftype-pointer sqlite3:database**
(foreign-alloc (ftype-sizeof sqlite3:database**)))]
[f (foreign-procedure "sqlite3_open" (string void*) int)]
[e (f path (ftype-pointer-address ptr))])
(if (< e 0)
(abort-sqlite3-error 'open-database #f path)
(make-database (ftype-&ref sqlite3:database** (*) ptr) #f))))
(define (check-database context db)
(assert (and context (database? db))))
(define (check-statement context db)
(assert (and context (statement? db))))
|
| | | |
214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 |
;; Open a database
(define (open-database path)
(assert (and open-database (string? path)))
(let* ([ptr (make-ftype-pointer sqlite3:database**
(foreign-alloc (ftype-sizeof sqlite3:database**)))]
[f (foreign-procedure "sqlite3_open" (string void*) int)]
[e (f path (ftype-pointer-address ptr))])
(if (= e 0)
(make-database (ftype-&ref sqlite3:database** (*) ptr) #f)
((abort-sqlite3-error 'open-database #f path) e))))
(define (check-database context db)
(assert (and context (database? db))))
(define (check-statement context db)
(assert (and context (statement? db))))
|