luciano/honeysql
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Adds :enable-values-subqueries? option to honeysql.format/format

Browse source 
When :enable-values-subqueries? is set to false, treat maps provided
in a :values clause as a parameter instead of as a subquery.
This commit is contained in:
Brandon Adams 2015-03-26 18:46:14 -05:00
parent a48ea1c4d2
commit 8a12215e3d
1 changed files with 28 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

40
src/honeysql/format.clj
View file

@ -38,6 +38,11 @@
(def ^:dynamic *subquery?* false)
(def ^:dynamic *handling-values* false)
(def ^:dynamic *enable-values-subqueries?*
"When False, subqueries are not computed for IPersistentMap values"
true)
(def ^:private quote-fns
{:ansi #(str \" % \")
:mysql #(str \` % \`)
@ -226,7 +231,11 @@
*param-names* (atom [])
*input-params* (atom params)
*quote-identifier-fn* (quote-fns (:quoting opts))
*parameterizer* (parameterizers (or (:parameterizer opts) :jdbc))]
*parameterizer* (parameterizers (or (:parameterizer opts) :jdbc))
*enable-values-subqueries?* (if-some
[?enable-values-subqueries (:enable-values-subqueries? opts)]
?enable-values-subqueries
*enable-values-subqueries?*)]
(let [sql-str (to-sql sql-map)]
(if (seq @*params*)
(if (:return-param-names opts)
@ -292,15 +301,21 @@
(-to-sql [x] (.s x))
clojure.lang.IPersistentMap
(-to-sql [x]
(let [clause-ops (sort-clauses (keys x))
sql-str (binding [*subquery?* true
*fn-context?* false]
(space-join
(map (comp #(-format-clause % x) #(find x %))
clause-ops)))]
(if *subquery?*
(paren-wrap sql-str)
sql-str)))
(if (and *handling-values*
(not *enable-values-subqueries?*))
(let [pname (keyword (str "_" (swap! *param-counter* inc)))]
(swap! *param-names* conj pname)
(swap! *params* conj x)
(*parameterizer*))
(let [clause-ops (sort-clauses (keys x))
sql-str (binding [*subquery?* true
*fn-context?* false]
(space-join
(map (comp #(-format-clause % x) #(find x %))
clause-ops)))]
(if *subquery?*
(paren-wrap sql-str)
sql-str))))
nil
(-to-sql [x] "NULL")
Object
@ -425,8 +440,9 @@
(str "(" (comma-join (map to-sql x)) ")"))))
(str
"(" (comma-join (map to-sql (keys (first values)))) ") VALUES "
(comma-join (for [x values]
(str "(" (comma-join (map to-sql (vals x))) ")"))))))
(binding [*handling-values* true]
(comma-join (for [x values]
(str "(" (comma-join (map to-sql (vals x))) ")")))))))
(defmethod format-clause :query-values [[_ query-values] _]
(to-sql query-values))