VladPolskiy/apache-http-server
1
0
Fork 0
mirror of https://github.com/apache/httpd.git synced 2025-08-20 16:09:55 +00:00
Code Issues Packages Projects Releases Wiki Activity

PR:

Browse Source 
Obtained from:
Submitted by:
Reviewed by:

  Whoops... the two converters were to be non-destructive, and should be
  allowed to run multiple times in a row without harm.  This fixes a
  snafu that created multiple #PROP lines when invoked repeatedly.


git-svn-id: https://svn.apache.org/repos/asf/httpd/httpd/trunk@85300 13f79535-47bb-0310-9956-ffa450edef68
This commit is contained in:
William A. Rowe Jr
2000-05-26 04:51:07 +00:00
parent 867c2e8557
commit ad04fc9543
1 changed files with 7 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
build/dsp5tocvs.pl
View File

@ -8,11 +8,14 @@ sub tovc6 {
if (m|.dsp$|) {
$tname = '.#' . $_;
$verchg = 0;
print "Convert VC6 project " . $_ . " to 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 5\.00|Format Version 6\.00|;
if ($src =~ s|Format Version 5\.00|Format Version 6\.00|) {
$verchg = -1;
}
$src =~ s|^(# ADD CPP .*)/Zi (.*)|$1/ZI $2|;
$src =~ s|^(# ADD BASE CPP .*)/Zi (.*)|$1/ZI $2|;
if ($src =~ s|^(!MESSAGE .*)\\\n|$1|) {
@ -20,8 +23,9 @@ sub tovc6 {
$src = $src . $cont;
}
print $dstfl $src;
if ($src =~ m|^# Begin Project|) {
print $dstfl "# PROP AllowPerConfigDependencies 0\n"; }
if ($verchg && $src =~ m|^# Begin Project|) {
print $dstfl "# PROP AllowPerConfigDependencies 0\n";
}
}
undef $srcfl;
undef $dstfl;