From 4ccfe5f49b654fa42d07fa9ade754aca7f710a67 Mon Sep 17 00:00:00 2001
From: Richard Levitte <levitte@openssl.org>
Date: Mon, 9 Dec 2002 02:18:16 +0000
Subject: [PATCH] Hmm, Geoff's change made things quite interesting.  We can
 now give users the option of disabling deprecated functions, which should of
 course be reflected in libeay.num and .def files.  Quite nice, actually.

---
 util/mkdef.pl | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/util/mkdef.pl b/util/mkdef.pl
index fffd1d9a7c..d868a35036 100755
--- a/util/mkdef.pl
+++ b/util/mkdef.pl
@@ -93,7 +93,9 @@ my @known_algorithms = ( "RC2", "RC4", "RC5", "IDEA", "DES", "BF",
 			 # External "algorithms"
 			 "FP_API", "STDIO", "SOCK", "KRB5",
 			 # Engines
-			 "STATIC_ENGINE" );
+			 "STATIC_ENGINE",
+			 # Deprecated functions
+			 "DEPRECATED" );
 
 my $options="";
 open(IN,"<Makefile.ssl") || die "unable to open Makefile.ssl!\n";
@@ -110,7 +112,7 @@ my $no_cast;
 my $no_md2; my $no_md4; my $no_md5; my $no_sha; my $no_ripemd; my $no_mdc2;
 my $no_rsa; my $no_dsa; my $no_dh; my $no_hmac=0; my $no_aes; my $no_krb5;
 my $no_ec; my $no_ecdsa; my $no_ecdh;
-my $no_fp_api; my $no_static_engine;
+my $no_fp_api; my $no_static_engine; my $no_deprecated;
 
 foreach (@ARGV, split(/ /, $options))
 	{
@@ -1065,6 +1067,7 @@ sub is_valid
 			if ($keyword eq "KRB5" && $no_krb5) { return 0; }
 			if ($keyword eq "FP_API" && $no_fp_api) { return 0; }
 			if ($keyword eq "STATIC_ENGINE" && $no_static_engine) { return 0; }
+			if ($keyword eq "DEPRECATED" && $no_deprecated) { return 0; }
 
 			# Nothing recognise as true
 			return 1;
-- 
2.25.1