projects
/
clsql.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r9959: more odbc v3 conversions
[clsql.git]
/
db-odbc
/
odbc-ff-interface.lisp
diff --git
a/db-odbc/odbc-ff-interface.lisp
b/db-odbc/odbc-ff-interface.lisp
index ba3362e9b3e2c49690ad570f30605ece7bdc5a52..7b780233db545f6a9abbe95054e7cd25fa00b43a 100644
(file)
--- a/
db-odbc/odbc-ff-interface.lisp
+++ b/
db-odbc/odbc-ff-interface.lisp
@@
-23,7
+23,15
@@
(def-foreign-type string-ptr '(* :unsigned-char))
(def-type long-ptr-type '(* #.$ODBC-LONG-TYPE))
(def-foreign-type string-ptr '(* :unsigned-char))
(def-type long-ptr-type '(* #.$ODBC-LONG-TYPE))
+;; odbc v3
+(def-function "SQLAllocHandle"
+ ((handle-type :short)
+ (input-handle sql-handle)
+ (*phenv sql-handle-ptr))
+ :module "odbc"
+ :returning :short)
+;; deprecated
(def-function "SQLAllocEnv"
((*phenv sql-handle-ptr) ; HENV FAR *phenv
)
(def-function "SQLAllocEnv"
((*phenv sql-handle-ptr) ; HENV FAR *phenv
)
@@
-356,6
+364,15
@@
:module "odbc"
:returning :short)
:module "odbc"
:returning :short)
+(def-function "SQLGetEnvAttr"
+ ((henv sql-handle) ; HENV henv
+ (attr :int)
+ (*value :pointer-void)
+ (szLength :int)
+ (string-length-ptr (* :int)))
+ :module "odbc"
+ :returning :short)
+
(def-function "SQLTables"
((hstmt :pointer-void)
(catalog-name :pointer-void)
(def-function "SQLTables"
((hstmt :pointer-void)
(catalog-name :pointer-void)