GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-20 16:42:51 -06:00
Code Issues Packages Projects Releases Wiki Activity

add AdV category

Browse Source
This commit is contained in:
krasimir
2008-02-29 15:29:45 +00:00
parent 52b2d9e728
commit aa210a01c3
5 changed files with 23 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -9,8 +9,9 @@ concrete VerbBul of Verb = CatBul ** open Prelude, ResBul, ParadigmsBul in {
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 ;
s = \\t,a,p,agr,q => (predV vv).s ! t ! a ! p ! agr ! q ++ vp.ad ! False ++ "äà" ++ vp.s ! Pres ! Simul ! Pos ! agr ! False ;
imp = vp.imp ;
ad = \\_ => [] ;
s2 = vp.s2 ;
subjRole = vp.subjRole
} ;
@@ -21,7 +22,15 @@ concrete VerbBul of Verb = CatBul ** open Prelude, ResBul, ParadigmsBul in {
AdvVP vp adv = insertObj (\\_ => adv.s) vp ;
ReflV2 v = predV (reflV v v.c2.c) ;
AdVVP adv vp = {
s = \\t,a,p,agr,q => vp.s ! t ! a ! p ! agr ! False ;
imp = vp.imp ;
ad = \\q => vp.ad ! q ++ adv.s ++ case q of {True => "ëè"; False => []} ;
s2 = vp.s2 ;
subjRole = vp.subjRole
} ;
ReflV2 v = predV (reflV (v ** {lock_V=<>}) v.c2.c) ;
PassV2 v = insertObj (\\a => v.s ! VPassive (aform a.gn Indef (RObj Acc))) (predV verbBe) ;