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

DictEngBul is extended to 5000 words and there are few more functions in ParseEngBul

Browse Source
This commit is contained in:
kr.angelov
2012-06-29 09:57:02 +00:00
parent e2fdf3747f
commit 696a34bc22
5 changed files with 932 additions and 918 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1719
lib/src/bulgarian/DictEngBul.gf
View File

File diff suppressed because it is too large Load Diff

28
lib/src/bulgarian/ParseEngBul.gf
View File

@@ -31,7 +31,11 @@ lin
} ;
GerundAP v = {
s = \\aform => v.s ! Imperf ! VPresPart aform ;
s = \\aform => v.s ! Imperf ! VPresPart aform ++
case v.vtype of {
VMedial c => reflClitics ! c;
_ => []
};
adv = v.s ! Imperf ! VPresPart (ASg Neut Indef);
isPre = True
} ;
@@ -65,4 +69,26 @@ lin
SlashV2V vv p vp =
insertSlashObj2 (daComplex vp ! Perf) (slashV vv vv.c2) ;
PredVPosv np vp = {
s = \\t,a,p,o =>
let
subj = np.s ! (case vp.vtype of {
VNormal => RSubj ;
VMedial _ => RSubj ;
VPhrasal c => RObj c}) ;
verb : Bool => Str
= \\q => vpTenses vp ! t ! a ! p ! np.a ! q ! Perf ;
compl = vp.compl ! np.a
in case o of {
Main => compl ++ subj ++ verb ! False ;
Inv => verb ! False ++ compl ++ subj ;
Quest => compl ++ subj ++ verb ! True
}
} ;
PassVS vs vp =
insertObj (\\a => vs.s ! Perf ! VPassive (aform a.gn Indef (RObj Acc))
++ daComplex vp ! Perf ! a)
(predV verbBe) ;
}