Subversion Repositories DevTools

Rev

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

Rev 7319 Rev 7322
Line 256... Line 256...
256 
#                   toolset extension paths within the tree. These will be
 256 
#                   toolset extension paths within the tree. These will be
257 
#                   saved and later used when user tools and scripts are
 257 
#                   saved and later used when user tools and scripts are
258 
#                   invoked.
 258 
#                   invoked.
259 
#
 259 
#
260 
#   Examine:
 260 
#   Examine:
- 
 
 261 
#       - tools/bin/GBE_MACHTYPE/bin    - Hardware specfic tools
261 
#       - tools/bin/GBE_MACHTYPE    - Hardware specfic tools
 262 
#       - tools/bin/GBE_MACHTYPE        - Hardware specfic tools
262 
#       - tools/bin                 - Hardware independent tools - scripts
 263 
#       - tools/bin                     - Hardware independent tools - scripts
263 
#       - tools/scripts/GBE_MACHINE - Hardware specific scripts
 264 
#       - tools/scripts/GBE_MACHINE     - Hardware specific scripts
264 
#       - tools/scripts             - Hardware independent scripts (too)
 265 
#       - tools/scripts                 - Hardware independent scripts (too)
265 
#
 266 
#
266 
# Inputs          : self
 267 
# Inputs          : self
267 
#
 268 
#
268 
# Returns         : Nothing
 269 
# Returns         : Nothing
269 
#
 270 
#
Line 278... Line 279...
278 
    #
 279 
    #
279 
    my $base_dir = $self->{'base'};
 280 
    my $base_dir = $self->{'base'};
280 
    $base_dir = "$::Cwd/$BUILDINTERFACE"
 281 
    $base_dir = "$::Cwd/$BUILDINTERFACE"
281 
        if ( $self->{'type'} eq 'build' );
 282 
        if ( $self->{'type'} eq 'build' );
282 
 
 283 
 
- 
 
 284 
    my @searchList;
- 
 
 285 
    my $path = "/tools/bin";
- 
 
 286 
    foreach my $suffix ( "/$::GBE_MACHTYPE", "/$::GBE_MACHTYPE/bin", "" ) {
- 
 
 287 
        push @searchList, $path . $suffix;
- 
 
 288 
    }
- 
 
 289 
 
283 
    for my $path ("/tools/bin", "/tools/scripts" )
 290 
    $path = "/tools/scripts";
- 
 
 291 
    foreach my $suffix ( "/$::GBE_MACHTYPE", "" ) {
- 
 
 292 
        push @searchList, $path . $suffix;
- 
 
 293 
    }
- 
 
 294 
 
- 
 
 295 
    for my $path (@searchList )
284 
    {
 296 
    {
285 
        foreach my $suffix ( "/$::GBE_MACHTYPE", "" )
 297 
        my $dir = $base_dir . $path;
- 
 
 298 
        if ( isUsefulDir( $dir ) )
286 
        {
 299 
        {
287 
            my $dir = $base_dir . $path . $suffix;
 - 
 
288 
            if ( isUsefulDir( $dir ) )
 - 
 
289 
            {
 - 
 
290 
                ::UniquePush( \@{$self->{'TOOLDIRS'}}, $dir );
 300 
            ::UniquePush( \@{$self->{'TOOLDIRS'}}, $dir );
291 
                ::UniquePush( \@BUILDTOOLS, $dir );
 301 
            ::UniquePush( \@BUILDTOOLS, $dir );
292 
            }
 - 
 
293 
        }
 302 
        }
294 
    }
 303 
    }
295 
}
 304 
}
296 
 
 305 
 
297 
#-------------------------------------------------------------------------------
 306 
#-------------------------------------------------------------------------------