r1657: Auto :types implemented for mysql,postgresql

[clsql.git] / interfaces / mysql / mysql-api.cl

diff --git a/interfaces/mysql/mysql-api.cl b/interfaces/mysql/mysql-api.cl
index 2a3b91109b3e71210409ab850fa0fb54e77f4463..1a91237adb5127f4362c894e85f590dac8e7c424 100644 (file)
--- a/interfaces/mysql/mysql-api.cl
+++ b/interfaces/mysql/mysql-api.cl
@@ -8,7 +8,7 @@
 ;;;;                Original code by Pierre R. Mai 
 ;;;; Date Started:  Feb 2002
 ;;;;
-;;;; $Id: mysql-api.cl,v 1.1 2002/03/23 17:10:47 kevin Exp $
+;;;; $Id: mysql-api.cl,v 1.2 2002/03/25 14:13:41 kevin Exp $
 ;;;;
 ;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg
 ;;;; and Copyright (c) 1999-2001 by Pierre R. Mai
@@ -121,6 +121,7 @@
 ;;; MYSQL-ROWS
 
 (uffi:def-array-pointer mysql-row (* :unsigned-char))
+(uffi:def-array-pointer mysql-field-vector (* mysql-field))
 
 (uffi:def-foreign-type mysql-field-offset :unsigned-int)
 
@@ -447,6 +448,19 @@
   :module "mysql"
   :returning (* mysql-field))
 
+(declaim (inline mysql-fetch-fields))
+(uffi:def-function "mysql_fetch_fields"
+  ((res (* mysql-mysql-res)))
+  :module "mysql"
+  :returning mysql-field-vector)
+
+(declaim (inline mysql-fetch-field-direct))
+(uffi:def-function "mysql_fetch_field_direct"
+  ((res (* mysql-mysql-res))
+   (field-num :unsigned-int))
+  :module "mysql"
+  :returning (* mysql-field))
+
 (declaim (inline mysql-escape-string))
 (uffi:def-function "mysql_escape_string"
     ((to :cstring)