Perlito5 - perl6 - TODO list; special variables fix

fglock · Oct 15, 2013 · 2120983 · 2120983
1 parent 8dbed68
commit 2120983
Show file tree

Hide file tree

Showing 3 changed files with 16 additions and 6 deletions.
diff --git a/TODO-perlito5 b/TODO-perlito5
@@ -245,12 +245,22 @@ TODO list for Perlito5
 
 * Perl6 backend
 
+-- <> is lines()
+
+-- choose @*ARGS or @_ in shift() and pop()
+
+-- typeglob assignment
+
 -- "given" statement not implemented
 
 -- refactoring sub arguments
     my $x = $_[0];
     my ($x, $y, @rest) = @_;    # check if @_ is unused elsewhere in the sub
 
+-- placeholder
+    my ($a, $, $c) = 1..3;
+    ($a, *, $c) = 1..3;
+
 -- __PACKAGE__
 
 -- specialized refactoring for packages that introduce syntax

diff --git a/perlito5.pl b/perlito5.pl
@@ -12569,7 +12569,7 @@ package Perlito5::AST::Proto;
     sub Perlito5::AST::Proto::emit_perl6 {
         my $self = $_[0];
         if ($self->{'name'} eq '__PACKAGE__') {
-            return(['bareword' => $Perlito5::PKG_NAME])
+            return(['bareword' => '$?PACKAGE'])
         }
         return(['bareword' => $self->{'name'}])
     }
@@ -12609,7 +12609,7 @@ package Perlito5::AST::Call;
 }
 package Perlito5::AST::Apply;
 {
-    my %special_var = (chr(15) => '$*OS');
+    my %special_var = (chr(15) => '$*VM');
     my %op_translate = ('list:<.>' => 'list:<~>', 'infix:<.=>' => 'infix:<~=>', 'infix:<=~>' => 'infix:<~~>', 'infix:<!~>' => 'infix:<!~~>', 'infix:<cmp>' => 'infix:<leq>', 'ternary:<? :>' => 'ternary:<?? !!>', 'reverse' => 'flip');
     sub Perlito5::AST::Apply::emit_perl6_args {
         my $self = $_[0];
@@ -12635,7 +12635,7 @@ package Perlito5::AST::Apply;
             return(['keyword' => 'Inf'])
         }
         if ($code eq '__PACKAGE__' && !$self->{'namespace'}) {
-            return(['bareword' => $Perlito5::PKG_NAME])
+            return(['bareword' => '$?PACKAGE'])
         }
         if ($code eq 'prefix:<$#>') {
             return(['op' => 'infix:<.>', $self->{'arguments'}->[0]->emit_perl6(), ['keyword' => 'end']])

diff --git a/src5/lib/Perlito5/Perl6/Emitter.pm b/src5/lib/Perlito5/Perl6/Emitter.pm
@@ -319,7 +319,7 @@ package Perlito5::AST::Proto;
     sub emit_perl6 {
         my $self = $_[0];
         if ($self->{name} eq '__PACKAGE__')  { 
-            return [ bareword => $Perlito5::PKG_NAME ];
+            return [ bareword => '$?PACKAGE' ];
         }
         return [ bareword => $self->{name} ];
     }
@@ -366,7 +366,7 @@ package Perlito5::AST::Call;
 package Perlito5::AST::Apply;
 {
     my %special_var = (
-        chr(15) => '$*OS',  # $^O
+        chr(15) => '$*VM',  # $^O
     );
     my %op_translate = (
         'list:<.>'      => 'list:<~>',
@@ -403,7 +403,7 @@ package Perlito5::AST::Apply;
             return [ keyword => 'Inf' ];
         }
         if ($code eq '__PACKAGE__' && !$self->{namespace})  { 
-            return [ bareword => $Perlito5::PKG_NAME ];
+            return [ bareword => '$?PACKAGE' ];
         }
         if ($code eq 'prefix:<$#>') {
             return [ op => 'infix:<.>', $self->{arguments}[0]->emit_perl6(), [ keyword => 'end' ] ];