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

@@ -90,7 +90,9 @@ lin
-- copula-preceded complements.
-- : VPSlash -> VP ;
ReflVP vps = complSlash vps buru_NP ; ------ TODO
ReflVP vps =
let neureBurua : Agr => Str = \\a => reflPron ! a ++ "burua" ;
in vps ** insertComp neureBurua <vps : VerbPhrase> ;
-- : Comp -> VP ;
UseComp comp = insertComp comp.s (copulaVP comp.copula) ;
@@ -138,7 +140,7 @@ lin
-- Complement : Type = {s : Agr => Str ; copula : SyntVerb1 } ;
-- : AP -> Comp ;
CompAP ap = { s = \\agr => ap.s ++ artDef ! getNum agr ! Abs ! ap.ph ;
CompAP ap = { s = \\agr => ap.s ! agr ++ artDef ! getNum agr ! Abs ! ap.ph ;
copula = Izan };
-- : CN -> Comp ;