kodjo
bef5f3208c
Fixed #62 : DefConceptParser: parsing error Fixed #64 : DefConceptParser: Failed to parse when too many concept keyword Fixed #65 : DefConceptParser : Add auto_eval keyword Fixed #66 : DefConceptParser : Add def_var keyword Fixed #67 : Add get_errors()
44 lines
886 B
Plaintext
44 lines
886 B
Plaintext
# define adjectives
|
|
push_ontology("english")
|
|
|
|
def concept adjective
|
|
|
|
def concept color
|
|
set_isa(color, adjective)
|
|
def concept red
|
|
def concept blue
|
|
def concept orange
|
|
def concept yellow
|
|
def concept green
|
|
def concept indigo
|
|
def concept violet
|
|
def concept cyan
|
|
def concept magenta
|
|
def concept black
|
|
def concept white
|
|
def concept grey
|
|
|
|
set_isa(red, color)
|
|
set_isa(blue, color)
|
|
set_isa(orange, color)
|
|
set_isa(yellow, color)
|
|
set_isa(green, color)
|
|
set_isa(indigo, color)
|
|
set_isa(violet, color)
|
|
set_isa(cyan, color)
|
|
set_isa(magenta, color)
|
|
set_isa(black, color)
|
|
set_isa(white, color)
|
|
set_isa(grey, color)
|
|
|
|
def concept size
|
|
size is an adjective
|
|
|
|
def concept tall
|
|
tall is a size
|
|
def concept short
|
|
short is a size
|
|
|
|
|
|
def concept qualify x from bnf adjective x as set_attr(x, c:adjective:, adjective) ret x
|
|
def concept qualify x from bnf x 'is' adjective as set_attr(x, c:adjective:, adjective) ret x |