Changeset 33349 in project for release/4/sqlite3/trunk/sqlite3.scm


Ignore:
Timestamp:
05/24/16 23:18:10 (5 years ago)
Author:
Thomas Chust
Message:

[sqlite3] Added enable-load-extension! procedure

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/sqlite3/trunk/sqlite3.scm

    r32060 r33349  
    7070    database-memory-highwater
    7171    enable-shared-cache!
     72    enable-load-extension!
    7273  )
    7374
     
    10351036      enable?])]))
    10361037
     1038;; Enables (disables) the loading of native extensions using SQL statements.
     1039(define (enable-load-extension! db enable?)
     1040  (cond-expand
     1041   [disable-load-extension
     1042    #f]
     1043   [else
     1044    (cond
     1045     [((foreign-lambda sqlite3:status "sqlite3_enable_load_extension" sqlite3:database bool) db enable?)
     1046      => (abort-sqlite3-error 'enable-load-extension! db)]
     1047     [else
     1048      enable?])]))
     1049
    10371050)
Note: See TracChangeset for help on using the changeset viewer.