;;;;
;;;; This file, part of CLSQL, is Copyright (c) 2004 by Kevin M. Rosenberg
;;;; and Copyright (C) Paul Meurer 1999 - 2001. All rights reserved.
;;;;
;;;; 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 sql-handle :pointer-void)
(def-foreign-type sql-handle-ptr '(* sql-handle))
(def-foreign-type string-ptr '(* :unsigned-char))
(def-foreign-type sql-handle :pointer-void)
(def-foreign-type sql-handle-ptr '(* sql-handle))
(def-foreign-type string-ptr '(* :unsigned-char))
(cbColNameMax :short) ; SWORD cbColNameMax
(*pcbColName (* :short)) ; SWORD FAR *pcbColName
(*pfSqlType (* :short)) ; SWORD FAR *pfSqlType
(cbColNameMax :short) ; SWORD cbColNameMax
(*pcbColName (* :short)) ; SWORD FAR *pcbColName
(*pfSqlType (* :short)) ; SWORD FAR *pfSqlType