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

linref for Conj in English and Bulgarian

Browse Source
This commit is contained in:
kr.angelov
2014-02-21 16:29:55 +00:00
parent 3712b2a2c0
commit 014f4e1e11
2 changed files with 8 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
lib/src/bulgarian/CatBul.gf
View File

@@ -120,6 +120,12 @@ concrete CatBul of Cat = CommonX - [IAdv,CAdv] ** open ResBul, Prelude, Predef,
}
in linrefVP vp;
Conj = \conj -> let s = linCoord ! conj.conj
in case conj.distr of {
True => s ++ s;
False => s
} ;
V, VS, VQ, VA = \v -> linrefVP (predV v);
V2, V2A = \v -> linrefVP (predV v) ++ v.c2.s;
V2V = \v -> linrefVP (predV v) ++ v.c2.s ++ v.c3.s ++ "да";

2
lib/src/english/CatEng.gf
View File

@@ -132,6 +132,8 @@ concrete CatEng of Cat = CommonX - [Pol] ** open ResEng, Prelude in {
VP = \vp -> infVP VVAux vp Simul CPos (agrP3 Sg) ;
VPSlash = \vps -> infVP VVAux vps Simul CPos (agrP3 Sg) ++ vps.c2;
Conj = \conj -> conj.s1 ++ conj.s2 ;
V, VS, VQ, VA = \v -> infVP VVAux (predV v) Simul CPos (agrP3 Sg);
V2, V2A, V2Q, V2S = \v -> infVP VVAux (predV v) Simul CPos (agrP3 Sg) ++ v.c2;
V3 = \v -> infVP VVAux (predV v) Simul CPos (agrP3 Sg) ++ v.c2 ++ v.c3;