X-Git-Url: https://git.openssl.org/gitweb/?p=openssl.git;a=blobdiff_plain;f=apps%2Fprogs.pl;h=94a4962415870ae2cd054a872eef1cfa67d9c263;hp=f24b91bde85f1cbd9f38bb6e63695b426d3cad2d;hb=473a954771508f4d488bfba5fc7699fe8b45bdcf;hpb=2d0b44126763f989a4cbffbffe9d0c7518158bb7

diff --git a/apps/progs.pl b/apps/progs.pl
index f24b91bde8..94a4962415 100644
--- a/apps/progs.pl
+++ b/apps/progs.pl
@@ -1,9 +1,17 @@
-#!/usr/bin/perl
+#! /usr/bin/env perl
+# Copyright 1995-2016 The OpenSSL Project Authors. All Rights Reserved.
+#
+# Licensed under the OpenSSL license (the "License").  You may not use
+# this file except in compliance with the License.  You can obtain a copy
+# in the file LICENSE in the source distribution or at
+# https://www.openssl.org/source/license.html
+
 # Generate progs.h file by looking for command mains in list of C files
 # passed on the command line.
 
 use strict;
 use warnings;
+use configdata qw/@disablables/;
 
 my %commands = ();
 my $cmdre = qr/^\s*int\s+([a-z_][a-z0-9_]*)_main\(\s*int\s+argc\s*,/;
@@ -21,9 +29,15 @@ foreach my $filename (@ARGV) {
 
 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.
+ * WARNING: do not edit!
+ * Generated by apps/progs.pl
+ *
+ * Copyright 1995-2016 The OpenSSL Project Authors. All Rights Reserved.
+ *
+ * Licensed under the OpenSSL license (the "License").  You may not use
+ * this file except in compliance with the License.  You can obtain a copy
+ * in the file LICENSE in the source distribution or at
+ * https://www.openssl.org/source/license.html
  */
 
 typedef enum FUNC_TYPE {
@@ -34,7 +48,7 @@ typedef enum FUNC_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;
 
@@ -49,49 +63,61 @@ foreach (@ARGV) {
 print "\n";
 
 foreach (@ARGV) {
-	printf "extern OPTIONS %s_options[];\n", $_;
+	printf "extern const OPTIONS %s_options[];\n", $_;
 }
+
 print "\n#ifdef INCLUDE_FUNCTION_TABLE\n";
 print "static FUNCTION functions[] = {\n";
-foreach (@ARGV) {
-	my $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";
+my %cmd_disabler = (
+    ciphers  => "sock",
+    genrsa   => "rsa",
+    rsautl   => "rsa",
+    gendsa   => "dsa",
+    dsaparam => "dsa",
+    gendh    => "dh",
+    dhparam  => "dh",
+    ecparam  => "ec",
+    pkcs12   => "des",
+    );
+foreach my $cmd (@ARGV) {
+	my $str="    {FT_general, \"$cmd\", ${cmd}_main, ${cmd}_options},\n";
+	if ($cmd =~ /^s_/) {
+		print "#ifndef OPENSSL_NO_SOCK\n${str}#endif\n";
+	} elsif (grep { $cmd eq $_ } @disablables) {
+		print "#ifndef OPENSSL_NO_".uc($cmd)."\n${str}#endif\n";
+	} elsif (my $disabler = $cmd_disabler{$cmd}) {
+		print "#ifndef OPENSSL_NO_".uc($disabler)."\n${str}#endif\n";
 	} else {
 		print $str;
 	}
 }
 
-foreach (
+my %md_disabler = (
+    blake2b512 => "blake2",
+    blake2s256 => "blake2",
+    );
+foreach my $cmd (
 	"md2", "md4", "md5",
-	"md_ghost94",
+	"gost",
 	"sha1", "sha224", "sha256", "sha384", "sha512",
-	"mdc2", "rmd160", "blake2b", "blake2s"
+	"mdc2", "rmd160", "blake2b512", "blake2s256"
 ) {
-        printf "#ifndef OPENSSL_NO_".uc($_)."\n" if ! /sha/;
-        printf "    { FT_md, \"".$_."\", dgst_main},\n";
-        printf "#endif\n" if ! /sha/;
+        my $str = "    {FT_md, \"".$cmd."\", dgst_main},\n";
+        if (grep { $cmd eq $_ } @disablables) {
+                print "#ifndef OPENSSL_NO_".uc($cmd)."\n${str}#endif\n";
+        } elsif (my $disabler = $md_disabler{$cmd}) {
+                print "#ifndef OPENSSL_NO_".uc($disabler)."\n${str}#endif\n";
+        } else {
+                print $str;
+        }
 }
 
-foreach (
+my %cipher_disabler = (
+    des3  => "des",
+    desx  => "des",
+    cast5 => "cast",
+    );
+foreach my $cmd (
 	"aes-128-cbc", "aes-128-ecb",
 	"aes-192-cbc", "aes-192-ecb",
 	"aes-256-cbc", "aes-256-ecb",
@@ -112,33 +138,18 @@ foreach (
 	"cast5-cbc","cast5-ecb", "cast5-cfb","cast5-ofb",
 	"cast-cbc", "rc5-cbc",   "rc5-ecb",  "rc5-cfb",  "rc5-ofb"
 ) {
-	my $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";
+	my $str="    {FT_cipher, \"$cmd\", enc_main, enc_options},\n";
+	(my $algo= $cmd) =~ s/-.*//g;
+        if ($cmd eq "zlib") {
+                print "#ifdef ZLIB\n${str}#endif\n";
+        } elsif (grep { $algo eq $_ } @disablables) {
+                print "#ifndef OPENSSL_NO_".uc($algo)."\n${str}#endif\n";
+        } elsif (my $disabler = $cipher_disabler{$algo}) {
+                print "#ifndef OPENSSL_NO_".uc($disabler)."\n${str}#endif\n";
 	} else {
 		print $str;
 	}
 }
 
 print "    { 0, NULL, NULL}\n};\n";
-printf "#endif\n";
+print "#endif\n";