#! /bin/ksh

cat hph.bib |
	sed 's/^\(%C .*\)-.*$/\1/' |
		ssformat -t "s/\<%C\>/<a href=Abstracts\/%I.html>%I<\/a>" 

exit

ID=`ssformat -t "%I" hph.bib`
for i in $ID
do
	B=`sssearch I=$i hph.bib |
		ssextract -f A |
			ssauthor |
				sed -e 's/%A //' -e 's/,.*$/ \//' |
					ff -D |
						sed -e 's/ $//' -e 's/\/$//' -e 's/ $//'`
	echo "%I $i"
	echo "%B $B"
	echo ""
done

exit

grep Keywords: < reviews.dat |
	sed '
		s/^\[...\///' |
			sort
exit

dm "if (x4=1 & x5>0 & x6=-.5) | (x4=1 & x5=-.5 & x6>0) then I else K" < ratanal.out

exit

echo "Number of papers with different average scores:"
echo "N	CUM	SCORE"
colex 7 < ratanal.out | uniq -c | dm x1 y2+x1 s2

echo "Number of papers with 3, 2, or 1 Ys:"
echo ""
echo "N	CUM	Ys"
(
echo "`grep YYY < ratanal.out | wc -l` YYY"
echo "`egrep 'YYN|YNY|NYY' < ratanal.out | wc -l` YY"
echo "`egrep 'YNN|NYN|NNY' < ratanal.out | wc -l` Y"
) | dm x1 y2+x1 s2

echo "Number of papers with 3 or 2 Ys, broken down by year:"
echo "YEAR	Ys	CUM"
for i in `series 1983 1994`
do
	grep "^$i" < ratanal.out |
		echo "$i	`egrep 'YYY|YYN|YNY|NYY' | wc -l`"
done | dm s1 x2 y3+x2

exit

# get all proceedings in one file per year

for date in 87 88 89 90 91 92 93 94
do
	cat $F/HFS$date-* > $date.bib
done

bibformat $B/New/HFS94-2* >> 94.bib

exit

# get all HFES proceedings entries from 1987-1994

ssextract -fD,P,T,S $B/Done/HFS* $B/New/HFS94-2* | 
	sssearch "P=(1,2,3,4,5,6,7,8,9,0)&P=-" | # there is a range of pages
		sssearch -r s=panel |
			ssformat -t "%D %P" |
				sed 's/-.*$/	/'