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

PastPartAgentAP in Bulgarian

Browse Source
This commit is contained in:
kr.angelov
2014-12-10 23:09:40 +00:00
parent 353fc82c11
commit af72b5001e
2 changed files with 10 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -73,6 +73,15 @@ lin
vp.compl2 ! {gn=aform2gennum aform; p=P3} vp.compl2 ! {gn=aform2gennum aform; p=P3}
in {s = ap; adv = ap ! ASg Neut Indef; isPre = True} ; in {s = ap; adv = ap ! ASg Neut Indef; isPre = True} ;
PastPartAgentAP vp np =
let ap : AForm => Str
= \\aform => vp.ad.s ++
vp.s ! Perf ! VPassive aform ++
vp.compl1 ! {gn=aform2gennum aform; p=P3} ++
vp.compl2 ! {gn=aform2gennum aform; p=P3} ++
"от" ++ np.s ! RObj Acc
in {s = ap; adv = ap ! ASg Neut Indef; isPre = True} ;
PositAdVAdj a = {s = a.adv} ; PositAdVAdj a = {s = a.adv} ;
that_RP = { that_RP = {

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

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