RE: MS VC++ with 2.0

["William A. Rowe, Jr." <wr...@lnd.com>]

> From: William A. Rowe, Jr. [mailto:wrowe@lnd.com]
> Sent: Tuesday, April 25, 2000 7:39 PM
> 
> The only people hitting the tree are committed committers...
> 
> I'll have the pl script for you tommorow to toggle.
> 
> I concur it is frustrating.  Thank you for mentioning the tree bloat.

Tommorow?  Could be more elegant, but they work.  Don't solve the 
split-line !MESSAGE issues, but I don't know that there are specific
rules about those.  They are painless, 6->6 and 5->5 don't hurt you.

Well, here are the two scrips, give them a whack.  They are ment to
run from the src folder (or higher, if you want to kill several projects
with one stone :-)

---------------- dsp5to6.pl --------------------
use IO::File;
use File::Find;

find(\&tovc6, '.');

sub tovc6 { 

    if (m|.dsp$|) {
	$tname = '.#' . $_;
	print "Convert project " . $_ . " to VC6 in " . $File::Find::dir . "\n"; 
	$srcfl = new IO::File $_, "r" || die;
	$dstfl = new IO::File $tname, "w" || die;
	while ($src = <$srcfl>) {
	    $src =~ s|Format Version 5\.00|Format Version 6\.00|;
            print $dstfl $src; 
	    if ($src =~ m|^# Begin Project|) {
		print $dstfl "# PROP AllowPerConfigDependencies 0\n"; }
	}
	undef $srcfl;
	undef $dstfl;
	unlink $_;
	rename $tname, $_;
    }
}


---------------- dsp6to5.pl --------------------
use IO::File;
use File::Find;

find(\&tovc5, '.');

sub tovc5 { 

    if (m|.dsp$|) {
	$tname = '.#' . $_;
	print "Convert project " . $_ . " to CVS standard VC5 in " . $File::Find::dir . "\n"; 
	$srcfl = new IO::File $_, "r" || die;
	$dstfl = new IO::File $tname, "w" || die;
	while ($src = <$srcfl>) {
	    $src =~ s|Format Version 6\.00|Format Version 5\.00|;
	    if ($src !~ m|^# PROP AllowPerConfigDependencies|) {
		print $dstfl $src; }
	}
	undef $srcfl;
	undef $dstfl;
	unlink $_;
	rename $tname, $_;
    }
}