31 lines
777 B
Perl
31 lines
777 B
Perl
|
|
# Filter script. Take all FIPS object files from the environment
|
|
# and print out only those in the given directory.
|
|
|
|
my $dir = $ARGV[0];
|
|
|
|
my $asmobjs = "";
|
|
|
|
# Add any needed assembly language files.
|
|
|
|
$asmobjs = $ENV{AES_ENC} if $dir eq "aes";
|
|
$asmobjs = $ENV{BN_ASM} if $dir eq "bn";
|
|
$asmobjs = $ENV{DES_ENC} if $dir eq "des";
|
|
$asmobjs = $ENV{SHA1_ASM_OBJ} if $dir eq "sha";
|
|
$asmobjs = $ENV{MODES_ASM_OBJ} if $dir eq "modes";
|
|
|
|
# Get all other FIPS object files, filtered by directory.
|
|
|
|
my @objlist = grep {/crypto\/$dir\//} split / /, $ENV{FIPS_EX_OBJ};
|
|
|
|
push @objlist, split / /, $asmobjs;
|
|
|
|
# Fatal error if no matches
|
|
die "No objects in $dir!" if (scalar @objlist == 0);
|
|
|
|
# Output all matches removing pathname.
|
|
foreach (@objlist)
|
|
{
|
|
s|../crypto/$dir/||;
|
|
print "$_\n";
|
|
}
|