#!/bin/sh

catfontsdir ()
{
    while read _IN
    do
      case "${_IN}" in
      [0-9]*|*-misc-marumoji-*) ;;
      *)       echo ${_IN} ;;
      esac
    done
}

addentries()
{
# font alias entry here!
cat <<EOF
maru14 -misc-marumoji-medium-r-normal--14-130-75-75-c-140-jisx0208.1983-0
maru16 -misc-marumoji-medium-r-normal--16-150-75-75-c-160-jisx0208.1983-0
maru18 -misc-marumoji-medium-r-normal--18-170-75-75-c-180-jisx0208.1983-0
7x14rkmaru -misc-marumoji-medium-r-normal--14-130-75-75-c-70-jisx0201.1976-0
7x14maru -misc-marumoji-medium-r-normal--14-130-75-75-c-70-iso8859-1 8x16rkmr -misc-marumoji-medium-r-normal--16-150-75-75-c-80-jisx0201.1976-0
8x16maru -misc-marumoji-medium-r-normal--16-150-75-75-c-80-iso8859-1
9x18rkmr -misc-marumoji-medium-r-normal--18-170-75-75-c-90-jisx0201.1976-0
9x18maru -misc-marumoji-medium-r-normal--18-170-75-75-c-90-iso8859-1
-misc-marumoji-medium-r-normal--14-100-100-100-c-70-iso8859-1 -misc-marumoji-medium-r-normal--14-130-75-75-c-70-iso8859-1
-misc-marumoji-medium-r-normal--14-100-100-100-c-70-jisx0201.1976-0 -misc-marumoji-medium-r-normal--14-130-75-75-c-70-jisx0201.1976-0
-misc-marumoji-medium-r-normal--14-100-100-100-c-140-jisx0208.1983-0 -misc-marumoji-medium-r-normal--14-130-75-75-c-140-jisx0208.1983-0
-misc-marumoji-medium-r-normal--16-120-100-100-c-80-iso8859-1 -misc-marumoji-medium-r-normal--16-150-75-75-c-80-iso8859-1
-misc-marumoji-medium-r-normal--16-120-100-100-c-80-jisx0201.1976-0 -misc-marumoji-medium-r-normal--16-150-75-75-c-80-jisx0201.1976-0
-misc-marumoji-medium-r-normal--16-120-100-100-c-160-jisx0208.1983-0 -misc-marumoji-medium-r-normal--16-150-75-75-c-160-jisx0208.1983-0
-misc-marumoji-medium-r-normal--18-130-100-100-c-90-iso8859-1 -misc-marumoji-medium-r-normal--18-170-75-75-c-90-iso8859-1
-misc-marumoji-medium-r-normal--18-130-100-100-c-90-jisx0201.1976-0 -misc-marumoji-medium-r-normal--18-170-75-75-c-90-jisx0201.1976-0
-misc-marumoji-medium-r-normal--18-130-100-100-c-180-jisx0208.1983-0 -misc-marumoji-medium-r-normal--18-170-75-75-c-180-jisx0208.1983-0
EOF
}

nfonts ()
{
	_L=0; while read _IN; do _L=$((${_L}+1)); done; echo ${_L}
}

case $2 in
POST-INSTALL)
	cd %%FONTSDIR%%
	touch fonts.dir
	(catfontsdir < fonts.dir; addentries) > fonts.dir.tmp
	nfonts < fonts.dir.tmp > fonts.dir
	cat fonts.dir.tmp >> fonts.dir
	rm -f fonts.dir.tmp
;;
DEINSTALL)
        cd %%FONTSDIR%%
	catfontsdir < fonts.dir > fonts.dir.tmp
	nfonts < fonts.dir.tmp > fonts.dir
	cat fonts.dir.tmp >> fonts.dir
	rm -f fonts.dir.tmp
	if [ -r fonts.dir -a `wc -l < fonts.dir` = 1 ]; then
		rm -f fonts.dir
	fi
;;
esac