# KEHOME/knowledge/applications/SemanticWeb/OpenCyc/HowAirport.html
# Aug/25/2003


# How do I get from my house to the airport?

# tools used: MKE, OpenCyc
# Notes:
# MKE/OpenCyc is a manual interface at this time,
# using http://rhm.cdepot.net/bin/opencyc
#    $ opencyc server
#    $ opencyc browser
# OpenCyc does not have enough "common-sense"
# to ask for the address of my house, and
# to find the airport closest to my house.


ke$ set echo=off, kbmode=opencyc;

# initial MKR question
ke$ at time = future {
ke$ 	I do go from my house to the airport
ke>		with how = ?
ke> 	done;
ke> };
ke$ 

# map MKR terms to OpenCyc terms
ke$ at TimeInterval = futureTense-Generic {
ke$ 	I-TheWord do Translation-LocationChange
ke>		from fromLocation = my HumanResidence
ke>		to toLocation = the Airport-Physical
ke>		with planForTask = ?
ke> 	done;
ke> };
ke$ 

# map MKR syntax to CycL syntax
(planForTask ?plan
    (TimeInterval futureTense-Generic
	(Translation-LocationChange I-TheWord
	    (fromLocation (my HumanResidence))
	    (toLocation (the Airport-Physical)) )))

# simplify CycL question
(planForTask ?plan
    (Translation-LocationChange I-TheWord
	(fromLocation HumanResidence)
	(toLocation Airport-Physical) ))

# response from OpenCyc
Status: Suspended, Exhaust
Mt: UniversalVocabularyMt
No answers