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

lindef and linref in the Bulgarian grammar

Browse Source
This commit is contained in:
kr.angelov
2013-11-01 09:02:20 +00:00
parent b05f61e6c6
commit 1bd9778953
2 changed files with 58 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
lib/src/bulgarian/ResBul.gf
View File

@@ -494,6 +494,18 @@ resource ResBul = ParamX ** open Prelude, Predef in {
} ++
vp.compl ! agr ;
linrefVP : VP -> Str =
\vp ->
let agr = {gn = GSg Neut; p = P1};
clitic = case vp.vtype of {
VNormal => {s=[]; agr=agr} ;
VMedial c => {s=reflClitics ! c; agr=agr} ;
VPhrasal c => {s=personalClitics ! c ! agr.gn ! agr.p; agr={gn=GSg Neut; p=P3}}
} ;
in vp.ad.s ++
vp.s ! Imperf ! VPres (numGenNum clitic.agr.gn) clitic.agr.p ++ clitic.s ++
vp.compl ! agr ;
gerund : VP -> Aspect => Agr => Str =
\vp -> \\asp,agr =>
let clitic = case vp.vtype of {