Subversion Repositories DevTools

Rev

Rev 255 | Rev 261 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 255 Rev 257
Line 3343... Line 3343...
3343
            $fh->Write ( "# Source:  $name\n" );
3343
            $fh->Write ( "# Source:  $name\n" );
3344
            $fh->Write ( "#\n" );
3344
            $fh->Write ( "#\n" );
3345
 
3345
 
3346
            #
3346
            #
3347
            #   List include and library directories
3347
            #   List include and library directories
-
 
3348
            #   Need the True Path for windows.
-
 
3349
            #       Some makefile functions (wildcard) only work as expected
-
 
3350
            #       if the case of the pathname is correct. Really only a problem
-
 
3351
            #       with badly formed legecy packages where the Windows user
-
 
3352
            #       guessed at the package format.
-
 
3353
            #
3348
            #
3354
            #
3349
            for my $type (qw (PINCDIRS PLIBDIRS) )
3355
            for my $type (qw (PINCDIRS PLIBDIRS) )
3350
            {
3356
            {
3351
                for my $path ( @{$package->{$type}} )
3357
                for my $path ( @{$package->{$type}} )
3352
                {
3358
                {
3353
                    $fh->Write ( "$type\t+= $base$path\n" );
3359
                    $fh->Write ( "$type\t+= " . TruePath($base . $path) . "\n" );
3354
                }
3360
                }
3355
            }
3361
            }
3356
            $fh->Write ( "\n" );
3362
            $fh->Write ( "\n" );
3357
        }
3363
        }
3358
        $fh->Close();
3364
        $fh->Close();