Commit 28b17074b52dd5cfcbb068ad4b8464a87a9a913e

Authored by Wojciech Jaworski
1 parent 34588dad

Poprawka w renderowaniu walencji

lexSemantics/ENIAMwalRenderer.ml
... ... @@ -187,10 +187,12 @@ let render_phrase_cat cat = function
187 187 | NP CaseUndef -> Tensor[Atom "np"; Atom cat; Top; Top; Top; Top]
188 188 | PrepNP(Psem,"",CaseUndef) -> Tensor[Atom "prepnp"; Atom cat; Atom "sem"; Top; Top]
189 189 | PrepNP(Psem,"_",CaseUndef) -> Tensor[Atom "prepnp"; Atom cat; Atom "sem"; Top; Top]
  190 + | PrepNP(Psem,"_",Case case) -> Tensor[Atom "prepnp"; Atom cat; Atom "sem"; Top; Atom case]
190 191 | PrepNP(Psem,prep,CaseUndef) -> Tensor[Atom "prepnp"; Atom cat; Atom "sem"; Atom prep; Top]
191 192 | PrepNP(Psem,prep,Case case) -> Tensor[Atom "prepnp"; Atom cat; Atom "sem"; Atom prep; Atom case]
192 193 | PrepNP(Pnosem,"",CaseUndef) -> Tensor[Atom "prepnp"; Atom cat; Atom "nosem"; Top; Top]
193 194 | PrepNP(Pnosem,"_",CaseUndef) -> Tensor[Atom "prepnp"; Atom cat; Atom "nosem"; Top; Top]
  195 + | PrepNP(Pnosem,"_",Case case) -> Tensor[Atom "prepnp"; Atom cat; Atom "nosem"; Top; Atom case]
194 196 | PrepNP(Pnosem,prep,CaseUndef) -> Tensor[Atom "prepnp"; Atom cat; Atom "nosem"; Atom prep; Top]
195 197 | PrepNP(Pnosem,prep,Case case) -> Tensor[Atom "prepnp"; Atom cat; Atom "nosem"; Atom prep; Atom case]
196 198 | AdjP(Case case) -> Tensor[Atom "adjp"; Atom cat; Top; Atom case; Top]
... ...