add __PACKAGE__, not perfect yet though

rakudo-p5 · Mar 30, 2013 · 206cb36 · 206cb36
1 parent 197949f
commit 206cb36
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 0 deletions.
diff --git a/lib/Perl6/P5Actions.pm b/lib/Perl6/P5Actions.pm
@@ -3836,6 +3836,12 @@ class Perl6::P5Actions is HLL::Actions does STDActions {
         make $*W.add_string_constant(nqp::getlexdyn('$?FILES') // '<unknown file>');
     }
 
+    method term:sym<__PACKAGE__>($/) {
+        $DEBUG && say("term:sym<__PACKAGE__>($/)");
+        # TODO stringify to 'main' for (GLOBAL)
+        make QAST::Var.new( :name('$?PACKAGE'), :scope('lexical') );
+    }
+
     sub make_yada($name, $/) {
 	    my $past := $<args>.ast;
 	    $past.name($name);

diff --git a/lib/Perl6/P5Grammar.pm b/lib/Perl6/P5Grammar.pm
@@ -3367,6 +3367,9 @@ grammar Perl6::P5Grammar is HLL::Grammar does STD5 {
     token term:sym<__FILE__> {
         <sym>
     }
+    token term:sym<__PACKAGE__> {
+        <sym>
+    }
 
 #    token term:sym<rmdir>
 #        { <sym> » <?before \s*> <.ws> <EXPR('q=')>? }