Add initial version of @*ARGS.

rakudo · Jul 24, 2011 · fedd5b3 · fedd5b3
1 parent 0cbd875
commit fedd5b3
Show file tree

Hide file tree

Showing 4 changed files with 17 additions and 3 deletions.
diff --git a/src/Perl6/Compiler.nqp b/src/Perl6/Compiler.nqp
@@ -2,6 +2,12 @@ use NQPP6Regex;
 use QRegex;
 
 class Perl6::Compiler is HLL::Compiler {
+    method command_eval(*@args, *%options) {
+        my $hll_ns := pir::get_root_global__Ps('perl6');
+        $hll_ns<@!ARGS> := @args;
+        my $super := pir::find_method__PPs(HLL::Compiler, 'command_eval');
+        $super(self, |@args, |%options);
+    }
 }
 
 
diff --git a/src/core/terms.pm b/src/core/terms.pm
@@ -1,2 +1,11 @@
 sub term:<time>() { nqp::p6box_i(pir::time__I()) }
 
+{
+    my @ARGS;
+    my Mu $argiter := nqp::iterator(pir::get_hll_global__Ps('@!ARGS'));
+    $argiter := nqp::iterator(pir::get_hll_global__Ps('@!ARGS'));
+    nqp::shift($argiter) if $argiter;
+    @ARGS.push(nqp::p6box_s(nqp::shift($argiter))) while $argiter;
+    nqp::bindkey(pir::get_who__PP(PROCESS), '@ARGS', @ARGS);
+}
+
diff --git a/src/main.nqp b/src/main.nqp
@@ -2,7 +2,6 @@ use Perl6::Grammar;
 use Perl6::Actions;
 use Perl6::Compiler;
 
-
 sub MAIN(@ARGS) {
     # Initialize dynops.
     pir::rakudo_dynop_setup__v();
@@ -21,7 +20,7 @@ sub MAIN(@ARGS) {
 
     # Set up END block list, which we'll run at exit.
     my @*END_PHASERS := [];
-    
+
     # Enter the compiler.
     $comp.command_line(@ARGS, :encoding('utf8'), :transcode('ascii iso-8859-1'));
 

diff --git a/tools/build/NQP_REVISION b/tools/build/NQP_REVISION
@@ -1 +1 @@
-2011.06-126-g5134a59
+2011.06-128-g9573361