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

db: add support for odbc on macosx (needs testing)

Browse Source
This commit is contained in:
Ryan Culpepper 2011-09-01 19:38:08 -06:00
parent f4d712ac71
commit 5db417fcf2
1 changed files with 15 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
collects/db/private/odbc/ffi.rkt
View File

@ -20,11 +20,6 @@
(define _sqluinteger _uint)
(define _sqlreturn _sqlsmallint)
;; Windows ODBC defines wchar_t, thus WCHAR, as 16-bit
;; unixodbc defines WCHAR as 16-bit for compat w/ Windows
;; (even though Linux wchar_t is 32-bit)
(define WCHAR-SIZE 2)
(define-ffi-definer define-mz #f)
(define-mz scheme_utf16_to_ucs4
@ -118,7 +113,21 @@ Docs at http://msdn.microsoft.com/en-us/library/ms712628%28v=VS.85%29.aspx
(define odbc-lib
(case (system-type)
((windows) (ffi-lib "odbc32.dll"))
(else (ffi-lib "libodbc" '("1" #f)))))
((macosx) (ffi-lib "libiodbc" '("2" #f)))
((unix) (ffi-lib "libodbc" '("1" #f)))))
(define WCHAR-SIZE
(case (system-type)
((windows)
;; Windows ODBC defines wchar_t, thus WCHAR, thus SQLWCHAR, as 16-bit
2)
((macosx)
;; MacOSX uses iodbc, which defines SQLWCHAR as wchar_t, as 32-bit
4)
((unix)
;; unixodbc defines WCHAR as 16-bit for compat w/ Windows
;; (even though Linux wchar_t is 32-bit)
2)))
(define-ffi-definer define-odbc odbc-lib)