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

New option 'ctestall' for mkdef.pl, that makes it not only generate

Browse Source 
existing functions, but really all functions that exist in libeay.num
and ssleay.num.  This is a good check on how much we should actually
clean up the number files.
This commit is contained in:
Richard Levitte 2000-08-17 21:26:22 +00:00
parent 368f85545e
commit 967f4ca847
1 changed files with 17 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
util/mkdef.pl
View File

@ -13,6 +13,7 @@ my $do_update = 0;
my $do_crypto = 0;
my $do_ssl = 0;
my $do_ctest = 0;
my $do_ctestall = 0;
my $rsaref = 0;
my $W32=1;
@ -49,6 +50,7 @@ foreach (@ARGV, split(/ /, $options))
$do_crypto=1 if $_ eq "crypto";
$do_update=1 if $_ eq "update";
$do_ctest=1 if $_ eq "ctest";
$do_ctestall=1 if $_ eq "ctestall";
$rsaref=1 if $_ eq "rsaref";
#$safe_stack_def=1 if $_ eq "-DDEBUG_SAFESTACK";
@ -148,7 +150,7 @@ if($do_crypto == 1) {
close OUT;
}
} elsif ($do_ctest) {
} elsif ($do_ctest || $do_ctestall) {
print <<"EOF";
@ -159,10 +161,10 @@ if($do_crypto == 1) {
int main()
{
EOF
&print_test_file(*STDOUT,"SSLEAY",*ssl_list,@ssl_func)
&print_test_file(*STDOUT,"SSLEAY",*ssl_list,$do_ctestall,@ssl_func)
if $do_ssl == 1;
&print_test_file(*STDOUT,"LIBEAY",*crypto_list,@crypto_func)
&print_test_file(*STDOUT,"LIBEAY",*crypto_list,$do_ctestall,@crypto_func)
if $do_crypto == 1;
print "}\n";
@ -417,22 +419,26 @@ sub do_defs
sub print_test_file
{
(*OUT,my $name,*nums,my @functions)=@_;
(*OUT,my $name,*nums,my $all,my @functions)=@_;
my $n = 1; my @e; my @r;
my $func;
my $func; my $prev = "";
push(@functions, keys %nums) if $all;
(@e)=grep(/^SSLeay/,@functions);
(@r)=grep(!/^SSLeay/,@functions);
@functions=((sort @e),(sort @r));
foreach $func (@functions) {
if (!defined($nums{$func})) {
printf STDERR "$func does not have a number assigned\n"
if(!$do_update);
} else {
$n=$nums{$func};
print OUT "\t$func();\n";
if ($func ne $prev) {
if (!defined($nums{$func})) {
printf STDERR "$func does not have a number assigned\n"
if(!$do_update);
} else {
$n=$nums{$func};
print OUT "\t$func();\n";
}
}
$prev = $func; # To avoid duplicates...
}
}