From 1ba2f622ba27290ff48475d4956b8d3b2cc472ca Mon Sep 17 00:00:00 2001
From: "kr.angelov" <kr.angelov@gmail.com>
Date: Thu, 11 Dec 2014 10:54:41 +0000
Subject: [PATCH] GerundNP and InOrderToVP in Bulgarian

---
 lib/src/translator/ExtensionsBul.gf | 9 +++++++++
 lib/src/translator/TranslateBul.gf  | 4 ++--
 2 files changed, 11 insertions(+), 2 deletions(-)

diff --git a/lib/src/translator/ExtensionsBul.gf b/lib/src/translator/ExtensionsBul.gf
index 222b720de..734a00d96 100644
--- a/lib/src/translator/ExtensionsBul.gf
+++ b/lib/src/translator/ExtensionsBul.gf
@@ -53,6 +53,12 @@ lin
                      vp.compl ! {gn=GSg Neut; p=P3} ;
     g = ANeut
   } ;
+  
+  GerundNP vp = {
+    s = \\_ => daComplex Simul Pos vp ! Imperf ! {gn=GSg Neut; p=P1};
+    a = {gn=GSg Neut; p=P3};
+    p = Pos
+  } ;
 
   PresPartAP vp =
     let ap : AForm => Str
@@ -86,6 +92,9 @@ lin
     {s = vp.ad.s ++
          vp.s ! Imperf ! VGerund ++
          vp.compl ! {gn=GSg Neut; p=P3}} ;
+         
+  InOrderToVP vp =
+    {s = "за" ++ daComplex Simul Pos vp ! Imperf ! {gn=GSg Neut; p=P3}};
 
   PositAdVAdj a = {s = a.adv} ;
   
diff --git a/lib/src/translator/TranslateBul.gf b/lib/src/translator/TranslateBul.gf
index e06c557aa..0dae8f1a5 100644
--- a/lib/src/translator/TranslateBul.gf
+++ b/lib/src/translator/TranslateBul.gf
@@ -27,8 +27,8 @@ concrete TranslateBul of Translate =
   ExtensionsBul [
     CompoundN,AdAdV,UttAdV,ApposNP,MkVPI, MkVPS, PredVPS, PassVPSlash, PassAgentVPSlash, CompoundAP,
     DirectComplVS, DirectComplVQ, FocusObjS,
-    PastPartAP, PastPartAgentAP, PresPartAP,
-    ByVP
+    PastPartAP, PastPartAgentAP, PresPartAP, GerundNP,
+    InOrderToVP, ByVP
     ],
 
   DictionaryBul **