GitHub/gf-rgl
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-rgl.git synced 2026-05-28 01:18:57 -06:00
Code Issues Packages Projects Releases Wiki Activity

fix AdVVP, AdVVPSlash

Browse Source
This commit is contained in:
Krasimir Angelov
2026-04-15 06:45:39 +02:00
parent 9b6b94ec1d
commit 43f19f283e
1 changed files with 7 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
src/macedonian/VerbMkd.gf
View File

@@ -11,8 +11,9 @@ concrete VerbMkd of Verb = CatMkd ** open Prelude,ResMkd in {
perfect = \\a2 => a.s ++ vp.participle.perfect ! a2; perfect = \\a2 => a.s ++ vp.participle.perfect ! a2;
adjectival = \\a2 => a.s ++ vp.participle.adjectival ! a2; adjectival = \\a2 => a.s ++ vp.participle.adjectival ! a2;
adverbial = a.s ++ vp.participle.adverbial}; adverbial = a.s ++ vp.participle.adverbial};
noun_from_verb = a.s ++ vp.noun_from_verb; vtype = vp.vtype; noun_from_verb = a.s ++ vp.noun_from_verb;
compl = \\v => a.s ++ vp.compl ! {g = GSg Masc; p = P1}} ; vtype = vp.vtype;
compl = vp.compl} ;
lin AdVVPSlash a v = {present = \\a2,n,p => a.s lin AdVVPSlash a v = {present = \\a2,n,p => a.s
++ v.present ! a2 ! n ! p; ++ v.present ! a2 ! n ! p;
aorist = \\n,p => a.s ++ v.aorist ! n ! p; aorist = \\n,p => a.s ++ v.aorist ! n ! p;
@@ -24,9 +25,10 @@ concrete VerbMkd of Verb = CatMkd ** open Prelude,ResMkd in {
perfect = \\a2 => a.s ++ v.participle.perfect ! a2; perfect = \\a2 => a.s ++ v.participle.perfect ! a2;
adjectival = \\a2 => a.s ++ v.participle.adjectival ! a2; adjectival = \\a2 => a.s ++ v.participle.adjectival ! a2;
adverbial = a.s ++ v.participle.adverbial}; adverbial = a.s ++ v.participle.adverbial};
noun_from_verb = a.s ++ v.noun_from_verb; vtype = v.vtype; noun_from_verb = a.s ++ v.noun_from_verb;
compl = \\v2 => a.s ++ v.compl ! {g = GSg Masc; p = P1}; vtype = v.vtype;
c2 = {s = a.s ++ v.c2.s; c = v.c2.c}} ; compl = v.compl;
c2 = v.c2} ;
lin AdvVP vp adv = vp ** {compl = \\a => vp.compl ! a ++ adv.s} ; lin AdvVP vp adv = vp ** {compl = \\a => vp.compl ! a ++ adv.s} ;
lin AdvVPSlash vps adv = vps ** {compl = \\a => vps.compl ! a ++ adv.s} ; lin AdvVPSlash vps adv = vps ** {compl = \\a => vps.compl ! a ++ adv.s} ;
lin CompAP ap = {s = \\gn => ap.s ! Indef ! gn} ; lin CompAP ap = {s = \\gn => ap.s ! Indef ! gn} ;