1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
|
#!/bin/sh
#
# This script parses the output of a gcc bootstrap when using warning
# flags and determines various statistics.
#
# usage: warn_summary [-llf] [-db|-base|-extensions|-gui|-guile|-xraw|-xdps]
# [-pass|-wpass] [file(s)]
#
# -llf
# Filter out long lines from the bootstap output before any other
# action. This is useful for systems with broken awks/greps which choke
# on long lines. It is not done by default as it sometimes slows things
# down.
#
# -db|-base|-extensions|-gui|-guile|-xraw|-xdps
# Only show warnings from the specified subdirectory.
# These flags assume the output contains "Entering/Leaving" messages from
# gnu make. They override each other so only the last one takes effect.
#
# -pass
# Pass through the bootstrap output after filtering stage and subdir
# (useful for manual inspection.) This is all lines, not just warnings.
# -wpass
# Pass through only warnings from the bootstrap output after filtering
# stage and subdir.
#
# By Kaveh Ghazi (ghazi@caip.rutgers.edu) 12/13/97.
# Tweaked for GNUstep core by M. Klose (doko@cs.tu-berlin.de) 12/17/98.
# Some awks choke on long lines, sed seems to do a better job.
# Truncate lines > 255 characters. RE '.\{255,\}' doesn't seem to work. :-(
# Only do this if -llf was specified, because it can really slow things down.
longLineFilter()
{
if test -z "$llf" ; then
cat $1
else
sed 's/^\(...............................................................................................................................................................................................................................................................\).*/\1/' $1
fi
}
# This function does one of three things. It either passes through
# all warning data, or passes through gcc toplevel warnings, or passes
# through a particular subdirectory set of warnings.
subdirectoryFilter()
{
longLineFilter $1 | (
if test -z "$filter" ; then
# Pass through all lines.
cat
else
# Pass through only subdir $filter.
$AWK "BEGIN {t=0} ; /^Making all in $filter\./{t=0} ; /Entering directory .*\/.*core.*\/$filter'/{t++} ; /Leaving directory .*\/.*core.*\/$filter'/{t--} ; {if(t==1)print}"
fi )
}
# This function displays lines containing warnings.
warningFilter()
{
grep ' warning: ' $1
}
# This function replaces `xxx' with `???', where xxx is usually some
# variable or function name. This allows similar warnings to be
# counted together when summarizing. However it avoids replacing
# certain C keywords which are known appear in various messages.
keywordFilter() {
sed 's/.*warning: //;
s/`\(int\)'"'"'/"\1"/g;
s/`\(long\)'"'"'/"\1"/g;
s/`\(char\)'"'"'/"\1"/g;
s/`\(inline\)'"'"'/"\1"/g;
s/`\(else\)'"'"'/"\1"/g;
s/`\(return\)'"'"'/"\1"/g;
s/`\(static\)'"'"'/"\1"/g;
s/`\(extern\)'"'"'/"\1"/g;
s/`\(const\)'"'"'/"\1"/g;
s/`\(noreturn\)'"'"'/"\1"/g;
s/`\(longjmp\)'"'"' or `\(vfork\)'"'"'/"\1" or "\2"/g;
s/`'"[^']*'/"'`???'"'/g;"'
s/.*format, .* arg (arg [0-9][0-9]*)/??? format, ??? arg (arg ???)/;
s/\([( ]\)arg [0-9][0-9]*\([) ]\)/\1arg ???\2/;
s/"\([^"]*\)"/`\1'"'"'/g'
}
# Start the main section.
usage="usage: `basename $0` [-llf] [-nosub|-ch|-cp|-f|-java] [-pass|-wpass] [file(s)]"
tmpfile=/tmp/tmp-warn.$$
# Remove $tmpfile on exit and various signals.
trap "rm -f $tmpfile" 0
trap "rm -f $tmpfile ; exit 1" 1 2 3 5 9 13 15
# Find a good awk.
if test -z "$AWK" ; then
for AWK in gawk nawk awk ; do
if type $AWK 2>&1 | grep 'not found' > /dev/null 2>&1 ; then
:
else
break
fi
done
fi
# Parse command line arguments.
while test -n "$1" ; do
case "$1" in
-llf) llf=1 ; shift ;;
-db|-base|-extensions|-gui|-guile|-xraw|-xdps)
filter="`expr $1 : '-\(.*\)'`" ; shift ;;
-pass) pass=1 ; shift ;;
-wpass) pass=w ; shift ;;
-*) echo $usage ; exit 1 ;;
*) break ;;
esac
done
for file in "$@" ; do
subdirectoryFilter $file > $tmpfile
# (Just) show me the warnings.
if test "$pass" != '' ; then
if test "$pass" = w ; then
warningFilter $tmpfile
else
cat $tmpfile
fi
continue
fi
if test -z "$filter" ; then
echo "Counting all warnings,"
else
if test "$filter" = nosub ; then
echo "Counting non-subdirectory warnings,"
else
echo "Counting warnings in the gstep-core/$filter subdirectory,"
fi
fi
count=`warningFilter $tmpfile | wc -l`
echo there are $count warnings in this build.
echo
echo Number of warnings per file:
warningFilter $tmpfile | $AWK -F: '{print$1}' | sort | uniq -c | sort -nr
echo
echo Number of warning types:
warningFilter $tmpfile | keywordFilter | sort | uniq -c | sort -nr
done
|
