;;;; Purpose: Function definitions for UFFI interface to ODBC
;;;; Author: Kevin M. Rosenberg
;;;;
-;;;; $Id: odbc-package.lisp 7061 2003-09-07 06:34:45Z kevin $
+;;;; $Id$
;;;;
;;;; This file, part of CLSQL, is Copyright (c) 2004 by Kevin M. Rosenberg
;;;; and Copyright (C) Paul Meurer 1999 - 2001. All rights reserved.
(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
)
(cbColNameMax :short) ; SWORD cbColNameMax
(*pcbColName (* :short)) ; SWORD FAR *pcbColName
(*pfSqlType (* :short)) ; SWORD FAR *pfSqlType
- (*pcbColDef (* :unsigned-int)) ; UDWORD FAR *pcbColDef
+ (*pcbColDef (* #.$ODBC-ULONG-TYPE)) ; UDWORD FAR *pcbColDef
(*pibScale (* :short)) ; SWORD FAR *pibScale
(*pfNullable (* :short)) ; SWORD FAR *pfNullable
)
(*value :pointer-void)
(szLength :int))
:module "odbc"
- :returning :int)
+ :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)