GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-09 04:59:31 -06:00
Code Issues Packages Projects Releases Wiki Activity

completed extensions for Bulgarian

Browse Source
This commit is contained in:
kr.angelov
2014-12-11 11:19:42 +00:00
parent 88ca5acc9c
commit 09418a1874
2 changed files with 12 additions and 21 deletions
Download Patch File Download Diff File Expand all files Collapse all files

29
lib/src/translator/ExtensionsBul.gf
View File

@@ -60,6 +60,11 @@ lin
p = Pos
} ;
GerundAdv vp =
{s = vp.ad.s ++
vp.s ! Imperf ! VGerund ++
vp.compl ! {gn=GSg Neut; p=P3}} ;
PresPartAP vp =
let ap : AForm => Str
= \\aform => vp.ad.s ++
@@ -92,9 +97,12 @@ lin
{s = vp.ad.s ++
vp.s ! Imperf ! VGerund ++
vp.compl ! {gn=GSg Neut; p=P3}} ;
InOrderToVP vp =
{s = "за" ++ daComplex Simul Pos vp ! Imperf ! {gn=GSg Neut; p=P3}};
{s = "за" ++ daComplex Simul Pos (vp**{vtype=VMedial Acc}) ! Imperf ! {gn=GSg Neut; p=P3}};
WithoutVP vp =
{s = "без" ++ daComplex Simul Pos (vp**{vtype=VMedial Acc}) ! Imperf ! {gn=GSg Neut; p=P3}};
PositAdVAdj a = {s = a.adv} ;
@@ -152,23 +160,6 @@ lin
}) vp.p
(predV vv) ;
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
}
} ;
CompS s = {s = \\_ => "че" ++ s.s; p = Pos} ;
CompQS qs = {s = \\_ => qs.s ! QIndir; p = Pos} ;
CompVP ant p vp = {s = let p' = case vp.p of {

4
lib/src/translator/TranslateBul.gf
View File

@@ -27,8 +27,8 @@ concrete TranslateBul of Translate =
ExtensionsBul [
CompoundN,AdAdV,UttAdV,ApposNP,MkVPI, MkVPS, PredVPS, PassVPSlash, PassAgentVPSlash, CompoundAP,
DirectComplVS, DirectComplVQ, FocusObjS,
PastPartAP, PastPartAgentAP, PresPartAP, GerundNP,
InOrderToVP, ByVP
PastPartAP, PastPartAgentAP, PresPartAP, GerundNP, GerundAdv,
WithoutVP, InOrderToVP, ByVP
],
DictionaryBul **