summaryrefslogtreecommitdiff
path: root/bin/make_pretty.pl
diff options
context:
space:
mode:
authorSteve Huston <shuston@riverace.com>2001-03-28 17:07:30 +0000
committerSteve Huston <shuston@riverace.com>2001-03-28 17:07:30 +0000
commite3b6f0fa730f742fc2b80eb5e6772f052a07d7d7 (patch)
tree4f2104b64a5dd33e85192fd39e8643da9c299cb3 /bin/make_pretty.pl
parent2b1a78558c0934b277114c944de9e7989eb0f042 (diff)
downloadATCD-e3b6f0fa730f742fc2b80eb5e6772f052a07d7d7.tar.gz
ChangeLogTag:Wed Mar 28 11:55:39 2001 Steve Huston <shuston@riverace.com>
Diffstat (limited to 'bin/make_pretty.pl')
-rwxr-xr-xbin/make_pretty.pl21
1 files changed, 20 insertions, 1 deletions
diff --git a/bin/make_pretty.pl b/bin/make_pretty.pl
index fdc6b87763f..8335fb505de 100755
--- a/bin/make_pretty.pl
+++ b/bin/make_pretty.pl
@@ -113,11 +113,19 @@ sub is_warning ()
# Look for any warnings we should ignore
return 3 if (/^LINK : warning LNK4089:/);
+ # For some reason, there's a false license warning
+ return 3 if (/\(W\).*Compilation will proceed shortly./);
+
+ # AIX reports a bazillion multiple defines when doing templates.
+ return 3 if ($^O eq 'aix'
+ && m/^ld: \d+-\d+ WARNING: Duplicate symbol:/);
+
# Look for lines that also should be color coded, but not counted
# as warnings.
return 2 if (/see declaration of/);
# Look for warnings
+
return 1 if ((/warning/i && !/ warning\(s\)/)
|| /info: /i
|| /^make.*\*\*\*/);
@@ -127,9 +135,12 @@ sub is_warning ()
|| /^.*\.inl: /
|| /^.*\.cpp: /
|| /^.*\.java: /) {
- return 1;
+ return 1 if ($^O ne 'aix');
}
+ # IBM's compilers don't say the word "warning" - check for their code
+ return 1 if ($^O eq 'aix' && m/\d+-\d+ \(W\)/);
+
# didn't find anything
return 0;
}
@@ -143,6 +154,11 @@ sub is_error ()
{
# Look for any errors we should ignore
+ # AIX reports a bazillion multiple defines when doing templates; some
+ # have the word 'error' in the symbol name - ignore those.
+ return 0 if ($^O eq 'aix'
+ && m/^ld: \d+-\d+ WARNING: Duplicate symbol:/);
+
# Look for lines that also should be color coded, but not counted
# as errors.
return 2 if (/Types pointed to are unrelated/
@@ -164,6 +180,9 @@ sub is_error ()
|| /^Fatal\:/
|| /: fatal:/);
+ # Again, IBM's compilers speak in code langauge
+ return 1 if ($^O eq 'aix' && m/\d+-\d+ \([SI]\)/);
+
# didn't find anything
return 0;
}