add --target=pbc to nqp

the factoring of the code isn't perfect, but it does work

Author: gerdr

src/HLL/Compiler.pm

@@ -30,8 +30,8 @@ class HLL::Compiler {
 
     method BUILD() {
         # Default stages.
-        @!stages     := nqp::split(' ', 'start parse past post pir packfile');
-        
+        @!stages     := nqp::split(' ', 'start parse past post pir pbc init');
+
         # Command options and usage.
         @!cmdoptions := nqp::split(' ', 'e=s help|h target=s dumper=s trace|t=s encoding=s output|o=s combine version|v show-config verbose-config|V stagestats=s? ll-exception rxtrace nqpevent=s profile profile-compile');
         $!usage := "This compiler is based on HLL::Compiler.\n\nOptions:\n";
@@ -224,8 +224,9 @@ class HLL::Compiler {
 
         %adverbs.update(%opts);
         self.usage($program-name) if %adverbs<help>  || %adverbs<h>;
-        
-        if !nqp::existskey(%adverbs, 'precomp') && %adverbs<target> eq 'pir' {
+
+        if !nqp::existskey(%adverbs, 'precomp')
+            && (%adverbs<target> eq 'pir' || %adverbs<target> eq 'pbc') {
             %adverbs<precomp> := 1;
         }
 
@@ -430,19 +431,32 @@ class HLL::Compiler {
         ~ ".include 'datatypes.pasm'\n"
         ~ ".include 'libpaths.pasm'\n"
     }
-  
+
     method pir($source, *%adverbs) {
         self.pirbegin() ~ $source.pir()
     }
 
-    method packfile($source, *%adverbs) {
-        my $compiler := pir::compreg__Ps('PIR');
-        my $packfile := $compiler.compile($source);
+    method pbc($source, *%adverbs) {
+        my $packfile := pir::compreg__Ps('PIR').compile($source);
+        my $output := %adverbs<output> || %adverbs<o>;
+        $packfile.write_to_file($output) if $output;
+        $packfile
+    }
+
+    method init($source, *%adverbs) {
+        self.init_packfile($source)
+    }
+
+    method init_packfile($packfile) {
         for $packfile.subs_by_tag('init') -> $sub { $sub(); }
         $packfile.mark_initialized('init');
         $packfile
     }
 
+    method compile_and_init($source) {
+        self.init_packfile(pir::compreg__Ps('PIR').compile($source))
+    }
+
     method dumper($obj, $name, *%options) {
         if nqp::can($obj, 'dump') {
             nqp::print($obj.dump());

src/NQP/World.pm

@@ -240,7 +240,7 @@ class NQP::World is HLL::World {
             my $nqpcomp  := nqp::getcomp('nqp');
             my $post     := $nqpcomp.post(QAST::CompUnit.new( :hll('nqp'), $past ));
             my $pir      := $nqpcomp.pir($post);
-            my $compiled := $nqpcomp.packfile($pir);
+            my $compiled := $nqpcomp.compile_and_init($pir);
 
             # Fix up any code objects holding stubs with the real compiled thing.
             my @all_subs := $compiled.all_subs();

t/qast/pirt.t

@@ -6,7 +6,7 @@ sub is_pirt_result($producer, $expected, $desc) {
     my $pirt := $producer();
     my $pir := $pirt.pir();
     #say($pir);
-    my $sub := QAST::Compiler.packfile($pir).main_sub();
+    my $sub := QAST::Compiler.compile_and_init($pir).main_sub();
     ok($sub() eq $expected, $desc);
 }
 

t/qast/qast.t

@@ -7,7 +7,7 @@ sub compile_qast($qast) {
     my $*QAST_BLOCK_NO_CLOSE := 1;
     my $pirt := QAST::Compiler.as_post($qast);
     my $pir := $pirt.pir();
-    QAST::Compiler.packfile($pir).main_sub();
+    QAST::Compiler.compile_and_init($pir).main_sub();
 }
 sub is_qast($qast, $value, $desc) {
     try {