;;; ODBC handle types
(define-record-type environment-handle :environment-handle
  (really-make-environment-handle handle)
  environment-handle?
  (handle environment-handle-handle))

(define-exported-binding "environment-handle" :environment-handle)

(define-record-type connection-handle :connection-handle
  (really-make-connection-handle handle)
  connection-handle?
  (handle connection-handle-handle))

(define-exported-binding "connection-handle" :connection-handle)

(define-record-type statement-handle :statement-handle
  (really-make-statement-handle handle)
  statement-handle?
  (handle statement-handle-handle))

(define-exported-binding "statement-handle" :statement-handle)

(define-record-type descriptor-handle :descriptor-handle
  (really-make-descriptor-handle handle)
  descriptor-handle?
  (handle descriptor-handle-handle))

(define-exported-binding "descriptor-handle" :descriptor-handle)

; record type to store infos from SQLGetDiagRec()
(define-record-type odbc-diag :odbc-diag
  (really-make-odbc-diag-rec sql-state native-error message)
  odbc-diag?
  (sql-state odbc-diag-sql-state)
  (native-error odbc-diag-native-error)
  (message odbc-diag-message))

(define-exported-binding "odbc-diag" :odbc-diag)

(define (odbc-handle? thing)
  (or (environment-handle? thing)
      (connection-handle? thing)
      (statement-handle? thing)
      (descriptor-handle? thing)))

(define (odbc-handle handle)
  (cond 
   ((environment-handle? handle) (environment-handle-handle handle))
   ((connection-handle? handle) (connection-handle-handle handle))
   ((statement-handle? handle) (statement-handle-handle handle))
   ((descriptor-handle? handle) (descriptor-handle-handle handle))
   (else
    (error "Expected odbc-handle, got " handle odbc-handle))))

;;; map a record to a handle type identifier (see sql.h)
(define (handle-record-type->c-handle-identifier record)
  (cond ((environment-handle? record) 1) ; SQL_HANDLE_ENV
	((connection-handle? record) 2) ; SQL_HANDLE_DBC 
	((statement-handle? record) 3) ; SQL_HANDLE_STMT
	(else
	 (error "Unknown handle type: " record))))

(define-record-type odbc-column :odbc-column
  (really-make-odbc-column name type size digits nullable?)
  odbc-column?
  (name odbc-column-name)
  (type odbc-column-type)
  (size odbc-column-size)
  (digits odbc-column-digits)
  (nullable? odbc-column-nullable?))

(define-exported-binding "odbc-column" :odbc-column)

;;; options for SQLFreeStmt from sql.h
(define sql-disconnect-opt-close 0)
(define sql-disconnect-opt-drop 1)
(define sql-disconnect-opt-unbind 2)
(define sql-disconnect-opt-reset-params 3)

;;; options for SQLDataSource from sql.h
(define sql-datasources-fetch-next  1)
(define sql-datasources-fetch-first 2)

;;; C type identifier
(define sql-type-c-char 1)
(define sql-type-c-long 4)
(define sql-type-c-short 5)
(define sql-type-c-float 7)
(define sql-type-c-double 8)
(define sql-type-c-numeric 2)
(define sql-type-c-default 99)
(define sql-type-c-date 9)
(define sql-type-c-time 10)
(define sql-type-c-timestamp 11)
(define sql-type-c-binary -2)
(define sql-type-c-bit -7)

;;; ODBC type identifier
(define sql-type-unknown 0)
(define sql-type-char 1)
(define sql-type-numeric 2)
(define sql-type-decimal 3)
(define sql-type-integer 4)
(define sql-type-smallint 5)
(define sql-type-float 6)
(define sql-type-real 7)
(define sql-type-double 8)
(define sql-type-datetime 9)
(define sql-type-varchar 12)
(define sql-type-date 91)
(define sql-type-time 92)
(define sql-type-timestamp 93)

;;; ODBC function ids for SQLGetFunctions
(define sql-api-sqlallocconnect 1)
(define sql-api-sqlallocenv 2)
(define sql-api-sqlallochandle 1001)
(define sql-api-sqlallocstmt 3)
(define sql-api-sqlbindcol 4)
(define sql-api-sqlbinparam 1002)
(define sql-api-sqlcancel 5)
(define sql-api-sqlclosecursor 1003)
(define sql-api-sqlcolattribute 6)
(define sql-api-sqlcolumns 40)
(define sql-api-sqlconnect 7)
(define sql-api-sqlcopydesc 1004)
(define sql-api-sqldatasources 57)
(define sql-api-sqldescribecol 8)
(define sql-api-sqldisconnect 9)
(define sql-api-sqlendtran 1005)
(define sql-api-sqlerror 10)
(define sql-api-sqlexecdirect 11)
(define sql-api-sqlexecute 12)
(define sql-api-sqlfetch 13)
(define sql-api-sqlfetchscroll 1021)
(define sql-api-sqlfreeconnect 14)
(define sql-api-sqlfreeenv 15)
(define sql-api-sqlfreehandle 1006)
(define sql-api-sqlfreestmt 16)
(define sql-api-sqlgetconnectattr 1007)
(define sql-api-sqlgetconenctoption 42)
(define sql-api-sqlgetcursorname 17)
(define sql-api-sqlgetdata 43)
(define sql-api-sqlgetdescfield 1008)
(define sql-api-sqlgetdescrec 1009)
(define sql-api-sqlgetdiagfield 1010)
(define sql-api-sqlgetdiagrec 1011)
(define sql-api-sqlgetenvattr 1012)
(define sql-api-sqlgetfunctions 44)
(define sql-api-sqlgetinfo 45)
(define sql-api-sqlgetstmtattr 1014)
(define sql-api-sqlgetstmtoption 46)
(define sql-api-sqlgettypeinfo 47)
(define sql-api-sqlnumresultcols 18)
(define sql-api-sqlparamdata 48)
(define sql-api-sqlprepare 19)
(define sql-api-sqlputdata 49)
(define sql-api-sqlrowcount 20)
(define sql-api-sqlsetconnectattr 1016)
(define sql-api-sqlsetconnectoption 50)
(define sql-api-sqlsetcursorname 21)
(define sql-api-sqlsetdescfield 1017)
(define sql-api-sqlsetdescrec 1018)
(define sql-api-sqlsetenvattr 1019)
(define sql-api-sqlsetparam 22)
(define sql-api-sqlsetstmtattr 1020)
(define sql-api-sqlsetstmtoption 51)
(define sql-api-sqlspecialcolumns 52)
(define sql-api-sqlstatistics 53)
(define sql-api-sqltables 54)
(define sql-api-transact 23)

;;; additional function identifiers
(define sql-api-sqlallochandlestd 73)
(define sql-api-sqlbulkoperations 24)
(define sql-api-sqlbindparameter 72)
(define sql-api-sqlbrowseconnect 55)
(define sql-api-sqlcolattributes 6)
(define sql-api-sqlcolumnprivileges 56)
(define sql-api-sqldescribeparam 58)
(define sql-api-sqldriverconnect 41)
(define sql-api-sqldrivers 71)
(define sql-api-sqlextendedfetch 59)
(define sql-api-sqlforeignkeys 60)
(define sql-api-sqlmoreresults 61)
(define sql-api-sqlnativesql 62)
(define sql-api-sqlnumparams 63)
(define sql-api-sqlparamoptions 64)
(define sql-api-sqlprimarykeys 65)
(define sql-api-sqlprocedurecolumns 66)
(define sql-api-sqlprcoedures 67)
(define sql-api-sqlsetpos 68)
(define sql-api-sqlsetscrolloptions 69)
(define sql-api-sqltableprivileges 70)

;;; info keys for odbc-sql-get-info-argint/string
; ODBC 1.0, returns integer
(define sql-get-info-arg-maxdriverconnections 0)
; ODBC 1.0, returns integer 
(define sql-get-info-arg-maxconcurrentactivities 1)
; ODBC 1.0, returns string
(define sql-get-info-arg-datasourcename 2)
; deprecated in ODBC 3.x returns ?
(define sql-get-info-arg-fetchdirection 8) 
; ODBC 1.0, returns string
(define sql-get-info-arg-servername 13)
; ODBC 1.0, returns string
(define sql-get-info-arg-searchpatternescape 14)
; ODBC 1.0, returns string
(define sql-get-info-arg-dbmsname 17)
; ODBC 1.0, returns string
(define sql-get-info-arg-dbmsver 18)
; ODBC 1.0, returns string
(define sql-get-info-arg-accessibletables 19)
; ODBC 1.0, returns string
(define sql-get-info-arg-accessibaleprocedures 20)
; ODBC 1.0, returns integer
(define sql-get-info-arg-cursor-commit-behaviour 23)
; ODBC 1.0, returns string
(define sql-get-info-arg-datasourcereadonly 25)
; ODBC 1.0, returns integer
(define sql-get-info-arg-defaulttxnisolation 26)
; ODBC 1.0, returns integer
(define sql-get-info-arg-identifiercase 28)
; ODBC 1.0, returns string
(define sql-get-info-arg-identifierquotechar 29)
; ODBC 1.0 returns integer
(define sql-get-info-arg-maxcolumnnamelen 30)
(define sql-get-info-arg-maximumcolumnnamelen 30)
; ODBC 1.0 returns integer
(define sql-get-info-arg-maxcursornamelen 31)
(define sql-get-info-arg-maximumcursornamelen 31)
; ODBC 1.0 returns integer 
(define sql-get-info-arg-maxschemanamelen 32)
(define sql-get-info-arg-maximumschemenamelen 32)
; ODBC 1.0 returns integer
(define sql-get-info-arg-maxcatalognamelen 34)
(define sql-get-info-arg-maximumcatalognamelen 34)
; ODBC 1.0 returns integer
(define sql-get-info-arg-maxtablenamelen 35)
; defined in sql.h, but no reference in ODBC manual
; (define sql-get-info-arg--scrollconcurrency 43)
; ODBC 1.0 returns integer
(define sql-get-info-arg-txncapable 46)
(define sql-get-info-arg-transaction-capable 46)
; ODBC 1.0 returns string
(define sql-get-info-arg-username 47)
; ODBC 1.0 returns integer
(define sql-get-info-arg-txnisolationoption 72)
(define sql-get-info-arg-transcationisolationoption 72)
; ODBC 1.0 returns string
(define sql-get-info-arg-integrity 73)
; ODBC 2.0 returns integer
(define sql-get-info-arg-getdataextensions 81)
; ODBC 2.0 returns integer
(define sql-get-info-arg-nullcollation 85)
; ODBC 2.0 returns integer
(define sql-get-info-arg-altertable 86)
; ODBC 2.0 returns string
(define sql-get-info-arg-specialcharacters 94)
; ODBC 2.0 returns integer
(define sql-get-info-arg-maxcolumnsingroupby 97)
(define sql-get-info-arg-maximumcolumnsingroupby 97)
; ODBC 2.0 returns integer
(define sql-get-info-arg-maxcolumnsinindex 98)
(define sql-get-info-arg-maximumcolumnsinindex 98)
; ODBC 2.0 returns integer
(define sql-get-info-arg-maxcolumnsinorderby 99)
(define sql-get-info-arg-maximumcolumnsinorderby 99)
; ODBC 2.0 returns integer
(define sql-get-info-arg-maxcolumnsinselect 100)
(define sql-get-info-arg-maximumcolumnsinselect 100)
; ODBC 2.0 returns integer
(define sql-get-info-arg-maxcolumnsintable 101)
; ODBC 2.0 returns integer
(define sql-get-info-arg-maxindexsize 102)
(define sql-get-info-arg-maximumindexsize 102)
; ODBC 2.0 returns integer
(define sql-get-info-arg-maxrowsize 104)
(define sql-get-info-arg-maximumrowsize 104)
; ODBC 2.0 returns integer
(define sql-get-info-arg-maxstatementlen 105)
(define sql-get-info-arg-maximumstatemenlen 105)
; ODBC 2.0 returns integer
(define sql-get-info-arg-maxtablesinselect 106)
(define sql-get-info-arg-maximumtablesinselect 106)
; ODBC 2.0 returns integer
(define sql-get-info-arg-maxusernamelen 107)
(define sql-get-info-arg-maximumusernamelen 107)
; ODBC 2.01 returns integer
(define sql-get-info-arg-ojcapabilities 115)
(define sql-get-info-arg-outerjoincapabilities 115)

; ODBC return values for SQLGetInfo sql-get-info-arg-identifiercase (SQL_IDENTIFIER_CASE)
(define sql-ic-upper 1)
(define sql-ic-lower 2)
(define sql-ic-sensitive 3)
(define sql-ic-mixed 4)

; ODBC return values for SQLGetInfo sql-get-info-arg-defaulttxnisolation (SQL_DEFAULT_TXN_ISOLATION)
(define sql-txn-read-uncommited #x00000001)
(define sql-txn-read-committed  #x00000002)
(define sql-txn-repeatable-read #x00000004)
(define sql-txn-serializable #x00000008)

; ODBC return values for SQLGetInfo sql-get-info-arg-txncapable (SQL_TXN_CAPABLE)
(define sql-tc-none 0)
(define sql-tc-dml 1)
(define sql-tc-all 2)
(define sql-tc-ddl-commit 3)
(define sql-tc-ddl-ignore 4)

; ODBC return values for SQLGetInfo sql-get-info-arg-getdataextensions (SQL_GETDATA_EXTENSIONS)
(define sql-gd-any-column  #x00000001)
(define sql-gd-any-order #x00000002)
(define sql-gd-block #x00000004)
(define sql-gd-bound #x00000008)

; ODBC return values for SQLGetInfo sql-get-info-arg-nullcollation (SQL_NULL_COLLATION)
(define sql-nc-end #x0004)
(define sql-nc-start #x0002)
; missing sql-nc-high sql-nc-low

; ODBC return values for SQLGetInfo sql-get-info-arg-altertable (SQL_ALTER_TABLE)
(define sql-at-add-colum #x00000001)
(define sql-at-drop-column #x00000002)
(define sql-at-add-constraint #x00000008)
(define sql-at-add-column-single #x00000020)
(define sql-at-add-column-default #x00000040)
(define sql-at-add-column-collation #x00000080)
(define sql-at-set-column-default #x00000100)
(define sql-at-drop-column-default #x00000200)
(define sql-at-drop-column-cascade #x00000400)
(define sql-at-drop-column-restrict #x00000800)
(define sql-at-drop-table-constraint #x00001000)
(define sql-at-drop-table-constraint-cascade #x00002000)
(define sql-at-drop-table-constraint-restrict #x00004000)
(define sql-at-constraint-name-definition #x00008000)
(define sql-at-constraint-initially-deferred #x00010000)
(define sql-at-constraint-initially-immediate #x00020000)
(define sql-at-constraint-deferrable #x00040000)
(define sql-at-constraint-non-deferrable #x00080000)

; ODBC return values for SQLGetInfo sql-get-info-arg-ojcapabilities (SQL_OJ_CAPABILITIES)
(define sql-oj-left #x00000001)
(define sql-oj-right #x00000002)
(define sql-oj-full #x00000004)
(define sql-oj-nested #x00000008)
(define sql-oj-not-ordered #x00000010)
(define sql-oj-inner #x00000020)
(define sql-oj-all-comparison-ops #x00000040)

; ODBC data types for use with odbc_sql_get_type_info
(define sql-datatype-unknown 0)
(define sql-datatype-char 1)
(define sql-datatype-numeric 2)
(define sql-datatype-decimal 3)
(define sql-datatype-integer 4)
(define sql-datatype-smallint 5)
(define sql-datatype-float 6)
(define sql-datatype-real 7)
(define sql-datatype-double 8)
(define sql-datatype-datetime 9)
(define sql-datatype-interval 10)
(define sql-datatype-varchar 12)
(define sql-datatype-date 91)
(define sql-datatype-time 92)
(define sql-datatype-timestamp 93)

;;; ODBC return values
(define sql-error -1)
(define sql-success 0)
(define sql-success-with-info 1)
(define sql-no-data 100)
(define sql-invalid-handle -2)
(define sql-need-data 99)

(define-record-type odbc-column :odbc-column
  (really-make-odbc-column name type size digits nullable)
  odbc-column?
  (name odbc-column-name)
  (type odbc-column-type)
  (size odbc-column-size)
  (digits odbc-column-digits)
  (nullable odbc-column-nullable))

;;; PART 1

(define (odbc-alloc-environment-handle)
  (really-make-environment-handle (odbc-alloc-environment-handle-internal)))

(import-lambda-definition odbc-alloc-environment-handle-internal
			  ()
			  "odbc_alloc_environment_handle")

(define (odbc-alloc-connection-handle env-handle)
  (check-arg environment-handle? env-handle odbc-alloc-connection-handle)
  (really-make-connection-handle
   (odbc-alloc-connection-handle-internal (environment-handle-handle env-handle))))

(import-lambda-definition odbc-alloc-connection-handle-internal
			  (env-handle)
			  "odbc_alloc_connection_handle")

(define (odbc-alloc-statement-handle conn-handle)
  (check-arg connection-handle? conn-handle odbc-alloc-statement-handle)
  (really-make-statement-handle
   (odbc-alloc-statement-handle-internal (connection-handle-handle conn-handle))))

(import-lambda-definition odbc-alloc-statement-handle-internal
			  (db-handle)
			  "odbc_alloc_statement_handle")

(define (odbc-sql-connect conn-handle server-name user-name auth)
  (check-arg connection-handle? conn-handle odbc-sql-connect)
  (odbc-sql-connect-internal (connection-handle-handle conn-handle)
			     server-name user-name auth))

(import-lambda-definition odbc-sql-connect-internal
			  (conn-handle server-name user-name auth)
			  "odbc_sql_connect")

;;; PART 2

(define (odbc-sql-data-sources env-handle)
  (check-arg environment-handle? env-handle odbc-sql-data-sources)
  (odbc-sql-data-sources-internal (environment-handle-handle env-handle)))
  
(import-lambda-definition odbc-sql-data-sources-internal
			  (env-handle)
			  "odbc_sql_data_sources")

(define (odbc-sql-drivers env-handle)
  (check-arg environment-handle? env-handle odbc-sql-drivers)
  (odbc-sql-drivers-internal (environment-handle-handle env-handle)))

(import-lambda-definition odbc-sql-drivers-internal
			  (env-handle)
			  "odbc_sql_drivers")

(define (odbc-sql-get-info-int conn-handle info-key)
  (check-arg connection-handle? conn-handle odbc-sql-get-info-int)
  (odbc-sql-get-info-int-internal (connection-handle-handle conn-handle) info-key))

(import-lambda-definition odbc-sql-get-info-int-internal 
			  (conn-handle info-key)
			  "odbc_sql_get_info_int")

(define (odbc-sql-get-info-string conn-handle info-key)
  (check-arg connection-handle-handle conn-handle odbc-sql-get-info-string)
  (odbc-sql-get-info-string-internal (connection-handle-handle conn-handle) info-key))

(import-lambda-definition odbc-sql-get-info-string-internal
			  (conn-handle info-key)
			  "odbc_sql_get_info_string")

(define (odbc-sql-get-func conn-handle fun-id)
  (check-arg connection-handle? conn-handle odbc-sql-get-func)
  (odbc-sql-get-func-exists-internal (connection-handle-handle conn-handle) fun-id))

(import-lambda-definition odbc-sql-get-func-exists-internal
			  (conn-handle fun-id)
			  "odbc_sql_get_func_exists")

(define (odbc-sql-get-type-info stmt-handle data-type)
  (check-arg statement-handle? stmt-handle data-type)
  (odbc-sql-get-type-info-internal (statement-handle-handle stmt-handle) data-type))

(import-lambda-definition odbc-sql-get-type-info-internal
			  (stmt-handle data-type)
			  "odbc_sql_get_type_info")

;;; PART 3

(define (odbc-sql-set-connect-attr-int conn-handle attribute value)
  (check-arg connection-handle? conn-handle odbc-sql-set-connect-attr-int)
  (odbc-sql-set-connect-attr-int-internal (connection-handle-handle conn-handle)
					  attribute value))

(import-lambda-definition odbc-sql-set-connect-attr-int-internal
			  (conn-handle attribute value)
			  "odbc_sql_set_connect_attr_int")

(define (odbc-sql-set-connect-attr-string conn-handle attribute value)
  (check-arg connection-handle? conn-handle odbc-sql-set-connect-attr-string)
  (odbc-sql-set-connect-attr-string-internal (connection-handle-handle conn-handle)
					     attribute value))

(import-lambda-definition odbc-sql-set-connect-attr-string-internal
			  (conn-handle attribute value)
			  "odbc_sql_set_connect_attr_string")

(define (odbc-sql-get-connect-attr-string conn-handle attribute)
  (check-arg connection-handle? conn-handle odbc-sql-get-connect-attr-string)
  (odbc-sql-get-connect-attr-string-internal (connection-handle-handle conn-handle)
					     attribute))

(import-lambda-definition odbc-sql-get-connect-attr-string-internal
			  (conn-handle attribute)
			  "odbc_sql_get_connect_attr_string")

(define (odbc-sql-get-connect-attr-int conn-handle attribute)
  (check-arg connection-handle? conn-handle odbc-sql-get-connect-attr-int)
  (odbc-sql-get-connect-attr-int-internal (connection-handle-handle conn-handle)
					  attribute))

(import-lambda-definition odbc-sql-get-connect-attr-int-internal
			  (conn-handle attribute)
			  "odbc_sql_get_connect_attr_int")

(define (odbc-sql-set-env-attr-int env-handle attribute value)
  (check-arg environment-handle? env-handle odbc-sql-set-env-attr-int)
  (odbc-sql-set-env-attr-int-internal (environment-handle-handle env-handle)
				      attribute value))

(import-lambda-definition odbc-sql-set-env-attr-int-internal
			  (env-handle attribute value)
			  "odbc_sql_set_env_attr_int")

(define (odbc-sql-get-env-attr-int env-handle attribute value)
  (check-arg environment-handle? env-handle odbc-sql-get-connect-attr-int)
  (odbc-sql-get-env-attr-int-internal (environment-handle-handle env-handle)
					  attribute value))

(import-lambda-definition odbc-sql-get-env-attr-int-internal
			  (env-handle attribute value)
			  "odbc_sql_get_env_attr_int")

(define (odbc-sql-set-stmt-attr-int stmt-handle attribute value)
  (check-arg statement-handle? stmt-handle odbc-sql-set-stmt-attr-int)
  (odbc-sql-set-stmt-attr-int-internal (statement-handle-handle stmt-handle)
				       attribute value))

(import-lambda-definition odbc-sql-set-stmt-attr-int-internal
			  (stmt-handle attribute value)
			  "odbc_sql_set_stmt_attr_int")

(define (odbc-sql-set-stmt-attr-string stmt-handle attribute value)
  (check-arg statement-handle? stmt-handle odbc-sql-set-stmt-attr-string)
  (odbc-sql-set-stmt-attr-string-internal (statement-handle-handle stmt-handle)
					 attribute value))

(import-lambda-definition odbc-sql-set-stmt-attr-string-internal
			  (stmt-handle attribute value)
			  "odbc_sql_set_stmt_attr_string")

(define (odbc-sql-get-stmt-attr-int stmt-handle attribute)
  (check-arg statement-handle? stmt-handle odbc-sql-get-stmt-attr-int)
  (odbc-sql-get-stmt-attr-int-internal (statement-handle-handle stmt-handle)
				       attribute))

(import-lambda-definition odbc-sql-get-stmt-attr-int-internal
			  (stmt-handle attribute)
			  "odbc_sql_get_stmt_attr_int")

(define (odbc-sql-get-stmt-attr-string stmt-handle attribute)
  (check-arg statement-handle? stmt-handle odbc-sql-get-stmt-attr-string)
  (odbc-sql-get-stmt-attr-string-internal (statement-handle-handle stmt-handle)
					  attribute))

(import-lambda-definition odbc-sql-get-stmt-attr-string-internal
			  (stmt-handle attribute)
			  "odbc_sql_get_stmt_attr_string")

;;; PART 4

;;; PART 5

(define (odbc-sql-prepare stmt-handle stmt-txt)
  (check-arg statement-handle? stmt-handle odbc-sql-prepare)
  (odbc-sql-prepare-internal (statement-handle-handle stmt-handle)
			     stmt-txt))

(import-lambda-definition odbc-sql-prepare-internal
			  (stmt-handle stmt-txt)
			  "odbc_sql_prepare")

(define (odbc-sql-bind-parameter-exec-out stmt-handle param-vals)
  (check-arg statement-handle-handle stmt-handle odbc-sql-bind-parameter-exec-out)
  (odbc-sql-bind-parameter-exec-out-internal (statement-handle-handle stmt-handle)
					     param-vals))

(import-lambda-definition odbc-sql-bind-parameter-exec-out-internal
			  (stmt-handle param-vals)
			  "odbc_sql_bind_parameter_exec_out")

;;; PART 6

(define (odbc-sql-execute stmt-handle)
  (check-arg statement-handle? stmt-handle odbc-sql-execute)
  (odbc-sql-execute-internal (statement-handle-handle stmt-handle)))

(import-lambda-definition odbc-sql-execute-internal
			  (stmt-handle)
			  "odbc_sql_execute")

(define (odbc-sql-execute-direct stmt-handle stmt-txt)
  (check-arg statement-handle? stmt-handle odbc-sql-execute-direct)
  (odbc-sql-execute-direct-internal (statement-handle-handle stmt-handle)
				    stmt-txt))

(import-lambda-definition odbc-sql-execute-direct-internal
			  (stmt-handle stmt-txt)
			  "odbc_sql_execute_direct")


;;; PART 7

(define (odbc-sql-get-data stmt-handle column-number target-type)
  (check-arg statement-handle? stmt-handle odbc-sql-get-data)
  (odbc-sql-get-data-internal (statement-handle-handle stmt-handle)
			      column-number target-type))
			      
(import-lambda-definition odbc-sql-get-data-internal
			  (stmt-handle column-number target-type)
			  "odbc_sql_get_data")

(define (odbc-sql-fetch stmt-handle)
  (check-arg statement-handle-handle stmt-handle odbc-sql-fetch)
  (odbc-sql-fetch-internal (statement-handle-handle stmt-handle)))

(import-lambda-definition odbc-sql-fetch-internal
			  (stmt-handle)
			  "odbc_sql_fetch")

;;; PART 8

;;; PART 9

(define (odbc-sql-free-statement stmt-handle option)
  (check-arg statement-handle? stmt-handle odbc-sql-free-statement)
  (odbc-sql-free-statement-internal (statement-handle-handle stmt-handle) option))

(import-lambda-definition odbc-sql-free-statement-internal
			  (stmt-handle option)
			  "odbc_sql_free_statement")

(define (odbc-sql-close-cursor stmt-handle)
  (check-arg statement-handle? stmt-handle odbc-sql-close-cursor)
  (odbc-sql-close-cursor-internal (statement-handle-handle stmt-handle)))

(import-lambda-definition odbc-sql-close-cursor-internal
			  (stmt-handle)
			  "odbc_sql_close_cursor")

(define (odbc-sql-cancel stmt-handle)
  (check-arg statement-handle? stmt-handle odbc-sql-cancel)
  (odbc-sql-cancel-internal (statement-handle-handle stmt-handle)))

(import-lambda-definition odbc-sql-cancel-internal
			  (stmt-handle)
			  "odbc_sql_cancel")

(define (odbc-sql-num-result-cols stmt-handle)
  (check-arg statement-handle? stmt-handle odbc-sql-num-result-cols)
  (odbc-sql-num-result-cols (statement-handle-handle stmt-handle)))

(import-lambda-definition odbc-sql-num-result-cols-internal
			  (stmt-handle)
			  "odbc_sql_num_result_cols")

(define (odbc-sql-describe-col stmt-handle column-number)
  (check-arg statement-handle? stmt-handle odbc-sql-describe-col)
  (odbc-sql-describe-col-internal (statement-handle-handle stmt-handle) column-number))
  
(import-lambda-definition odbc-sql-describe-col-internal
			  (stmt-handle column-number)
			  "odbc_sql_describe_col")

;;; PART 10

(define (odbc-sql-disconnect conn-handle)
  (check-arg connection-handle? conn-handle odbc-sql-disconnect)
  (odbc-sql-disconnect-internal (connection-handle-handle conn-handle)))

(import-lambda-definition odbc-sql-disconnect-internal
			  (conn-handle)
			  "odbc_sql_disconnect")

(define (odbc-sql-free-handle handle)
  (check-arg odbc-handle? handle odbc-sql-free-handle)
  (odbc-sql-free-handle-internal (handle-record-type->c-handle-identifier handle) 
				 (odbc-handle handle)))

(import-lambda-definition odbc-sql-free-handle-internal
			  (handle-type handle)
			  "odbc_sql_free_handle")

(define (odbc-sql-get-diag-recs handle)
  (check-arg odbc-handle? handle odbc-sql-get-diag-recs)
  (odbc-sql-get-diag-recs-internal (handle-record-type->c-handle-identifier handle)
				   (odbc-handle handle)))

(import-lambda-definition odbc-sql-get-diag-recs-internal
			  (handle-type handle)
			  "odbc_sql_get_diag_recs")