Subversion Repositories DevTools

Rev

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

Rev 6192 Rev 6198
Line 344... Line 344...
344 
# Returns         : Reserved word or none
 344 
# Returns         : Reserved word or none
345 
#
 345 
#
346 
sub isKeyword
 346 
sub isKeyword
347 
{
 347 
{
348 
    my ($test) = @_;
 348 
    my ($test) = @_;
349 
    foreach my $keyword ( qw (NATIVE TOOLSET GENERIC INSTRUMENT PKG_DEB PKG_RPM PRG_WIN))
 349 
    foreach my $keyword ( @PlatformConfig::BuildKeywords )
350 
    {
 350 
    {
351 
        return $keyword if (uc($test) eq $keyword);
 351 
        return $keyword if (uc($test) eq $keyword);
352 
    }
 352 
    }
353 
 
 353 
 
354 
    return undef;
 354 
    return undef;
Line 417... Line 417...
417 
        }
 417 
        }
418 
    }
 418 
    }
419 
    Error( "BuildAlias() missing alias specifications" )
 419 
    Error( "BuildAlias() missing alias specifications" )
420 
        if ( $alias eq "" );
 420 
        if ( $alias eq "" );
421 
 
 421 
 
- 
 
 422 
    if ( isKeyword($alias) ) {
422 
    Error ("BuildAlias() attempt to alias a keyword: $alias")
 423 
        Error   ("BuildAlias() attempt to alias a keyword: $alias") unless defined($::GBE_ABT);
423 
        if ( isKeyword($alias) );
 424 
        Warning ("BuildAlias() attempt to alias a keyword: $alias -- builtin ignored");
- 
 
 425 
    }
424 
 
 426 
 
425 
    #
 427 
    #
426 
    #   If we need to recalculate the alias based on targets, then tag the alias
 428 
    #   If we need to recalculate the alias based on targets, then tag the alias
427 
    #   to be processed
 429 
    #   to be processed
428 
    #
 430 
    #
Line 824... Line 826...
824 
        Error("Invalid use of the platform alias $reserved","The $reserved alias cannot be used to define build platforms")
 826 
        Error("Invalid use of the platform alias $reserved","The $reserved alias cannot be used to define build platforms")
825 
            if (uc($target) eq uc($reserved));
 827 
            if (uc($target) eq uc($reserved));
826 
    }
 828 
    }
827 
 
 829 
 
828 
    #
 830 
    #
829 
    #   Allow per-platform processing to be alter the basic information
 831 
    #   Allow per-platform processing to alter the basic information
830 
    #   Special processing may be perform to extend the information
 832 
    #   Special processing may be perform to extend the information
831 
    #   Allows special processing to be enabled on a per-target basis
 833 
    #   Allows special processing to be enabled on a per-target basis
832 
    #
 834 
    #
833 
    #   There are three forms of processing that have been allowed for:
 835 
    #   There are three forms of processing that have been allowed for:
834 
    #       1) None:        There is not platform specific extension
 836 
    #       1) None:        There is not platform specific extension
Line 1495... Line 1497...
1495 
    Log( "DPKG_REPLI . $::GBE_DPKG_REPLICA" );
 1497 
    Log( "DPKG_REPLI . $::GBE_DPKG_REPLICA" );
1496 
    Log( "DPKG_CACHE . $::GBE_DPKG_CACHE" );
 1498 
    Log( "DPKG_CACHE . $::GBE_DPKG_CACHE" );
1497 
    Log( "DPKG_LOCAL . $::GBE_DPKG_LOCAL" );
 1499 
    Log( "DPKG_LOCAL . $::GBE_DPKG_LOCAL" );
1498 
    Log( "DPKG_SBOX .. $::GBE_DPKG_SBOX" );
 1500 
    Log( "DPKG_SBOX .. $::GBE_DPKG_SBOX" );
1499 
    Log( "Sandbox .... " . ($sandbox_exact ? "Exact" : "Development") );
 1501 
    Log( "Sandbox .... " . ($sandbox_exact ? "Exact" : "Development") );
1500 
    Log( "LocalFilter. $::GBE_SANDBOX/buildfilter") if ( $::GBE_SANDBOX && -f $::GBE_SANDBOX . '/buildfilter' );
 1502 
    Log( "LocalFilter. $::GBE_DPKG_SBOX/buildfilter") if ( $::GBE_DPKG_SBOX && -f $::GBE_DPKG_SBOX . '/buildfilter' );
1501 
 
 1503 
 
1502 
    #
 1504 
    #
1503 
    #   Generate a list of platforms that are completely unknown to JATS
 1505 
    #   Generate a list of platforms that are completely unknown to JATS
1504 
    #   May be the result of a user typo or a guess
 1506 
    #   May be the result of a user typo or a guess
1505 
    #
 1507 
    #
Line 3144... Line 3146...
3144 
    #   Calculate the aliases that are being extracted from targets
 3146 
    #   Calculate the aliases that are being extracted from targets
3145 
    #
 3147 
    #
3146 
    Process_TargetAlias();
 3148 
    Process_TargetAlias();
3147 
 
 3149 
 
3148 
    #
 3150 
    #
3149 
    #   Calculate NATIVE and INSTRUMENT alias
 3151 
    #   Calculate defined aliases
3150 
    #       Limit the Aliases to active platforms
 3152 
    #       Limit the Aliases to active platforms
3151 
    #       Another LMOS kudge. LMOS targets pick up alias from their base target
 3153 
    #       Another LMOS kudge. LMOS targets pick up alias from their base target
- 
 
 3154 
    #       ie: NATIVE INSTRUMENT PKG_WIN PKG_RPM PKG_DEB SK
3152 
    #
 3155 
    #
3153 
    foreach my $alias (qw( NATIVE INSTRUMENT PKG_WIN PKG_RPM PKG_DEB))
 3156 
    foreach my $alias ( @PlatformConfig::BuildAliases )
3154 
    {
 3157 
    {
3155 
        if (exists $BUILDALIAS{$alias})
 3158 
        if (exists $BUILDALIAS{$alias})
3156 
        {
 3159 
        {
- 
 
 3160 
            # Will occur if GBE_ABT has been set, for backward compatibility
3157 
            Warning("User has manually specified a $alias alias",'Default alias will not be set.');
 3161 
            Warning("User has manually specified a $alias alias",'Default alias will not be set.');
3158 
        }
 3162 
        }
3159 
        else
 3163 
        else
3160 
        {
 3164 
        {
3161 
            my %activePlatformMap;
 3165 
            my %activePlatformMap;