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

add ComplVQ, ComplVA and ComplV2A

Browse Source
This commit is contained in:
krasimir
2008-02-29 15:35:00 +00:00
parent 2513b80fd2
commit 714ba26940
1 changed files with 5 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
resource/bulgarian/VerbBul.gf
View File

@@ -17,6 +17,11 @@ concrete VerbBul of Verb = CatBul ** open Prelude, ResBul, ParadigmsBul in {
} ; } ;
ComplVS v s = insertObj (\\_ => "," ++ "֌" ++ s.s) (predV v) ; ComplVS v s = insertObj (\\_ => "," ++ "֌" ++ s.s) (predV v) ;
ComplVQ v q = insertObj (\\_ => q.s ! QIndir) (predV v) ;
ComplVA v ap = insertObj (\\agr => ap.s ! aform agr.gn Indef (RObj Acc)) (predV v) ;
ComplV2A v np ap =
insertObj (\\_ => v.c2.s ++ np.s ! RObj v.c2.c ++ ap.s ! aform np.a.gn Indef (RObj Acc)) (predV v) ;
UseComp comp = insertObj comp.s (predV verbBe) ; UseComp comp = insertObj comp.s (predV verbBe) ;