diff src/monoize.sml @ 1195:aff5e661b5f8

Make SELECT FROM clauses optional
author Adam Chlipala <adamc@hcoop.net>
date Sun, 28 Mar 2010 10:10:35 -0400
parents 9c82548c97e9
children 134da5110bf7
line wrap: on
line diff
--- a/src/monoize.sml	Thu Mar 25 16:41:51 2010 -0400
+++ b/src/monoize.sml	Sun Mar 28 10:10:35 2010 -0400
@@ -1891,8 +1891,14 @@
 										   ^ ".uw_"
 										   ^ x'))
                                                                            xts)) stables),
-                                           sc " FROM ",
-                                           gf "From",
+                                           (L'.ECase (gf "From",
+                                                      [((L'.PPrim (Prim.String ""), loc),
+                                                        sc ""),
+                                                       ((L'.PVar ("x", s), loc),
+                                                        strcat [sc " FROM ",
+                                                                (L'.ERel 0, loc)])],
+                                                      {disc = s,
+                                                       result = s}), loc),
                                            (L'.ECase (gf "Where",
                                                       [((L'.PPrim (Prim.String "TRUE"), loc),
                                                         sc ""),
@@ -2048,6 +2054,8 @@
           | L.ECApp ((L.EFfi ("Basis", "fieldsOf_view"), _), _) =>
             ((L'.ERecord [], loc), fm)
 
+          | L.ECApp ((L.EFfi ("Basis", "sql_from_nil"), _), _) =>
+            ((L'.EPrim (Prim.String ""), loc), fm)
           | L.ECApp ((L.EApp ((L.ECApp ((L.ECApp ((L.ECApp ((L.EFfi ("Basis", "sql_from_table"), _), _),
                                                    _), _), _), _), _), _), _),
                      (L.CName name, _)) =>
@@ -2078,9 +2086,18 @@
             in
                 ((L'.EAbs ("tab1", s, (L'.TFun (s, s), loc),
                            (L'.EAbs ("tab2", s, s,
-                                     strcat [(L'.ERel 1, loc),
-                                             (L'.EPrim (Prim.String ", "), loc),
-                                             (L'.ERel 0, loc)]), loc)), loc),
+                                     (L'.ECase ((L'.ERecord [("1", (L'.ERel 1, loc), s),
+                                                             ("2", (L'.ERel 0, loc), s)], loc),
+                                                [((L'.PRecord [("1", (L'.PPrim (Prim.String ""), loc), s)], loc),
+                                                  (L'.ERel 0, loc)),
+                                                 ((L'.PRecord [("2", (L'.PPrim (Prim.String ""), loc), s)], loc),
+                                                  (L'.ERel 1, loc)),
+                                                 ((L'.PWild, loc),
+                                                  strcat [(L'.ERel 1, loc),
+                                                          (L'.EPrim (Prim.String ", "), loc),
+                                                          (L'.ERel 0, loc)])],
+                                                {disc = (L'.TRecord [("1", s), ("2", s)], loc),
+                                                 result = s}), loc)), loc)), loc),
                  fm)
             end
           | L.ECApp ((L.ECApp ((L.ECApp ((L.EFfi ("Basis", "sql_inner_join"), _), _), _), _), _), _) =>
@@ -2090,13 +2107,22 @@
                 ((L'.EAbs ("tab1", s, (L'.TFun (s, (L'.TFun (s, s), loc)), loc),
                            (L'.EAbs ("tab2", s, (L'.TFun (s, s), loc),
                                      (L'.EAbs ("on", s, s,
-                                               strcat [(L'.EPrim (Prim.String "("), loc),
-                                                       (L'.ERel 2, loc),
-                                                       (L'.EPrim (Prim.String " JOIN "), loc),
-                                                       (L'.ERel 1, loc),
-                                                       (L'.EPrim (Prim.String " ON "), loc),
-                                                       (L'.ERel 0, loc),
-                                                       (L'.EPrim (Prim.String ")"), loc)]), loc)), loc)), loc),
+                                               (L'.ECase ((L'.ERecord [("1", (L'.ERel 2, loc), s),
+                                                                       ("2", (L'.ERel 1, loc), s)], loc),
+                                                          [((L'.PRecord [("1", (L'.PPrim (Prim.String ""), loc), s)], loc),
+                                                            (L'.ERel 1, loc)),
+                                                           ((L'.PRecord [("2", (L'.PPrim (Prim.String ""), loc), s)], loc),
+                                                            (L'.ERel 2, loc)),
+                                                           ((L'.PWild, loc),
+                                                            strcat [(L'.EPrim (Prim.String "("), loc),
+                                                                    (L'.ERel 2, loc),
+                                                                    (L'.EPrim (Prim.String " JOIN "), loc),
+                                                                    (L'.ERel 1, loc),
+                                                                    (L'.EPrim (Prim.String " ON "), loc),
+                                                                    (L'.ERel 0, loc),
+                                                                    (L'.EPrim (Prim.String ")"), loc)])],
+                                                          {disc = (L'.TRecord [("1", s), ("2", s)], loc),
+                                                           result = s}), loc)), loc)), loc)), loc),
                  fm)
             end
           | L.ECApp ((L.ECApp ((L.ECApp ((L.EFfi ("Basis", "sql_left_join"), _), _), _), _), _),
@@ -2109,14 +2135,24 @@
                            (L'.EAbs ("tab1", s, (L'.TFun (s, (L'.TFun (s, s), loc)), loc),
                                      (L'.EAbs ("tab2", s, (L'.TFun (s, s), loc),
                                                (L'.EAbs ("on", s, s,
-                                                         strcat [(L'.EPrim (Prim.String "("), loc),
-                                                                 (L'.ERel 2, loc),
-                                                                 (L'.EPrim (Prim.String " LEFT JOIN "), loc),
-                                                                 (L'.ERel 1, loc),
-                                                                 (L'.EPrim (Prim.String " ON "), loc),
-                                                                 (L'.ERel 0, loc),
-                                                                 (L'.EPrim (Prim.String ")"), loc)]),
-                                                loc)), loc)), loc)), loc),
+                                                         (L'.ECase ((L'.ERecord [("1", (L'.ERel 2, loc), s),
+                                                                                 ("2", (L'.ERel 1, loc), s)], loc),
+                                                                    [((L'.PRecord [("1", (L'.PPrim (Prim.String ""),
+                                                                                          loc), s)], loc),
+                                                                      (L'.ERel 1, loc)),
+                                                                     ((L'.PRecord [("2", (L'.PPrim (Prim.String ""),
+                                                                                          loc), s)], loc),
+                                                                      (L'.ERel 2, loc)),
+                                                                     ((L'.PWild, loc),
+                                                                      strcat [(L'.EPrim (Prim.String "("), loc),
+                                                                              (L'.ERel 2, loc),
+                                                                              (L'.EPrim (Prim.String " LEFT JOIN "), loc),
+                                                                              (L'.ERel 1, loc),
+                                                                              (L'.EPrim (Prim.String " ON "), loc),
+                                                                              (L'.ERel 0, loc),
+                                                                              (L'.EPrim (Prim.String ")"), loc)])],
+                                                                    {disc = (L'.TRecord [("1", s), ("2", s)], loc),
+                                                                     result = s}), loc)), loc)), loc)), loc)), loc),
                  fm)
             end
           | L.ECApp ((L.ECApp ((L.ECApp ((L.EFfi ("Basis", "sql_right_join"), _), (L.CRecord (_, left), _)),
@@ -2129,14 +2165,24 @@
                            (L'.EAbs ("tab1", s, (L'.TFun (s, (L'.TFun (s, s), loc)), loc),
                                      (L'.EAbs ("tab2", s, (L'.TFun (s, s), loc),
                                                (L'.EAbs ("on", s, s,
-                                                         strcat [(L'.EPrim (Prim.String "("), loc),
-                                                                 (L'.ERel 2, loc),
-                                                                 (L'.EPrim (Prim.String " RIGHT JOIN "), loc),
-                                                                 (L'.ERel 1, loc),
-                                                                 (L'.EPrim (Prim.String " ON "), loc),
-                                                                 (L'.ERel 0, loc),
-                                                                 (L'.EPrim (Prim.String ")"), loc)]),
-                                                loc)), loc)), loc)), loc),
+                                                         (L'.ECase ((L'.ERecord [("1", (L'.ERel 2, loc), s),
+                                                                                 ("2", (L'.ERel 1, loc), s)], loc),
+                                                                    [((L'.PRecord [("1", (L'.PPrim (Prim.String ""),
+                                                                                          loc), s)], loc),
+                                                                      (L'.ERel 1, loc)),
+                                                                     ((L'.PRecord [("2", (L'.PPrim (Prim.String ""),
+                                                                                          loc), s)], loc),
+                                                                      (L'.ERel 2, loc)),
+                                                                     ((L'.PWild, loc),
+                                                                      strcat [(L'.EPrim (Prim.String "("), loc),
+                                                                              (L'.ERel 2, loc),
+                                                                              (L'.EPrim (Prim.String " RIGHT JOIN "), loc),
+                                                                              (L'.ERel 1, loc),
+                                                                              (L'.EPrim (Prim.String " ON "), loc),
+                                                                              (L'.ERel 0, loc),
+                                                                              (L'.EPrim (Prim.String ")"), loc)])],
+                                                                    {disc = (L'.TRecord [("1", s), ("2", s)], loc),
+                                                                     result = s}), loc)), loc)), loc)), loc)), loc),
                  fm)
             end
           | L.ECApp ((L.ECApp ((L.ECApp ((L.EFfi ("Basis", "sql_full_join"), _), (L.CRecord (_, left), _)), _),
@@ -2149,14 +2195,24 @@
                            (L'.EAbs ("tab1", s, (L'.TFun (s, (L'.TFun (s, s), loc)), loc),
                                      (L'.EAbs ("tab2", s, (L'.TFun (s, s), loc),
                                                (L'.EAbs ("on", s, s,
-                                                         strcat [(L'.EPrim (Prim.String "("), loc),
-                                                                 (L'.ERel 2, loc),
-                                                                 (L'.EPrim (Prim.String " FULL JOIN "), loc),
-                                                                 (L'.ERel 1, loc),
-                                                                 (L'.EPrim (Prim.String " ON "), loc),
-                                                                 (L'.ERel 0, loc),
-                                                                 (L'.EPrim (Prim.String ")"), loc)]),
-                                                loc)), loc)), loc)), loc),
+                                                         (L'.ECase ((L'.ERecord [("1", (L'.ERel 2, loc), s),
+                                                                                 ("2", (L'.ERel 1, loc), s)], loc),
+                                                                    [((L'.PRecord [("1", (L'.PPrim (Prim.String ""),
+                                                                                          loc), s)], loc),
+                                                                      (L'.ERel 1, loc)),
+                                                                     ((L'.PRecord [("2", (L'.PPrim (Prim.String ""),
+                                                                                          loc), s)], loc),
+                                                                      (L'.ERel 2, loc)),
+                                                                     ((L'.PWild, loc),
+                                                                      strcat [(L'.EPrim (Prim.String "("), loc),
+                                                                              (L'.ERel 2, loc),
+                                                                              (L'.EPrim (Prim.String " FULL JOIN "), loc),
+                                                                              (L'.ERel 1, loc),
+                                                                              (L'.EPrim (Prim.String " ON "), loc),
+                                                                              (L'.ERel 0, loc),
+                                                                              (L'.EPrim (Prim.String ")"), loc)])],
+                                                                    {disc = (L'.TRecord [("1", s), ("2", s)], loc),
+                                                                     result = s}), loc)), loc)), loc)), loc)), loc),
                  fm)
             end