msyds/gf-rgl
1
0
Fork 0
forked from GitHub/gf-rgl
Code Pull Requests Activity

respect the verb type in GerundAdv

Browse Source
This commit is contained in:
Krasimir Angelov
2018-07-27 11:55:06 +02:00
parent 7bf3409b05
commit 0d7df4d576
1 changed files with 5 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
src/bulgarian/ExtendBul.gf
View File

@@ -70,6 +70,11 @@ lin
GerundAdv, ByVP = \vp -> GerundAdv, ByVP = \vp ->
{s = vp.ad.s ++ {s = vp.ad.s ++
vp.s ! Imperf ! VGerund ++ vp.s ! Imperf ! VGerund ++
case vp.vtype of {
VNormal => "" ;
VMedial c => reflClitics ! c ;
VPhrasal c => personalClitics (agrP3 (GSg Masc)) ! c
} ++
vp.compl ! {gn=GSg Neut; p=P3}} ; vp.compl ! {gn=GSg Neut; p=P3}} ;
InOrderToVP vp = InOrderToVP vp =