#!/bin/sh

for foo in `find ` ;do
case $foo in
*.pas)
	perl -pe 's/MS Sans Serif/MS UI Gothic/g' $foo|perl -pe 's/Microsoft Sans Serif/MS UI Gothic/g' -|perl -pe 's/Arial/MS UI Gothic/g' -|perl -pe 's/Courier New/MS UI Gothic/g' -|perl -pe 's/Courier/MS UI Gothic/g' -|perl -pe 's/Terminal/MS UI Gothic/g' -|perl -pe 's/make\.exe/mingw32-make.exe/g' -|perl -pe 's/lib\\gcc-lib\\mingw32\\3.2/lib\\gcc-lib\\i686-pc-mingw32\\3.3.3/g' -|perl -pe 's/include\\c\+\+\\mingw32/include\\c\+\+\\3.3.3/g' -|perl -pe 's/include\\c\+\+\\backward/include\\c\+\+\\3.3.3\\backward/g' ->"$foo".tmp
	mv "$foo".tmp $foo
	;;
*.dfm)
	if ! grep 'object' $foo &>/dev/null ; then
		dfm2txt <$foo > "$foo".tmp
	mv "$foo".tmp $foo
	fi
	perl -pe 's/MS Sans Serif/MS UI Gothic/g' $foo|perl -pe 's/Microsoft Sans Serif/MS UI Gothic/g' -|perl -pe 's/Arial/MS UI Gothic/g' -|perl -pe 's/Courier New/MS UI Gothic/g' -|perl -pe 's/Courier/MS UI Gothic/g' -|perl -pe 's/Terminal/MS UI Gothic/g' -|perl -pe 's/Font.Height = -7/Font.Height = -9/g' ->"$foo".tmp
	mv "$foo".tmp $foo
	;;
*)
	;;
esac
done
exit 0

#|perl -pe 's/Font.Height = -7/Font.Height = -9/g' -
