;;;; *************************************************************************
;;;; FILE IDENTIFICATION
;;;;
-;;;; Name: mysql.cl
+;;;; Name: mysql-api.lisp
;;;; Purpose: Low-level MySQL interface using UFFI
;;;; Programmers: Kevin M. Rosenberg based on
;;;; Original code by Pierre R. Mai
;;;; Date Started: Feb 2002
;;;;
-;;;; $Id: mysql-api.lisp,v 1.5 2003/07/08 20:15:13 kevin Exp $
+;;;; $Id$
;;;;
;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg
;;;; and Copyright (c) 1999-2001 by Pierre R. Mai
(:var-string 253)
(:string 254)))
-#-(or mysql-client-v3 mysql-client-v4)
-(eval-when (:compile-toplevel :load-toplevel :execute)
- (pushnew :mysql-client-v3 cl:*features*))
-
-#+mysql-client-v3
+#+:mysql-client-v3
(uffi:def-struct mysql-field
(name (* :char))
(table (* :char))
(decimals :unsigned-int))
;; structure changed in mysql 4 client
-#+mysql-client-v4
+#+:mysql-client-v4
(uffi:def-struct mysql-field
(name (* :char))
(table (* :char))
:module "mysql"
:returning (* mysql-mysql))
+#-mysql-client-v4
(declaim (inline mysql-connect))
+#-mysql-client-v4
(uffi:def-function "mysql_connect"
((mysql (* mysql-mysql))
(host :cstring)
:module "mysql"
:returning :int)
+#-mysql-client-v4
(declaim (inline mysql-create-db))
+#-mysql-client-v4
(uffi:def-function "mysql_create_db"
((mysql (* mysql-mysql))
(db :cstring))
:module "mysql"
:returning :int)
+#-mysql-client-v4
(declaim (inline mysql-drop-db))
+#-mysql-client-v4
(uffi:def-function "mysql_drop_db"
((mysql (* mysql-mysql))
(db :cstring))
:module "mysql"
:returning :cstring)
-(declaim (inline mysql-get-client-info))
-(uffi:def-function "mysql_get_client_info"
- ()
- :module "mysql"
- :returning :cstring)
-
(declaim (inline mysql-get-host-info))
(uffi:def-function "mysql_get_host_info"
((mysql (* mysql-mysql)))