Subversion Repositories DevTools

Rev

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

Rev 5819 Rev 5867
Line 501... Line 501...
501 
    #
 501 
    #
502 
    while ( my($key,$value) = each(%BUILDALIAS_DELAY) )
 502 
    while ( my($key,$value) = each(%BUILDALIAS_DELAY) )
503 
    {
 503 
    {
504 
        if ( exists($BUILDALIAS{$key}) )
 504 
        if ( exists($BUILDALIAS{$key}) )
505 
        {
 505 
        {
506 
            abtWarning("BuildAlias() duplicates internal alias '$key'");
 506 
            abtWarning(0,"BuildAlias() duplicates internal alias '$key'");
507 
            next;
 507 
            next;
508 
        }
 508 
        }
509 
        $BUILDALIAS{$key} = $value;
 509 
        $BUILDALIAS{$key} = $value;
510 
    }
 510 
    }
511 
    ErrorDoExit();
 511 
    ErrorDoExit();
Line 935... Line 935...
935 
    #
 935 
    #
936 
    my $platform = $pInfo->{PLATFORM};
 936 
    my $platform = $pInfo->{PLATFORM};
937 
 
 937 
 
938 
    if ( defined ( $BUILDINFO{$platform}) && ! $Clobber)
 938 
    if ( defined ( $BUILDINFO{$platform}) && ! $Clobber)
939 
    {
 939 
    {
940 
        abtWarning("$fname() duplicate platform '$platform'");
 940 
        abtWarning(1,"$fname() duplicate platform '$platform'");
941 
        ErrorDoExit();
 - 
 
942 
        return;
 941 
        return;
943 
    }
 942 
    }
944 
 
 943 
 
945 
    #
 944 
    #
946 
    #   Add platform (tag) to various lists
 945 
    #   Add platform (tag) to various lists
Line 4110... Line 4109...
4110 
 
 4109 
 
4111 
    return $path;
 4110 
    return $path;
4112 
}
 4111 
}
4113 
 
 4112 
 
4114 
#-------------------------------------------------------------------------------
 4113 
#-------------------------------------------------------------------------------
4115 
# Function        : abtWarning
- 
 
4116 
#
 - 
 
4117 
# Description     : User Error, Build System Warning
 - 
 
4118 
#                   Used to tighten up builds, but to retain BuildSystem compatability
 - 
 
4119 
#
 - 
 
4120 
#                   Must use "ErrorDoExit();" to force termination
 - 
 
4121 
#                   Multiple error messages can be displayed before termination
 - 
 
4122 
#
- 
 
4123 
#                   ABT Mode is a bit more forgiving, but only for backward compatability
 - 
 
4124 
#                   Otherwise force users to fix the build.pl files.
 - 
 
4125 
#
 - 
 
4126 
# Inputs          : $msg            - Message to display
- 
 
4127 
#
 - 
 
4128 
# Returns         : May not return
 - 
 
4129 
#
 - 
 
4130 
sub abtWarning
 - 
 
4131 
{
 - 
 
4132 
    my ($msg) = @_;
 - 
 
4133 
    if ( $::GBE_ABT )
- 
 
4134 
    {
 - 
 
4135 
        Warning( $msg . ' -- ignored in ABT Mode' );
 - 
 
4136 
        return;
 - 
 
4137 
    }
 - 
 
4138 
    ReportError($msg);
 - 
 
4139 
}
 - 
 
4140 
 
 - 
 
4141 
#-------------------------------------------------------------------------------
 - 
 
4142 
# Function        : Usage
 4114 
# Function        : Usage
4143 
#
 4115 
#
4144 
# Description     : Display program usage information
 4116 
# Description     : Display program usage information
4145 
#
 4117 
#
4146 
# Inputs          : args            - Text message to display
 4118 
# Inputs          : args            - Text message to display