From c4be116db45f26de31a519a8286ce2b084c53a52 Mon Sep 17 00:00:00 2001
From: "kr.angelov" <kr.angelov@gmail.com>
Date: Fri, 20 Sep 2013 12:05:39 +0000
Subject: [PATCH] added PossNP, PartNP and CountNP in the Bulgarian RGL

---
 lib/src/bulgarian/NounBul.gf | 15 +++++++++++++++
 1 file changed, 15 insertions(+)

diff --git a/lib/src/bulgarian/NounBul.gf b/lib/src/bulgarian/NounBul.gf
index 80a775515..6f594731d 100644
--- a/lib/src/bulgarian/NounBul.gf
+++ b/lib/src/bulgarian/NounBul.gf
@@ -173,6 +173,21 @@ concrete NounBul of Noun = CatBul ** open ResBul, Prelude in {
 
     ApposCN cn np = {s = \\nf => cn.s ! nf ++ np.s ! RSubj; g=cn.g} ;
 
+    PossNP cn np = {s = \\nf => cn.s ! nf ++ "на" ++ np.s ! (RObj Acc); g = cn.g} ;
+    
+    PartNP cn np = {s = \\nf => cn.s ! nf ++ "от" ++ np.s ! (RObj Acc); g = cn.g} ;
+
+    CountNP det np = {
+      s = \\role => let g = case np.a.gn of { -- this is lossy
+                              GSg Masc => AMasc NonHuman ; 
+                              GSg Neut => ANeut ;
+                              GSg Fem  => AFem ;
+                              GPl      => ANeut
+                            }
+                    in det.s ! False ! g ! role ++ np.s ! (RObj Acc) ;
+      a = {gn = gennum ANeut (numnnum det.nn); p = P3}
+      } ;
+
     RelNP np rs = {
       s = \\r => np.s ! r ++ rs.s ! np.a ;
       a = np.a