projects
/
clsql.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
17161e2
)
r4999: more win32 changes
author
Kevin M. Rosenberg
<kevin@rosenberg.net>
Sat, 17 May 2003 07:27:15 +0000
(07:27 +0000)
committer
Kevin M. Rosenberg
<kevin@rosenberg.net>
Sat, 17 May 2003 07:27:15 +0000
(07:27 +0000)
db-mysql/mysql-api.lisp
patch
|
blob
|
history
diff --git
a/db-mysql/mysql-api.lisp
b/db-mysql/mysql-api.lisp
index 6842f8b2aaad031988a304e5bbc437a4b8f45469..85631ea3d1d7c5b7a43cd5235f9a3f86aff5a30a 100644
(file)
--- a/
db-mysql/mysql-api.lisp
+++ b/
db-mysql/mysql-api.lisp
@@
-8,7
+8,7
@@
;;;; Original code by Pierre R. Mai
;;;; Date Started: Feb 2002
;;;;
;;;; Original code by Pierre R. Mai
;;;; Date Started: Feb 2002
;;;;
-;;;; $Id: mysql-api.lisp,v 1.
1 2002/09/30 10:19:23
kevin Exp $
+;;;; $Id: mysql-api.lisp,v 1.
2 2003/05/17 07:27:15
kevin Exp $
;;;;
;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg
;;;; and Copyright (c) 1999-2001 by Pierre R. Mai
;;;;
;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg
;;;; and Copyright (c) 1999-2001 by Pierre R. Mai
@@
-108,6
+108,7
@@
(:var-string 253)
(:string 254)))
(:var-string 253)
(:string 254)))
+#-(or win32 mswindows)
(uffi:def-struct mysql-field
(name (* :char))
(table (* :char))
(uffi:def-struct mysql-field
(name (* :char))
(table (* :char))
@@
-118,6
+119,20
@@
(flags :unsigned-int)
(decimals :unsigned-int))
(flags :unsigned-int)
(decimals :unsigned-int))
+;; structure changed in mysql 4.0.12, win32
+#+(or win32 mswindows)
+(uffi:def-struct mysql-field
+ (name (* :char))
+ (table (* :char))
+ (org_table (* :char))
+ (db (* :char))
+ (def (* :char))
+ (length :unsigned-int)
+ (max-length :unsigned-int)
+ (flags :unsigned-int)
+ (decimals :unsigned-int)
+ (type mysql-field-types))
+
;;; MYSQL-ROWS
(uffi:def-array-pointer mysql-row (* :unsigned-char))
;;; MYSQL-ROWS
(uffi:def-array-pointer mysql-row (* :unsigned-char))