X-Git-Url: http://git.sourceforge.jp/view?p=pf3gnuchains%2Fgcc-fork.git;a=blobdiff_plain;f=contrib%2Fwarn_summary;h=253d244c3dd5aa590742a9090a378dee2bfc00f5;hp=4f2eefd31ee4051baebee4c2f8f3c6c6713949ce;hb=a1ed82f10d215a02c60f3f78fb2e97e9f4d09a38;hpb=6dc3a97aa76090cbdff05d123a98127b51506516

diff --git a/contrib/warn_summary b/contrib/warn_summary
index 4f2eefd31ee..253d244c3dd 100755
--- a/contrib/warn_summary
+++ b/contrib/warn_summary
@@ -3,11 +3,11 @@
 # This script parses the output of a gcc bootstrap when using warning
 # flags and determines various statistics.
 # 
-# usage: warn_summary [-llf] [-s stage] [-nosub|-ch|-cp|-f|-java|-intl|-fixinc]
+# usage: warn_summary [-llf] [-s stage] [-nosub|-ch|-cp|-f|-fortran|-java|-ada|-intl|-fixinc]
 # 	[-pass|-wpass] [file(s)]
 #
 # -llf
-# Filter out long lines from the bootstap output before any other
+# Filter out long lines from the bootstrap 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.
@@ -19,8 +19,8 @@
 #
 # -nosub
 # Only show warnings from the gcc top level directory.
-# -ch|-cp|-f|-java|-intl|-fixinc
-# Only show warnings from the specified language subdirectory.
+# -ch|-cp|-f|-fortran|-java|-ada|-intl|-fixinc
+# Only show warnings from the specified gcc subdirectory.
 # These override each other so only the last one passed takes effect.
 #
 # -pass
@@ -57,7 +57,7 @@ subdirectoryFilter()
   else
     if test "$filter" = nosub ; then
       # Omit all subdirectories.
-      egrep -v '/gcc/(ch|cp|f|java|intl|fixinc)/'
+      egrep -v '/gcc/(ch|cp|f|fortran|java|ada|intl|fixinc)/'
     else
       # Pass through only subdir $filter.
       grep "/gcc/$filter/"
@@ -107,7 +107,7 @@ keywordFilter() {
 	s/`\(const\)'"'"'/"\1"/g;
 	s/`\(noreturn\)'"'"'/"\1"/g;
 	s/`\(longjmp\)'"'"' or `\(vfork\)'"'"'/"\1" or "\2"/g;
-	s/`'"[^']*'/"'`???'"'/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'
@@ -132,7 +132,7 @@ s%^[^ ]*/\(lib[a-z23+-]*/\)%\1%;'
 
 # Start the main section.
 
-usage="usage: `basename $0` [-llf] [-s stage] [-nosub|-ch|-cp|-f|-java|-intl|-fixinc] [-pass|-wpass] [file(s)]"
+usage="usage: `basename $0` [-llf] [-s stage] [-nosub|-ch|-cp|-f|-fortran|-java|-ada|-intl|-fixinc] [-pass|-wpass] [file(s)]"
 stageN=3
 tmpfile=/tmp/tmp-warn.$$
 
@@ -158,7 +158,7 @@ while test -n "$1" ; do
    -s)  if test -z "$2"; then echo $usage 1>&2; exit 1; fi
 	stageN="$2"; shift 2 ;;
    -s*) stageN="`expr $1 : '-s\(.*\)'`" ; shift ;;
-   -nosub|-ch|-cp|-f|-java|-intl|-fixinc) filter="`expr $1 : '-\(.*\)'`" ; shift ;;
+   -nosub|-ch|-cp|-f|-fortran|-java|-ada|-intl|-fixinc) filter="`expr $1 : '-\(.*\)'`" ; shift ;;
    -pass) pass=1 ; shift ;;
    -wpass) pass=w ; shift ;;
    -*)  echo $usage 1>&2 ; exit 1 ;;