Remove references to o_time.h
[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 my $tmptarg = $target;
12
13 $tmptarg =~ s/\.[^\\\/\.]+$/.tmp/;
14
15 my $runasm = 1;
16
17 if ($ARGS[0] eq "norunasm")
18         {
19         $runasm = 0;
20         shift @ARGS;
21         }
22
23 my $enabled = 0;
24
25 $enabled = 1 if $ENV{FIPSCANISTERINTERNAL} eq "y";
26
27 if ($enabled == 0 && $runasm)
28         {
29         system @ARGS;
30         exit $?
31         }
32
33
34 # Open symbol rename file.
35 open(IN, "$top/fips/fipssyms.h") || die "Can't open fipssyms.h";
36
37 # Skip to assembler symbols
38 while (<IN>)
39         {
40         last if (/assembler/)
41         }
42
43 # Store all renames.
44 while (<IN>)
45         {
46         if (/^#define\s+(\w+)\s+(\w+)\b/)
47                 {
48                 $edits{$1} = $2;
49                 }
50         }
51
52 my ($from, $to);
53
54 #delete any temp file lying around
55
56 unlink $tmptarg;
57
58 #rename target temporarily
59 rename($target, $tmptarg) || die "Can't rename $target";
60
61 #edit target
62 open(IN,$tmptarg) || die "Can't open temporary file";
63 open(OUT, ">$target") || die "Can't open output file $target";
64
65 while (<IN>)
66 {
67         while (($from, $to) = each %edits)
68                 {
69                 s/(\b_*)$from(\b)/$1$to$2/g;
70                 }
71         print OUT $_;
72 }
73
74 close OUT;
75
76 if ($runasm)
77         {
78         # run assembler
79         system @ARGS;
80
81         my $rv = $?;
82
83         # restore target
84         unlink $target;
85         rename $tmptarg, $target;
86
87         die "Error executing assembler!" if $rv != 0;
88         }
89 else
90         {
91         # Don't care about target
92         unlink $tmptarg;
93         }