Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | added libinit to sqlite3 |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
d1aa1ba6b3e99285ae629224ef15b94c |
| User & Date: | aldo 2016-12-08 00:45:12 |
Context
|
2016-12-08
| ||
| 00:57 | minor fix on with-mktemp check-in: 778dd320bb user: aldo tags: trunk | |
| 00:45 | added libinit to sqlite3 check-in: d1aa1ba6b3 user: aldo tags: trunk | |
| 00:43 | include fixes for fmt check-in: a71834a427 user: aldo tags: trunk | |
Changes
Changes to sqlite3.sls.
53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 |
(srfi s2 and-let)
(matchable)
(only (srfi s13 strings) string-contains-ci)
(srfi s11 let-values)
(srfi s26 cut)
(sql-null))
#;(define (sqlite3-library-init)
(begin
(case (machine-type)
[(i3nt a6nt i3mw a6mw)
(load-shared-object "sqlite3.dll")]
[else
(load-shared-object "libsqlite3.so.0")])))
(define libinit (begin (load-shared-object "sqlite3.dll")))
;; compatibility functions
(define (hashtable-walk ht f)
(vector-for-each (lambda (x)
(f x (hashtable-ref ht x #f)))
(hashtable-keys ht)))
(define (->string x)
|
| > | |
53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 |
(srfi s2 and-let) (matchable) (only (srfi s13 strings) string-contains-ci) (srfi s11 let-values) (srfi s26 cut) (sql-null)) #;(define (sqlite3-library-init)) (define libinit (begin (case (machine-type) [(i3nt a6nt i3mw a6mw) (load-shared-object "sqlite3.dll")] [else (load-shared-object "libsqlite3.so.0")]))) ;(define libinit (begin (load-shared-object "sqlite3.dll"))) ;; compatibility functions (define (hashtable-walk ht f) (vector-for-each (lambda (x) (f x (hashtable-ref ht x #f))) (hashtable-keys ht))) (define (->string x) |