crypto/ppccap.c: permit build with no-chacha and no-poly1305.
[openssl.git] / crypto / objects / objects.pl
1 #! /usr/bin/env perl
2 # Copyright 2000-2016 The OpenSSL Project Authors. All Rights Reserved.
3 #
4 # Licensed under the OpenSSL license (the "License").  You may not use
5 # this file except in compliance with the License.  You can obtain a copy
6 # in the file LICENSE in the source distribution or at
7 # https://www.openssl.org/source/license.html
8
9 open (NUMIN,"$ARGV[1]") || die "Can't open number file $ARGV[1]";
10 $max_nid=0;
11 $o=0;
12 while(<NUMIN>)
13         {
14         s|\R$||;
15         $o++;
16         s/#.*$//;
17         next if /^\s*$/;
18         $_ = 'X'.$_;
19         ($Cname,$mynum) = split;
20         $Cname =~ s/^X//;
21         if (defined($nidn{$mynum}))
22                 { die "$ARGV[1]:$o:There's already an object with NID ",$mynum," on line ",$order{$mynum},"\n"; }
23         if (defined($nid{$Cname}))
24                 { die "$ARGV[1]:$o:There's already an object with name ",$Cname," on line ",$order{$nid{$Cname}},"\n"; }
25         $nid{$Cname} = $mynum;
26         $nidn{$mynum} = $Cname;
27         $order{$mynum} = $o;
28         $max_nid = $mynum if $mynum > $max_nid;
29         }
30 close NUMIN;
31
32 open (IN,"$ARGV[0]") || die "Can't open input file $ARGV[0]";
33 $Cname="";
34 $o=0;
35 while (<IN>)
36         {
37         s|\R$||;
38         $o++;
39         if (/^!module\s+(.*)$/)
40                 {
41                 $module = $1."-";
42                 $module =~ s/\./_/g;
43                 $module =~ s/-/_/g;
44                 }
45         if (/^!global$/)
46                 { $module = ""; }
47         if (/^!Cname\s+(.*)$/)
48                 { $Cname = $1; }
49         if (/^!Alias\s+(.+?)\s+(.*)$/)
50                 {
51                 $Cname = $module.$1;
52                 $myoid = $2;
53                 $myoid = &process_oid($myoid);
54                 $Cname =~ s/-/_/g;
55                 $ordern{$o} = $Cname;
56                 $order{$Cname} = $o;
57                 $obj{$Cname} = $myoid;
58                 $_ = "";
59                 $Cname = "";
60                 }
61         s/!.*$//;
62         s/#.*$//;
63         next if /^\s*$/;
64         ($myoid,$mysn,$myln) = split ':';
65         $mysn =~ s/^\s*//;
66         $mysn =~ s/\s*$//;
67         $myln =~ s/^\s*//;
68         $myln =~ s/\s*$//;
69         $myoid =~ s/^\s*//;
70         $myoid =~ s/\s*$//;
71         if ($myoid ne "")
72                 {
73                 $myoid = &process_oid($myoid);
74                 }
75
76         if ($Cname eq "" && ($myln =~ /^[_A-Za-z][\w.-]*$/ ))
77                 {
78                 $Cname = $myln;
79                 $Cname =~ s/\./_/g;
80                 $Cname =~ s/-/_/g;
81                 if ($Cname ne "" && defined($ln{$module.$Cname}))
82                         { die "objects.txt:$o:There's already an object with long name ",$ln{$module.$Cname}," on line ",$order{$module.$Cname},"\n"; }
83                 }
84         if ($Cname eq "")
85                 {
86                 $Cname = $mysn;
87                 $Cname =~ s/-/_/g;
88                 if ($Cname ne "" && defined($sn{$module.$Cname}))
89                         { die "objects.txt:$o:There's already an object with short name ",$sn{$module.$Cname}," on line ",$order{$module.$Cname},"\n"; }
90                 }
91         if ($Cname eq "")
92                 {
93                 $Cname = $myln;
94                 $Cname =~ s/-/_/g;
95                 $Cname =~ s/\./_/g;
96                 $Cname =~ s/ /_/g;
97                 if ($Cname ne "" && defined($ln{$module.$Cname}))
98                         { die "objects.txt:$o:There's already an object with long name ",$ln{$module.$Cname}," on line ",$order{$module.$Cname},"\n"; }
99                 }
100         $Cname =~ s/\./_/g;
101         $Cname =~ s/-/_/g;
102         $Cname = $module.$Cname;
103         $ordern{$o} = $Cname;
104         $order{$Cname} = $o;
105         $sn{$Cname} = $mysn;
106         $ln{$Cname} = $myln;
107         $obj{$Cname} = $myoid;
108         if (!defined($nid{$Cname}))
109                 {
110                 $max_nid++;
111                 $nid{$Cname} = $max_nid;
112                 $nidn{$max_nid} = $Cname;
113 print STDERR "Added OID $Cname\n";
114                 }
115         $Cname="";
116         }
117 close IN;
118
119 open (NUMOUT,">$ARGV[1]") || die "Can't open output file $ARGV[1]";
120 foreach (sort { $a <=> $b } keys %nidn)
121         {
122         print NUMOUT $nidn{$_},"\t\t",$_,"\n";
123         }
124 close NUMOUT;
125
126 open (OUT,">$ARGV[2]") || die "Can't open output file $ARGV[2]";
127 print OUT <<'EOF';
128 /*
129  * WARNING: do not edit!
130  * Generated by crypto/objects/objects.pl
131  *
132  * Copyright 2000-2016 The OpenSSL Project Authors. All Rights Reserved.
133  * Licensed under the OpenSSL license (the "License").  You may not use
134  * this file except in compliance with the License.  You can obtain a copy
135  * in the file LICENSE in the source distribution or at
136  * https://www.openssl.org/source/license.html
137  */
138
139 #define SN_undef                        "UNDEF"
140 #define LN_undef                        "undefined"
141 #define NID_undef                       0
142 #define OBJ_undef                       0L
143 EOF
144
145 sub expand
146         {
147         my $string = shift;
148
149         1 while $string =~ s/\t+/' ' x (length($&) * 8 - length($`) % 8)/e;
150
151         return $string;
152         }
153
154 foreach (sort { $a <=> $b } keys %ordern)
155         {
156         $Cname=$ordern{$_};
157         print OUT "\n";
158         print OUT expand("#define SN_$Cname\t\t\"$sn{$Cname}\"\n") if $sn{$Cname} ne "";
159         print OUT expand("#define LN_$Cname\t\t\"$ln{$Cname}\"\n") if $ln{$Cname} ne "";
160         print OUT expand("#define NID_$Cname\t\t$nid{$Cname}\n") if $nid{$Cname} ne "";
161         print OUT expand("#define OBJ_$Cname\t\t$obj{$Cname}\n") if $obj{$Cname} ne "";
162         }
163
164 close OUT;
165
166 sub process_oid
167         {
168         local($oid)=@_;
169         local(@a,$oid_pref);
170
171         @a = split(/\s+/,$myoid);
172         $pref_oid = "";
173         $pref_sep = "";
174         if (!($a[0] =~ /^[0-9]+$/))
175                 {
176                 $a[0] =~ s/-/_/g;
177                 if (!defined($obj{$a[0]}))
178                         { die "$ARGV[0]:$o:Undefined identifier ",$a[0],"\n"; }
179                 $pref_oid = "OBJ_" . $a[0];
180                 $pref_sep = ",";
181                 shift @a;
182                 }
183         $oids = join('L,',@a) . "L";
184         if ($oids ne "L")
185                 {
186                 $oids = $pref_oid . $pref_sep . $oids;
187                 }
188         else
189                 {
190                 $oids = $pref_oid;
191                 }
192         return($oids);
193         }