Move module-install script into tools/build (where the rest of the build things go nowadays).

1 files changed, 38 insertions, 0 deletions

diff --git a/skel/tools/build/module-install.pl b/skel/tools/build/module-install.pl
new file mode 100644
index 0000000..63a9412
--- /dev/null
+++ b/skel/tools/build/module-install.pl
@@ -0,0 +1,38 @@
+#! perl
+
+use warnings;
+use strict;
+use File::Find;
+use File::Copy;
+use File::Path;
+use File::Basename;
+
+my $perl6bin = shift @ARGV;
+my $perl6lib = shift @ARGV;
+
+my @pmfiles;
+while (@ARGV) {
+    my $module = shift @ARGV;
+    our $mlib   = "$module/lib";
+
+    find({ no_chdir=>1, wanted => \&libcopy }, $mlib);
+
+    sub libcopy {
+        return unless /\.pm6?/;
+        my $source = $File::Find::name;
+        my $target = $source;
+        $target =~ s/\Q$mlib\E/$perl6lib/;
+        print "$source => $target\n";
+        mkpath dirname($target);
+        copy($source, $target) or die "copy failed: $!\n";
+        push @pmfiles, $target;
+    }
+}
+
+chdir 'rakudo';
+foreach my $pm (@pmfiles) {
+    my $out = $pm;  $out =~ s/\.pm6?$/.pir/;
+    my @cmd = ($perl6bin, '--target=pir', "--output=$out", $pm);
+    print join(' ', @cmd), "\n";
+    system(@cmd);
+}