update mkerr.pl for use fips directory, add arx.pl script

This commit is contained in:
Dr. Stephen Henson 2011-01-26 01:35:07 +00:00
parent c11845a4ab
commit 3d6a8954f8
2 changed files with 17 additions and 1 deletions

15
util/arx.pl Normal file
View File

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

View File

@ -115,7 +115,8 @@ EOF
}
if($recurse) {
@source = (<crypto/*.c>, <crypto/*/*.c>, <ssl/*.c>);
@source = ( <crypto/*.c>, <crypto/*/*.c>, <ssl/*.c>,
<fips/*.c>, <fips/*/*.c>);
} else {
@source = @ARGV;
}