summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
99df5f6)
default db case for FDML/SELECT/25
* sql/classes.lisp: honor case of string tables when outputting queries
* sql/objects.lisp: Add database type to default database-get-type-specifier method
* sql/sql.lisp: Add database type to default database-abort-transaction method
* sql/classes.lisp: honor case of string tables when outputting queries
* sql/objects.lisp: Add database type to default database-get-type-specifier method
* sql/sql.lisp: Add database type to default database-abort-transaction method
+ * sql/utils.lisp: Add GETENV function which will be used to get ORACLE_HOME
+ from environment
+ * test/test-fdml.lisp: String table names are now case sensitive, so convert to
+ default db case for FDML/SELECT/25
22 May 2004 Kevin Rosenberg
* Version 2.10.20 released: Oracle backend now fails 6 out of 200 tests
22 May 2004 Kevin Rosenberg
* Version 2.10.20 released: Oracle backend now fails 6 out of 200 tests
#:symbol-name-default-case
#:convert-to-db-default-case
#:ensure-keyword
#:symbol-name-default-case
#:convert-to-db-default-case
#:ensure-keyword
#:*loaded-database-types*
#:reload-database-types
#:*connect-if-exists*
#:*loaded-database-types*
#:reload-database-types
#:*connect-if-exists*
+(defun getenv (var)
+ "Return the value of the environment variable."
+ #+allegro (sys::getenv (string var))
+ #+clisp (ext:getenv (string var))
+ #+(or cmu scl)
+ (cdr (assoc (string var) ext:*environment-list* :test #'equalp
+ :key #'string))
+ #+lispworks (lw:environment-variable (string var))
+ #+mcl (ccl::getenv var)
+ #+sbcl (sb-ext:posix-getenv var))
+
(eval-when (:compile-toplevel :load-toplevel :execute)
(when (char= #\a (schar (symbol-name '#:a) 0))
(pushnew :clsql-lowercase-reader *features*)))
(eval-when (:compile-toplevel :load-toplevel :execute)
(when (char= #\a (schar (symbol-name '#:a) 0))
(pushnew :clsql-lowercase-reader *features*)))
;; Default CommonSQL behavior is to upcase strings
(string-upcase str)))
;; Default CommonSQL behavior is to upcase strings
(string-upcase str)))
(defun ensure-keyword (name)
"Returns keyword for a name"
(etypecase name
(defun ensure-keyword (name)
"Returns keyword for a name"
(etypecase name
(eval-when (:compile-toplevel :load-toplevel :execute)
(setq cl:*features* (delete :clsql-lowercase-reader cl:*features*)))
(eval-when (:compile-toplevel :load-toplevel :execute)
(setq cl:*features* (delete :clsql-lowercase-reader cl:*features*)))
"Yuri"))
(deftest :fdml/select/25
"Yuri"))
(deftest :fdml/select/25
- (clsql:select [first-name] :from "employee" :flatp t :distinct t
- :field-names nil
- :result-types nil
- :order-by [first-name])
+ (clsql:select [first-name] :from (clsql-sys:convert-to-db-default-case "employee" *default-database*)
+ :flatp t :distinct t
+ :field-names nil
+ :result-types nil
+ :order-by [first-name])
("Boris" "Josef" "Konstantin" "Leon" "Leonid" "Mikhail" "Nikita" "Vladamir"
"Yuri"))
("Boris" "Josef" "Konstantin" "Leon" "Leonid" "Mikhail" "Nikita" "Vladamir"
"Yuri"))