pkgs/build-support/mono-dll-fixer/dll-fixer.pl

   1 #! @perl@ -w
   2
   3 use strict;
   4
   5 my @paths = split ' ', $ENV{"ALL_INPUTS"};
   6
   7 open IN, "<$ARGV[0]" or die;
   8 open OUT, ">$ARGV[0].tmp" or die;
   9
  10 while (<IN>) {
  11     # !!! should use a real XML library here.
  12     if (!/<dllmap dll="(.*)" target="(.*)"\/>/) {
  13         print OUT;
  14         next;
  15     }
  16     my $dll = $1;
  17     my $target = $2;
  18
  19     foreach my $path (@paths) {
  20         my $fullPath = "$path/lib/$target";
  21         if (-e "$fullPath") {
  22             $target = $fullPath;
  23             last;
  24         }
  25     }
  26
  27     print OUT "  <dllmap dll=\"$dll\" target=\"$target\"/>\n";
  28 }
  29
  30 close IN;
  31
  32 rename "$ARGV[0].tmp", "$ARGV[0]" or die "cannot rename $ARGV[0]";