[Configure] write single Makefile for multiple backends

does not work yet properly, because several targets are defined multiple times

Author: moritz

Configure.pl

@@ -79,6 +79,15 @@
     $config{'cpsep'} = $^O eq 'MSWin32' ? ';' : ':';
     $config{'slash'} = $slash;
 
+    open my $MAKEFILE, '>', 'Makefile'
+        or die "Cannot open 'Makefile' for writing: $!";
+
+    fill_template_file(
+        'tools/build/Makefile-common.in',
+        $MAKEFILE,
+        %config,
+    );
+
     if ($backends{parrot}) {
         my $with_parrot = $options{'with-parrot'};
         my $gen_parrot  = $options{'gen-parrot'};
@@ -169,7 +178,7 @@
         }
 
         fill_template_file(
-            ['tools/build/Makefile-common.in', 'tools/build/Makefile-Parrot.in'], 'Makefile',
+            'tools/build/Makefile-Parrot.in', $MAKEFILE,
             %config,
         );
         fill_template_file('src/vm/parrot/nqp.sh', 'gen/parrot/nqp_launcher', %config);
@@ -194,12 +203,12 @@
         $config{'make'}   = $^O eq 'MSWin32' ? 'nmake' : 'make';
         $config{'runner'} = $^O eq 'MSWin32' ? 'nqp.bat' : 'nqp';
         fill_template_file(
-            ['tools/build/Makefile-common.in', 'tools/build/Makefile-Moar.in'],
-            'Makefile',
+            'tools/build/Makefile-common.in',
+            $MAKEFILE,
             %config,
         );
-
     }
+
     if ($backends{jvm}) {
         my @errors;
 
@@ -237,12 +246,15 @@
         $config{'runner'} = $^O eq 'MSWin32' ? 'nqp.bat' : 'nqp';
 
         fill_template_file(
-            ['tools/build/Makefile-common.in', 'tools/build/Makefile-JVM.in'],
-            'Makefile',
+            'tools/build/Makefile-JVM.in',
+            $MAKEFILE,
             %config,
         );
     }
 
+    close $MAKEFILE
+        or die "Error while writing to 'Makefile': $!";
+
     my $make = fill_template_text('@make@', %config);
     unless ($options{'no-clean'}) {
         no warnings;

tools/lib/NQP/Configure.pm

@@ -151,17 +151,25 @@ sub fill_template_file {
     my $outfile = shift;
     my %config = @_;
 
-    open(my $OUT, '>', $outfile)
-        or die "Unable to write $outfile\n";
-    print "\nCreating $outfile ...\n";
+    my $OUT;
+    if (ref $outfile) {
+        $OUT = $outfile;
+    }
+    else {
+        print "\nCreating $outfile ...\n";
+        open($OUT, '>', $outfile)
+            or die "Unable to write $outfile\n";
+    }
 
     my @infiles = ref($infile) ? @$infile : $infile;
     for my $if (@infiles) {
         my $text = slurp( $if );
         $text = fill_template_text($text, %config);
         print $OUT $text;
     }
-    close($OUT) or die $!;
+    unless (ref $outfile) {
+        close($OUT) or die "Error while writing '$outfile': $!";
+    }
 }