added __LINE__ and __FILE__

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

Hide file tree

Showing 2 changed files with 17 additions and 0 deletions.
diff --git a/lib/Perl6/P5Actions.pm b/lib/Perl6/P5Actions.pm
@@ -3826,6 +3826,16 @@ class Perl6::P5Actions is HLL::Actions does STDActions {
         make QAST::Op.new( :op('call'), :name('&rand'), :node($/) );
     }
 
+    method term:sym<__LINE__>($/) {
+        $DEBUG && say("term:sym<__LINE__>($/)");
+        make $*W.add_constant('Int', 'int', HLL::Compiler.lineof($/.orig, $/.from, :cache(1)))
+    }
+
+    method term:sym<__FILE__>($/) {
+        $DEBUG && say("term:sym<__FILE__>($/)");
+        make $*W.add_string_constant(nqp::getlexdyn('$?FILES') // '<unknown file>');
+    }
+
     sub make_yada($name, $/) {
 	    my $past := $<args>.ast;
 	    $past.name($name);

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