summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
4d46d4d)
for computed fields, this will require some adjustment to the test suite which
in many cases expects integers.
are now in the same order an in the def-view-class.
* sql/sql.lisp: Honor case of string table identifier to INSERT-RECORDS
* test/test-fddl.lisp: Add two tests for mixed case names
are now in the same order an in the def-view-class.
* sql/sql.lisp: Honor case of string table identifier to INSERT-RECORDS
* test/test-fddl.lisp: Add two tests for mixed case names
+ * db-oracle/oracle-sql.lisp: Add missing database qualifier. Return NUMBER (double)
+ for computed fields, this will require some adjustment to the test suite which
+ in many cases expects integers.
+
22 May 2004 Kevin Rosenberg
* Version 2.10.21 released
* sql/sequences.lisp: Move generic sequence functions here from db-sqlite,
22 May 2004 Kevin Rosenberg
* Version 2.10.21 released
* sql/sequences.lisp: Move generic sequence functions here from db-sqlite,
(eval-when (:compile-toplevel :load-toplevel :execute)
(defconstant SQLT-NUMBER 2)
(defconstant SQLT-INT 3)
(eval-when (:compile-toplevel :load-toplevel :execute)
(defconstant SQLT-NUMBER 2)
(defconstant SQLT-INT 3)
- (defconstant SQLT-STR 5)
+ (defconstant SQLT-STR 5)
(defconstant SQLT-DATE 12))
;;; Note that despite the suggestive class name (and the way that the
(defconstant SQLT-DATE 12))
;;; Note that despite the suggestive class name (and the way that the
(deref-vp errhp))
(let ((*scale (uffi:deref-pointer scale :byte))
(*precision (uffi:deref-pointer precision :byte)))
(deref-vp errhp))
(let ((*scale (uffi:deref-pointer scale :byte))
(*precision (uffi:deref-pointer precision :byte)))
- ;;(format t "scale=~d, precision=~d~%" *scale *precision)
+
+ ;; (format t "scale=~d, precision=~d~%" *scale *precision)
+ ((or (and (zerop *scale) (not (zerop *precision)))
(and (minusp *scale) (< *precision 10)))
(setf buffer (acquire-foreign-resource :int +n-buf-rows+)
sizeof 4 ;; sizeof(int)
(and (minusp *scale) (< *precision 10)))
(setf buffer (acquire-foreign-resource :int +n-buf-rows+)
sizeof 4 ;; sizeof(int)
(push row reversed-result))))))
(push row reversed-result))))))
-(defmethod database-create-sequence
- (sequence-name (database oracle-database))
+(defmethod database-create-sequence (sequence-name (database oracle-database))
- (concatenate 'string "CREATE SEQUENCE "
- (sql-escape sequence-name))
+ (concatenate 'string "CREATE SEQUENCE " (sql-escape sequence-name))
-(defmethod database-drop-sequence
- (sequence-name (database oracle-database))
+(defmethod database-drop-sequence (sequence-name (database oracle-database))
- (concatenate 'string "DROP SEQUENCE "
- (sql-escape sequence-name))
+ (concatenate 'string "DROP SEQUENCE " (sql-escape sequence-name))
:database database))
(defmethod database-sequence-next (sequence-name (database oracle-database))
:database database))
(defmethod database-sequence-next (sequence-name (database oracle-database))
-(defmethod database-set-sequence-position (name position database)
+(defmethod database-set-sequence-position (name position (database oracle-database))
(let* ((next (database-sequence-next name database))
(incr (- position next)))
(database-execute-command
(let* ((next (database-sequence-next name database))
(incr (- position next)))
(database-execute-command
(and sn (list sn))))
(database-list-tables-and-sequences database)))
(and sn (list sn))))
(database-list-tables-and-sequences database)))
-(defmethod database-set-sequence-position (sequence-name (position integer) database)
+(defmethod database-set-sequence-position (sequence-name position database)
(database-execute-command
(format nil "UPDATE ~A SET last_value=~A,is_called='t'"
(%sequence-name-to-table sequence-name database)
(database-execute-command
(format nil "UPDATE ~A SET last_value=~A,is_called='t'"
(%sequence-name-to-table sequence-name database)