Commit 3d6a8954 authored by Dr. Stephen Henson's avatar Dr. Stephen Henson
Browse files

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

parent c11845a4
Loading
Loading
Loading
Loading

util/arx.pl

0 → 100644
+15 −0
Original line number Diff line number Diff line
#!/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;
+2 −1
Original line number Diff line number Diff line
@@ -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;
}