#<HTML>
#<XMP>
# KEHOME/bin/mkrPutData
# rhm Jan/15/2003

# mkrPutData statement
# statement ::=
#	subject verb object = value
#
#   question ::=
#	subject is  object
#	subject isa object with differentia
#	subject rel object
#	subject has attribute
#	subject has attribute = value
#	subject do  action done
#	subject do  action = event done
#
#   rel ::=
#	isa | isu | iss
#	isc | isp | isg
#	isalt | ismem
#	isany | isall
#
# PutData triple
#   triple ::=
#	subject predicate object

subject="$1"
verb="$2"
object="$3"
value="$5"
differentia="$5"

    case "$verb" in
    is)	PutData "$subject" sameAs	"$object";;
    isa)PutData "$subject" instanceOf	"$object";;
    isu)PutData "$subject" type  	"$object";;
    iss)PutData "$subject" subClassOf	"$object";;
    isc)PutData "$object"  instanceOf	"$subject";;
    isp)PutData "$object"  type		"$subject";;
    isg)PutData "$object"  subClassOf	"$subject";;

    isa\*)PutData "$subject" isa* "$object";;
    isc\*)PutData "$object"  isa* "$subject";;

    has)PutData "$subject" "$object" "$value";;
    do)	PutData "$subject" "$object" "$value";;

    *)	PutData "$subject" "$object" "$value";;
    esac # end case $verb

#</XMP>
#</HTML>
