Add infix:<+&>(Any, Any) (and related bitwise ops).

rakudo · Aug 3, 2011 · 9a99a12 · 9a99a12
1 parent 0cd9e76
commit 9a99a12
Showing 1 changed file with 26 additions and 21 deletions.
diff --git a/src/core/Numeric.pm b/src/core/Numeric.pm
@@ -150,25 +150,30 @@ multi infix:«>=»(\$a, \$b)   { $a.Numeric >= $b.Numeric }
 
 ## bitwise operators
 
-proto infix:<+&>(|$) { * }
-multi infix:<+&>()   { +^0 }
-multi infix:<+&>($x) { $x }
-
-proto infix:<+|>(|$) { * }
-multi infix:<+|>()   { 0 }
-multi infix:<+|>($x) { $x }
-
-proto infix:<+^>(|$) { * }
-multi infix:<+^>()   { 0 }
-multi infix:<+^>($x) { $x }
-
-proto infix:«+<»(|$) { * }
-multi infix:«+<»()   { fail "No zero-arg meaning for infix:«+<»"; }
-multi infix:«+<»($x) { $x }
-
-proto infix:«+>»(|$) { * }
-multi infix:«+>»()   { fail "No zero-arg meaning for infix:«+>»"; }
-multi infix:«+>»($x) { $x }
-
-proto prefix:<+^>(|$) { * }
+proto infix:<+&>(|$)         { * }
+multi infix:<+&>()           { +^0 }
+multi infix:<+&>($x)         { $x }
+multi infix:<+&>($x, $y)     { $x.Numeric +& $y.Numeric }
+
+proto infix:<+|>(|$)         { * }
+multi infix:<+|>()           { 0 }
+multi infix:<+|>($x)         { $x }
+multi infix:<+|>($x, $y)     { $x.Numeric +| $y.Numeric }
+
+proto infix:<+^>(|$)         { * }
+multi infix:<+^>()           { 0 }
+multi infix:<+^>($x)         { $x }
+multi infix:<+^>($x, $y)     { $x.Numeric +^ $y.Numeric }
+
+proto infix:«+<»(|$)         { * }
+multi infix:«+<»()           { fail "No zero-arg meaning for infix:«+<»"; }
+multi infix:«+<»($x)         { $x }
+multi infix:«+<»($x,$y)      { $x.Numeric +< $y.Numeric }
+
+proto infix:«+>»(|$)         { * }
+multi infix:«+>»()           { fail "No zero-arg meaning for infix:«+>»"; }
+multi infix:«+>»($x)         { $x }
+multi infix:«+>»($x,$y)      { $x.Numeric +> $y.Numeric }
+
+proto prefix:<+^>(|$)         { * }