+07 Oct 2004 Kevin Rosenberg <kevin@rosenberg.net>
+ * uffi/clsql-uffi.lisp: Add support for :blob result-type
+ * db-mysql/mysql-sql.lisp: Add support for :blob
+ result-type
+
04 Oct 2004 Kevin Rosenberg <kevin@rosenberg.net>
* db-mysql/mysql-sql.lisp, db-db2/db2-sql.lisp: Add
missing quotes for types in code that is still in development
(dotimes (i num-fields)
(declare (fixnum i))
(let* ((field (uffi:deref-array field-vec '(:array mysql-field) i))
- (type (uffi:get-slot-value field 'mysql-field 'type)))
+ (type (uffi:get-slot-value field 'mysql-field 'type)))
(push
(case type
((#.mysql-field-types#tiny
(:int64
(if (eq :int64 (nth i auto-list))
:int64
- t))
+ t))
+ (:blob
+ :blob)
(t
t))
new-types))))
(high32 (uffi:deref-pointer high32-ptr :int)))
(if (zerop high32)
low32
- (make-64-bit-integer high32 low32)))))
+ (make-64-bit-integer high32 low32)))))
+ (:blob
+ (if length
+ (uffi:convert-from-foreign-usb8 char-ptr length)
+ (error "Can't return blob since length is not specified.")))
(t
(if length
(uffi:convert-from-foreign-string char-ptr :locale :none