90 lines
1.2 KiB
Perl
90 lines
1.2 KiB
Perl
|
|
# 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 (<IN>)
|
|
{
|
|
last if (/assembler/)
|
|
}
|
|
|
|
# Store all renames.
|
|
while (<IN>)
|
|
{
|
|
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";
|
|
|
|
#edit target
|
|
open(IN,"tmptarg.s") || die "Can't open temporary file";
|
|
open(OUT, ">$target") || die "Can't open output file $target";
|
|
|
|
while (<IN>)
|
|
{
|
|
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";
|
|
}
|
|
|
|
|
|
|
|
|