granicus.if.org Git - apache/blob - build/dsp5tocvs.pl

   1 use IO::File;
   2 use File::Find;
   3
   4 chdir '..';
   5 find(\&tovc6, '.');
   6
   7 sub tovc6 {
   8
   9     if (m|.dsp$|) {
  10         $oname = $_;
  11         $tname = '.#' . $_;
  12         $verchg = 0;
  13         $srcfl = new IO::File $_, "r" || die;
  14         $dstfl = new IO::File $tname, "w" || die;
  15         while ($src = <$srcfl>) {
  16             if ($src =~ s|Format Version 5\.00|Format Version 6\.00|) {
  17                 $verchg = -1;
  18             }
  19             if ($src =~ s|^(# ADD CPP .*)/Zi (.*)|$1/ZI $2|) {
  20                 $verchg = -1;
  21             }
  22             if ($src =~ s|^(# ADD BASE CPP .*)/Zi (.*)|$1/ZI $2|) {
  23                 $verchg = -1;
  24             }
  25             if ($src =~ s|^(!MESSAGE .*)\\\n|$1|) {
  26                 $cont = <$srcfl>;
  27                 $src = $src . $cont;
  28                 $verchg = -1;
  29             }
  30             print $dstfl $src;
  31             if ($verchg && $src =~ m|^# Begin Project|) {
  32                 print $dstfl "# PROP AllowPerConfigDependencies 0\n";
  33             }
  34         }
  35         undef $srcfl;
  36         undef $dstfl;
  37         if ($verchg) {
  38             unlink $oname || die;
  39             rename $tname, $oname || die;
  40             print "Converted VC5 project " . $oname . " to VC6 in " . $File::Find::dir . "\n";
  41         }
  42         else {
  43             unlink $tname;
  44         }
  45     }
  46 }