Re: [2/4]winemaker: add project-parse function

[Francois Gouget]

This one is wrapped too.
But the main problem is that it does not handle case fixes. This can be 
fixed by applying the attached patch on top of it.

With this, if you go test with the Programming Windows 98 samples, the 
following scenario works:

cd Chap03/HelloWin
winemaker HelloWin.dsp



-- 
Francois Gouget <fgou...@free.fr>              http://fgouget.free.fr/
           Cahn's Axiom: When all else fails, read the instructions.
commit e724fa2b721bb259419a0b62bacbea33a64856da
Author: Francois Gouget <fgou...@free.fr>
Date:   Sat Mar 28 20:06:47 2009 +0100

    winemaker: Better deal with case sensitivity issues in source_scan_project_file().

diff --git a/tools/winemaker b/tools/winemaker
index 2a878a6..d8c96d7 100755
--- a/tools/winemaker
+++ b/tools/winemaker
@@ -777,20 +777,8 @@ sub source_scan_project_file($$$)
                 #$libflag = 1;
                 next;
             } elsif (/^SOURCE=(.*)$/) {
-                $sfilet=$1;
-                if (($opt_lower == $OPT_LOWER_ALL and $sfilet =~ /[A-Z]/) or ($opt_lower == $OPT_LOWER_UPPERCASE and $sfilet !~ /[a-z]/)) {
-                    $sfilet=lc $sfilet; #to lowercase if necessary
-                }
-                $sfilet=~s/\\\\/\\/g; #remove double backslash
-                $sfilet=~s/^\.\\//; #remove starting 'this directory'
-                $sfilet=~s/\\/\//g; #make slashes out of backslashes
-                #    if ($sfilet =~ /^((\.\.\/)+)/){
-                #        print "Fix files and directories in $1 ? y or n: ";
-                #
-                #      if (<STDIN>=~/^y/i) {
-                #      fix_file_and_directory_names("$1"); #referenced files in upper directories? fix them!
-                #      }
-                #    }
+                my @components=split /[\/\\]+/, $1;
+                $sfilet=search_from($path, \...@components);
                 if ($sfilet =~ /\.(exe|dll)$/i) {
                     $targets{$sfilet}=1;
                 } elsif ($sfilet =~ /\.c$/i and $sfilet !~ /\.(dbg|spec)\.c$/) {