Subversion Repositories scarts

#!/bin/sh

#

# 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|-fortran|-java|-ada|-intl|-fixinc]

#       [-pass|-wpass] [file(s)]

#

# -llf

# 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.

#

# -s number

# Take warnings from stage "Number".  Stage 0 means show warnings from

# before and after the gcc bootstrap directory.  E.g. libraries, etc.

# This presupposes using "gcc -W*" for the stage1 compiler.

#

# -nosub

# Only show warnings from the gcc top level directory.

# -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

# 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.

# 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

  else

    sed 's/^\(...............................................................................................................................................................................................................................................................\).*/\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 | (

  if test -z "$filter" ; then

    # Pass through all lines.

    cat

  else

    if test "$filter" = nosub ; then

      # Omit all subdirectories.

      egrep -v '/gcc/(ch|cp|f|fortran|java|ada|intl|fixinc)/'

    else

      # Pass through only subdir $filter.

      grep "/gcc/$filter/"

    fi

  fi )

}

# This function displays all lines from stageN of the bootstrap.  If

# stage==0, then show lines prior to stage1 and lines from after the last

# stage.  I.e. utilities, libraries, etc.

stageNfilter()

{

  if test "$stageN" -lt 1 ; then

    # stage "0" means check everything *but* gcc.

    $AWK "BEGIN{t=1} ; /^Bootstrapping the compiler/{t=0} ; /^Building runtime libraries/{t=1} ; {if(t==1)print}"

  else

    if test "$stageN" -eq 1 ; then

      $AWK "/^Bootstrapping the compiler|^Building the C and C\+\+ compiler/{t=1} ; /stage$stageN/{t=0} ; {if(t==1)print}"

    else

      stageNminus1=`expr $stageN - 1`

      $AWK "/stage${stageNminus1}\//{t=1} ; /stage$stageN/{t=0} ; {if(t==1)print}"

    fi

  fi

}

# This function displays lines containing warnings.

warningFilter()

{

  grep ' warning: '

}

# 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'

}

# This function strips out relative pathnames for source files printed

# by the warningFilter function.  This is done so that as the snapshot

# directory name changes every week, the output of this program can be

# compared to previous runs without spurious diffs caused by source

# directory name changes.

srcdirFilter()

{

  sed '

s%^[^ ]*/\(gcc/\)%\1%;

s%^[^ ]*/\(include/\)%\1%;

s%^[^ ]*/\(texinfo/\)%\1%;

s%^[^ ]*/\(fastjar/\)%\1%;

s%^[^ ]*/\(zlib/\)%\1%;

s%^[^ ]*/\(lib[a-z23+-]*/\)%\1%;'

}

# Start the main section.

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.$$

# 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 ;;

   -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|-fortran|-java|-ada|-intl|-fixinc) filter="`expr $1 : '-\(.*\)'`" ; shift ;;

   -pass) pass=1 ; shift ;;

   -wpass) pass=w ; shift ;;

   -*)  echo $usage 1>&2 ; exit 1 ;;

   *)   break ;;

 esac

done

# Check for a valid value of $stageN.

case "$stageN" in

  [0-9]) ;;

  *) echo "Stage <$stageN> must be in the range [0..9]." 1>&2 ; exit 1 ;;

esac

for file in "$@" ; do

  stageNfilter < $file | subdirectoryFilter > $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 gcc/$filter subdirectory,"

    fi

  fi

  count=`warningFilter < $tmpfile | wc -l`

  echo there are $count warnings in stage$stageN of this bootstrap.

  echo

  echo Number of warnings per file:

  warningFilter < $tmpfile | srcdirFilter | $AWK -F: '{print$1}' | sort | \

    uniq -c | sort -nr

  echo

  echo Number of warning types:

  warningFilter < $tmpfile | keywordFilter | sort | uniq -c | sort -nr

done