1#!/usr/local/bin/perl 2 3$infile="/home/eay/ssl/SSLeay/MINFO"; 4 5open(IN,"<$infile") || die "unable to open $infile:$!\n"; 6$_=<IN>; 7for (;;) 8 { --- 48 unchanged lines hidden (view full) --- 57 print "${_}.c\n"; 58 } 59 60sub var_add 61 { 62 local($dir,$val)=@_; 63 local(@a,$_,$ret); 64 |
65 return("") if $no_engine && $dir =~ /\/engine/; |
66 return("") if $no_idea && $dir =~ /\/idea/; 67 return("") if $no_rc2 && $dir =~ /\/rc2/; 68 return("") if $no_rc4 && $dir =~ /\/rc4/; 69 return("") if $no_rsa && $dir =~ /\/rsa/; 70 return("") if $no_rsa && $dir =~ /^rsaref/; 71 return("") if $no_dsa && $dir =~ /\/dsa/; 72 return("") if $no_dh && $dir =~ /\/dh/; 73 if ($no_des && $dir =~ /\/des/) --- 38 unchanged lines hidden (view full) --- 112 @a=grep(!/^n_pkey$/,@a) if $no_rsa || $no_rc4; 113 114 @a=grep(!/_dhp$/,@a) if $no_dh; 115 116 @a=grep(!/(^sha[^1])|(_sha$)|(m_dss$)/,@a) if $no_sha; 117 @a=grep(!/(^sha1)|(_sha1$)|(m_dss1$)/,@a) if $no_sha1; 118 @a=grep(!/_mdc2$/,@a) if $no_mdc2; 119 |
120 @a=grep(!/^engine$/,@a) if $no_engine; |
121 @a=grep(!/(^rsa$)|(^genrsa$)|(^req$)|(^ca$)/,@a) if $no_rsa; 122 @a=grep(!/(^dsa$)|(^gendsa$)|(^dsaparam$)/,@a) if $no_dsa; 123 @a=grep(!/^gendsa$/,@a) if $no_sha1; 124 @a=grep(!/(^dh$)|(^gendh$)/,@a) if $no_dh; 125 126 @a=grep(!/(^dh)|(_sha1$)|(m_dss1$)/,@a) if $no_sha1; 127 128 grep($_="$dir/$_",@a); 129 @a=grep(!/(^|\/)s_/,@a) if $no_sock; 130 @a=grep(!/(^|\/)bio_sock/,@a) if $no_sock; 131 $ret=join(' ',@a)." "; 132 return($ret); 133 } 134 |