Subversion Repositories DevTools

Rev

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

Rev 7319 Rev 7320
Line 57... Line 57...
57
    # set the version for version checking
57
    # set the version for version checking
58
    $VERSION     = 1.00;
58
    $VERSION     = 1.00;
59
 
59
 
60
    @EXPORT      = qw(ErrorConfig ErrorReConfig ErrorDoExit
60
    @EXPORT      = qw(ErrorConfig ErrorReConfig ErrorDoExit
61
                      ReportError Fatal Error Warning
61
                      ReportError Fatal Error Warning
-
 
62
                      WarnError
62
                      Message Message1
63
                      Message Message1
63
                      Information Information1
64
                      Information Information1
64
                      Question
65
                      Question
65
                      Verbose0 Verbose Verbose2 Verbose3
66
                      Verbose0 Verbose Verbose2 Verbose3
66
                      Debug0 Debug Debug2 Debug3
67
                      Debug0 Debug Debug2 Debug3
Line 357... Line 358...
357
#-------------------------------------------------------------------------------
358
#-------------------------------------------------------------------------------
358
# Function        : Information
359
# Function        : Information
359
#                   Message
360
#                   Message
360
#                   Question
361
#                   Question
361
#                   Warning
362
#                   Warning
-
 
363
#                   WarnError
362
#                   Error
364
#                   Error
363
#                   Verbose
365
#                   Verbose
364
#                   Debug
366
#                   Debug
365
#                   _Message ( Internal use only )
367
#                   _Message ( Internal use only )
366
#
368
#
Line 479... Line 481...
479
{
481
{
480
    _Message '(W)', @_ unless ( $::ScmQuiet > 2);
482
    _Message '(W)', @_ unless ( $::ScmQuiet > 2);
481
}
483
}
482
 
484
 
483
#-------------------------------------------------------------------------------
485
#-------------------------------------------------------------------------------
-
 
486
# Function        : WarnError 
-
 
487
#
-
 
488
# Description     : Display a warnign or an error based onthe first argument
-
 
489
#
-
 
490
# Inputs          : Mode    - True. Error, False warn
-
 
491
#                   ...     - Fed to warn or error
-
 
492
#
-
 
493
# Returns         : May not return 
-
 
494
#
-
 
495
sub WarnError
-
 
496
{
-
 
497
    my $mode = shift;
-
 
498
    if ($mode) {
-
 
499
        Error (@_);
-
 
500
    }
-
 
501
    Warning(@_);
-
 
502
}
-
 
503
 
-
 
504
 
-
 
505
#-------------------------------------------------------------------------------
484
# Function        : Question
506
# Function        : Question
485
#
507
#
486
# Description     : Display a Question message
508
# Description     : Display a Question message
487
#                   These cannot be disabled
509
#                   These cannot be disabled
488
#
510
#
Line 556... Line 578...
556
        $ScmExitCode = $1 || 1;
578
        $ScmExitCode = $1 || 1;
557
        shift @_;
579
        shift @_;
558
    }
580
    }
559
    _Message '(E)', @_;
581
    _Message '(E)', @_;
560
    $ScmErrorCount++;
582
    $ScmErrorCount++;
561
#    DebugTraceBack();
583
    #DebugTraceBack();
562
    ErrorDoExit() unless ( $ScmDelayExit );
584
    ErrorDoExit() unless ( $ScmDelayExit );
563
}
585
}
564
 
586
 
565
#-------------------------------------------------------------------------------
587
#-------------------------------------------------------------------------------
566
# Function        : ReportError
588
# Function        : ReportError