From f232e8ea7f16d46eb284946483a530708bf905b6 Mon Sep 17 00:00:00 2001
From: Moritz Lenz <moritz@faui2k3.org>
Date: Sun, 21 Jun 2009 21:17:33 +0200
Subject: [PATCH] implement (non-lazy) series operator

---
 build/Makefile.in          |    1 +
 src/parser/grammar-oper.pg |    4 ++++
 src/setting/Operators.pm   |   25 +++++++++++++++++++++++++
 3 files changed, 30 insertions(+), 0 deletions(-)
 create mode 100644 src/setting/Operators.pm

diff --git a/build/Makefile.in b/build/Makefile.in
index 2ec0b9a..9365d2f 100644
--- a/build/Makefile.in
+++ b/build/Makefile.in
@@ -122,6 +122,7 @@ SETTING = \
   src/setting/Match.pm \
   src/setting/Num.pm \
   src/setting/Object.pm \
+  src/setting/Operators.pm \
   src/setting/Pair.pm \
   src/setting/Range.pm \
   src/setting/Temporal.pm \
diff --git a/src/parser/grammar-oper.pg b/src/parser/grammar-oper.pg
index 4866f84..7343540 100644
--- a/src/parser/grammar-oper.pg
+++ b/src/parser/grammar-oper.pg
@@ -161,6 +161,10 @@ proto infix:«p5=>» is equiv(infix:<,>) is subname('infix:,') { ... }
 ## list infix
 proto infix:<X> is precedence('f=')
     is assoc('list')
+   { ... }
+# needs to come before the others because of missing LTM
+proto infix:<...> is equiv(infix:<X>)
+    is assoc('list')
     { ... }
 proto infix:<X,X> is equiv(infix:<X>)
     is assoc('list')
diff --git a/src/setting/Operators.pm b/src/setting/Operators.pm
new file mode 100644
index 0000000..d6b9e06
--- /dev/null
+++ b/src/setting/Operators.pm
@@ -0,0 +1,25 @@
+# operators defined in the setting
+
+multi sub infix:<...> (@lhs, Code $generator) {
+    my $c = $generator.count;
+    if $c > @lhs {
+        fail 'the closure wants more parameters than given on the LHS';
+    }
+    my @result = @lhs;
+    my @r;
+    # XXX work around http://rt.perl.org/rt3/Ticket/Display.html?id=66824
+    # this is a bit ugly.. since @a[1..1] returns a single item and not 
+    # an array, |@result[$one-item-range] throws the error
+    # "argument doesn't array"
+    while @r = $generator(|@(@result[*-$c..*-1])) {
+        @result.push: @r;
+    }
+    return @result;
+}
+
+my @a = 1, 2 ... { $_ > 3 ?? () !! $_+1};
+say @a.perl;
+
+
+
+# vim: ft=perl6
-- 
1.5.6.5