(write-char #\) *sql-stream*)))
t)
+(defclass sql-array-exp (sql-relational-exp)
+ ()
+ (:documentation "An SQL relational expression."))
+
+(defmethod output-sql ((expr sql-array-exp) database)
+ (with-slots (operator sub-expressions)
+ expr
+ (let ((subs (if (consp (car sub-expressions))
+ (car sub-expressions)
+ sub-expressions)))
+ (write-char #\( *sql-stream*)
+ (output-sql operator database)
+ (write-char #\[ *sql-stream*)
+ (do ((sub subs (cdr sub)))
+ ((null (cdr sub)) (output-sql (car sub) database))
+ (output-sql (car sub) database)
+ (write-char #\, *sql-stream*)
+ (write-char #\Space *sql-stream*))
+ (write-char #\] *sql-stream*)
+ (write-char #\) *sql-stream*)))
+ t)
+
(defclass sql-upcase-like (sql-relational-exp)
()
(:documentation "An SQL 'like' that upcases its arguments."))
(make-instance 'sql-relational-exp
:operator '~* :sub-expressions rest))
+(defsql |sql-~* ANY| (:symbol "~* ANY") (&rest rest)
+ "This is the postgres regex match any in an array"
+ (make-instance 'sql-relational-exp
+ :operator '|~* ANY| :sub-expressions rest))
+
+(defsql sql-array (:symbol "array") (&rest rest)
+ "This is the postgres regex match any in an array"
+ (make-instance 'sql-array-exp
+ :operator 'array :sub-expressions rest))
+
(defsql sql-uplike (:symbol "uplike") (&rest rest)
(make-instance 'sql-upcase-like
:sub-expressions rest))