Subversion Repositories DevTools

Rev

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

Rev 227 Rev 239
Line 280... Line 280...
280 
#
 280 
#
281 
if ( $GBE_PLATFORM )
 281 
if ( $GBE_PLATFORM )
282 
{
 282 
{
283 
    Verbose2 ("GBE_PLATFORM: $GBE_PLATFORM");
 283 
    Verbose2 ("GBE_PLATFORM: $GBE_PLATFORM");
284 
    $gbe_platform{$_} = 1 foreach ( split( / /, $GBE_PLATFORM ) );
 284 
    $gbe_platform{$_} = 1 foreach ( split( / /, $GBE_PLATFORM ) );
- 
 
 285 
    $gbe_platform{GENERIC} = 1;
285 
}
 286 
}
286 
 
 287 
 
287 
#
 288 
#
288 
#   Read in the local Makefile.gbe file
 289 
#   Read in the local Makefile.gbe file
289 
#   This will provide a path to the interface directory
 290 
#   This will provide a path to the interface directory
Line 396... Line 397...
396 
        unless ( @commands);
 397 
        unless ( @commands);
397 
 
 398 
 
398 
    #
 399 
    #
399 
    #   Perform GBE_PLATFORM filtering
 400 
    #   Perform GBE_PLATFORM filtering
400 
    #
 401 
    #
401 
    if ( %gbe_platform )
 - 
 
402 
    {
 - 
 
403 
        my @filter;
 - 
 
404 
        foreach ( @platforms )
 - 
 
405 
        {
 - 
 
406 
            push @filter, $_ if ( exists $gbe_platform{$_} );
 402 
    @platforms = grep ( exists $gbe_platform{$_} , @platforms )
407 
        }
 - 
 
408 
        @platforms = @filter;
 403 
        if ( %gbe_platform );
409 
    }
 - 
 
410 
 
 404 
 
411 
    Error ("No platforms to be processed. Check GBE_PLATFORM")
 405 
    Error ("No platforms to be processed. Check GBE_PLATFORM")
412 
        unless ( @platforms );
 406 
        unless ( @platforms );
413 
 
 407 
 
414 
    #
 408 
    #