projects
/
clsql.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r10836: 14 Nov 2005 Kevin Rosenberg <kevin@rosenberg.net>
[clsql.git]
/
db-oracle
/
oracle-api.lisp
diff --git
a/db-oracle/oracle-api.lisp
b/db-oracle/oracle-api.lisp
index 454011fafc5d81f97c63c4cbb8fab72264545c4f..377c3f3a9c943cee23bdfdaa9a56a1399e92615d 100644
(file)
--- a/
db-oracle/oracle-api.lisp
+++ b/
db-oracle/oracle-api.lisp
@@
-132,11
+132,11
@@
(envhp :pointer-void) ; env
(errhp :pointer-void) ; err
(svchpp (* :pointer-void)) ; svc
(envhp :pointer-void) ; env
(errhp :pointer-void) ; err
(svchpp (* :pointer-void)) ; svc
- (username
:cstring)
; username
+ (username
(* :unsigned-char))
; username
(uname-len ub4) ;
(uname-len ub4) ;
- (passwd
:cstring)
; passwd
+ (passwd
(* :unsigned-char))
; passwd
(password-len ub4) ;
(password-len ub4) ;
- (dsn
:cstring)
; datasource
+ (dsn
(* :unsigned-char))
; datasource
(dsn-len ub4)) ;
(def-oci-routine ("OCILogoff" oci-logoff)
(dsn-len ub4)) ;
(def-oci-routine ("OCILogoff" oci-logoff)
@@
-159,7
+159,7
@@
:int
(stmtp :pointer-void)
(errhp :pointer-void)
:int
(stmtp :pointer-void)
(errhp :pointer-void)
- (stmt
:cstring
)
+ (stmt
(* :unsigned-char)
)
(stmt_len ub4)
(language ub4)
(mode ub4))
(stmt_len ub4)
(language ub4)
(mode ub4))