add ...^ operator

rakudo · Sep 6, 2010 · b736c88 · b736c88
1 parent 77a72a3
commit b736c88
Show file tree

Hide file tree

Showing 2 changed files with 14 additions and 0 deletions.
diff --git a/src/Perl6/Grammar.pm b/src/Perl6/Grammar.pm
@@ -1910,6 +1910,7 @@ token infix:sym<Z>    { <!before <sym> <infixish> > <sym>  <O('%list_infix')> }
 token infix:sym<X>    { <!before <sym> <infixish> > <sym>  <O('%list_infix')> }
 
 token infix:sym<...>  { <sym>  <O('%list_infix')> }
+token infix:sym<...^> { <sym>  <O('%list_infix')> }
 # token term:sym<...>   { <sym> <args>? <O(|%list_prefix)> }
 
 token infix:sym<=> {

diff --git a/src/core/operators.pm b/src/core/operators.pm
@@ -450,6 +450,19 @@ our multi sub infix:<...>(@lhs, @rhs is copy) {
     (@lhs ... @rhs.shift), @rhs
 }
 
+our multi sub infix:<...^>($lhs, $rhs) {
+	my @all := ($lhs ... $rhs);
+	return Nil unless defined @all[0];
+	gather {
+		loop {
+			last unless defined @all[0];
+			my $current = @all.shift() ;
+			last if $current eqv $rhs ;
+			take $current;
+		}
+	}
+}
+
 our multi sub infix:<eqv>(Mu $a, Mu $b) {
     $a.WHAT === $b.WHAT && $a === $b;
 }