projects
/
clsql.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
6c813a0
)
added LEFT and RIGHT sql functions
author
Russ Tyndall
<russ@acceleration.net>
Thu, 27 Aug 2009 17:13:24 +0000
(13:13 -0400)
committer
Russ Tyndall
<russ@acceleration.net>
Thu, 27 Aug 2009 17:13:24 +0000
(13:13 -0400)
sql/operations.lisp
patch
|
blob
|
history
diff --git
a/sql/operations.lisp
b/sql/operations.lisp
index 3357761e53a257312bf9ce93793dcdcededb3127..3270a83b3bcfdb1ef1a9d87905fe91a44a76b8d9 100644
(file)
--- a/
sql/operations.lisp
+++ b/
sql/operations.lisp
@@
-249,6
+249,16
@@
(make-instance 'sql-function-exp
:name 'coalesce :args rest))
(make-instance 'sql-function-exp
:name 'coalesce :args rest))
+(defsql sql-left (:symbol "left") (&rest rest)
+ "mssqlserver uses this to get the left n chars of a string"
+ (make-instance 'sql-function-exp
+ :name 'left :args rest))
+
+(defsql sql-right (:symbol "right") (&rest rest)
+ "mssqlserver uses this to get the right n chars of a string"
+ (make-instance 'sql-function-exp
+ :name 'right :args rest))
+
(defsql sql-nvl (:symbol "nvl") (&rest rest)
(if (= (length rest) 2)
(make-instance 'sql-function-exp
(defsql sql-nvl (:symbol "nvl") (&rest rest)
(if (= (length rest) 2)
(make-instance 'sql-function-exp