#! /bin/sh
# name-extract --- generate credits list from master files
#
# The elaborate awk/tr hackery sorts the namelist by last name.
#
echo '<?xml version="1.0" encoding="ISO-8859-1"?>'
echo "<screen>"
AWK=gawk	# This needs to be gawk or nawk
sed -n -e '/<!-- from.*</s/<!-- from \([^>]*>\).* -->/\1, /p' \
| $AWK '
{
	if (NF == 2)
		print $1 "~" $2 " ";
	else if (NF == 3)
		print $1 " " $2 " " $3 "~";
	else if (NF == 4)
		print $1 "~" $2 " " $3 " " $4 "~";
	else if (NF == 5)
		print $1 "~" $2 "~" $3 " " $4 " " $5 "~";
	else if (NF == 6)
		print $1 "~" $2 "~" $3 "~" $4 " " $5 " " $6 "~";
}
' | sort -u +1 -2 +0 -1 | tr "~" " " | nbreak 52 \
| sed -e "s/</\\&lt;/g" -e "s/>/\\&gt;/g"
echo "</screen>"



