Add boolean bitwise operators ?|, ?&, and ?^.

rakudo · Feb 4, 2010 · 17dd439 · 17dd439
1 parent 1516520
commit 17dd439
Show file tree

Hide file tree

Showing 2 changed files with 15 additions and 0 deletions.
diff --git a/src/Perl6/Grammar.pm b/src/Perl6/Grammar.pm
@@ -999,6 +999,7 @@ token infix:sym<div>  { <sym>  <O('%multiplicative')> }
 token infix:sym<%>    { <sym>  <O('%multiplicative')> }
 token infix:sym<+&>   { <sym>  <O('%multiplicative')> }
 token infix:sym<~&>   { <sym>  <O('%multiplicative')> }
+token infix:sym<?&>   { <sym>  <O('%multiplicative')> }
 
 token infix:sym<+>    { <sym>  <O('%additive')> }
 token infix:sym<->    { <sym> <![>]> <O('%additive')> }
@@ -1008,6 +1009,8 @@ token infix:sym<~|>   { <sym>  <O('%additive')> }
 token infix:sym<~^>   { <sym>  <O('%additive')> }
 token infix:sym«+<»   { <sym>  <O('%additive')> }
 token infix:sym«+>»   { <sym>  <O('%additive')> }
+token infix:sym<?|>   { <sym>  <O('%additive')> }
+token infix:sym<?^>   { <sym>  <O('%additive')> }
 
 token infix:sym<x>    { <sym>  <O('%replication')> }
 token infix:sym<xx>    { <sym>  <O('%replication')> }

diff --git a/src/core/operators.pm b/src/core/operators.pm
@@ -98,3 +98,15 @@ our multi infix:<before>($a, $b) {
 our multi infix:<after>($a, $b) {
     ($a cmp $b) == +1;
 }
+
+our multi infix:<?|>($a, $b) {
+    ?pir::bor__III($a, $b)
+}
+
+our multi infix:<?&>($a, $b) {
+    ?pir::band__III($a, $b)
+}
+
+our multi infix:<?^>($a, $b) {
+    ?pir::bxor__III($a, $b)
+}