| mkdef.pl (68651) | mkdef.pl (72613) |
|---|---|
| 1#!/usr/local/bin/perl -w 2# 3# generate a .def file 4# 5# It does this by parsing the header files and looking for the 6# prototyped functions: it then prunes the output. 7# 8# Intermediary files are created, call libeay.num and ssleay.num,... --- 105 unchanged lines hidden (view full) --- 114 $do_ctest=1 if $_ eq "ctest"; 115 $do_ctestall=1 if $_ eq "ctestall"; 116 #$safe_stack_def=1 if $_ eq "-DDEBUG_SAFESTACK"; 117 118 if (/^no-rc2$/) { $no_rc2=1; } 119 elsif (/^no-rc4$/) { $no_rc4=1; } 120 elsif (/^no-rc5$/) { $no_rc5=1; } 121 elsif (/^no-idea$/) { $no_idea=1; } | 1#!/usr/local/bin/perl -w 2# 3# generate a .def file 4# 5# It does this by parsing the header files and looking for the 6# prototyped functions: it then prunes the output. 7# 8# Intermediary files are created, call libeay.num and ssleay.num,... --- 105 unchanged lines hidden (view full) --- 114 $do_ctest=1 if $_ eq "ctest"; 115 $do_ctestall=1 if $_ eq "ctestall"; 116 #$safe_stack_def=1 if $_ eq "-DDEBUG_SAFESTACK"; 117 118 if (/^no-rc2$/) { $no_rc2=1; } 119 elsif (/^no-rc4$/) { $no_rc4=1; } 120 elsif (/^no-rc5$/) { $no_rc5=1; } 121 elsif (/^no-idea$/) { $no_idea=1; } |
| 122 elsif (/^no-des$/) { $no_des=1; } | 122 elsif (/^no-des$/) { $no_des=1; $no_mdc2=1; } |
| 123 elsif (/^no-bf$/) { $no_bf=1; } 124 elsif (/^no-cast$/) { $no_cast=1; } 125 elsif (/^no-md2$/) { $no_md2=1; } 126 elsif (/^no-md4$/) { $no_md4=1; } 127 elsif (/^no-md5$/) { $no_md5=1; } 128 elsif (/^no-sha$/) { $no_sha=1; } 129 elsif (/^no-ripemd$/) { $no_ripemd=1; } 130 elsif (/^no-mdc2$/) { $no_mdc2=1; } --- 568 unchanged lines hidden (view full) --- 699 foreach $sym (@symbols) { 700 (my $s, my $i) = $sym =~ /^(.*?)\\(.*)$/; 701 if (!defined($nums{$s})) { 702 printf STDERR "Warning: $s does not have a number assigned\n" 703 if(!$do_update); 704 } else { 705 (my $n, my $i) = split /\\/, $nums{$s}; 706 my %pf = (); | 123 elsif (/^no-bf$/) { $no_bf=1; } 124 elsif (/^no-cast$/) { $no_cast=1; } 125 elsif (/^no-md2$/) { $no_md2=1; } 126 elsif (/^no-md4$/) { $no_md4=1; } 127 elsif (/^no-md5$/) { $no_md5=1; } 128 elsif (/^no-sha$/) { $no_sha=1; } 129 elsif (/^no-ripemd$/) { $no_ripemd=1; } 130 elsif (/^no-mdc2$/) { $no_mdc2=1; } --- 568 unchanged lines hidden (view full) --- 699 foreach $sym (@symbols) { 700 (my $s, my $i) = $sym =~ /^(.*?)\\(.*)$/; 701 if (!defined($nums{$s})) { 702 printf STDERR "Warning: $s does not have a number assigned\n" 703 if(!$do_update); 704 } else { 705 (my $n, my $i) = split /\\/, $nums{$s}; 706 my %pf = (); |
| 707 my @p = split(/,/, ($i =~ /^.*?:(.*?):/,$1)); | 707 my @p = split(/,/, ($i =~ /^[^:]*:([^:]*):/,$1)); 708 my @a = split(/,/, ($i =~ /^[^:]*:[^:]*:[^:]*:([^:]*)/,$1)); |
| 708 # @p_purged must contain hardware platforms only 709 my @p_purged = (); 710 foreach $ptmp (@p) { 711 next if $ptmp =~ /^!?RSAREF$/; 712 push @p_purged, $ptmp; 713 } 714 my $negatives = !!grep(/^!/,@p); 715 # It is very important to check NT before W32 --- 5 unchanged lines hidden (view full) --- 721 || ($negatives && !grep(/^!WIN32$/,@p)))) 722 || ($W16 && (!@p_purged 723 || (!$negatives && grep(/^WIN16$/,@p)) 724 || ($negatives && !grep(/^!WIN16$/,@p))))) 725 && (!@p 726 || (!$negatives 727 && ($rsaref || !grep(/^RSAREF$/,@p))) 728 || ($negatives | 709 # @p_purged must contain hardware platforms only 710 my @p_purged = (); 711 foreach $ptmp (@p) { 712 next if $ptmp =~ /^!?RSAREF$/; 713 push @p_purged, $ptmp; 714 } 715 my $negatives = !!grep(/^!/,@p); 716 # It is very important to check NT before W32 --- 5 unchanged lines hidden (view full) --- 722 || ($negatives && !grep(/^!WIN32$/,@p)))) 723 || ($W16 && (!@p_purged 724 || (!$negatives && grep(/^WIN16$/,@p)) 725 || ($negatives && !grep(/^!WIN16$/,@p))))) 726 && (!@p 727 || (!$negatives 728 && ($rsaref || !grep(/^RSAREF$/,@p))) 729 || ($negatives |
| 729 && (!$rsaref || !grep(/^!RSAREF$/,@p))))) { | 730 && (!$rsaref || !grep(/^!RSAREF$/,@p)))) 731 && (!@a || (!$no_rc2 || !grep(/^RC2$/,@a))) 732 && (!@a || (!$no_rc4 || !grep(/^RC4$/,@a))) 733 && (!@a || (!$no_rc5 || !grep(/^RC5$/,@a))) 734 && (!@a || (!$no_idea || !grep(/^IDEA$/,@a))) 735 && (!@a || (!$no_des || !grep(/^DES$/,@a))) 736 && (!@a || (!$no_bf || !grep(/^BF$/,@a))) 737 && (!@a || (!$no_cast || !grep(/^CAST$/,@a))) 738 && (!@a || (!$no_md2 || !grep(/^MD2$/,@a))) 739 && (!@a || (!$no_md4 || !grep(/^MD4$/,@a))) 740 && (!@a || (!$no_md5 || !grep(/^MD5$/,@a))) 741 && (!@a || (!$no_sha || !grep(/^SHA$/,@a))) 742 && (!@a || (!$no_ripemd || !grep(/^RIPEMD$/,@a))) 743 && (!@a || (!$no_mdc2 || !grep(/^MDC2$/,@a))) 744 && (!@a || (!$no_rsa || !grep(/^RSA$/,@a))) 745 && (!@a || (!$no_dsa || !grep(/^DSA$/,@a))) 746 && (!@a || (!$no_dh || !grep(/^DH$/,@a))) 747 && (!@a || (!$no_hmac || !grep(/^HMAC$/,@a))) 748 && (!@a || (!$no_fp_api || !grep(/^FP_API$/,@a))) 749 ) { |
| 730 printf OUT " %s%-40s@%d\n",($W32)?"":"_",$s,$n; 731# } else { 732# print STDERR "DEBUG: \"$sym\" (@p):", 733# " rsaref:", !!(!@p 734# || (!$negatives 735# && ($rsaref || !grep(/^RSAREF$/,@p))) 736# || ($negatives 737# && (!$rsaref || !grep(/^!RSAREF$/,@p))))?1:0, --- 166 unchanged lines hidden --- | 750 printf OUT " %s%-40s@%d\n",($W32)?"":"_",$s,$n; 751# } else { 752# print STDERR "DEBUG: \"$sym\" (@p):", 753# " rsaref:", !!(!@p 754# || (!$negatives 755# && ($rsaref || !grep(/^RSAREF$/,@p))) 756# || ($negatives 757# && (!$rsaref || !grep(/^!RSAREF$/,@p))))?1:0, --- 166 unchanged lines hidden --- |