summaryrefslogtreecommitdiff
path: root/make/install-extras.pl
diff options
context:
space:
mode:
Diffstat (limited to 'make/install-extras.pl')
-rwxr-xr-xmake/install-extras.pl29
1 files changed, 29 insertions, 0 deletions
diff --git a/make/install-extras.pl b/make/install-extras.pl
new file mode 100755
index 000000000..f0e2dd0e2
--- /dev/null
+++ b/make/install-extras.pl
@@ -0,0 +1,29 @@
+#!/usr/bin/perl
+use strict;
+use warnings;
+
+my $mode = shift;
+my %installed;
+
+for my $dir (qw(src src/modules)) {
+ opendir(DIRHANDLE, $dir);
+ for my $file (sort readdir(DIRHANDLE)) {
+ next unless $file =~ /\.cpp$/;
+ open CPP, '<', "$dir/$file" or die "Can't open $dir/$file to scan it: $!";
+ while (<CPP>) {
+ if (/\/\* \$CopyInstall: (\S+) (\S+) \*\//i) {
+ my($ifile, $idir) = ($1,$2);
+ next if exists $installed{$1.' '.$2};
+ $installed{$1.' '.$2}++;
+ $idir =~ s/\$\(([^)]+)\)/$ENV{$1}/eg;
+ if ($mode eq 'install') {
+ system "install $ifile $idir";
+ } else {
+ $ifile =~ s/.*\///g;
+ system "rm $idir/$ifile";
+ }
+ }
+ }
+ }
+ closedir(DIRHANDLE);
+}