Subversion Repositories DevTools

Rev

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

Rev 6276 Rev 6504
Line 278... Line 278...
278 
    #
 278 
    #
279 
    my $base_dir = $self->{'base'};
 279 
    my $base_dir = $self->{'base'};
280 
    $base_dir = "$::Cwd/$BUILDINTERFACE"
 280 
    $base_dir = "$::Cwd/$BUILDINTERFACE"
281 
        if ( $self->{'type'} eq 'build' );
 281 
        if ( $self->{'type'} eq 'build' );
282 
 
 282 
 
- 
 
 283 
    my @searchList;
- 
 
 284 
    my $path = "/tools/bin";
- 
 
 285 
    foreach my $suffix ( "/$::GBE_MACHTYPE", "/$::GBE_MACHTYPE/bin" ) {
- 
 
 286 
        push @searchList, $path . $suffix;
- 
 
 287 
    }
- 
 
 288 
 
283 
    for my $path ("/tools/bin", "/tools/scripts" )
 289 
    $path = "/tools/scripts";
- 
 
 290 
    foreach my $suffix ( "/$::GBE_MACHTYPE", "" ) {
- 
 
 291 
        push @searchList, $path . $suffix;
- 
 
 292 
    }
- 
 
 293 
 
- 
 
 294 
    for my $path (@searchList )
284 
    {
 295 
    {
285 
        foreach my $suffix ( "/$::GBE_MACHTYPE", "" )
 296 
        my $dir = $base_dir . $path;
- 
 
 297 
        if ( isUsefulDir( $dir ) )
286 
        {
 298 
        {
287 
            my $dir = $base_dir . $path . $suffix;
 - 
 
288 
            if ( isUsefulDir( $dir ) )
 - 
 
289 
            {
 - 
 
290 
                ::UniquePush( \@{$self->{'TOOLDIRS'}}, $dir );
 299 
            ::UniquePush( \@{$self->{'TOOLDIRS'}}, $dir );
291 
                ::UniquePush( \@BUILDTOOLS, $dir );
 300 
            ::UniquePush( \@BUILDTOOLS, $dir );
292 
            }
 - 
 
293 
        }
 301 
        }
294 
    }
 302 
    }
295 
}
 303 
}
296 
 
 304 
 
297 
#-------------------------------------------------------------------------------
 305 
#-------------------------------------------------------------------------------