cd8b8c02f4f4dd4624383d4d97cc8113f53e1824
[openssl.git] / util / fipsas.pl
1
2 # FIPS assembly language preprocessor
3 # Renames all symbols in the file to
4 # their modified fips versions.
5
6
7 my @ARGS = @ARGV;
8
9 my $top = shift @ARGS;
10 my $target = shift @ARGS;
11
12 # Open symbol rename file.
13 open(IN, "$top/fips/fipssyms.h") || die "Can't open fipssyms.h";
14
15 # Skip to assembler symbols
16 while (<IN>)
17         {
18         last if (/assembler/)
19         }
20
21 # Store all renames.
22 while (<IN>)
23         {
24         if (/^#define\s+(\w+)\s+(\w+)\b/)
25                 {
26                 $edits{$1} = $2;
27                 }
28         }
29
30 my ($from, $to);
31
32 #rename target temporarily
33 rename($target, "tmptarg.s") || die "Can't rename $target\n";
34
35 #edit target
36 open IN,"tmptarg.s";
37 open OUT, ">$target";
38
39 while (<IN>)
40 {
41         while (($from, $to) = each %edits)
42                 {
43                 s/(\b)$from(\b)/$1$to$2/g;
44                 }
45         print OUT $_;
46 }
47 # run assembler
48 system @ARGS;
49
50 my $rv = $?;
51
52 # restore target
53 unlink $target;
54 rename "tmptarg.s", $target;
55
56 die "Error executing assembler!" if $rv != 0;
57