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

better null handling; normalize "not equal" variations as "<>"

Browse source
This commit is contained in:
Justin Kramer 2012-08-16 15:41:58 -04:00
parent e7265b60bb
commit 6438c04486
1 changed files with 16 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

19
src/honeysql/format.clj
View file

@ -28,16 +28,29 @@
(def infix-fns (def infix-fns
#{"+" "-" "*" "/" "%" "mod" "|" "&" "^" #{"+" "-" "*" "/" "%" "mod" "|" "&" "^"
"is" "=" ">" ">=" "<" "<=" "<>" "!=" ">" ">=" "<" "<="
"and" "or" "xor" "and" "or" "xor"
"in" "not in" "like" "regexp"}) "in" "not in" "like" "regexp"})
(def fn-aliases (def fn-aliases
{"not=" "!=" {"is" "="
"is-not" "<>"
"not=" "<>"
"!=" "<>"
"not-in" "not in"}) "not-in" "not in"})
(def fn-handlers (def fn-handlers
{"between" (fn [field upper lower] {"=" (fn [f1 f2]
(cond
(= "NULL" f1) (str f2 " IS NULL")
(= "NULL" f2) (str f1 " IS NULL")
:else (str f1 " = " f2)))
"<>" (fn [f1 f2]
(cond
(= "NULL" f1) (str f2 " IS NOT NULL")
(= "NULL" f2) (str f1 " IS NOT NULL")
:else (str f1 " <> " f2)))
"between" (fn [field upper lower]
(str field " BETWEEN " upper " AND " lower))}) (str field " BETWEEN " upper " AND " lower))})
(def clause-order (def clause-order