Move to beta 3.
[openssl.git] / apps / progs.pl
1 #!/usr/local/bin/perl
2
3 print "/* This file was generated by progs.pl. */\n\n";
4
5 grep(s/^asn1pars$/asn1parse/,@ARGV);
6
7 foreach (@ARGV)
8         { printf "extern int %s_main(int argc,char *argv[]);\n",$_; }
9
10 print <<'EOF';
11
12 #ifdef SSLEAY_SRC  /* Defined only in openssl.c. */
13
14 #define FUNC_TYPE_GENERAL       1
15 #define FUNC_TYPE_MD            2
16 #define FUNC_TYPE_CIPHER        3
17
18 typedef struct {
19         int type;
20         char *name;
21         int (*func)();
22         } FUNCTION;
23
24 FUNCTION functions[] = {
25 EOF
26
27 foreach (@ARGV)
28         {
29         push(@files,$_);
30         $str="\t{FUNC_TYPE_GENERAL,\"$_\",${_}_main},\n";
31         if (($_ =~ /^s_/) || ($_ =~ /^ciphers$/))
32                 { print "#if !defined(NO_SOCK) && !(defined(NO_SSL2) && defined(O_SSL3))\n${str}#endif\n"; } 
33         elsif ( ($_ =~ /^rsa$/) || ($_ =~ /^genrsa$/) ) 
34                 { print "#ifndef NO_RSA\n${str}#endif\n";  }
35         elsif ( ($_ =~ /^dsa$/) || ($_ =~ /^gendsa$/) || ($_ =~ /^dsaparam$/))
36                 { print "#ifndef NO_DSA\n${str}#endif\n"; }
37         elsif ( ($_ =~ /^dh$/) || ($_ =~ /^gendh$/))
38                 { print "#ifndef NO_DH\n${str}#endif\n"; }
39         else
40                 { print $str; }
41         }
42
43 foreach ("md2","md5","sha","sha1","mdc2","rmd160")
44         {
45         push(@files,$_);
46         printf "\t{FUNC_TYPE_MD,\"%s\",dgst_main},\n",$_;
47         }
48
49 foreach (
50         "base64",
51         "des", "des3", "desx", "idea", "rc4", "rc2","bf","cast","rc5",
52         "des-ecb", "des-ede",    "des-ede3",
53         "des-cbc", "des-ede-cbc","des-ede3-cbc",
54         "des-cfb", "des-ede-cfb","des-ede3-cfb",
55         "des-ofb", "des-ede-ofb","des-ede3-ofb",
56         "idea-cbc","idea-ecb",   "idea-cfb", "idea-ofb",
57         "rc2-cbc", "rc2-ecb",    "rc2-cfb",  "rc2-ofb",
58         "bf-cbc",  "bf-ecb",     "bf-cfb",   "bf-ofb",
59         "cast5-cbc","cast5-ecb", "cast5-cfb","cast5-ofb",
60         "cast-cbc", "rc5-cbc",   "rc5-ecb",  "rc5-cfb",  "rc5-ofb")
61         {
62         push(@files,$_);
63
64         $t=sprintf("\t{FUNC_TYPE_CIPHER,\"%s\",enc_main},\n",$_);
65         if    ($_ =~ /des/)  { $t="#ifndef NO_DES\n${t}#endif\n"; }
66         elsif ($_ =~ /idea/) { $t="#ifndef NO_IDEA\n${t}#endif\n"; }
67         elsif ($_ =~ /rc4/)  { $t="#ifndef NO_RC4\n${t}#endif\n"; }
68         elsif ($_ =~ /rc2/)  { $t="#ifndef NO_RC2\n${t}#endif\n"; }
69         elsif ($_ =~ /bf/)   { $t="#ifndef NO_BF\n${t}#endif\n"; }
70         elsif ($_ =~ /cast/) { $t="#ifndef NO_CAST\n${t}#endif\n"; }
71         elsif ($_ =~ /rc5/)  { $t="#ifndef NO_RC5\n${t}#endif\n"; }
72         print $t;
73         }
74
75 print "\t{0,NULL,NULL}\n\t};\n";
76 print "#endif\n\n";
77