added ByVP, InOrderToVP and CompoundAP

src/bulgarian/ExtendBul.gf

@@ -1,5 +1,5 @@
 --# -path=.:../abstract:../common:prelude
-concrete ExtendBul of Extend = CatBul ** open Prelude, Predef, ResBul, GrammarBul in {
+concrete ExtendBul of Extend = CatBul ** open Prelude, Predef, ResBul, GrammarBul, MorphoFunsBul in {
 
 lin
   GenModNP num np cn = DetCN (DetQuant DefArt num) (AdvCN cn (PrepNP possess_Prep np)) ;     -- this man's car(s) ; DEFAULT the car of this man
@@ -26,6 +26,8 @@ lin
          g   = n2.g
     } ;
 
+  CompoundAP n a = AdvAP (PositA a) (PrepNP (mkPrep "от" Acc) (MassNP (UseN n))) ;
+
   PositAdVAdj a = {s = a.adv; p = Pos} ;
 
   PresPartAP vp =
@@ -69,11 +71,14 @@ lin
     p = Pos
   } ;
 
-  GerundAdv vp =
+  GerundAdv, ByVP = \vp ->
     {s = vp.ad.s ++
          vp.s ! Imperf ! VGerund ++
          vp.compl ! {gn=GSg Neut; p=P3}} ;
 
+  InOrderToVP vp = 
+    {s = "за" ++ daComplex Simul Pos vp ! Perf ! {gn=GSg Neut; p=P3}};
+
   iFem_Pron      = mkPron "аз" "мен" "ме" "ми" "мой" "моя" "моят" "моя" "моята" "мое" "моето" "мои" "моите" (GSg Fem)  P1 ;
   youFem_Pron    = youSg_Pron ;
   weFem_Pron     = we_Pron ;