linref for Conj in English and Bulgarian

2026-05-03 08:12:51 -06:00 · 2014-02-21 16:29:55 +00:00
parent 3712b2a2c0
commit 014f4e1e11
2 changed files with 8 additions and 0 deletions
--- a/lib/src/bulgarian/CatBul.gf
+++ b/lib/src/bulgarian/CatBul.gf
@@ -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 ++ "да";