Changeset 188

Show
Ignore:
Timestamp:
06/28/05 16:16:10
Author:
ben
Message:

Make zlib configurable, add tracing.

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • openpgpsdk/trunk/configure

    r187 r188  
    77use File::Spec; 
    88use POSIX qw(:errno_h); 
     9use IO::File; 
     10 
     11our $Log; 
     12our $LogFile; 
     13 
     14sub trace { 
     15    return if !$Log; 
     16 
     17    $Log->seek(0,2); 
     18    print $Log join '',@_; 
     19} 
    920 
    1021our %Subst=( 
    1122            'CRYPTO_LIBS' => '-lcrypto', 
     23            'INCLUDES' => '', 
    1224           ); 
    1325 
    …… 
    2537          '--with-zlib=' => sub { 
    2638              my $loc=shift; 
    27               $Subst{INCLUDES}.=" -I $loc/include"; 
     39              $Subst{INCLUDES}.=" -I $loc"; 
    2840          }, 
     41          '--log=' => sub { 
     42              $LogFile=shift; 
     43              $Log=new IO::File(">$LogFile"); 
     44              $Log->autoflush(1); 
     45          } 
    2946         ); 
    3047 
    3148my @Headers=qw(alloca.h); 
    3249my @Types=qw(time_t); 
     50my @RHeaders=qw(openssl/bn.h zlib.h); 
    3351 
    3452our %Knowledge=( 
    …… 
    5169 
    5270#my $os=`uname -s`; 
     71 
     72checkHeaders(\@RHeaders); 
    5373 
    5474$Subst{'CC'}=getKnowledge('cc'); 
    …… 
    175195    chdir($d) || croak "chdir($d): $!"; 
    176196 
    177 #    print $fh->filename(),"\n"; 
    178197    print $fh $code; 
    179 #    print $code; 
    180198    $fh->close(); 
    181199 
    182     my $cmd="$cc -Wall -Werror -c ".$f; 
    183 #    print "$cmd\n"; 
    184     my $ret=system("$cmd > /dev/null 2>&1"); 
     200    my $cmd="$cc $Subst{INCLUDES} -Wall -Werror -c ".$f; 
     201    trace("$cmd\n--code--\n$code\n--------\n"); 
     202    my $ret=system("$cmd >> $LogFile 2>&1"); 
     203 
    185204    my $obj=$fh->filename(); 
    186205    $obj =~ s/\.c$/.o/; 
    …… 
    223242} 
    224243 
     244sub checkHeaders { 
     245    my $headers=shift; 
     246 
     247    foreach my $h (@$headers) { 
     248        build("#include <$h>\n") || croak "Can't find required header $h"; 
     249    } 
     250}