Big apps cleanup (option-parsing, etc)
[openssl.git] / apps / progs.pl
index 09dd00b..38e091e 100644 (file)
@@ -1,67 +1,80 @@
 #!/usr/local/bin/perl
-
-print "/* apps/progs.h */\n";
-print "/* automatically generated by progs.pl for openssl.c */\n\n";
-
-grep(s/^asn1pars$/asn1parse/,@ARGV);
-
-foreach (@ARGV)
-       { printf "extern int %s_main(int argc, char *argv[]);\n",$_; }
+# Generate progs.h file from list of "programs" passed on the command line.
 
 print <<'EOF';
+/*
+ * Automatically generated by progs.pl for openssl.c
+ * Copyright (c) 2008 The OpenSSL Project.  All rights reserved.
+ * See the openssl.c for copyright details.
+ */
 
-#define FUNC_TYPE_GENERAL       1
-#define FUNC_TYPE_MD            2
-#define FUNC_TYPE_CIPHER        3
-#define FUNC_TYPE_PKEY          4
-#define FUNC_TYPE_MD_ALG        5
-#define FUNC_TYPE_CIPHER_ALG    6
+typedef enum FUNC_TYPE {
+    FT_none, FT_general, FT_md, FT_cipher, FT_pkey,
+    FT_md_alg, FT_cipher_alg
+} FUNC_TYPE;
 
-typedef struct {
-    int type;
+typedef struct function_st {
+    FUNC_TYPE type;
     const char *name;
-    int (*func) (int argc, char *argv[]);
+    int (*func)(int argc,char *argv[]);
+    const OPTIONS *help;
 } FUNCTION;
-DECLARE_LHASH_OF(FUNCTION);
 
-FUNCTION functions[] = {
 EOF
 
-foreach (@ARGV)
-       {
-       push(@files,$_);
-       $str="    {FUNC_TYPE_GENERAL, \"$_\", ${_}_main},\n";
-       if (($_ =~ /^s_/) || ($_ =~ /^ciphers$/))
-               { print "#if !defined(OPENSSL_NO_SOCK)\n${str}#endif\n"; } 
-       elsif ( ($_ =~ /^engine$/))
-               { print "#ifndef OPENSSL_NO_ENGINE\n${str}#endif\n"; }
-       elsif ( ($_ =~ /^rsa$/) || ($_ =~ /^genrsa$/) || ($_ =~ /^rsautl$/)) 
-               { print "#ifndef OPENSSL_NO_RSA\n${str}#endif\n";  }
-       elsif ( ($_ =~ /^dsa$/) || ($_ =~ /^gendsa$/) || ($_ =~ /^dsaparam$/))
-               { print "#ifndef OPENSSL_NO_DSA\n${str}#endif\n"; }
-       elsif ( ($_ =~ /^ec$/) || ($_ =~ /^ecparam$/))
-               { print "#ifndef OPENSSL_NO_EC\n${str}#endif\n";}
-       elsif ( ($_ =~ /^dh$/) || ($_ =~ /^gendh$/) || ($_ =~ /^dhparam$/))
-               { print "#ifndef OPENSSL_NO_DH\n${str}#endif\n"; }
-       elsif ( ($_ =~ /^pkcs12$/))
-               { print "#if !defined(OPENSSL_NO_DES)\n${str}#endif\n"; }
-       elsif ( ($_ =~ /^cms$/))
-               { print "#ifndef OPENSSL_NO_CMS\n${str}#endif\n"; }
-       elsif ( ($_ =~ /^ocsp$/))
-               { print "#ifndef OPENSSL_NO_OCSP\n${str}#endif\n"; }
-       elsif ( ($_ =~ /^srp$/))
-               { print "#ifndef OPENSSL_NO_SRP\n${str}#endif\n"; }
-       else
-               { print $str; }
+grep(s/\.o//, @ARGV);
+grep(s/^asn1pars$/asn1parse/, @ARGV);
+grep(s/^crl2p7$/crl2pkcs7/, @ARGV);
+push @ARGV, 'list';
+push @ARGV, 'help';
+push @ARGV, 'exit';
+
+foreach (@ARGV) {
+       printf "extern int %s_main(int argc, char *argv[]);\n", $_;
+}
+
+printf "\n#ifdef INCLUDE_FUNCTION_TABLE\n";
+foreach (@ARGV) {
+       printf "extern OPTIONS %s_options[];\n", $_;
+}
+printf "FUNCTION functions[] = {\n";
+foreach (@ARGV) {
+       $str="    { FT_general, \"$_\", ${_}_main, ${_}_options },\n";
+       if (/^s_/ || /^ciphers$/) {
+               print "#if !defined(OPENSSL_NO_SOCK)\n${str}#endif\n";
+       } elsif (/^engine$/) {
+               print "#ifndef OPENSSL_NO_ENGINE\n${str}#endif\n";
+       } elsif (/^rsa$/ || /^genrsa$/ || /^rsautl$/) {
+               print "#ifndef OPENSSL_NO_RSA\n${str}#endif\n";
+       } elsif (/^dsa$/ || /^gendsa$/ || /^dsaparam$/) {
+               print "#ifndef OPENSSL_NO_DSA\n${str}#endif\n";
+       } elsif (/^ec$/ || /^ecparam$/) {
+               print "#ifndef OPENSSL_NO_EC\n${str}#endif\n";
+       } elsif (/^dh$/ || /^gendh$/ || /^dhparam$/) {
+               print "#ifndef OPENSSL_NO_DH\n${str}#endif\n";
+       } elsif (/^pkcs12$/) {
+               print "#if !defined(OPENSSL_NO_DES)\n${str}#endif\n";
+       } elsif (/^cms$/) {
+               print "#ifndef OPENSSL_NO_CMS\n${str}#endif\n";
+       } elsif (/^ocsp$/) {
+               print "#ifndef OPENSSL_NO_OCSP\n${str}#endif\n";
+       } elsif (/^srp$/) {
+               print "#ifndef OPENSSL_NO_SRP\n${str}#endif\n";
+       } else {
+               print $str;
        }
+}
 
-foreach ("md2","md4","md5","sha","sha1","mdc2","rmd160","sha224","sha256","sha384","sha512")
-       {
-       push(@files,$_);
+foreach (
+       "md2", "md4", "md5",
+       "md_ghost94",
+       "sha", "sha1", "sha224", "sha256", "sha384", "sha512",
+       "mdc2", "rmd160"
+) {
         printf "#ifndef OPENSSL_NO_".uc($_)."\n" if ! /sha/;
-        printf "    {FUNC_TYPE_MD, \"".$_."\", dgst_main},\n";
+        printf "    { FT_md, \"".$_."\", dgst_main},\n";
         printf "#endif\n" if ! /sha/;
-       }
+}
 
 foreach (
        "aes-128-cbc", "aes-128-ecb",
@@ -82,23 +95,35 @@ foreach (
        "rc2-cbc", "rc2-ecb", "rc2-cfb","rc2-ofb", "rc2-64-cbc", "rc2-40-cbc",
        "bf-cbc",  "bf-ecb",     "bf-cfb",   "bf-ofb",
        "cast5-cbc","cast5-ecb", "cast5-cfb","cast5-ofb",
-       "cast-cbc", "rc5-cbc",   "rc5-ecb",  "rc5-cfb",  "rc5-ofb")
-       {
-       push(@files,$_);
-
-       $t=sprintf("    {FUNC_TYPE_CIPHER, \"%s\", enc_main},\n", $_);
-       if    ($_ =~ /des/)  { $t="#ifndef OPENSSL_NO_DES\n${t}#endif\n"; }
-       elsif ($_ =~ /aes/)  { $t="#ifndef OPENSSL_NO_AES\n${t}#endif\n"; }
-       elsif ($_ =~ /camellia/)  { $t="#ifndef OPENSSL_NO_CAMELLIA\n${t}#endif\n"; }
-       elsif ($_ =~ /idea/) { $t="#ifndef OPENSSL_NO_IDEA\n${t}#endif\n"; }
-       elsif ($_ =~ /seed/) { $t="#ifndef OPENSSL_NO_SEED\n${t}#endif\n"; }
-       elsif ($_ =~ /rc4/)  { $t="#ifndef OPENSSL_NO_RC4\n${t}#endif\n"; }
-       elsif ($_ =~ /rc2/)  { $t="#ifndef OPENSSL_NO_RC2\n${t}#endif\n"; }
-       elsif ($_ =~ /bf/)   { $t="#ifndef OPENSSL_NO_BF\n${t}#endif\n"; }
-       elsif ($_ =~ /cast/) { $t="#ifndef OPENSSL_NO_CAST\n${t}#endif\n"; }
-       elsif ($_ =~ /rc5/)  { $t="#ifndef OPENSSL_NO_RC5\n${t}#endif\n"; }
-       elsif ($_ =~ /zlib/)  { $t="#ifdef ZLIB\n${t}#endif\n"; }
-       print $t;
+       "cast-cbc", "rc5-cbc",   "rc5-ecb",  "rc5-cfb",  "rc5-ofb"
+) {
+       $str="    { FT_cipher, \"$_\", enc_main, enc_options },\n";
+       if (/des/) {
+               printf "#ifndef OPENSSL_NO_DES\n${str}#endif\n";
+       } elsif (/aes/) {
+               printf "#ifndef OPENSSL_NO_AES\n${str}#endif\n";
+       } elsif (/camellia/) {
+               printf "#ifndef OPENSSL_NO_CAMELLIA\n${str}#endif\n";
+       } elsif (/idea/) {
+               printf "#ifndef OPENSSL_NO_IDEA\n${str}#endif\n";
+       } elsif (/seed/) {
+               printf "#ifndef OPENSSL_NO_SEED\n${str}#endif\n";
+       } elsif (/rc4/) {
+               printf "#ifndef OPENSSL_NO_RC4\n${str}#endif\n";
+       } elsif (/rc2/) {
+               printf "#ifndef OPENSSL_NO_RC2\n${str}#endif\n";
+       } elsif (/bf/) {
+               printf "#ifndef OPENSSL_NO_BF\n${str}#endif\n";
+       } elsif (/cast/) {
+               printf "#ifndef OPENSSL_NO_CAST\n${str}#endif\n";
+       } elsif (/rc5/) {
+               printf "#ifndef OPENSSL_NO_RC5\n${str}#endif\n";
+       } elsif (/zlib/) {
+               printf "#ifdef ZLIB\n${str}#endif\n";
+       } else {
+               print $str;
        }
+}
 
-print "    {0, NULL, NULL}\n};\n";
+print "    { 0, NULL, NULL}\n};\n";
+printf "#endif\n";