1#!/usr/local/bin/perl 2 3print "/* This file was generated by progs.pl. */\n\n"; 4 5grep(s/^asn1pars$/asn1parse/,@ARGV); 6 7foreach (@ARGV) 8 { printf "extern int %s_main(int argc,char *argv[]);\n",$_; } 9 10print <<'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 18typedef struct { 19 int type; 20 char *name; 21 int (*func)(); 22 } FUNCTION; 23 24FUNCTION functions[] = { 25EOF 26 27foreach (@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 43foreach ("md2","md5","sha","sha1","mdc2","rmd160") 44 { 45 push(@files,$_); 46 printf "\t{FUNC_TYPE_MD,\"%s\",dgst_main},\n",$_; 47 } 48 49foreach ( 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 75print "\t{0,NULL,NULL}\n\t};\n"; 76print "#endif\n\n"; 77 78