Subversion Repositories DevTools

Rev

Rev 6276 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 6276 Rev 7447
Line 28... Line 28...
28 
our $All;
 28 
our $All;
29 
 
 29 
 
30 
our @BUILD_ACTIVEPLATFORMS  = ();               # Array of active platforms
 30 
our @BUILD_ACTIVEPLATFORMS  = ();               # Array of active platforms
31 
our @DEFBUILDPLATFORMS = ();
 31 
our @DEFBUILDPLATFORMS = ();
32 
our $GBE_TOOLS;
 32 
our $GBE_TOOLS;
- 
 
 33 
our $GBE_OPTS;
- 
 
 34 
our $LegacyMode = 0;                            # Indicates either ABT or a LEGACY build
33 
 
 35 
 
34 
#-------------------------------------------------------------------------------
 36 
#-------------------------------------------------------------------------------
35 
# Function        : CommonInit
 37 
# Function        : CommonInit
36 
#
 38 
#
37 
# Description     : Initialisation routine for this common code
 39 
# Description     : Initialisation routine for this common code
Line 55... Line 57...
55 
    Debug( "Debug:     $::ScmDebug" );
 57 
    Debug( "Debug:     $::ScmDebug" );
56 
    Debug( "Verbose:   $::ScmVerbose" );
 58 
    Debug( "Verbose:   $::ScmVerbose" );
57 
 
 59 
 
58 
    #   Envars used by this module
 60 
    #   Envars used by this module
59 
    EnvImportOptional ( 'GBE_ABT' );                # optional ABT flags
61 
    EnvImportOptional ( 'GBE_ABT' );                # optional ABT flags
- 
 
 62 
    EnvImportOptional ( 'GBE_OPTS', '' );           # optional OPTS flags
- 
 
 63 
                                                    #
- 
 
 64 
    $LegacyMode = $::GBE_ABT || $::GBE_OPTS =~ m/LEGACY/i;
60 
 
 65 
 
61 
    #
 66 
    #
62 
    #   Init the FileUtils package
 67 
    #   Init the FileUtils package
63 
    #   Sets various globals used throughout the program
 68 
    #   Sets various globals used throughout the program
64 
    #
 69 
    #
Line 119... Line 124...
119 
# Returns         : May not return
 124 
# Returns         : May not return
120 
#
 125 
#
121 
sub abtWarning
 126 
sub abtWarning
122 
{
 127 
{
123 
    my ($mode, $msg, @msgbits) = @_;
 128 
    my ($mode, $msg, @msgbits) = @_;
124 
    if ( $::GBE_ABT )
129 
    if ( $LegacyMode ) {
125 
    {
 - 
 
126 
        Warning( $msg . ' -- ignored in ABT Mode',  @msgbits);
 130 
        Warning( $msg . ' -- ignored in ABT/LEGACY Mode',  @msgbits);
127 
        return;
 131 
        return;
128 
    }
 132 
    }
129 
    ReportError($msg, @msgbits);
 133 
    ReportError($msg, @msgbits);
130 
    ErrorDoExit() if $mode;
 134 
    ErrorDoExit() if $mode;
131 
}
 135 
}