mirror of
https://github.com/GrammaticalFramework/gf-rgl.git
synced 2026-06-17 23:30:14 -06:00
Make adjectives depend on agreement; Fix reflexives
This commit is contained in:
@@ -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 ;
|
||||
|
||||
Reference in New Issue
Block a user