| Dr. Stephen Henson | 3d6a895 | 2011-01-26 01:35:07 +0000 | [diff] [blame] | 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; | ||||