Initial perl script to filter out unneeded files for a fips tarball.

diff --git a/util/fipsdist.pl b/util/fipsdist.pl
new file mode 100644 (file)
index 0000000..86ceab0
--- /dev/null
+++ b/util/fipsdist.pl
@@ -0,0 +1,44 @@
+
+# FIPS distribution filter. 
+# Takes tarball listing and removes unnecessary files and directories.
+#
+
+
+my $objs = "";
+foreach (split / /, "FIPS_EX_OBJ AES_ENC BN_ASM DES_ENC SHA1_ASM_OBJ MODES_ASM_OBJ")
+       {
+       $objs .= " $ENV{$_}";
+       }
+
+
+my @objlist = split / /, $objs;
+
+foreach (@objlist) { $tarobjs{"$1.c"} = 1 if /([^\/]+).o$/};
+
+$tarobjs{"ncbc_enc.c"} = 1;
+
+foreach (split / /, $ENV{LINKDIRS} ) { $cdirs{$_} = 1 };
+
+$cdirs{perlasm} = 1;
+
+foreach (keys %cdirs) { print STDERR "CDIR: $_\n";}
+
+while (<STDIN>)
+       {
+       chomp;
+       # Skip directories but leave top level files.
+       next unless (/^(fips\/|crypto|util|test|include)/ || (!/\// && -f $_));
+       if (/^crypto\/([^\/]+)/)
+               {
+               # Skip unused directories under crypto/
+               next if -d "crypto/$1" && !exists $cdirs{$1};
+               # Keep assembly language dir, Makefile or certain extensions
+               if (!/\/asm\// && !/\/Makefile$/ && && !/\.(in|pl|h)$/)
+                       {
+                       # If C source file must be on list.
+                       next if !/(\w+\.c)$/ || !exists $tarobjs{$1};
+                       }
+               }
+       print "$_\n";
+       }
+exit 1;