projects
/
clsql.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
9271880
)
added postgres regex match operator
author
Russ Tyndall
<russ@acceleration.net>
Thu, 23 Apr 2009 18:10:15 +0000
(14:10 -0400)
committer
Russ Tyndall
<russ@acceleration.net>
Thu, 23 Apr 2009 18:10:15 +0000
(14:10 -0400)
sql/operations.lisp
patch
|
blob
|
history
diff --git
a/sql/operations.lisp
b/sql/operations.lisp
index 3a4638537f3830d5c7a23eb03962e74a257e9c65..dbe3a0b36ed7cb71689c9e654371cdfa5e43518d 100644
(file)
--- a/
sql/operations.lisp
+++ b/
sql/operations.lisp
@@
-123,6
+123,11
@@
(make-instance 'sql-relational-exp
:operator 'like :sub-expressions rest))
+(defsql sql-~* (:symbol "~*") (&rest rest)
+ "This is the postgres regex match operator"
+ (make-instance 'sql-relational-exp
+ :operator '~* :sub-expressions rest))
+
(defsql sql-uplike (:symbol "uplike") (&rest rest)
(make-instance 'sql-upcase-like
:sub-expressions rest))