suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix missing sqlite3.dll with raco distribute

Browse Source 
closes PR 14025
This commit is contained in:
Ryan Culpepper 2013-10-22 00:02:46 -04:00
parent c655827dba
commit 4993c085af
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
racket/collects/db/private/sqlite3/ffi.rkt
View File

@ -7,17 +7,17 @@
(provide (all-from-out "ffi-constants.rkt")
(protect-out (all-defined-out)))
(define sqlite-lib
(case (system-type)
[(windows) (ffi-lib "sqlite3.dll" #:fail (lambda () #f))]
[else (ffi-lib "libsqlite3" '("0" #f) #:fail (lambda () #f))]))
;; raco distribute should include Racket's sqlite3 if present
(define-runtime-path _sqlite-lib-for-distribute
(define-runtime-path sqlite-so
(case (system-type)
[(windows) '(so "sqlite3")]
[else '(so "libsqlite3")]))
(define sqlite-lib
(case (system-type)
[(windows) (ffi-lib sqlite-so #:fail (lambda () #f))]
[else (ffi-lib sqlite-so '("0" #f) #:fail (lambda () #f))]))
(define-ffi-definer define-sqlite
sqlite-lib
#:default-make-fail make-not-available)