|
@@ -67,6 +67,7 @@
|
|
|
SQLITE_OPEN_FULLMUTEX
|
|
|
SQLITE_OPEN_SHAREDCACHE
|
|
|
SQLITE_OPEN_PRIVATECACHE
|
|
|
+ SQLITE_OPEN_URI
|
|
|
|
|
|
SQLITE_CONSTRAINT
|
|
|
SQLITE_CONSTRAINT_PRIMARYKEY
|
|
@@ -104,6 +105,7 @@
|
|
|
(define SQLITE_OPEN_FULLMUTEX #x00010000) ;; Ok for sqlite3_open_v2()
|
|
|
(define SQLITE_OPEN_SHAREDCACHE #x00020000) ;; Ok for sqlite3_open_v2()
|
|
|
(define SQLITE_OPEN_PRIVATECACHE #x00040000) ;; Ok for sqlite3_open_v2()
|
|
|
+(define SQLITE_OPEN_URI #x00000040) ;; Ok for sqlite3_open_v2()
|
|
|
|
|
|
(define SQLITE_CONSTRAINT 19)
|
|
|
(define SQLITE_CONSTRAINT_PRIMARYKEY
|
|
@@ -208,7 +210,9 @@
|
|
|
(dynamic-func "sqlite3_open_v2" libsqlite3)
|
|
|
(list '* '* int '*))))
|
|
|
(lambda* (filename #:optional
|
|
|
- (flags (logior SQLITE_OPEN_READWRITE SQLITE_OPEN_CREATE))
|
|
|
+ (flags (logior SQLITE_OPEN_READWRITE
|
|
|
+ SQLITE_OPEN_CREATE
|
|
|
+ SQLITE_OPEN_URI))
|
|
|
(vfs #f))
|
|
|
(let* ((out-db (bytevector->pointer (make-bytevector (sizeof '*) 0)))
|
|
|
(ret (f (string->utf8-pointer filename)
|