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

add VerbBul.AdVVPSlash

Browse Source
This commit is contained in:
kr.angelov
2013-11-14 13:36:34 +00:00
parent ec82c3af9a
commit 05cec7c67d
1 changed files with 8 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
lib/src/bulgarian/VerbBul.gf
View File

@@ -83,6 +83,14 @@ concrete VerbBul of Verb = CatBul ** open Prelude, ResBul, ParadigmsBul in {
compl = vp.compl ; compl = vp.compl ;
vtype = vp.vtype vtype = vp.vtype
} ; } ;
AdVVPSlash adv vp = {
s = vp.s ;
ad = {isEmpty=False; s=vp.ad.s ++ adv.s} ;
compl1 = vp.compl1 ;
compl2 = vp.compl2 ;
vtype = vp.vtype ;
c2 = vp.c2
} ;
ReflVP slash = { ReflVP slash = {
s = slash.s ; s = slash.s ;