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 
{