diff options
author | Ossama Othman <ossama-othman@users.noreply.github.com> | 2000-09-07 19:07:57 +0000 |
---|---|---|
committer | Ossama Othman <ossama-othman@users.noreply.github.com> | 2000-09-07 19:07:57 +0000 |
commit | 22b4598f24588ee40bb46a4ccad85a5fe2cd169a (patch) | |
tree | 527efe0f824907b5ddea041006f0e27489acba93 /bin | |
parent | 536bb9d6adacd13fea5448bc43883966d39d7c36 (diff) | |
download | ATCD-22b4598f24588ee40bb46a4ccad85a5fe2cd169a.tar.gz |
ChangeLogTag:Thu Sep 7 12:07:14 2000 Ossama Othman <ossama@uci.edu>
Diffstat (limited to 'bin')
-rwxr-xr-x | bin/autoconf_compile | 92 |
1 files changed, 63 insertions, 29 deletions
diff --git a/bin/autoconf_compile b/bin/autoconf_compile index 0f09fe8b33f..0163dfb6487 100755 --- a/bin/autoconf_compile +++ b/bin/autoconf_compile @@ -112,7 +112,7 @@ $REVISION='$Revision$ '; $disable_file = $LOGDIR . '/.disable'; $histfile = $LOGDIR . '/history'; -$LOGBASE = POSIX::strftime("%b%d_%Y.log", localtime); +$LOGBASE = POSIX::strftime("%b%d_%Y.txt", localtime); $LOGFILE = $LOGDIR . '/' . $LOGBASE; $HOST = `hostname`; chop $HOST; @@ -243,6 +243,8 @@ if ($dont_update == 0) { print LOG "$CMD: starting checkout at ", $date, "\n"; open(CVS, "cvs -q checkout -P $MODULE 2>&1 |") || mydie "cannot start checkout of $MODULE"; +# open(CVS, "cvsup -g -L 2 -P m ace-supfile 2>&1 |") +# || mydie "cannot start checkout"; $conflicts = 0; while (<CVS>) { @@ -350,10 +352,10 @@ if ($pre_clean) { $MAKEFLAGS .= ""; foreach $i (@BUILD_LIST) { $date = localtime; - print LOG "$CMD: ==================================================\n"; + print LOG "$CMD: =============================================\n"; print LOG "$CMD: make for $i started at ", $date, "\n"; open(MAKE, "make -k $MAKEFLAGS -C $i 2>&1 |") - || mydie "cannot start make for $i"; + || mydie "cannot start make for $i"; local $current_dir = $i; local $last_error = ""; @@ -365,35 +367,35 @@ foreach $i (@BUILD_LIST) { } print LOG $_, "\n"; - if (m/^make(\[[0-9]+\])?: Entering directory /) { - s/^make(\[[0-9]+\])?: Entering directory //; - $current_dir = $_; - } - if (m/error:/i || m/error /i - || m/^make(\[[0-9]+\])?: \*\*\*/) { - if ($last_error ne $current_dir - || STATUS eq "COMPILATION WARNING") { - $STATUS = "COMPILATION ERROR"; - push @failures, "Error while compiling in $current_dir \n"; - $last_error = $current_dir; - } - } - if (m/warning:/i || m/warning /i) { - if ($last_error ne $current_dir) { - if ($STATUS eq "OK") { - $STATUS = "COMPILATION WARNING"; - } - push @failures, "Warning while compiling in $current_dir\n"; - $last_error = $current_dir; - } - } + if (m/^make(\[[0-9]+\])?: Entering directory /) { + s/^make(\[[0-9]+\])?: Entering directory //; + $current_dir = $_; + } + if (m/error:/i || m/error /i + || m/^make(\[[0-9]+\])?: \*\*\*/) { + if ($last_error ne $current_dir + || STATUS eq "COMPILATION WARNING") { + $STATUS = "COMPILATION ERROR"; + push @failures, "Error while compiling in $current_dir \n"; + $last_error = $current_dir; + } + } + if (m/warning:/i || m/warning /i) { + if ($last_error ne $current_dir) { + if ($STATUS eq "OK") { + $STATUS = "COMPILATION WARNING"; + } + push @failures, "Warning while compiling in $current_dir\n"; + $last_error = $current_dir; + } + } } if (close(MAKE) == 0) { - push @failures, "errors while running make in $i"; + push @failures, "errors while running make in $i"; } $date = localtime; print LOG "$CMD: make for $i finished at ", $date, "\n"; - print LOG "$CMD: ==================================================\n\n"; + print LOG "$CMD: =============================================\n\n"; } if ($dont_run == 0) { @@ -419,11 +421,42 @@ if ($dont_run == 0) { $run_error = 0; open(CHECK, "make -k $MAKEFLAGS -C $subdir check 2>&1 |"); + local $current_dir = $i; + local $last_error = ""; while (<CHECK>) { - print LOG $_; + chop; + if ($^O eq 'hpux' + && m/^Warning:[ \t]+[0-9]+ future errors were detected/) { + next; + } + print LOG $_, "\n"; + + if (m/^make(\[[0-9]+\])?: Entering directory /) { + s/^make(\[[0-9]+\])?: Entering directory //; + $current_dir = $_; + } + if (m/error:/i || m/error /i + || m/^make(\[[0-9]+\])?: \*\*\*/) { + if ($last_error ne $current_dir + || STATUS eq "COMPILATION WARNING") { + $STATUS = "COMPILATION ERROR"; + push @failures, "Error while compiling in $current_dir \n"; + $last_error = $current_dir; + } + } + if (m/warning:/i || m/warning /i) { + if ($last_error ne $current_dir) { + if ($STATUS eq "OK") { + $STATUS = "COMPILATION WARNING"; + } + push @failures, "Warning while compiling in $current_dir\n"; + $last_error = $current_dir; + } + } if (m/Error/ || m/ERROR/ || m/FAILED/ + || m/failed/ || m/FAIL/ || m/EXCEPTION/ || m/pure virtual /i) { @@ -433,11 +466,12 @@ if ($dont_run == 0) { $run_error = 1; } } + if (close(CHECK) == 0) { if ($STATUS eq "OK") { $STATUS = "RUNTIME ERROR"; } - push @failures, "Error when closing pipe for in $i"; + push @failures, "Error when closing pipe in $i"; next; } $date = localtime; |