Add bitwise operators

perl6 · Jun 24, 2010 · a915b78 · a915b78
1 parent 4ee17c4
commit a915b78
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 1 deletion.
diff --git a/src/NQP/Grammar.pm b/src/NQP/Grammar.pm
@@ -506,9 +506,12 @@ token prefix:sym<|>   { <sym>  <O('%symbolic_unary')> }
 token infix:sym<*>    { <sym>  <O('%multiplicative, :pirop<mul>')> }
 token infix:sym</>    { <sym>  <O('%multiplicative, :pirop<div>')> }
 token infix:sym<%>    { <sym>  <O('%multiplicative, :pirop<mod>')> }
+token infix:sym<+&>   { <sym>  <O('%multiplicative, :pirop<band III>')> }
 
 token infix:sym<+>    { <sym>  <O('%additive, :pirop<add>')> }
 token infix:sym<->    { <sym>  <O('%additive, :pirop<sub>')> }
+token infix:sym<+|>   { <sym>  <O('%additive, :pirop<bor III>')> }
+token infix:sym<+^>   { <sym>  <O('%additive, :pirop<bxor III>')> }
 
 token infix:sym<~>    { <sym>  <O('%concatenation , :pirop<concat>')> }
 

diff --git a/t/nqp/13-op.t b/t/nqp/13-op.t
@@ -2,7 +2,7 @@
 
 # checking basic operands and circumfix:( )
 
-plan(29);
+plan(32);
 
 ##Additive operators
 ok(      1+2  == 3, 'Checking addition 1+2');
@@ -46,3 +46,8 @@ ok( !(2 >  3) );
 ok( ?(2 >= 1) );
 ok( !(2 >= 3) );
 
+#Bitwise operators
+ok( (1 +| 3) == 3, 'Checking 1 +| 3' );
+ok( (3 +& 2) == 2, 'Checking 3 +& 2' );
+ok( (3 +^ 3) == 0, 'Checking 3 +^ 3' );
+