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

added VV category

Browse Source
This commit is contained in:
krasimir
2008-02-28 14:59:02 +00:00
parent 750ecf1ee3
commit 52b2d9e728
5 changed files with 40 additions and 31 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
lib/resource/bulgarian/SentenceBul.gf
View File

@@ -19,6 +19,16 @@ concrete SentenceBul of Sentence = CatBul ** open Prelude, ResBul in {
SlashV2 np v2 =
mkClause (np.s ! RSubj) np.a (predV v2) ** {c2 = v2.c2} ;
SlashVVV2 np vv v2 =
mkClause (np.s ! RSubj) np.a
(let vp = predV vv
in { s = \\t,a,p,agr,q => vp.s ! t ! a ! p ! agr ! q ++ "äà" ++ v2.s ! (VPres (numGenNum agr.gn) agr.p) ;
imp = vp.imp ;
s2 = vp.s2 ;
subjRole = vp.subjRole
}) **
{c2 = v2.c2} ;
AdvSlash slash adv = {
s = \\t,a,b,o => slash.s ! t ! a ! b ! o ++ adv.s ;
c2 = slash.c2