#! /bin/ksh

# build refer format db from reviewer submission format
if test "$1" = "build"
then
sed '
	/Rating:/s/\[\(1[0-9]*\)\/\(19[89][0-9]\):\([0-9]*-[0-9]*\)\][ 	]*Rating:[ 	]*\([0-9iNA]*\)/%R \1\
%D \2\
%P \3\
%DP \2:\3\
%Q \1 \4/
	/Comments:/s/\[\(1[0-9]*\)\/\(19[89][0-9]\):\([0-9]*-[0-9]*\)\] *Comments: *\(.*\)$/%O (\1) \4/
	/Keywords:/s/^.*Keywords: */%K /
	' reviews.dat | sssort -f D:N -f P:N -f R:N | ssforder -f DP,Q,O | ssfill -w 50 -f O > reviews.db
fi

function transform
	{
	dm s1 "if x3 <= 3 then x3-4 else if x3=4 then '00' else if x3=5 then '+1' else if x3=6 then '+2' else if x3=7 then '+3' else '??'"
	}

# create summary table
if test "$1" = table
then
	TMP=/tmp/hphanal.$$
	ssformat -t "%DP %Q" < reviews.db | transform | group > $TMP
	dm "SUM/(N-1)" < $TMP | colex 5.2n1 | abut - $TMP | expand -8,40 > hph.rat
	rm $TMP
fi

# create summary of all ratings and comments
for dp in `ssformat -t %dp yyy.bib`
do
	# rating summary
	grep $dp < hph.rat
	# title and authors
	sssearch dp=$dp yyy.bib |
		ssextract -f T,A | ssfill -f T -w 50 |
			sed -e 's/%T //' -e 's/%A /	/' -e '/^$/d'
	# comments
	sssearch dp=$dp < reviews.db |
		ssformat -t "   COMMENTS: %O"
	echo ""
	echo ""
done


exit
[136/1983:1-5] Rating: 3
[136/1983:1-5] Comments: As a retrospective, perhaps - needs to be with an
updated companion article
[136/1983:1-5] Keywords: *O