#!/bin/sh
#
#ident  "@(#)r.ttmapsdir	1.3	00/08/18 SMI"
#
# Copyright (c) 1996, 2000 by Sun Microsystems, Inc.
#
# NOTE: Any changes in FROM-ENCODING, TO-ENCODING and FILENAME must be in sync 
#      with xc/fonts/scaled/TrueType/ttmaps.dir
 
cat > /tmp/$$ttmaps.dir.delete  << EOF
FROM-ENCODING iso8859-1
TO-ENCODING unicode
FILENAME iso8859-1.ttmap
FROM-ENCODING iso8859-2
TO-ENCODING unicode
FILENAME iso8859-2.ttmap
FROM-ENCODING sun-fontspecific 
TO-ENCODING ms-symbol 
FILENAME symbol.ttmap
FROM-ENCODING dingbats-1
TO-ENCODING unicode
FILENAME dingbats-1.ttmap
EOF

awk '	BEGIN 		{ print "BEGIN {"}
 	/FROM-ENCODING/ { from = $2 } 
	/TO-ENCODING/ 	{ to = $2 } 
	/FILENAME/ 	{ printf "deletes[\"%s/%s/%s\"] = 1;\n", from, to , $2} 
	END 		{ print "}" }' \
 /tmp/$$ttmaps.dir.delete > /tmp/$$ttmaps.dir.delete.awk

cat >> /tmp/$$ttmaps.dir.delete.awk <<EOF
    /FROM-ENCODING/	{ from = \$2 ; to = "" } 
    /TO-ENCODING/ 	{ to = \$2 } 
    /FILENAME/	 	{ if ( (from != "") && (to != "") ) {
			    tuple = sprintf "%s/%s/%s", from, to , \$2 ;
			    if ( deletes[tuple] != 1 ) {
				printf "FROM-ENCODING %s\n", from;
				printf "TO-ENCODING %s\n", to;
				printf "FILENAME %s\n", \$2;
			    }
			  }
			} 
EOF

while read dest
do
	if [ -f $dest ] ; then
		awk -f /tmp/$$ttmaps.dir.delete.awk $dest \
		    > /tmp/$$ttmaps.dir.new
		count=`grep '^FILENAME' /tmp/$$ttmaps.dir.new | wc -l`
		if [ $count -eq 0 ]; then
			rm  $dest
		else
			echo $count > $dest
			cat /tmp/$$ttmaps.dir.new  >> $dest
		fi
		rm /tmp/$$ttmaps.dir.delete.awk /tmp/$$ttmaps.dir.delete \
			/tmp/$$ttmaps.dir.new
	fi
done

exit 0