-#!/usr/local/bin/perl
-# Generate progs.h file from list of "programs" passed on the command line.
+#! /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*,/;
+
+foreach my $filename (@ARGV) {
+ open F, $filename or die "Coudn't open $_: $!\n";
+ foreach (grep /$cmdre/, <F>) {
+ my @foo = /$cmdre/;
+ $commands{$1} = 1;
+ }
+ close F;
+}
+
+@ARGV = sort keys %commands;
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 {
EOF
-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", $_;
}
foreach (@ARGV) {
printf "extern OPTIONS %s_options[];\n", $_;
}
+
print "\n#ifdef INCLUDE_FUNCTION_TABLE\n";
print "static 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";
+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"
+ "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",
"cast5-cbc","cast5-ecb", "cast5-cfb","cast5-ofb",
"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";
+ 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";