util/arx.pl

   1 #!/bin/perl
   2
   3 # Simple perl script to wrap round "ar" program and exclude any
   4 # object files in the environment variable EXCL_OBJ
   5
   6 map { s/^.*\/([^\/]*)$/$1/ ; $EXCL{$_} = 1} split(' ', $ENV{EXCL_OBJ});
   7
   8 #my @ks = keys %EXCL;
   9 #print STDERR "Excluding: @ks \n";
  10
  11 my @ARGS = grep { !exists $EXCL{$_} } @ARGV;
  12
  13 system @ARGS;
  14
  15 exit $? >> 8;