From: Russ Tyndall <russ@acceleration.net>
Date: Thu, 23 Apr 2009 18:10:15 +0000 (-0400)
Subject: added postgres regex match operator
X-Git-Url: http://git.kpe.io/?a=commitdiff_plain;h=bb4652424ec1bdf2314153fac7b588d4afd668fd;p=clsql.git

added postgres regex match operator
---

diff --git a/sql/operations.lisp b/sql/operations.lisp
index 3a46385..dbe3a0b 100644
--- 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))