luciano/next-jdbc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Revised solution for null metadata

Browse source
This commit is contained in:
Sean Corfield 2020-08-20 12:10:41 -07:00
parent 9acc198591
commit 82a6242419
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
src/next/jdbc/result_set.clj
View file

@ -40,13 +40,13 @@
(if-let [q (not-empty (.getTableName rsmeta i))] (if-let [q (not-empty (.getTableName rsmeta i))]
(keyword q (.getColumnLabel rsmeta i)) (keyword q (.getColumnLabel rsmeta i))
(keyword (.getColumnLabel rsmeta i)))) (keyword (.getColumnLabel rsmeta i))))
(range 1 (inc (try (.getColumnCount rsmeta) (catch Throwable _ 0)))))) (range 1 (inc (if rsmeta (.getColumnCount rsmeta) 0)))))
(defn get-unqualified-column-names (defn get-unqualified-column-names
"Given `ResultSetMetaData`, return a vector of unqualified column names." "Given `ResultSetMetaData`, return a vector of unqualified column names."
[^ResultSetMetaData rsmeta _] [^ResultSetMetaData rsmeta _]
(mapv (fn [^Integer i] (keyword (.getColumnLabel rsmeta i))) (mapv (fn [^Integer i] (keyword (.getColumnLabel rsmeta i)))
(range 1 (inc (try (.getColumnCount rsmeta) (catch Throwable _ 0)))))) (range 1 (inc (if rsmeta (.getColumnCount rsmeta) 0)))))
(defn get-modified-column-names (defn get-modified-column-names
"Given `ResultSetMetaData`, return a vector of modified column names, each "Given `ResultSetMetaData`, return a vector of modified column names, each
@ -62,7 +62,7 @@
(if-let [q (some-> (.getTableName rsmeta i) (qf) (not-empty))] (if-let [q (some-> (.getTableName rsmeta i) (qf) (not-empty))]
(keyword q (-> (.getColumnLabel rsmeta i) (lf))) (keyword q (-> (.getColumnLabel rsmeta i) (lf)))
(keyword (-> (.getColumnLabel rsmeta i) (lf))))) (keyword (-> (.getColumnLabel rsmeta i) (lf)))))
(range 1 (inc (try (.getColumnCount rsmeta) (catch Throwable _ 0))))))) (range 1 (inc (if rsmeta (.getColumnCount rsmeta) 0))))))
(defn get-unqualified-modified-column-names (defn get-unqualified-modified-column-names
"Given `ResultSetMetaData`, return a vector of unqualified modified column "Given `ResultSetMetaData`, return a vector of unqualified modified column
@ -73,7 +73,7 @@
(let [lf (:label-fn opts)] (let [lf (:label-fn opts)]
(assert lf ":label-fn is required") (assert lf ":label-fn is required")
(mapv (fn [^Integer i] (keyword (lf (.getColumnLabel rsmeta i)))) (mapv (fn [^Integer i] (keyword (lf (.getColumnLabel rsmeta i))))
(range 1 (inc (try (.getColumnCount rsmeta) (catch Throwable _ 0))))))) (range 1 (inc (if rsmeta (.getColumnCount rsmeta) 0))))))
(defn- lower-case (defn- lower-case
"Converts a string to lower case in the US locale to avoid problems in "Converts a string to lower case in the US locale to avoid problems in