GitHub/gf-rgl
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-rgl.git synced 2026-06-28 20:36:29 -06:00
Code Issues Packages Projects Releases Wiki Activity

Extend.PastPartAP in Swe and Bul

Browse Source
This commit is contained in:
Krasimir Angelov
2018-05-30 11:19:35 +02:00
parent c75b8c1cdf
commit ae3c627198
2 changed files with 30 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/bulgarian/ExtendBul.gf
+18 -1
View File
@@ -1,5 +1,5 @@
--# -path=.:../abstract:../common:prelude
concrete ExtendBul of Extend = CatBul ** open ResBul in {
concrete ExtendBul of Extend = CatBul ** open Prelude, ResBul in {
lin
CompoundN n1 n2 =
@@ -16,5 +16,22 @@ lin
PositAdVAdj a = {s = a.adv} ;
PastPartAP vp =
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}
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 = False} ;
}