Subversion Repositories DevTools

Rev

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

Rev 251 Rev 255
Line 335... Line 335...
335
#                       and a list of service providers this file applies to.
335
#                       and a list of service providers this file applies to.
336
# $ProjectBase          Base of the user's project. This variable is designed to
336
# $ProjectBase          Base of the user's project. This variable is designed to
337
#                       be used by the user.
337
#                       be used by the user.
338
#....
338
#....
339
 
339
 
340
require 5.6.1;
340
require 5.006_001;
341
use strict;
341
use strict;
342
use warnings;
342
use warnings;
343
use Data::Dumper;
343
use Data::Dumper;
344
use JatsEnv;
344
use JatsEnv;
345
use MakeEntry;
345
use MakeEntry;
Line 1505... Line 1505...
1505
        {
1505
        {
1506
            if ( defined( $uvalue) )
1506
            if ( defined( $uvalue) )
1507
            {
1507
            {
1508
                if ( ref($uvalue) eq "CODE" )
1508
                if ( ref($uvalue) eq "CODE" )
1509
                {
1509
                {
1510
                    $uvalue = &$uvalue( $key, $value);
1510
                    $uvalue = &$uvalue( $key, $value, $ukey);
1511
                    unless ( defined $uvalue )
1511
                    unless ( defined $uvalue )
1512
                    {
1512
                    {
1513
                        Warning ("Compile Option ignored: $_");
1513
                        Warning ("Compile Option ignored: $_");
1514
                        next;
1514
                        next;
1515
                    }
1515
                    }
Line 7103... Line 7103...
7103
sub MakeQuote           # Quote a makefile text line
7103
sub MakeQuote           # Quote a makefile text line
7104
{
7104
{
7105
    my( $line ) = @_;
7105
    my( $line ) = @_;
7106
    $line =~ s/\\/\\\\/g;                       # quote all '\' characters
7106
    $line =~ s/\\/\\\\/g;                       # quote all '\' characters
7107
    $line =~ s/"/\\"/g;                         # Then quote '"' characters
7107
    $line =~ s/"/\\"/g;                         # Then quote '"' characters
-
 
7108
    $line =~ s/=#/=\\#/g;                       # Then quote '=#' sequence
7108
    print MAKEFILE $line;
7109
    print MAKEFILE $line;
7109
}
7110
}
7110
 
7111
 
7111
sub MakePrintList
7112
sub MakePrintList
7112
{
7113
{