adding tags for tripel subset selection in viz

parent f9b282e1
......@@ -162,17 +162,21 @@
:cxns
#{{:id :word-form
:match #{[(? :word) :form (? :form)]
[(? :word) :isa :word]}
[(? :word) :isa :word]
}
:call (comp
(mapcat (fn [b]
(map (fn [lex]
(assoc b (? :lex) (:id lex)))
(get lex-by-form (get b (? :form))))))
(introduce (? :interpretation)))
:merge #{[(? :interpretation) :isa :interpretation]
:merge #{[(? :word) :tag :syntax]
[(? :word) :tag :word]
[(? :interpretation) :isa :interpretation]
[(? :interpretation) :lexicon (? :lex)]
[(? :interpretation) :word (? :word)]}
:search-preference :restrict-merge
[(? :interpretation) :word (? :word)]
[(? :interpretation) :tag :syntax]}
:search-preference :min-bindings
}
{:id :definite-determiner
:match #{[(? :interpretation) :lexicon (? :lex)]}
......@@ -245,8 +249,9 @@
[(? :interpretation) :numerus "Plural"]
[(? :ref) :isa "Referent"]
[(? :ref) :has-number-value "Plural"]
[(? :ref) :tag :semantics]
}
:search-preference :restrict-merge
:search-preference :min-bindings
}
{:id :root-verb
:match #{[(? :v-intp) :lexicon (? :lex)]}
......@@ -284,6 +289,7 @@
[(? :det-intp) :referent (? :ref)]}
:call (introduce (? :np) (? :est-schema))
:merge #{[(? :np) :isa "NP"]
[(? :np) :tag :syntax]
[(? :np) :referent (? :ref)]
[(? :np) :numerus (? :numerus)]
[(? :np) :definiteness (? :def)]
......@@ -293,6 +299,7 @@
[(? :np) :evokes (? :est-schema)]
[(? :est-schema) :isa "ESTSchema"]
[(? :est-schema) :existing (? :ref)]
[(? :est-schema) :tag :semantics]
}}
{:id :VP
:match #{[(? :v-intp) :pos "V"]
......@@ -318,13 +325,18 @@
:merge #{[(? :clause) :subunit (? :vp)]
[(? :clause) :subunit (? :subj)]
[(? :clause) :clause-type (? :clause-type)]
[(? :clause) :tag :syntax]
[(? :clause) :tag :semantics]
[(? :clause) :functional-structure (? :func-struct)]
[(? :func-struct) :tag :syntax]
[(? :func-struct) :subject (? :subj)]
[(? :func-struct) :object (? :obj)]
[(? :subj) :referent (? :ref)]
[(? :subj) :form :null]
[(? :subj) :tag :syntax]
[(? :ref) :isa :discourse-participant]
[(? :ref) :physical-type :discourse-addressee]
[(? :ref) :tag :semantics]
[(? :vp) :syn-valence (? :syn-val)]
[(? :syn-val) :subject (? :subj)]
[(? :syn-val) :tag :syntax]
......@@ -345,14 +357,18 @@
:merge #{[(? :clause) :isa "ImperativeClause"]
[(? :trans) :is-expressed-by (? :clause)]
[(? :trans) :isa "StateTransition"]
[(? :trans) :tag :semantics]
;[(? :trans) :satisfies (? :verb-schema)]
[(? :clause) :expresses (? :illoc)]
[(? :illoc) :isa "Command"]
[(? :illoc) :tag :semantics]
[(? :trans) :has-terminal-state (? :terminal-state)]
[(? :terminal-state) :isa "Scene"]
[(? :terminal-state) :tag :semantics]
[(? :terminal-state) :scene-state :terminal]
[(? :trans) :has-initial-state (? :initial-state)]
[(? :initial-state) :isa "Scene"]
[(? :initial-state) :tag :semantics]
[(? :initial-state) :scene-state :initial]
}}
{:id :est-init-terminal
......@@ -404,6 +420,7 @@
:merge #{[(? :pp) :subunit (? :np)]
[(? :pp) :subunit (? :p)]
[(? :pp) :isa "PP"]
[(? :pp) :tag :syntax]
[(? :pp) :prep-id (? :p-form)]}}
{:id :NP-locative-On-PP
:match #{[(? :pp) :isa "PP"]
......@@ -423,9 +440,11 @@
(? :generalized-location))
:merge #{[(? :np) :subunit (? :pp)]
[(? :spatial-locating) :isa "SpatialLocating"]
[(? :spatial-locating) :tag :semantics]
[(? :spatial-locating) :locatum (? :ref)]
[(? :spatial-locating) :placement (? :generalized-location)]
[(? :generalized-location) :isa "GeneralizedLocation"]
[(? :generalized-locating) :tag :semantics]
[(? :generalized-location) :relatum (? :embed-ref)]
[(? :generalized-location) :hasSpatialModality "Support"]
}}
......@@ -477,15 +496,18 @@
:merge #{[(? :clause) :subunit (? :pp)]
[(? :trans) :satisfies (? :cause-motion)]
[(? :cause-motion) :isa "CauseMotionSchema"]
[(? :cause-motion) :tag :semantics]
[(? :cause-motion) :agent (? :agent)]
[(? :cause-motion) :trajector (? :trajector)]
[(? :cause-motion) :evokes (? :spg)]
[(? :spg) :isa "SPGSchema"]
[(? :spg) :tag :semantics]
[(? :spg) :source (? :source)]
[(? :spg) :path (? :path)]
[(? :spg) :goal (? :goal)]
[(? :term-state) :satisfies (? :tl-schema)]
[(? :tl-schema) :isa "TLSchema"]
[(? :tl-schema) :tag :semantics]
[(? :tl-schema) :trajector (? :trajector)]
[(? :tl-schema) :landmark (? :goal)]
}}
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment