Delete the unnecessary ERR and ERRC lines in makefiles, add some functionality
[openssl.git] / util / mkdef.pl
1 #!/usr/local/bin/perl
2 #
3 # generate a .def file
4 #
5 # It does this by parsing the header files and looking for the
6 # non-prototyped functions.
7 #
8
9 $crypto_num="util/libeay.num";
10 $ssl_num=   "util/ssleay.num";
11
12 $W32=1;
13 $NT=0;
14 # Set this to make typesafe STACK definitions appear in DEF
15 $safe_stack_def = 1;
16 foreach (@ARGV)
17         {
18         $W32=1 if $_ eq "32";
19         $W32=0 if $_ eq "16";
20         if($_ eq "NT") {
21                 $W32 = 1;
22                 $NT = 1;
23         }
24         $do_ssl=1 if $_ eq "ssleay";
25         $do_ssl=1 if $_ eq "ssl";
26         $do_crypto=1 if $_ eq "libeay";
27         $do_crypto=1 if $_ eq "crypto";
28         $do_update=1 if $_ eq "update";
29         }
30
31 if (!$do_ssl && !$do_crypto)
32         {
33         print STDERR "usage: $0 ( ssl | crypto ) [ 16 | 32 ]\n";
34         exit(1);
35         }
36
37 %ssl_list=&load_numbers($ssl_num);
38 $max_ssl = $max_num;
39 %crypto_list=&load_numbers($crypto_num);
40 $max_crypto = $max_num;
41
42 $ssl="ssl/ssl.h";
43
44 $crypto ="crypto/crypto.h";
45 $crypto.=" crypto/des/des.h";
46 $crypto.=" crypto/idea/idea.h";
47 $crypto.=" crypto/rc4/rc4.h";
48 $crypto.=" crypto/rc5/rc5.h";
49 $crypto.=" crypto/rc2/rc2.h";
50 $crypto.=" crypto/bf/blowfish.h";
51 $crypto.=" crypto/cast/cast.h";
52 $crypto.=" crypto/md2/md2.h";
53 $crypto.=" crypto/md5/md5.h";
54 $crypto.=" crypto/mdc2/mdc2.h";
55 $crypto.=" crypto/sha/sha.h";
56 $crypto.=" crypto/ripemd/ripemd.h";
57
58 $crypto.=" crypto/bn/bn.h";
59 $crypto.=" crypto/rsa/rsa.h";
60 $crypto.=" crypto/dsa/dsa.h";
61 $crypto.=" crypto/dh/dh.h";
62
63 $crypto.=" crypto/stack/stack.h";
64 $crypto.=" crypto/buffer/buffer.h";
65 $crypto.=" crypto/bio/bio.h";
66 $crypto.=" crypto/lhash/lhash.h";
67 $crypto.=" crypto/conf/conf.h";
68 $crypto.=" crypto/txt_db/txt_db.h";
69
70 $crypto.=" crypto/evp/evp.h";
71 $crypto.=" crypto/objects/objects.h";
72 $crypto.=" crypto/pem/pem.h";
73 #$crypto.=" crypto/meth/meth.h";
74 $crypto.=" crypto/asn1/asn1.h";
75 $crypto.=" crypto/asn1/asn1_mac.h";
76 $crypto.=" crypto/err/err.h";
77 $crypto.=" crypto/pkcs7/pkcs7.h";
78 $crypto.=" crypto/pkcs12/pkcs12.h";
79 $crypto.=" crypto/x509/x509.h";
80 $crypto.=" crypto/x509/x509_vfy.h";
81 $crypto.=" crypto/x509v3/x509v3.h";
82 $crypto.=" crypto/rand/rand.h";
83 $crypto.=" crypto/hmac/hmac.h";
84 $crypto.=" crypto/comp/comp.h";
85 $crypto.=" crypto/tmdiff.h";
86
87 $match{'NOPROTO'}=1;
88 $match2{'PERL5'}=1;
89
90 @ssl_func = &do_defs("SSLEAY", $ssl);
91 @crypto_func = &do_defs("LIBEAY", $crypto);
92
93 if ($do_update) {
94
95 if ($do_ssl == 1) {
96         open(OUT, ">>$ssl_num");
97         &update_numbers(*OUT,"SSLEAY",*ssl_list,$max_ssl, @ssl_func);
98         close OUT;
99 }
100
101 if($do_crypto == 1) {
102         open(OUT, ">>$crypto_num");
103         &update_numbers(*OUT,"LIBEAY",*crypto_list,$max_crypto, @crypto_func);
104         close OUT;
105 }
106
107 } else {
108
109         &print_def_file(*STDOUT,"SSLEAY",*ssl_list,@ssl_func)
110                 if $do_ssl == 1;
111
112         &print_def_file(*STDOUT,"LIBEAY",*crypto_list,@crypto_func)
113                 if $do_crypto == 1;
114
115 }
116
117
118 sub do_defs
119         {
120         local($name,$files)=@_;
121         local(@ret);
122
123         $off=-1;
124         foreach $file (split(/\s+/,$files))
125                 {
126 #               print STDERR "reading $file\n";
127                 open(IN,"<$file") || die "unable to open $file:$!\n";
128                 $depth=0;
129                 $pr=-1;
130                 @np="";
131                 $/=undef;
132                 $a=<IN>;
133                 while (($i=index($a,"/*")) >= 0)
134                         {
135                         $j=index($a,"*/");
136                         last unless ($j >= 0);
137                         $a=substr($a,0,$i).substr($a,$j+2);
138                 #       print "$i $j\n";
139                         }
140                 foreach (split("\n",$a))
141                         {
142                         if (/^\#\s*ifndef (.*)/)
143                                 {
144                                 push(@tag,$1);
145                                 $tag{$1}=-1;
146                                 next;
147                                 }
148                         elsif (/^\#\s*if !defined\(([^\)]+)\)/)
149                                 {
150                                 push(@tag,$1);
151                                 $tag{$1}=-1;
152                                 next;
153                                 }
154                         elsif (/^\#\s*ifdef (.*)/)
155                                 {
156                                 push(@tag,$1);
157                                 $tag{$1}=1;
158                                 next;
159                                 }
160                         elsif (/^\#\s*if defined(.*)/)
161                                 {
162                                 push(@tag,$1);
163                                 $tag{$1}=1;
164                                 next;
165                                 }
166                         elsif (/^\#\s*endif/)
167                                 {
168                                 $tag{$tag[$#tag]}=0;
169                                 pop(@tag);
170                                 next;
171                                 }
172                         elsif (/^\#\s*else/)
173                                 {
174                                 $t=$tag[$#tag];
175                                 $tag{$t}= -$tag{$t};
176                                 next;
177                                 }
178 #printf STDERR "$_\n%2d %2d %2d %2d %2d $W32\n",
179 #$tag{'NOPROTO'},$tag{'FreeBSD'},$tag{'WIN16'},$tag{'PERL5'},$tag{'NO_FP_API'};
180
181                         $t=undef;
182                         if (/^extern .*;$/)
183                                 { $t=&do_extern($name,$_); }
184                         elsif ($safe_stack_def &&
185                                 /^\s*DECLARE_STACK_OF\s*\(\s*(\w*)\s*\)/)
186                                 {
187                                 push(@ret,"sk_${1}_new");
188                                 push(@ret,"sk_${1}_new_null");
189                                 push(@ret,"sk_${1}_free");
190                                 push(@ret,"sk_${1}_num");
191                                 push(@ret,"sk_${1}_value");
192                                 push(@ret,"sk_${1}_set");
193                                 push(@ret,"sk_${1}_zero");
194                                 push(@ret,"sk_${1}_push");
195                                 push(@ret,"sk_${1}_pop");
196                                 push(@ret,"sk_${1}_find");
197                                 push(@ret,"sk_${1}_delete");
198                                 push(@ret,"sk_${1}_delete_ptr");
199                                 push(@ret,"sk_${1}_set_cmp_func");
200                                 push(@ret,"sk_${1}_dup");
201                                 push(@ret,"sk_${1}_pop_free");
202                                 push(@ret,"sk_${1}_shift");
203                                 }
204                         elsif ($safe_stack_def &&
205                                 /^\s*DECLARE_ASN1_SET_OF\s*\(\s*(\w*)\s*\)/)
206                                 {
207                                 push(@ret,"d2i_ASN1_SET_OF_${1}");
208                                 push(@ret,"i2d_ASN1_SET_OF_${1}");
209                                 }
210                         elsif (($tag{'NOPROTO'} == 1) &&
211                                 ($tag{'FreeBSD'} != 1) &&
212                                 (($W32 && ($tag{'WIN16'} != 1)) ||
213                                  (!$W32 && ($tag{'WIN16'} != -1))) &&
214                                 ($tag{'PERL5'} != 1) &&
215 #                               ($tag{'_WINDLL'} != -1) &&
216                                 ((!$W32 && $tag{'_WINDLL'} != -1) ||
217                                  ($W32 && $tag{'_WINDLL'} != 1)) &&
218                                 ((($tag{'NO_FP_API'} != 1) && $W32) ||
219                                  (($tag{'NO_FP_API'} != -1) && !$W32)))
220                                 { $t=&do_line($name,$_); }
221                         else
222                                 { $t=undef; }
223                         if (($t ne undef) && (!$done{$name,$t}))
224                                 {
225                                 $done{$name,$t}++;
226                                 push(@ret,$t);
227 #printf STDERR "one:$t\n" if $t =~ /BIO_/;
228                                 }
229                         }
230                 close(IN);
231                 }
232         return(@ret);
233         }
234
235 sub do_line
236         {
237         local($file,$_)=@_;
238         local($n);
239
240         return(undef) if /^$/;
241         return(undef) if /^\s/;
242 #printf STDERR "two:$_\n" if $_ =~ /BIO_/;
243         if (/(CRYPTO_get_locking_callback)/)
244                 { return($1); }
245         elsif (/(CRYPTO_get_id_callback)/)
246                 { return($1); }
247         elsif (/(CRYPTO_get_add_lock_callback)/)
248                 { return($1); }
249         elsif (/(SSL_CTX_get_verify_callback)/)
250                 { return($1); }
251         elsif (/(SSL_get_info_callback)/)
252                 { return($1); }
253         elsif ((!$W32) && /(ERR_load_CRYPTO_strings)/)
254                 { return("ERR_load_CRYPTOlib_strings"); }
255         elsif (!$W32 && /BIO_s_file/)
256                 { return(undef); }
257         elsif (!$W32 && /BIO_new_file/)
258                 { return(undef); }
259         elsif (!$W32 && /BIO_new_fp/)
260                 { return(undef); }
261         elsif ($W32 && /BIO_s_file_internal/)
262                 { return(undef); }
263         elsif ($W32 && /BIO_new_file_internal/)
264                 { return(undef); }
265         elsif ($W32 && /BIO_new_fp_internal/)
266                 { return(undef); }
267         elsif (/SSL_add_dir_cert_subjects_to_stack/)
268                 { return(undef); }
269         elsif (!$NT && /BIO_s_log/)
270                 { return(undef); }
271         else
272                 {
273                 /\s\**(\S+)\s*\(/;
274                 $_ = $1;
275                 tr/()*//d;
276 #print STDERR "$1 : $_\n";
277                 return($_);
278                 }
279         }
280
281 sub do_extern
282         {
283         local($file,$_)=@_;
284         local($n);
285
286         /\s\**(\S+);$/;
287         return($1);
288         }
289
290 sub print_def_file
291         {
292         local(*OUT,$name,*nums,@functions)=@_;
293         local($n)=1;
294
295         if ($W32)
296                 { $name.="32"; }
297         else
298                 { $name.="16"; }
299
300         print OUT <<"EOF";
301 ;
302 ; Definition file for the DLL version of the $name library from OpenSSL
303 ;
304
305 LIBRARY         $name
306
307 DESCRIPTION     'OpenSSL $name - http://www.openssl.org/'
308
309 EOF
310
311         if (!$W32)
312                 {
313                 print <<"EOF";
314 CODE            PRELOAD MOVEABLE
315 DATA            PRELOAD MOVEABLE SINGLE
316
317 EXETYPE         WINDOWS
318
319 HEAPSIZE        4096
320 STACKSIZE       8192
321
322 EOF
323                 }
324
325         print "EXPORTS\n";
326
327
328         (@e)=grep(/^SSLeay/,@functions);
329         (@r)=grep(!/^SSLeay/,@functions);
330         @functions=((sort @e),(sort @r));
331
332         foreach $func (@functions)
333                 {
334                 if (!defined($nums{$func}))
335                         {
336                         printf STDERR "$func does not have a number assigned\n"
337                                         if(!$do_update);
338                         }
339                 else
340                         {
341                         $n=$nums{$func};
342                         printf OUT "    %s%-40s@%d\n",($W32)?"":"_",$func,$n;
343                         }
344                 }
345         printf OUT "\n";
346         }
347
348 sub load_numbers
349         {
350         local($name)=@_;
351         local($j,@a,%ret);
352
353         $max_num = 0;
354
355         open(IN,"<$name") || die "unable to open $name:$!\n";
356         while (<IN>)
357                 {
358                 chop;
359                 s/#.*$//;
360                 next if /^\s*$/;
361                 @a=split;
362                 $ret{$a[0]}=$a[1];
363                 $max_num = $a[1] if $a[1] > $max_num;
364                 }
365         close(IN);
366         return(%ret);
367         }
368
369 sub update_numbers
370         {
371         local(*OUT,$name,*nums,$start_num, @functions)=@_;
372         my $new_funcs = 0;
373         print STDERR "Updating $name\n";
374         foreach $func (@functions)
375                 {
376                 if (!defined($nums{$func}))
377                         {
378                         $new_funcs++;
379                         printf OUT "%s%-40s%d\n","",$func, ++$start_num;
380                         }
381                 }
382         if($new_funcs) {
383                 print STDERR "$new_funcs New Functions added\n";
384         } else {
385                 print STDERR "No New Functions Added\n";
386         }
387         }