#!/bin/sh
#
# substitute KOI8-R pattern to KOI8R-1 in font properties
#
# Solve a problem:
# some old X-servers and X applications can't accept
# XFLD like -*-*-*....-koi8-r,
# but ...-koi8-1 or ...-koi8r-1 OK.
#
# 1996/09/04 -- vsv
#

for font in $@
do
  case $font in
  fonts.alias)
	if [ -f ./fonts.alias ]; then
		echo Aliases...
		mv $font "$font".b && \
		< "$font".b \
		sed -e 's/koi8-r$/koi8r-1/g' | \
		sed -e 's/koi8-1$/koi8r-1/g' \
		> $font
	fi
	;;
  *.bdf)
	echo $font
	mv $font "$font".b && \
	< "$font".b \
	( sed -e 's/KOI8-R$/KOI8R-1/g' | \
	sed -e 's/KOI8-1$/KOI8R-1/g' | \
	sed -e 's/^CHARSET_REGISTRY "KOI8"$/CHARSET_REGISTRY "KOI8R"/g' | \
	sed -e 's/^CHARSET_ENCODING "R"$/CHARSET_ENCODING "1"/g' \
	) > $font
	;;
  esac
done
