* Version 3.4.2
* clsql-uffi.asd: Patch from James Biel improving loading
* db-oracle/oracle-{api,sql}.lisp: Patch from James Biel
to support 64-bit lisps
+12 Nov 2005 Kevin Rosenberg <kevin@rosenberg.net>
+ * Version 3.4.2
+ * clsql-uffi.asd: Patch from James Biel improving loading
+ * db-oracle/oracle-{api,sql}.lisp: Patch from James Biel
+ to support 64-bit lisps
+
12 Nov 2005 Kevin Rosenberg <kevin@rosenberg.net>
* Version 3.4.1
* sql/expressions.lisp: Escape numbers to SQL strings
12 Nov 2005 Kevin Rosenberg <kevin@rosenberg.net>
* Version 3.4.1
* sql/expressions.lisp: Escape numbers to SQL strings
(defmethod operation-done-p ((o compile-op) (c clsql-uffi-source-file))
(or (and (probe-file #p"/usr/lib/clsql/clsql_uffi.so") t)
(let ((lib (make-pathname :defaults (component-pathname c)
(defmethod operation-done-p ((o compile-op) (c clsql-uffi-source-file))
(or (and (probe-file #p"/usr/lib/clsql/clsql_uffi.so") t)
(let ((lib (make-pathname :defaults (component-pathname c)
- :type (uffi:default-foreign-library-type))))
+ :type (funcall (intern (symbol-name '#:default-foreign-library-type)
+ (find-package '#:uffi))))))
(and (probe-file lib) (probe-file (component-pathname c))
(> (file-write-date lib) (file-write-date (component-pathname c)))))))
(and (probe-file lib) (probe-file (component-pathname c))
(> (file-write-date lib) (file-write-date (component-pathname c)))))))
((:module :uffi
:components
((:file "clsql-uffi-package")
((:module :uffi
:components
((:file "clsql-uffi-package")
- (:clsql-uffi-source-file "uffi" :depends-on ("clsql-uffi-package"))
- (:file "clsql-uffi-loader" :depends-on ("clsql-uffi-package" "uffi"))
+ (:clsql-uffi-source-file "clsql_uffi" :depends-on ("clsql-uffi-package"))
+ (:file "clsql-uffi-loader" :depends-on ("clsql-uffi-package" "clsql_uffi"))
(:file "clsql-uffi" :depends-on ("clsql-uffi-loader"))))))
(:file "clsql-uffi" :depends-on ("clsql-uffi-loader"))))))
(in-package #:clsql-oracle)
(in-package #:clsql-oracle)
+;;
+;; OCI integer types
+;;
+
+(uffi:def-foreign-type ub2 :unsigned-short)
+(uffi:def-foreign-type sb2 :short)
+(uffi:def-foreign-type ub4 :unsigned-int)
+(uffi:def-foreign-type sb4 :int)
+(uffi:def-foreign-type size_t :unsigned-long)
;;
;; Opaque pointer types
;;
;; Opaque pointer types
(def-oci-routine ("OCIInitialize" oci-initialize)
:int
(def-oci-routine ("OCIInitialize" oci-initialize)
:int
- (mode :unsigned-long) ; ub4
(ctxp :pointer-void) ; dvoid *
(malocfp :pointer-void) ; dvoid *(*)
(ralocfp :pointer-void) ; dvoid *(*)
(ctxp :pointer-void) ; dvoid *
(malocfp :pointer-void) ; dvoid *(*)
(ralocfp :pointer-void) ; dvoid *(*)
(def-oci-routine ("OCIEnvInit" oci-env-init)
:int
(envpp :pointer-void) ; OCIEnv **
(def-oci-routine ("OCIEnvInit" oci-env-init)
:int
(envpp :pointer-void) ; OCIEnv **
- (mode :unsigned-long) ; ub4
- (xtramem-sz :unsigned-long) ; size_t
+ (mode ub4) ; ub4
+ (xtramem-sz size_t) ; size_t
(usermempp (* :pointer-void))) ; dvoid **
#-oci7
(def-oci-routine ("OCIEnvCreate" oci-env-create)
:int
(envhpp (* :pointer-void))
(usermempp (* :pointer-void))) ; dvoid **
#-oci7
(def-oci-routine ("OCIEnvCreate" oci-env-create)
:int
(envhpp (* :pointer-void))
(ctxp :pointer-void)
(malocfp :pointer-void)
(ralocfp :pointer-void)
(mfreefp :pointer-void)
(ctxp :pointer-void)
(malocfp :pointer-void)
(ralocfp :pointer-void)
(mfreefp :pointer-void)
- (xtramemsz :unsigned-long)
(usrmempp (* :pointer-void)))
(def-oci-routine ("OCIHandleAlloc" oci-handle-alloc)
:int
(usrmempp (* :pointer-void)))
(def-oci-routine ("OCIHandleAlloc" oci-handle-alloc)
:int
- (parenth :pointer-void) ; const dvoid *
+ (parenth :pointer-void) ; const dvoid *
(hndlpp (* :pointer-void)) ; dvoid **
(hndlpp (* :pointer-void)) ; dvoid **
- (type :unsigned-long) ; ub4
- (xtramem_sz :unsigned-long) ; size_t
+ (type ub4) ; ub4
+ (xtramem_sz size_t) ; size_t
(usrmempp (* :pointer-void))) ; dvoid **
(def-oci-routine ("OCIServerAttach" oci-server-attach)
:int
(srvhp :pointer-void) ; oci-server
(errhp :pointer-void) ; oci-error
(usrmempp (* :pointer-void))) ; dvoid **
(def-oci-routine ("OCIServerAttach" oci-server-attach)
:int
(srvhp :pointer-void) ; oci-server
(errhp :pointer-void) ; oci-error
- (dblink :cstring) ; :in
- (dblink-len :unsigned-long) ; int
- (mode :unsigned-long)) ; int
+ (dblink :cstring) ; :in
+ (dblink-len sb4) ; sb4
+ (mode ub4)) ; ub4
(def-oci-routine ("OCIHandleFree" oci-handle-free)
:int
(p0 :pointer-void) ;; handle
(def-oci-routine ("OCIHandleFree" oci-handle-free)
:int
(p0 :pointer-void) ;; handle
- (p1 :unsigned-long)) ;;type
(def-oci-routine ("OCILogon" oci-logon)
:int
(envhp :pointer-void) ; env
(errhp :pointer-void) ; err
(def-oci-routine ("OCILogon" oci-logon)
:int
(envhp :pointer-void) ; env
(errhp :pointer-void) ; err
- (svchpp (* :pointer-void)) ; svc
+ (svchpp (* :pointer-void)) ; svc
(username :cstring) ; username
(username :cstring) ; username
- (uname-len :unsigned-long) ;
(passwd :cstring) ; passwd
(passwd :cstring) ; passwd
- (password-len :unsigned-long) ;
(dsn :cstring) ; datasource
(dsn :cstring) ; datasource
- (dsn-len :unsigned-long)) ;
(def-oci-routine ("OCILogoff" oci-logoff)
:int
(def-oci-routine ("OCILogoff" oci-logoff)
:int
(p1 :pointer-void)) ; err
(uffi:def-function ("OCIErrorGet" oci-error-get)
(p1 :pointer-void)) ; err
(uffi:def-function ("OCIErrorGet" oci-error-get)
- ((handlp :pointer-void)
- (recordno :unsigned-long)
- (sqlstate :cstring)
- (errcodep (* :long))
+ ((handlp :pointer-void)
+ (recordno ub4)
+ (sqlstate :cstring)
+ (errcodep (* sb4))
(bufp (* :unsigned-char))
(bufp (* :unsigned-char))
- (bufsize :unsigned-long)
- (type :unsigned-long))
+ (bufsize ub4)
+ (type ub4))
:returning :void)
(def-oci-routine ("OCIStmtPrepare" oci-stmt-prepare)
:int
(stmtp :pointer-void)
(errhp :pointer-void)
:returning :void)
(def-oci-routine ("OCIStmtPrepare" oci-stmt-prepare)
:int
(stmtp :pointer-void)
(errhp :pointer-void)
- (stmt :cstring)
- (stmt_len :unsigned-long)
- (language :unsigned-long)
- (mode :unsigned-long))
+ (stmt :cstring)
+ (stmt_len ub4)
+ (language ub4)
+ (mode ub4))
(def-oci-routine ("OCIStmtExecute" oci-stmt-execute)
:int
(svchp :pointer-void)
(def-oci-routine ("OCIStmtExecute" oci-stmt-execute)
:int
(svchp :pointer-void)
- (iters :unsigned-long)
- (rowoff :unsigned-long)
- (snap_in :pointer-void)
- (snap_out :pointer-void)
- (mode :unsigned-long))
+ (iters ub4)
+ (rowoff ub4)
+ (snap_in :pointer-void)
+ (snap_out :pointer-void)
+ (mode ub4))
(def-raw-oci-routine ("OCIParamGet" oci-param-get)
:int
(hndlp :pointer-void)
(def-raw-oci-routine ("OCIParamGet" oci-param-get)
:int
(hndlp :pointer-void)
- (parmdpp (* :pointer-void))
- (pos :unsigned-long))
+ (parmdpp (* :pointer-void))
+ (pos ub4))
(def-oci-routine ("OCIAttrGet" oci-attr-get)
:int
(def-oci-routine ("OCIAttrGet" oci-attr-get)
:int
- (trgthndlp :pointer-void)
- (trghndltyp :unsigned-int)
- (attributep :pointer-void)
- (sizep (* :unsigned-int))
- (attrtype :unsigned-int)
+ (trgthndlp :pointer-void)
+ (trghndltyp ub4)
+ (attributep :pointer-void)
+ (sizep (* ub4))
+ (attrtype ub4)
(errhp :pointer-void))
(def-oci-routine ("OCIAttrSet" oci-attr-set)
:int
(errhp :pointer-void))
(def-oci-routine ("OCIAttrSet" oci-attr-set)
:int
- (trgthndlp :pointer-void)
- (trgthndltyp :int :in)
- (attributep :pointer-void)
- (size :int)
- (attrtype :int)
- (errhp oci-error))
+ (trgthndlp :pointer-void)
+ (trgthndltyp ub4 :in)
+ (attributep :pointer-void)
+ (size ub4)
+ (attrtype ub4)
+ (errhp oci-error))
(def-oci-routine ("OCIDefineByPos" oci-define-by-pos)
:int
(stmtp :pointer-void)
(defnpp (* :pointer-void))
(errhp :pointer-void)
(def-oci-routine ("OCIDefineByPos" oci-define-by-pos)
:int
(stmtp :pointer-void)
(defnpp (* :pointer-void))
(errhp :pointer-void)
- (position :unsigned-long)
- (valuep :pointer-void)
- (value_sz :long)
- (dty :unsigned-short)
- (indp (* :short))
- (rlenp (* :unsigned-short))
- (rcodep (* :unsigned-short))
- (mode :unsigned-long))
+ (position ub4)
+ (valuep :pointer-void)
+ (value_sz sb4)
+ (dty ub2)
+ (indp (* sb2))
+ (rlenp (* ub2))
+ (rcodep (* ub2))
+ (mode ub4))
(def-oci-routine ("OCIStmtFetch" oci-stmt-fetch)
:int
(stmthp :pointer-void)
(errhp :pointer-void)
(def-oci-routine ("OCIStmtFetch" oci-stmt-fetch)
:int
(stmthp :pointer-void)
(errhp :pointer-void)
- (p2 :unsigned-long)
- (p3 :unsigned-short)
- (p4 :unsigned-long))
+ (p2 ub4)
+ (p3 ub2)
+ (p4 ub4))
(def-oci-routine ("OCITransStart" oci-trans-start)
:int
(def-oci-routine ("OCITransStart" oci-trans-start)
:int
(errhp :pointer-void)
(p2 :unsigned-short)
(p3 :unsigned-short))
(def-oci-routine ("OCITransCommit" oci-trans-commit)
:int
(errhp :pointer-void)
(p2 :unsigned-short)
(p3 :unsigned-short))
(def-oci-routine ("OCITransCommit" oci-trans-commit)
:int
(errhp :pointer-void)
(p2 :unsigned-short))
(errhp :pointer-void)
(p2 :unsigned-short))
;;; for setting up global environment.
(uffi:def-function "OCIInitialize"
;;; for setting up global environment.
(uffi:def-function "OCIInitialize"
- ((mode :unsigned-long) ; ub4
(ctxp :pointer-void) ; dvoid *
(malocfp :pointer-void) ; dvoid *(*)
(ralocfp :pointer-void) ; dvoid *(*)
(ctxp :pointer-void) ; dvoid *
(malocfp :pointer-void) ; dvoid *(*)
(ralocfp :pointer-void) ; dvoid *(*)
:returning :int)
(uffi:def-function "OCIEnvInit"
:returning :int)
(uffi:def-function "OCIEnvInit"
- ((envpp :pointer-void) ; OCIEnv **
- (mode :unsigned-long) ; ub4
- (xtramem-sz :unsigned-long) ; size_t
+ ((envpp :pointer-void) ; OCIEnv **
+ (mode ub4) ; ub4
+ (xtramem-sz size_t) ; size_t
(usermempp (* :pointer-void)))
:returning :int)
(usermempp (* :pointer-void)))
:returning :int)
(uffi:def-function "OCIHandleAlloc"
((parenth :pointer-void) ; const dvoid *
(hndlpp (* :pointer-void)) ; dvoid **
(uffi:def-function "OCIHandleAlloc"
((parenth :pointer-void) ; const dvoid *
(hndlpp (* :pointer-void)) ; dvoid **
- (type :unsigned-long) ; ub4
- (xtramem_sz :unsigned-long) ; size_t
+ (type ub4) ; ub4
+ (xtramem_sz size_t) ; size_t
(usrmempp (* :pointer-void)))
:returning :int)
(usrmempp (* :pointer-void)))
:returning :int)
(cond
(database
(with-slots (errhp) database
(cond
(database
(with-slots (errhp) database
- (let ((errcode (uffi:allocate-foreign-object :long))
+ (let ((errcode (uffi:allocate-foreign-object 'sb4))
(errbuf (uffi:allocate-foreign-string #.+errbuf-len+)))
;; ensure errbuf empty string
(setf (uffi:deref-array errbuf '(:array :unsigned-char) 0)
(uffi:ensure-char-storable (code-char 0)))
(errbuf (uffi:allocate-foreign-string #.+errbuf-len+)))
;; ensure errbuf empty string
(setf (uffi:deref-array errbuf '(:array :unsigned-char) 0)
(uffi:ensure-char-storable (code-char 0)))
- (setf (uffi:deref-pointer errcode :long) 0)
+ (setf (uffi:deref-pointer errcode 'sb4) 0)
(uffi:with-cstring (sqlstate nil)
(oci-error-get (deref-vp errhp) 1
(uffi:with-cstring (sqlstate nil)
(oci-error-get (deref-vp errhp) 1
errcode
(uffi:char-array-to-pointer errbuf)
+errbuf-len+ +oci-htype-error+))
errcode
(uffi:char-array-to-pointer errbuf)
+errbuf-len+ +oci-htype-error+))
- (let ((subcode (uffi:deref-pointer errcode :long))
+ (let ((subcode (uffi:deref-pointer errcode 'sb4))
(errstr (uffi:convert-from-foreign-string errbuf)))
(uffi:free-foreign-object errcode)
(uffi:free-foreign-object errbuf)
(errstr (uffi:convert-from-foreign-string errbuf)))
(uffi:free-foreign-object errcode)
(uffi:free-foreign-object errbuf)
(values))
(#.+oci-error+ (handle-oci-error :database (qc-db qc)
:nulls-ok t))))
(values))
(#.+oci-error+ (handle-oci-error :database (qc-db qc)
:nulls-ok t))))
- (uffi:with-foreign-object (rowcount :long)
+ (uffi:with-foreign-object (rowcount 'ub4)
(oci-attr-get (deref-vp (qc-stmthp qc))
+oci-htype-stmt+
rowcount
(oci-attr-get (deref-vp (qc-stmthp qc))
+oci-htype-stmt+
rowcount
+oci-attr-row-count+
(deref-vp errhp))
(setf (qc-n-from-oci qc)
+oci-attr-row-count+
(deref-vp errhp))
(setf (qc-n-from-oci qc)
- (- (uffi:deref-pointer rowcount :long)
+ (- (uffi:deref-pointer rowcount 'ub4)
(qc-total-n-from-oci qc)))
(when (< (qc-n-from-oci qc) +n-buf-rows+)
(setf (qc-oci-end-seen-p qc) t))
(setf (qc-total-n-from-oci qc)
(qc-total-n-from-oci qc)))
(when (< (qc-n-from-oci qc) +n-buf-rows+)
(setf (qc-oci-end-seen-p qc) t))
(setf (qc-total-n-from-oci qc)
- (uffi:deref-pointer rowcount :long)))))
+ (uffi:deref-pointer rowcount 'ub4)))))
(values)))
;; the guts of the SQL function
(values)))
;; the guts of the SQL function
;; the Oracle 9i OCI documentation. -- JJB 20040713
(uffi:def-type byte-pointer (* :byte))
;; the Oracle 9i OCI documentation. -- JJB 20040713
(uffi:def-type byte-pointer (* :byte))
-(uffi:def-type ulong-pointer (* :unsigned-long))
(uffi:def-type void-pointer-pointer (* :void-pointer))
(defun make-query-cursor-cds (database stmthp result-types field-names)
(uffi:def-type void-pointer-pointer (* :void-pointer))
(defun make-query-cursor-cds (database stmthp result-types field-names)
(precision :short)
(scale :byte)
(colname '(* :unsigned-char))
(precision :short)
(scale :byte)
(colname '(* :unsigned-char))
- (colnamelen :unsigned-long)
- (colsize :unsigned-short)
- (colsizesize :unsigned-long)
+ (colnamelen 'ub4)
+ (colsize 'ub2)
+ (colsizesize 'ub4)
(defnp ':pointer-void))
(let ((buffer nil)
(sizeof nil))
(defnp ':pointer-void))
(let ((buffer nil)
(sizeof nil))
(deref-vp errhp))
(setq colname-string (uffi:convert-from-foreign-string
(uffi:deref-pointer colname '(* :unsigned-char))
(deref-vp errhp))
(setq colname-string (uffi:convert-from-foreign-string
(uffi:deref-pointer colname '(* :unsigned-char))
- :length (uffi:deref-pointer colnamelen :unsigned-long))))
+ :length (uffi:deref-pointer colnamelen 'ub4))))
(push (make-cd :name colname-string
:sizeof sizeof
:buffer buffer
(push (make-cd :name colname-string
:sizeof sizeof
:buffer buffer
+cl-sql (3.4.2-1) unstable; urgency=low
+
+ * New upstream
+
+ -- Kevin M. Rosenberg <kmr@debian.org> Sat, 12 Nov 2005 10:44:37 -0700
+
cl-sql (3.4.1-1) unstable; urgency=low
* New upstream
cl-sql (3.4.1-1) unstable; urgency=low
* New upstream