#<HTML><pre>
# KEHOME/bin/mkr2cyc
# Aug/29/2003
# usage: mkr2cyc &lt;mkrfile &gt;cycfile
#   input  format: exit;
#   input  format: at view = mt;
#   input  format: do action od directobject done;
#   input  format: subject predicate object;
#   output format: see below

mt='#$UniversalVocabularyMt'

while read subject predicate object modifier end; do
	case "${subject%;}" in
	\(*)	# ( CycL pass thru )
		echo "$subject $predicate $object $modifier";
		continue;;
	exit)	# exit;
		echo "(exit)";
		exit;;
	at)	# at view = mt;
		mt=${modifier%;}
		echo "( WITH-MT $mt )";
		continue;;
	do)	# do action od directobject done;
		subject="cyc";
		action="${predicate%;}";
		directobject="${modifier%;}";
		echo "( $action $directobject )";
		continue;;
	*)	# subject predicate object;
		subject="${subject%;}";
		predicate="${predicate%;}";
		object="${object%;}";;
	esac

	case "$object" in
	\?) object="";;
	esac

	case "$predicate" in
	##### hierarchy #####
	isa)	echo "( genls         $subject $object )";
		echo "( isa           $subject $object )";;
	iss)	echo "( genls         $subject $object )";;
	isu)	echo "( isa           $subject $object )";;
	isc)	echo "( specs         $subject $object )";
		echo "( instances     $subject $object )";;
	isg)	echo "( specs         $subject $object )";;
	isp)	echo "( instances     $subject $object )";;

	isa\*)	echo "( all-genls     $subject $object )";
		echo "( all-isa       $subject $object )";;
	iss\*)	echo "( all-genls     $subject $object )";;
	isu\*)	echo "( all-isa       $subject $object )";;
	isc\*)	echo "( all-specs     $subject $object )";
		echo "( all-instances $subject $object )";;
	isg\*)	echo "( all-specs     $subject $object )";;
	isp\*)	echo "( all-instances $subject $object )";;

	*genlMt) # subject #$genlMt object;
		echo "(CYC-QUERY '($predicate $subject $object) $mt)";;

	########## action #####
	#####write-image) # do write-image to "world/name" done;
	#####	echo "( $predicate $modifier )";;
	#####generate-phrase) # do generate-phrase od expression done;
	#####	echo "( $predicate $modifier )";;
	#####ke-create-now) # do ke-create-now od "name" done;
	#####	echo "( $predicate $modifier )";;

	##### other predicate #####
	*)	echo "( $predicate $subject $object )";;
	esac
done
#</pre></HTML>
