From: Matt S Trout <mst@shadowcat.co.uk>
Date: Fri, 25 Jul 2008 00:07:45 +0000 (+0000)
Subject: tweak syntax sketch
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=af31cae2ada7c4f429dcf8816904111837f43fcf;p=dbsrgits%2FSQL-Abstract.git

tweak syntax sketch
---

diff --git a/e.pl b/e.pl
index 4eb3f95..be16d97 100644
--- a/e.pl
+++ b/e.pl
@@ -67,6 +67,7 @@ sub _aliasify {
 sub expr (&) { _run_e(@_) }
 sub _do {
   my ($name, $code, @in) = @_;
+  warn "eek: ${\dump @in}" if @in > 1;
   [ $name, _run_e($code), @in ];
 }
 sub _dolist {
@@ -80,7 +81,7 @@ sub _dolist {
 }
 sub ORDER_BY (&;@) { _do(-order_by, @_) }
 sub SELECT (&;@) { _dolist('-select', @_); }
-sub JOIN (&;@) { _do('-join', _aliasify @_) }
+sub JOIN (&;@) { _do('-join', shift, [ -list => _aliasify @{+shift} ], @_) }
 sub WHERE (&;@) { _do(-where, @_) }
 sub GROUP_BY (&;@) { _dolist(-group_by, @_); }
 sub sum { E->new([ -sum, _une(shift) ]); }
@@ -90,15 +91,17 @@ warn dump(
   ORDER_BY { $_->aggregates->total }
     SELECT { $_->users->name, $_->aggregates->total }
       JOIN { $_->users->id == $_->aggregates->recipient_id }
-        [ users => expr { $_->users } ],
-        [ aggregates =>
-            expr {
-                SELECT { $_->recipient_id, [ total => sum($_->commission) ] }
-                 WHERE { sum($_->commission) > 500 }
-              GROUP_BY { $_->recipient_id }
-                 WHERE { $_->entry_date > '2007-01-01' }
-                  expr { $_->commissions }
+        [
+          [ users => expr { $_->users } ],
+          [ aggregates =>
+              expr {
+                  SELECT { $_->recipient_id, [ total => sum($_->commission) ] }
+                   WHERE { sum($_->commission) > 500 }
+                GROUP_BY { $_->recipient_id }
+                   WHERE { $_->entry_date > '2007-01-01' }
+                    expr { $_->commissions }
             }
+          ]
         ]
 );
 
@@ -106,15 +109,17 @@ warn dump(
   ORDER_BY { $_->aggregates->total }
     SELECT { $_->users->name, $_->aggregates->total }
       JOIN { $_->users->id == $_->aggregates->recipient_id }
-        [ users => expr { $_->users  } ],
-        [ aggregates =>
-            expr {
-                SELECT { $_->recipient_id, [ total => sum($_->commission) ] }
-                 WHERE { sum($_->commission) > 500 }
-              GROUP_BY { $_->recipient_id }
-                 WHERE { $_->entry_date > '2007-01-01' }
-                  expr { $_->commissions }
-            }
+        [
+          [ users => expr { $_->users  } ],
+          [ aggregates =>
+              expr {
+                  SELECT { $_->recipient_id, [ total => sum($_->commission) ] }
+                   WHERE { sum($_->commission) > 500 }
+                GROUP_BY { $_->recipient_id }
+                   WHERE { $_->entry_date > '2007-01-01' }
+                    expr { $_->commissions }
+              }
+          ]
         ]
 );
 
@@ -123,13 +128,15 @@ warn dump(
     SELECT { $_->users->name, $_->aggregates->total }
      WHERE { $_->aggregates->total > 500 }
       JOIN { $_->users->id == $_->aggregates->recipient_id }
-        [ users => expr { $_->users  } ],
-        [ aggregates =>
-            expr {
-                SELECT { $_->recipient_id, [ total => sum($_->commission) ] }
-              GROUP_BY { $_->recipient_id }
-                 WHERE { $_->entry_date > '2007-01-01' }
-                  expr { $_->commissions }
-            }
+        [
+          [ users => expr { $_->users  } ],
+          [ aggregates =>
+              expr {
+                  SELECT { $_->recipient_id, [ total => sum($_->commission) ] }
+                GROUP_BY { $_->recipient_id }
+                   WHERE { $_->entry_date > '2007-01-01' }
+                    expr { $_->commissions }
+              }
+          ]
         ]
 );