implement postfix:<ⁿ>

Works for both positive and negative integer powers.
rakudo · Nov 25, 2015 · 2e8830b · 2e8830b
1 parent d4b93ab
commit 2e8830b
Show file tree

Hide file tree

Showing 3 changed files with 13 additions and 0 deletions.
diff --git a/src/Perl6/Actions.nqp b/src/Perl6/Actions.nqp
@@ -6466,6 +6466,15 @@ Compilation unit '$file' contained the following violations:
         QAST::Op.new( :node($/), :op<call>, $hpast )
     }
 
+    method postfix:sym<ⁿ>($/) {
+        my int $power := 0;
+        for $<dig> {
+            $power := $power * 10 + nqp::index("⁰¹²³⁴⁵⁶⁷⁸⁹", $_);
+        }
+        $power := -$power if $<sign> eq '¯';
+        make QAST::Op.new(:op<call>, :name('&postfix:<ⁿ>'), $*W.add_constant('Int', 'int', $power));
+    }
+
     method postfixish($/) {
         if $<postfix_prefix_meta_operator> {
             my $past := $<OPER>.ast || QAST::Op.new( :name('&postfix' ~ $*W.canonicalize_pair('', $<OPER>.Str)),

diff --git a/src/Perl6/Grammar.nqp b/src/Perl6/Grammar.nqp
@@ -3994,6 +3994,7 @@ grammar Perl6::Grammar is HLL::Grammar does STD {
     token prefix:sym<-->  { <sym>  <O('%autoincrement')> }
     token postfix:sym<++> { <sym>  <O('%autoincrement')> }
     token postfix:sym<--> { <sym>  <O('%autoincrement')> }
+    token postfix:sym<ⁿ> { <sign=[⁺¯]>? <dig=[⁰¹²³⁴⁵⁶⁷⁸⁹]>+ <O('%autoincrement')> }
 
     # TODO: report the correct bracket in error message
     token postfix:sym«->» {

diff --git a/src/core/Numeric.pm b/src/core/Numeric.pm
@@ -227,6 +227,9 @@ proto sub infix:<**>(Mu $?, Mu $?) is pure  { * }
 multi sub infix:<**>($x = 1)     { $x.Numeric }
 multi sub infix:<**>(\a, \b)   { a.Numeric ** b.Numeric }
 
+proto sub postfix:<ⁿ>(Mu $, Mu $) is pure  { * }
+multi sub postfix:<ⁿ>(\a, \b)  { a ** b }
+
 ## relational operators
 
 proto sub infix:«<=>»(Mu $, Mu $?) is pure       { * }