Make adjectives depend on agreement; Fix reflexives

This commit is contained in:
Inari Listenmaa
2017-10-02 15:22:11 +02:00
parent 9c77f9d990
commit 5b91023e0e
8 changed files with 42 additions and 26 deletions

View File

@@ -71,12 +71,12 @@ lin
-- APs and CNs. FIXME: crude first attempt, doesn't work properly.
-- ConjCN gives `*nesk edo neskek'
lincat
[AP] = {s1,s2 : Str ; ph : Phono ; typ : APType } ;
[AP] = {s1,s2 : Agr => Str ; ph : Phono ; typ : APType } ;
lin
BaseAP x y = twoSS x y ** y ; --choose all the other fields from second argument
ConsAP as a = consrSS comma as a ** as ;
ConjAP co as = conjunctDistrSS co as ** as ;
BaseAP x y = twoTable Agr x y ** y ; --choose all the other fields from second argument
ConsAP as a = consrTable Agr comma as a ** as ;
ConjAP co as = conjunctDistrTable Agr co as ** as ;
lincat
[CN] = { s1,s2 : Agr => Str } ** CNLight ;