Subversion Repositories DevTools

#-------------------------------------------------------------------------------

# Function        : QuoteDependency

#

# Description     : Escape/Quote a pathname for make

#                       Allow files with a $ in the name

#                       Allow files with a space in the name

#                       Allow files with a comma in the name

#                       Allow files with a colon in the name

#                       Allow for paths that have make-varible prefixes

#                           $(GBE_...)/

#                           as these may be generated internally

#

#                       Must also allow $(GBE_TYPE) in the remainder

#

# Inputs          : uarg                - Arg to quote

#

# Returns         : Quoted arg

#

sub QuoteDependency

{

    my ($uarg) = @_;

    #

    #   Split into two

    #       $(xxx)/             - Makefile variables

    #       Remainder           - Stuff to quote

    #

    $uarg =~ m~^((\$\(.*?\)/)*)(.*)~;

    my $prefix = defined $1 ? $1 : '';

    my $arg    = defined $3 ? $3 : '';

    $arg =~ s~\$(?!\(GBE_)~\$\$~g;       # $, not followed by (GBE_ - id not $(GBE_

    $arg =~ s~ ~\\ ~g;

    $arg =~ s~,~\$(comma)~g;

    $arg =~ s~%~\\%~g;

    $arg =~ s~:~\\:~g;

    return $prefix . $arg;

}

#-------------------------------------------------------------------------------

# Function        : AddDependancyEscaped

#

# Description     : Add a dependancy to the entry and Quote the value so that

#                   it can be it can be processed by make

#

# Inputs          : An array of dependencies to add

#

# Returns         :

#

sub AddDependancyEscaped

{

    my $self = shift;

    my @escaped;

    push @escaped, QuoteDependency($_) foreach (@_);

    UniquePush $self->{DEPENDANCY}, @escaped ;

}

#                   These will not be escaped.