Changeset 33349 in project

Timestamp:

05/24/16 23:18:10 (4 years ago)

Author:

Thomas Chust

Message:

[sqlite3] Added enable-load-extension! procedure

Location:

release/4/sqlite3/trunk

Files:

• sqlite3.scm (modified) (2 diffs)
• sqlite3.setup (modified) (1 diff)

release/4/sqlite3/trunk/sqlite3.scm

@@ -70 +70 @@
     database-memory-highwater
     enable-shared-cache!
+    enable-load-extension!
   )
 
@@ -1035 +1036 @@
       enable?])]))
 
+;; Enables (disables) the loading of native extensions using SQL statements.
+(define (enable-load-extension! db enable?)
+  (cond-expand
+   [disable-load-extension
+    #f]
+   [else
+    (cond
+     [((foreign-lambda sqlite3:status "sqlite3_enable_load_extension" sqlite3:database bool) db enable?)
+      => (abort-sqlite3-error 'enable-load-extension! db)]
+     [else
+      enable?])]))
+
 )

release/4/sqlite3/trunk/sqlite3.setup

@@ -8 +8 @@
   'sqlite3
   '("sqlite3.so" "sqlite3.import.so" "sqlite3-static.o")
-  '((version "3.6.1")
+  '((version "3.7.0")
     (static "sqlite3-static.o")
     (documentation "sqlite3.html" "egg.jpg")))