# <![CDATA[
# KEHOME/help/OpenCycWebServices.html
# Aug/15/2008
# OpenCyc Web Services (HTTP interface)
# kbmode := cycws;
global wsdirConcept, wsdirChar
# methods
# wsget_init() # initialize wsdir names
# wsget_url(url) # display url
# wsget_rootname(hname,hstack)
# cycws_question(qtype,line,symbol,stype,propname) # answer mKR question
# mkr2cyc(mkrverb) # translate verb from mKR to CycL
# cycws_command(cmd,line,symbol,stype,propname) # execute mKR command
# cycws_SubL(exp,line,symbol,stype,propname) # execute SubL expression
# wsget_denotation(x) # denotation values # English phrase has denotation = ?;
# wsget_concept(x,option) # concept browser # do find od x done; do find od x* done;
# wsget_property(x,prop) # property values # x has property = ?;
# wsget_genlmt(v) # v genlmt ?; # ? specmt x;
# wsget_specmt(v) # v specmt ?; # ? genlmt x;
# wsget_unit(x) # x isp ?; # ? isu x;
# wsget_primitive(x) # x isu ?; # ? isp x;
# wsget_species(x) # x isg ?; # ? iss x;
# wsget_genus(x) # x iss ?; # ? isg x;
# wsget_member(x) # x isall ?; # ? ismem x;
# wsget_ingroup(x) # x isalt ?; # ? isany x;
# wsget_alternative(x) # x isany ?; # ? isalt x;
# wsget_exgroup(x) # x ismem ?; # ? isall x;
# wsget_facets_Generic(x) # x has facets-Generic = ?;
# wsget_siblings(x) # x rel siblings = ?;
# wsget_comment(x) # x has comment = ?;
# wsget_prettystring(x) # x has prettyString = ?;
# wsget_prettystringCanonical(x)# x has prettyStringCanonical = ?;
# void
procedure wsget_init()
#=====================
# initialize wsdir constants
#wsdirConcept := "http://www.cycfoundation.org/concepts/"
wsdirConcept := "http://sw.cyc.com/2006/07/27/cyc/"
wsdirChar := "http://65.99.218.242:8080/RESTfulCyc/"
end # procedure ws_init
# ]]>