#       mfpinc
#
#       module frame to pascal include file
#
#       TOOL            directory for tools
#       KEEPFLG         optional keep intermediate files flag
#
	USAGE="usage: $0 [-k] source "
#

set -e

while :
do
	case "$1" in

	-k )
		KEEPFLG="-k"; export KEEPFLG
		shift
		;;
	-* )
		echo "$USAGE"
		exit 1
		;;
	* )
		break
		;;
	esac
done
if [ $# -ne 1 ]
then
	echo "$USAGE"
	exit 1
fi
SOURCE="$1"; shift
BASE=`basename $SOURCE`



echo "$BASE"

mfspl $SOURCE   /dev/null /dev/null $BASE.cod

mfcod $BASE.cod $BASE.con $BASE.typ /dev/null /dev/null



if [ "$KEEPFLG" = "" ]
then
	rm -f   $BASE.cod
fi

