Subversion Repositories DevTools

Rev

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

Rev 4309 Rev 4324
Line 3694... Line 3694...
3694 
#                   that also includes the toolset extension
 3694 
#                   that also includes the toolset extension
3695 
#
 3695 
#
3696 
# Inputs          : program             - Name of program
 3696 
# Inputs          : program             - Name of program
3697 
#                   elist               - An array of possible program extensions
 3697 
#                   elist               - An array of possible program extensions
3698 
#
 3698 
#
3699 
# Returns         : Full path the to program or undef
 3699 
# Returns         : Full path the to program or an empty elelent (not undef)
3700 
#
 3700 
#
3701 
sub ToolExtensionProgram
 3701 
sub ToolExtensionProgram
3702 
{
 3702 
{
3703 
    my ($program, @elist ) = @_;
 3703 
    my ($program, @elist ) = @_;
3704 
 
 3704 
 
Line 3714... Line 3714...
3714 
    for my $dir ( ToolExtensionPaths() )
 3714 
    for my $dir ( ToolExtensionPaths() )
3715 
    {
 3715 
    {
3716 
        for my $ext ( @elist )
 3716 
        for my $ext ( @elist )
3717 
        {
 3717 
        {
3718 
            my $tool = "$dir/$program$ext";
 3718 
            my $tool = "$dir/$program$ext";
3719 
            Debug2( "ToolsetExtensionProgram: Look for: $tool" );
 3719 
            Debug( "ToolsetExtensionProgram: Look for: $tool" );
3720 
 
 3720 
 
3721 
            return $tool if ( -f $tool );
 3721 
            return $tool if ( -f $tool );
3722 
        }
 3722 
        }
3723 
    }
 3723 
    }
3724 
}
 3724 
}