Move prefix:<-> into the setting.

rakudo · Aug 28, 2009 · 81d6216 · 81d6216
1 parent 4276205
commit 81d6216
Show file tree

Hide file tree

Showing 6 changed files with 32 additions and 26 deletions.
diff --git a/build/gen_whatever_pir.pl b/build/gen_whatever_pir.pl
@@ -9,7 +9,7 @@
   infix:% infix:div infix:mod
   infix:== infix:!= infix:<  infix:>  infix:<= infix:>= infix:<=>
   infix:.. infix:^.. infix:..^ infix:^..^
-  prefix:+ prefix:- prefix:~ prefix:? prefix:! prefix:^
+  prefix:+ prefix:~ prefix:? prefix:! prefix:^
 );
 
 for (@ops) {

diff --git a/src/builtins/op.pir b/src/builtins/op.pir
@@ -122,20 +122,6 @@ src/builtins/op.pir - Perl 6 builtin operators
 .end
 
 
-.sub 'prefix:-' :multi(_)
-    .param num a
-    $N0 = neg a
-    .return ($N0)
-.end
-
-
-.sub 'prefix:-' :multi('Integer')
-    .param num a
-    $N0 = neg a
-    .tailcall '!upgrade_to_num_if_needed'($N0)
-.end
-
-
 .sub 'prefix:~' :multi(_)
     .param string a
     $P0 = new ['Str']

diff --git a/src/classes/Complex.pir b/src/classes/Complex.pir
@@ -173,17 +173,6 @@ Casts a value to a complex number.
     .return (a)
 .end
 
-=item prefix:-
-
-=cut
-
-.sub 'prefix:-' :multi('Complex')
-    .param pmc a
-    a = neg a
-    .return (a)
-.end
-
-
 =item re
 
 =cut

diff --git a/src/setting/Complex.pm b/src/setting/Complex.pm
@@ -87,4 +87,12 @@ multi sub infix:</>($a, Complex $b) {
 }
 
 
+multi sub prefix:<->(Complex $a) {
+    Q:PIR {
+        $P0 = find_lex '$a'
+        %r = neg $P0
+    }
+}
+
+
 # vim: ft=perl6
diff --git a/src/setting/Operators.pm b/src/setting/Operators.pm
@@ -204,4 +204,22 @@ multi sub infix:<**>(Int $a, Int $b) {
     }
 }
 
+multi sub prefix:<->($a) {
+    Q:PIR {
+        $P0 = find_lex '$a'
+        $N0 = $P0
+        $N0 = neg $N0
+        %r = box $N0
+    }
+}
+
+multi sub prefix:<->(Int $a) {
+    Q:PIR {
+        $P0 = find_lex '$a'
+        $N0 = $P0
+        $N0 = neg $N0
+        %r = '!upgrade_to_num_if_needed'($N0)
+    }
+}
+
 # vim: ft=perl6
diff --git a/src/setting/Whatever.pm b/src/setting/Whatever.pm
@@ -62,4 +62,9 @@ multi sub infix:<**>($a, Whatever $b)
 multi sub infix:<**>($a, Whatever $b)
     { WhateverCodeX('infix:**', $a, $b) }
 
+multi sub prefix:<->(Whatever $a)
+    { WhateverCodeX('prefix:-', $a) }
+multi sub prefix:<->(WhateverCode $a)
+    { WhateverCodeX('prefix:-', $a) }
+
 # vim: ft=perl6