generic-library/openssl
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Add the 'ec' directory to mkdef.pl and mkfiles.pl

Browse Source 
so the Windows build can see it.

Fixup mkdef.pl so it doesn't mess up with function
names longer than 39 characters in length.
This commit is contained in:
Dr. Stephen Henson
2001-03-10 01:56:48 +00:00
parent 83d0e5e512
commit b4f682d32f
3 changed files with 18 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
util/mkdef.pl
View File

@@ -82,7 +82,7 @@ my @known_ossl_platforms = ( "VMS", "WIN16", "WIN32", "WINNT" );
my @known_algorithms = ( "RC2", "RC4", "RC5", "IDEA", "DES", "BF",
"CAST", "MD2", "MD4", "MD5", "SHA", "SHA0", "SHA1",
"RIPEMD",
"MDC2", "RSA", "DSA", "DH", "HMAC", "AES",
"MDC2", "RSA", "DSA", "DH", "EC", "HMAC", "AES",
# Envelope "algorithms"
"EVP", "X509", "ASN1_TYPEDEFS",
# Helper "algorithms"
@@ -105,6 +105,7 @@ my $no_rc2; my $no_rc4; my $no_rc5; my $no_idea; my $no_des; my $no_bf;
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_fp_api;
foreach (@ARGV, split(/ /, $options))
@@ -153,6 +154,7 @@ foreach (@ARGV, split(/ /, $options))
elsif (/^no-rsa$/) { $no_rsa=1; }
elsif (/^no-dsa$/) { $no_dsa=1; }
elsif (/^no-dh$/) { $no_dh=1; }
elsif (/^no-ec$/) { $no_ec=1; }
elsif (/^no-hmac$/) { $no_hmac=1; }
elsif (/^no-aes$/) { $no_aes=1; }
elsif (/^no-evp$/) { $no_evp=1; }
@@ -213,6 +215,7 @@ $crypto.=" crypto/bn/bn.h";
$crypto.=" crypto/rsa/rsa.h" unless $no_rsa;
$crypto.=" crypto/dsa/dsa.h" unless $no_dsa;
$crypto.=" crypto/dh/dh.h" unless $no_dh;
$crypto.=" crypto/ec/ec.h" unless $no_ec;
$crypto.=" crypto/hmac/hmac.h" unless $no_hmac;
$crypto.=" crypto/engine/engine.h";
@@ -1131,9 +1134,9 @@ EOF
}
$prev = $s2; # To warn about duplicates...
if($v) {
printf OUT " %s%-40s@%-8d DATA\n",($W32)?"":"_",$s2,$n;
printf OUT " %s%-39s @%-8d DATA\n",($W32)?"":"_",$s2,$n;
} else {
printf OUT " %s%-40s@%d\n",($W32)?"":"_",$s2,$n;
printf OUT " %s%-39s @%d\n",($W32)?"":"_",$s2,$n;
}
}
}
@@ -1241,12 +1244,12 @@ sub rewrite_numbers
if !defined($i) || $i eq "" || !defined($syms{$sym});
my $s2 = $sym;
$s2 =~ s/\{[0-9]+\}$//;
printf OUT "%s%-40s%d\t%s\n","",$s2,$n,$i;
printf OUT "%s%-39s %d\t%s\n","",$s2,$n,$i;
if (exists $r{$sym}) {
(my $s, $i) = split /\\/,$r{$sym};
my $s2 = $s;
$s2 =~ s/\{[0-9]+\}$//;
printf OUT "%s%-40s%d\t%s\n","",$s2,$n,$i;
printf OUT "%s%-39s %d\t%s\n","",$s2,$n,$i;
}
}
}
@@ -1278,11 +1281,11 @@ sub update_numbers
$new_syms++;
my $s2 = $s;
$s2 =~ s/\{[0-9]+\}$//;
printf OUT "%s%-40s%d\t%s\n","",$s2, ++$start_num,$i;
printf OUT "%s%-39s %d\t%s\n","",$s2, ++$start_num,$i;
if (exists $r{$s}) {
($s, $i) = split /\\/,$r{$s};
$s =~ s/\{[0-9]+\}$//;
printf OUT "%s%-40s%d\t%s\n","",$s, $start_num,$i;
printf OUT "%s%-39s %d\t%s\n","",$s, $start_num,$i;
}
}
}

1
util/mkfiles.pl
View File

@@ -29,6 +29,7 @@ my @dirs = (
"crypto/dsa",
"crypto/dso",
"crypto/dh",
"crypto/ec",
"crypto/buffer",
"crypto/bio",
"crypto/stack",