Subversion Repositories DevTools

Rev

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

Rev 5709 Rev 5867
Line 67... Line 67...
67 
    Debug( "Common ($::ScmWho)" );
 67 
    Debug( "Common ($::ScmWho)" );
68 
    Debug( "version:   $::CommonVersion" );
 68 
    Debug( "version:   $::CommonVersion" );
69 
    Debug( "Debug:     $::ScmDebug" );
 69 
    Debug( "Debug:     $::ScmDebug" );
70 
    Debug( "Verbose:   $::ScmVerbose" );
 70 
    Debug( "Verbose:   $::ScmVerbose" );
71 
 
 71 
 
- 
 
 72 
    #   Envars used by this module
- 
 
 73 
    EnvImportOptional ( 'GBE_ABT' );                # optional ABT flags
- 
 
 74 
 
72 
    #
 75 
    #
73 
    #   Init the FileUtils package
 76 
    #   Init the FileUtils package
74 
    #   Sets various globals used throughout the program
 77 
    #   Sets various globals used throughout the program
75 
    #
 78 
    #
76 
    InitFileUtils();
 79 
    InitFileUtils();
Line 111... Line 114...
111 
           "Directive: $fname( $args );",
 114 
           "Directive: $fname( $args );",
112 
           "File: $filename, Line: $line" );
 115 
           "File: $filename, Line: $line" );
113 
}
 116 
}
114 
 
 117 
 
115 
#-------------------------------------------------------------------------------
 118 
#-------------------------------------------------------------------------------
- 
 
 119 
# Function        : abtWarning
- 
 
 120 
#
- 
 
 121 
# Description     : User Error, Build System Warning
- 
 
 122 
#                   Used to tighten up builds while retaining BuildSystem compatability
- 
 
 123 
#
- 
 
 124 
#                   ABT Mode is a bit more forgiving, but only for backward compatability
- 
 
 125 
#                   Otherwise force users to fix the build.pl and makefile.pl files.
- 
 
 126 
#
- 
 
 127 
# Inputs          : $mode           - True.   Exit if Error
- 
 
 128 
#                                     False.  Delay error exit. Use must use ErrorDoExit()
- 
 
 129 
#                   $msg            - Message to display
- 
 
 130 
#                   @msgbits        - Other message arguments
- 
 
 131 
#
- 
 
 132 
# Returns         : May not return
- 
 
 133 
#
- 
 
 134 
sub abtWarning
- 
 
 135 
{
- 
 
 136 
    my ($mode, $msg, @msgbits) = @_;
- 
 
 137 
    if ( $::GBE_ABT )
- 
 
 138 
    {
- 
 
 139 
        Warning( $msg . ' -- ignored in ABT Mode',  @msgbits);
- 
 
 140 
        return;
- 
 
 141 
    }
- 
 
 142 
    ReportError($msg, @msgbits);
- 
 
 143 
    ErrorDoExit() if $mode;
- 
 
 144 
}
- 
 
 145 
 
- 
 
 146 
#-------------------------------------------------------------------------------
116 
# Function        : ConfigLoad
 147 
# Function        : ConfigLoad
117 
#
 148 
#
118 
# Description     : Loads the global configuration details
 149 
# Description     : Loads the global configuration details
119 
#                   Details are held within the interface directory in "build.cfg"
 150 
#                   Details are held within the interface directory in "build.cfg"
120 
#
 151 
#