Subversion Repositories DevTools

Rev

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

Rev 5695 Rev 5708
Line 1... Line 1...
1
########################################################################
1
########################################################################
2
# Copyright (C) 2007 ERG Limited, All rights reserved
2
# Copyright (c) VIX TECHNOLOGY (AUST) LTD
3
#
3
#
4
# Module name   : jats.sh
4
# Module name   : jats.sh
5
# Module type   : Makefile system
5
# Module type   : Makefile system
6
# Compiler(s)   : n/a
6
# Compiler(s)   : n/a
7
# Environment(s): jats
7
# Environment(s): jats
Line 37... Line 37...
37
use JatsDPackage;
37
use JatsDPackage;
38
 
38
 
39
my $VERSION = "1.0.0";                      # Update this
39
my $VERSION = "1.0.0";                      # Update this
40
 
40
 
41
#
41
#
-
 
42
#   Default values
-
 
43
#   
-
 
44
use constant GBE_MAXMAKE_DEFAULT => '3h';
-
 
45
#
42
#   Options
46
#   Options
43
#
47
#
44
my $opt_debug   = $ENV{'GBE_DEBUG'};        # Allow global debug
48
my $opt_debug   = $ENV{'GBE_DEBUG'};        # Allow global debug
45
my $opt_verbose = $ENV{'GBE_VERBOSE'};      # Allow global verbose
49
my $opt_verbose = $ENV{'GBE_VERBOSE'};      # Allow global verbose
46
my $opt_help = 0;
50
my $opt_help = 0;
Line 232... Line 236...
232
 
236
 
233
# Global information
237
# Global information
234
#
238
#
235
EnvImportOptional ( 'GBE_ABT' );
239
EnvImportOptional ( 'GBE_ABT' );
236
EnvImportOptional ( 'GBE_PLATFORM' );
240
EnvImportOptional ( 'GBE_PLATFORM' );
237
EnvImportOptional ( 'GBE_MAXMAKE', '3h' );
241
EnvImportOptional ( 'GBE_MAXMAKE', GBE_MAXMAKE_DEFAULT );
238
 
242
 
239
#
243
#
240
#   Sanity check arguments
244
#   Sanity check arguments
241
#
245
#
242
$opt_max_make = $GBE_MAXMAKE unless defined $opt_max_make;
246
$opt_max_make = $GBE_MAXMAKE unless defined $opt_max_make;
243
Error ("Invalid maxTime: $opt_max_make") 
247
Error ("Invalid maxTime: $opt_max_make") 
244
    unless ($opt_max_make =~ m~^[0-9]*\.?[0-9]+[smhd]?$~);
248
    unless ($opt_max_make =~ m~^[0-9]*\.?[0-9]+[smhd]?$~);
245
Warning("Time limit is disabled ") unless $opt_max_make;
249
Warning("Time limit is disabled ") unless $opt_max_make;
246
#Information("Time limit: $opt_max_make");
250
Verbose("Time limit: $opt_max_make");
247
 
251
 
248
#
252
#
249
#   Configure the 'System' process so that it will terminate on any error
253
#   Configure the 'System' process so that it will terminate on any error
250
#   and not report the complete command line
254
#   and not report the complete command line
251
#
255
#