Add Whatever forms of some prefix operators.

rakudo · Aug 9, 2009 · f489207 · f489207
1 parent 7dd4463
commit f489207
Showing 1 changed file with 44 additions and 24 deletions.
diff --git a/build/gen_whatever_pir.pl b/build/gen_whatever_pir.pl
@@ -9,40 +9,57 @@
   infix:** infix:* infix:/ infix:% infix:div infix:mod infix:+ infix:-
   infix:== infix:!= infix:<  infix:>  infix:<= infix:>= infix:<=>
   infix:.. infix:^.. infix:..^ infix:^..^
+  prefix:+ prefix:- prefix:~ prefix:? prefix:! prefix:^
 );
 
 for (@ops) {
-    print qq{
-        .namespace []
-        .sub '$_' :multi('Whatever', _)
-            .param pmc x
-            .param pmc y
-            .tailcall '!whatever_helper'('$_', x, y)
-        .end
-        .sub '$_' :multi(_, 'Whatever')
-            .param pmc x
-            .param pmc y
-            .tailcall '!whatever_helper'('$_', x, y)
-        .end
-        .sub '$_' :multi('WhateverCode', _)
-            .param pmc x
-            .param pmc y
-            .tailcall '!whatever_helper'('$_', x, y)
-        .end
-        .sub '$_' :multi(_, 'WhateverCode')
-            .param pmc x
-            .param pmc y
-            .tailcall '!whatever_helper'('$_', x, y)
-        .end
-    };
+    if (/^infix:/) {
+        print qq{
+            .namespace []
+            .sub '$_' :multi('Whatever', _)
+                .param pmc x
+                .param pmc y
+                .tailcall '!whatever_helper'('$_', x, y)
+            .end
+            .sub '$_' :multi(_, 'Whatever')
+                .param pmc x
+                .param pmc y
+                .tailcall '!whatever_helper'('$_', x, y)
+            .end
+            .sub '$_' :multi('WhateverCode', _)
+                .param pmc x
+                .param pmc y
+                .tailcall '!whatever_helper'('$_', x, y)
+            .end
+            .sub '$_' :multi(_, 'WhateverCode')
+                .param pmc x
+                .param pmc y
+                .tailcall '!whatever_helper'('$_', x, y)
+            .end
+        };
+    }
+    else {
+        print qq{
+            .namespace []
+            .sub '$_' :multi('Whatever')
+                .param pmc x
+                .tailcall '!whatever_helper'('$_', x)
+            .end
+            .sub '$_' :multi('WhateverCode', _)
+                .param pmc x
+                .param pmc y
+                .tailcall '!whatever_helper'('$_', x, y)
+            .end
+        };
+    }
 }
 
 print q{
     .namespace []
     .sub '!whatever_helper' :anon
         .param string opname
         .param pmc left
-        .param pmc right
+        .param pmc right       :optional
         .local pmc opfunc
         opfunc = find_name opname
         .lex '$opfunc', opfunc
@@ -60,8 +77,11 @@
         left   = find_lex '$left'
         right  = find_lex '$right'
         left   = '!whatever_eval'(left, arg)
+        if null right goto unary
         right  = '!whatever_eval'(right, arg)
         .tailcall opfunc(left, right)
+      unary:
+        .tailcall opfunc(left)
     .end
     .sub '!whatever_eval' :multi(_)
         .param pmc whatever