infix:<cmp>, leg, <=>

rakudo · Dec 3, 2009 · f6b45df · f6b45df
1 parent 69ce77b
commit f6b45df
Show file tree

Hide file tree

Showing 4 changed files with 39 additions and 29 deletions.
diff --git a/src/Perl6/Grammar.pm b/src/Perl6/Grammar.pm
@@ -1035,6 +1035,9 @@ token infix:sym<^..>  { <sym> <O('%structural')> }
 token infix:sym<..^>  { <sym> <O('%structural')> }
 token infix:sym<^..^> { <sym> <O('%structural')> }
 
+token infix:sym<leg>  { <sym> <O('%structural')> }
+token infix:sym<cmp>  { <sym> <O('%structural')> }
+
 token infix:sym<but>  { <sym> <O('%structural')> }
 token infix:sym<does> { <sym> <O('%structural')> }
 

diff --git a/src/cheats/relops.pir b/src/cheats/relops.pir
@@ -65,25 +65,6 @@ src/cheats/cmp.pir - Perl6 comparison builtins
     # .tailcall '&prefix:?'($I0)
 .end
 
-
-
-.sub '&infix:<<=>>' :multi(_,_)
-    .param pmc a
-    .param pmc b
-    $I0 = cmp_num a, b
-    if $I0 < 0 goto increase
-    if $I0 > 0 goto decrease
-    $P0 = get_hll_global ['Order'], 'Same'
-    .return ($P0)
-  increase:
-    $P0 = get_hll_global ['Order'], 'Increase'
-    .return ($P0)
-  decrease:
-    $P0 = get_hll_global ['Order'], 'Decrease'
-    .return ($P0)
-.end
-
-
 .sub '&infix:<eq>' :multi(_,_)
     .param string a
     .param string b
@@ -138,16 +119,6 @@ src/cheats/cmp.pir - Perl6 comparison builtins
 .end
 
 
-.sub '&infix:<cmp>' :multi(_,_)
-    .param pmc a
-    .param pmc b
-    $I0 = cmp a, b
-    ##  Don't use a tailcall here due to RT#56448
-    $P0 = '&infix:<<=>>'($I0, 0)
-    .return ($P0)
-.end
-
-
 .sub '&infix:<===>' :multi(_,_)
     .param pmc a
     .param pmc b

diff --git a/src/core/Any-num.pm b/src/core/Any-num.pm
@@ -395,4 +395,19 @@ our multi sub roots($x, $n) {
     $x.Complex.roots($n)
 }
 
+
+our multi sub infix:<cmp>(Num $a, Num $b) {
+    # TODO: should be Order::Same, ::Increase, ::Decrease once they work
+    if $a == $b {
+        0;
+    } else {
+        $a < $b ?? -1 !! 1;
+    }
+}
+
+our multi sub infix:«<=>»(Num $a, Num $b) {
+    +$a cmp $b
+}
+
+
 # vim: ft=perl6
diff --git a/src/core/Any-str.pm b/src/core/Any-str.pm
@@ -183,4 +183,25 @@ multi sub infix:<x>($str, $n) {
     $n > 0 ?? ~(pir::repeat__SSI($str, $n)) !!  ''
 }
 
+our multi sub infix:<cmp>($a, $b) {
+    if $a eq $b {
+        0;
+    } else {
+        $a lt $b ?? -1 !! 1;
+    }
+}
+
+our multi sub infix:<leg>($a, $b) {
+    ~$a cmp ~$b
+}
+
+our multi sub infix:<cmp>(Num $a, Num $b) {
+    if $a == $b {
+        0;
+    } else {
+        $a < $b ?? -1 !! 1;
+    }
+}
+
+
 # vim: ft=perl6