# FIPS assembly language preprocessor # Renames all symbols in the file to # their modified fips versions. my @ARGS = @ARGV; my $top = shift @ARGS; my $target = shift @ARGS; my $runasm = 1; if ($ARGS[0] eq "norunasm") { $runasm = 0; shift @ARGS; } my $enabled = 0; $enabled = 1 if $ENV{FIPSCANISTERINTERNAL} eq "y"; if ($enabled == 0 && $runasm) { system @ARGS; exit $? } # Open symbol rename file. open(IN, "$top/fips/fipssyms.h") || die "Can't open fipssyms.h"; # Skip to assembler symbols while () { last if (/assembler/) } # Store all renames. while () { if (/^#define\s+(\w+)\s+(\w+)\b/) { $edits{$1} = $2; } } my ($from, $to); #rename target temporarily rename($target, "tmptarg.s") || die "Can't rename $target\n"; #edit target open IN,"tmptarg.s"; open OUT, ">$target"; while () { while (($from, $to) = each %edits) { s/(\b_*)$from(\b)/$1$to$2/g; } print OUT $_; } close OUT; if ($runasm) { # run assembler system @ARGS; my $rv = $?; # restore target unlink $target; rename "tmptarg.s", $target; die "Error executing assembler!" if $rv != 0; } else { # Don't care about target unlink "tmptarg.s"; }