From 03b7950e3639899de788cac8824a0e7f4be8a0bd Mon Sep 17 00:00:00 2001
From: Ziv Scully <ziv@mit.edu>
Date: Tue, 7 Jul 2015 00:07:24 -0700
Subject: Add limited support for parsing SQL arithmetic.

---
 src/sql.sml | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'src/sql.sml')

diff --git a/src/sql.sml b/src/sql.sml
index 959575e9..27894e3f 100644
--- a/src/sql.sml
+++ b/src/sql.sml
@@ -325,6 +325,11 @@ val funcName = altL [constK "COUNT",
                      constK "SUM",
                      constK "AVG"]
 
+fun arithmetic pExp = follow (const "(")
+                             (follow pExp
+                                     (follow (altL (map const [" + ", " - ", " * ", " / "]))
+                                             (follow pExp (const ")"))))
+
 val unmodeled = altL [const "COUNT(*)",
                       const "CURRENT_TIMESTAMP"]
 
@@ -340,6 +345,7 @@ fun sqexp chs =
            wrap uw_ident Computed,
            wrap known SqKnown,
            wrap func SqFunc,
+           wrap (arithmetic sqexp) (fn _ => Unmodeled),
            wrap unmodeled (fn () => Unmodeled),
            wrap (if !sqlcacheMode then sqlifySqlcache else sqlify) Inj,
            wrap (follow (const "COALESCE(") (follow sqexp (follow (const ",")
-- 
cgit v1.2.3