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
#-------------------------------------------------------------------------------