projects
/
clsql.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r1994: *** empty log message ***
[clsql.git]
/
interfaces
/
clsql-uffi
/
clsql-uffi.cl
diff --git
a/interfaces/clsql-uffi/clsql-uffi.cl
b/interfaces/clsql-uffi/clsql-uffi.cl
index a4cb44b621f5169cf11dab8c167f6c72f8fe291d..eddd6cde90cea23eff226b947d1cf6a37baa0aca 100644
(file)
--- a/
interfaces/clsql-uffi/clsql-uffi.cl
+++ b/
interfaces/clsql-uffi/clsql-uffi.cl
@@
-7,7
+7,7
@@
;;;; Programmers: Kevin M. Rosenberg
;;;; Date Started: Mar 2002
;;;;
;;;; Programmers: Kevin M. Rosenberg
;;;; Date Started: Mar 2002
;;;;
-;;;; $Id: clsql-uffi.cl,v 1.
2 2002/03/27 12:09:39
kevin Exp $
+;;;; $Id: clsql-uffi.cl,v 1.
4 2002/03/29 14:03:27
kevin Exp $
;;;;
;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg
;;;;
;;;;
;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg
;;;;
@@
-44,6
+44,14
@@
:double)
(t
t)))
:double)
(t
t)))
+ (:int32
+ (if (eq :int32 (nth i auto-list))
+ :int32
+ t))
+ (:int64
+ (if (eq :int64 (nth i auto-list))
+ :int64
+ t))
(t
t))
new-types)))
(t
t))
new-types)))
@@
-64,7
+72,7
@@
(uffi:def-function "atol64"
((str (* :unsigned-char))
(high32 (* :int)))
(uffi:def-function "atol64"
((str (* :unsigned-char))
(high32 (* :int)))
- :returning :int)
+ :returning :
unsigned-
int)
(uffi:def-constant +2^32+ 4294967296)
(uffi:def-constant +2^32-1+ (1- +2^32+))
(uffi:def-constant +2^32+ 4294967296)
(uffi:def-constant +2^32-1+ (1- +2^32+))
@@
-82,7
+90,7
@@
(case type
(:double
(atof char-ptr))
(case type
(:double
(atof char-ptr))
- (
:int32
+ (
(or :int32 :int)
(atoi char-ptr))
(:int64
(uffi:with-foreign-object (high32-ptr :int)
(atoi char-ptr))
(:int64
(uffi:with-foreign-object (high32-ptr :int)