#!/bin/sh
# -[Sun Mar  6 08:48:28 2005 by cxh]-
# Generate a quick summary of the code coverage
summaryfile=/users/ptdesign/public_html/java/js/coverage.html
summaryfile=/home/www/cvswww/ptolemy/nightly/coverage.html

cat <<EOF
Code Coverage for $summaryfile
Sorted by percent of methods covered

Package                        Method        Constructor   Basic Block
-------                        ------        -----------   -----------
EOF

awk '	$0 ~ /<th colspan=10>Package/ { split($4,p,"\"")
			 # Remove the leading ptolemy
			 nf=split(p[2],pp,".")
			 package=""
			 for(i=2;i < nf; i++) {
				package = package pp[i] "."
			 }
			package = package pp[nf]
			}
	$0 ~ /<TR><th align="center">TOTAL/   { 
		split($0,f,">")
		split(f[7],method,"<")
		split(f[9],constructor,"<")
		split(f[11],basicblock,"<")
		split(method[1],m2,"=")
		printf("%-30s %7s= %4s %11s    %11s\n", package, m2[1], m2[2], constructor[1], basicblock[1])
			
'} $summaryfile | sort +2bnr -3bnr
