apr-commits mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From wr...@apache.org
Subject cvs commit: apr/build cvtdsp.pl
Date Thu, 02 Aug 2001 21:37:52 GMT
wrowe       01/08/02 14:37:52

  Modified:    build    cvtdsp.pl
  Log:
    Pool debugging is pretty cool... use build/cvtdsp.pl -d (or from Apache,
    srclib/apr/build/cvtdsp.pl -d) to enable.  Then build in debug mode.
  
  Revision  Changes    Path
  1.4       +40 -5     apr/build/cvtdsp.pl
  
  Index: cvtdsp.pl
  ===================================================================
  RCS file: /home/cvs/apr/build/cvtdsp.pl,v
  retrieving revision 1.3
  retrieving revision 1.4
  diff -u -r1.3 -r1.4
  --- cvtdsp.pl	2001/06/10 17:58:25	1.3
  +++ cvtdsp.pl	2001/08/02 21:37:52	1.4
  @@ -1,25 +1,29 @@
   use IO::File;
   use File::Find;
   
  -if ($ARGV[0] == '-6') {
  +if ($ARGV[0] eq '-6') {
       find(\&tovc6, '.');
   }
  -elsif ($ARGV[0] == '-5') {
  +elsif ($ARGV[0] eq '-5') {
       find(\&tovc5, '.');
   }
  -elsif ($ARGV[0] == '-w3') {
  +elsif ($ARGV[0] eq '-w3') {
       find(\&tow3, '.');
   }
  -elsif ($ARGV[0] == '-w4') {
  +elsif ($ARGV[0] eq '-w4') {
       find(\&tow4, '.');
   }
  -elsif ($ARGV[0] == '-ia64') {
  +elsif ($ARGV[0] eq '-ia64') {
       find(\&tovc64, '.');
   }
  +elsif ($ARGV[0] eq '-d') {
  +    find(\&todebugpools, '.');
  +}
   else {
       print "Specify -5 or -6 for Visual Studio 5 or 6 (98) .dsp format\n";
       print "Specify -w3 or -w4 for .dsp build with warning level 3 or 4 (strict)\n\n";
       print "Specify -ia64 for build targeted at Itanium (req's psdk tools)\n\n";
  +    print "Specify -p for extreme pool debugging\n\n";
       die "Missing argument";
   }
   
  @@ -190,3 +194,34 @@
   	}
       }
   }
  +
  +sub todebugpools { 
  +
  +    if (m|.dsp$|) {
  +        $oname = $_;
  +	$tname = '.#' . $_;
  +        $verchg = 0;
  +	$srcfl = new IO::File $oname, "r" || die;
  +	$dstfl = new IO::File $tname, "w" || die;
  +	while ($src = <$srcfl>) {
  +	    if ($src =~ s|^(# ADD CPP .* /D "_DEBUG" )|$1/D "APR_POOL_DEBUG" |) {
  +		$verchg = -1;
  +                if ($oname =~ /apr\.dsp$/) {
  +	            $src =~ s|^(# ADD CPP .* /D "_DEBUG" )|$1/D "POOL_DEBUG" |;
  +                }
  +	    }
  +            print $dstfl $src; 
  +	}
  +	undef $srcfl;
  +	undef $dstfl;
  +	if ($verchg) {
  +	    unlink $oname || die;
  +	    rename $tname, $oname || die;
  +	    print "Converted project " . $oname . " to debug pools in " . $File::Find::dir . "\n";

  +	}
  +	else {
  +	    unlink $tname;
  +	}
  +    }
  +}
  +
  
  
  

Mime
View raw message