GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-01 07:12:50 -06:00
Code Issues Packages Projects Releases Wiki 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

9
lib/resource/bulgarian/VerbBul.gf
View File

@@ -1,4 +1,4 @@
concrete VerbBul of Verb = CatBul ** open ResBul, ParadigmsBul in {
concrete VerbBul of Verb = CatBul ** open Prelude, ResBul, ParadigmsBul in {
flags optimize=all_subs ;
@@ -8,6 +8,13 @@ concrete VerbBul of Verb = CatBul ** open ResBul, ParadigmsBul in {
ComplV3 v np np2 =
insertObj (\\_ => v.c2.s ++ np.s ! RObj v.c2.c ++ v.c3.s ++ np2.s ! RObj v.c3.c) (predV v) ;
ComplVV vv vp = {
s = \\t,a,p,agr,q => (predV vv).s ! t ! a ! p ! agr ! q ++ "äà" ++ vp.s ! Pres ! Simul ! Pos ! agr ! False ;
imp = vp.imp ;
s2 = vp.s2 ;
subjRole = vp.subjRole
} ;
ComplVS v s = insertObj (\\_ => "," ++ "֌" ++ s.s) (predV v) ;
UseComp comp = insertObj comp.s (predV verbBe) ;