2 # FIPS distribution filter.
3 # Takes tarball listing and removes unnecessary files and directories.
8 foreach (split / /, "FIPS_EX_OBJ AES_ENC BN_ASM DES_ENC SHA1_ASM_OBJ MODES_ASM_OBJ")
14 my @objlist = split / /, $objs;
16 foreach (@objlist) { $tarobjs{"$1.c"} = 1 if /([^\/]+).o$/};
18 $tarobjs{"ncbc_enc.c"} = 1;
20 foreach (split / /, $ENV{LINKDIRS} ) { $cdirs{$_} = 1 };
24 foreach (keys %cdirs) { print STDERR "CDIR: $_\n";}
29 # Skip directories but leave top level files.
30 next unless (/^(fips\/|crypto|util|test|include)/ || (!/\// && -f $_));
31 if (/^crypto\/([^\/]+)/)
33 # Skip unused directories under crypto/
34 next if -d "crypto/$1" && !exists $cdirs{$1};
35 # Keep assembly language dir, Makefile or certain extensions
36 if (!/\/asm\// && !/\/Makefile$/ && && !/\.(in|pl|h)$/)
38 # If C source file must be on list.
39 next if !/(\w+\.c)$/ || !exists $tarobjs{$1};