2 Commits 103fa4973b ... fe7088d441

Author SHA1 Message Date
  Martin Michel fe7088d441 feat: Add URI filename interpretation 4 years ago
  Martin Michel 5a3c98b75f chore: Use custom path for M4 macro 4 years ago
3 changed files with 7 additions and 1 deletions
  1. 1 0
      Makefile.am
  2. 1 0
      configure.ac
  3. 5 1
      sqlite3.scm.in

+ 1 - 0
Makefile.am

@@ -1,4 +1,5 @@
 include build-aux/guile.am
+ACLOCAL_AMFLAGS	= -I /usr/local/share/aclocal
 
 moddir=$(prefix)/share/guile/site/$(GUILE_EFFECTIVE_VERSION)
 godir=$(libdir)/guile/$(GUILE_EFFECTIVE_VERSION)/site-ccache

+ 1 - 0
configure.ac

@@ -4,6 +4,7 @@ AC_INIT([Guile-SQLite3], [0.1.0],
   [guile-user@gnu.org], [guile-sqlite3],
   [https://notabug.org/civodul/guile-sqlite3])
 
+AC_CONFIG_MACRO_DIR([/usr/local/share/aclocal])
 AC_CONFIG_SRCDIR([sqlite3.scm.in])
 AC_CONFIG_AUX_DIR([build-aux])
 AM_INIT_AUTOMAKE([color-tests -Wall -Wno-portability])

+ 5 - 1
sqlite3.scm.in

@@ -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)