12345678910111213141516171819202122232425262728293031 |
- # 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";
- }
|