Subversion Repositories DevTools

Rev

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

Rev 391 Rev 392
Line 9922... Line 9922...
9922 
#                       Allow files with a comma in the name
 9922 
#                       Allow files with a comma in the name
9923 
#                       Allow for paths that have make-varible prefixes
 9923 
#                       Allow for paths that have make-varible prefixes
9924 
#                           $(GBE_...)/
 9924 
#                           $(GBE_...)/
9925 
#                           as these may be generated internally
 9925 
#                           as these may be generated internally
9926 
#
 9926 
#
- 
 
 9927 
#                       Must also allow $(GBE_TYPE) in the remainder
- 
 
 9928 
#
9927 
# Inputs          : uarg                - Arg to quote
 9929 
# Inputs          : uarg                - Arg to quote
9928 
#
 9930 
#
9929 
# Returns         : Quoted arg
 9931 
# Returns         : Quoted arg
9930 
#
 9932 
#
9931 
 
 9933 
 
Line 9940... Line 9942...
9940 
    #
 9942 
    #
9941 
    $uarg =~ m~^((\$\(.*?\)/)*)(.*)~;
 9943 
    $uarg =~ m~^((\$\(.*?\)/)*)(.*)~;
9942 
    my $prefix = defined $1 ? $1 : '';
 9944 
    my $prefix = defined $1 ? $1 : '';
9943 
    my $arg    = defined $3 ? $3 : '';
 9945 
    my $arg    = defined $3 ? $3 : '';
9944 
 
 9946 
 
9945 
    $arg =~ s~\$~\$\$~g;
 9947 
    $arg =~ s~\$(?!\(GBE_)~\$\$~g;       # $, not followed by (GBE_ - id not $(GBE_
9946 
    $arg =~ s~ ~\\ ~g;
 9948 
    $arg =~ s~ ~\\ ~g;
9947 
    $arg =~ s~,~\$(comma)~g;
 9949 
    $arg =~ s~,~\$(comma)~g;
9948 
 
 - 
 
9949 
print "==== $uarg\n";
 - 
 
9950 
print "------ $prefix -- $arg\n";
 - 
 
9951 
    return $prefix . $arg;
 9950 
    return $prefix . $arg;
9952 
}
 9951 
}
9953 
 
 9952 
 
9954 
 
 9953 
 
9955 
#-------------------------------------------------------------------------------
 9954 
#-------------------------------------------------------------------------------