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

OpenBSD uses iodbc.

Browse Source
This commit is contained in:
Juan Francisco Cantero Hurtado 2013-02-25 01:32:40 +01:00 committed by Ryan Culpepper
parent fb66c419de
commit 546cbb1b5e
1 changed files with 13 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
pkgs/db-pkgs/db-lib/db/private/odbc/ffi.rkt
View File

@ -110,11 +110,19 @@
Docs at http://msdn.microsoft.com/en-us/library/ms712628%28v=VS.85%29.aspx Docs at http://msdn.microsoft.com/en-us/library/ms712628%28v=VS.85%29.aspx
|# |#
(define (os-openbsd)
(member (path->string (system-library-subpath #f))
'("i386-openbsd" "x86_64-openbsd")))
(define odbc-lib (define odbc-lib
(case (system-type) (case (system-type)
((windows) (ffi-lib "odbc32.dll")) ((windows) (ffi-lib "odbc32.dll"))
((macosx) (ffi-lib "libiodbc" '("2" #f))) ((macosx) (ffi-lib "libiodbc" '("2" #f)))
((unix) (ffi-lib "libodbc" '("1" #f))))) ;; All unixes use unixodbc except OpenBSD
((unix)
(if (not (os-openbsd))
(ffi-lib "libodbc" '("1" #f))
(ffi-lib "libiodbc" '("3.16" #f))))))
(define WCHAR-SIZE (define WCHAR-SIZE
(case (system-type) (case (system-type)
@ -126,8 +134,10 @@ Docs at http://msdn.microsoft.com/en-us/library/ms712628%28v=VS.85%29.aspx
4) 4)
((unix) ((unix)
;; unixodbc defines WCHAR as 16-bit for compat w/ Windows ;; unixodbc defines WCHAR as 16-bit for compat w/ Windows
;; (even though Linux wchar_t is 32-bit) ;; (even though Linux wchar_t is 32-bit). OpenBSD uses iodbc.
2))) (if (not (os-openbsd))
2
4))))
(define-ffi-definer define-odbc odbc-lib) (define-ffi-definer define-odbc odbc-lib)