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

fix the linrefs for prepositions

Browse Source
This commit is contained in:
Krasimir Angelov
2018-06-07 15:17:21 +02:00
parent 2869eaf6e9
commit 546af233fc
2 changed files with 10 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
src/bulgarian/CatBul.gf
View File

@@ -130,16 +130,19 @@ concrete CatBul of Cat = CommonX - [IAdv,CAdv,AdV,SC] ** open ResBul, Prelude, P
} ;
V, VS, VQ, VA = \v -> linrefVP (predV v);
V2 = \v -> linrefVP (predV v) ++ v.c2.s;
V2V = \v -> linrefVP (predV v) ++ v.c2.s ++ v.c3.s ++ "да";
V2A, V2S, V2Q = \v -> linrefVP (predV v) ++ v.c2.s ++ v.c3.s;
V3 = \v -> linrefVP (predV v) ++ v.c2.s ++ v.c3.s;
V2 = \v -> linrefVP (predV v) ++ linrefPrep v.c2 ;
V2V = \v -> linrefVP (predV v) ++ linrefPrep v.c2 ++ linrefPrep v.c3 ++ "да";
V2A, V2S, V2Q = \v -> linrefVP (predV v) ++ linrefPrep v.c2 ++ linrefPrep v.c3;
V3 = \v -> linrefVP (predV v) ++ linrefPrep v.c2 ++ linrefPrep v.c3;
VV = \v -> linrefVP (predV v);
Prep = linrefPrep ;
A = \a -> a.s ! ASg Masc Indef;
A2 = \a -> a.s ! ASg Masc Indef ++ a.c2;
N = \n -> n.s ! NF Sg Indef;
N2 = \n -> n.s ! NF Sg Indef ++ n.c2.s;
N3 = \n -> n.s ! NF Sg Indef ++ n.c2.s ++ n.c3.s;
}

3
src/bulgarian/ResBul.gf
View File

@@ -566,6 +566,9 @@ resource ResBul = ParamX ** open Prelude, Predef in {
vp.s ! Imperf ! VPres (numGenNum clitic.agr.gn) clitic.agr.p ++ clitic.s ++
vp.compl ! agr ;
linrefPrep : {s:Str; c:Case} -> Str =
\p -> case p.c of {Acc=>""; Dat=>"íà"; WithPrep=>with_Word} ++ p.s ;
gerund : VP -> Aspect => Agr => Str =
\vp -> \\asp,agr =>
let clitic = case vp.vtype of {