PresPartAP and PastPartAP

src/bulgarian/ResBul.gf

@@ -190,6 +190,13 @@ resource ResBul = ParamX ** open Prelude, Predef in {
                    NFVocative => aform (gennum g Sg) Indef (RObj Acc)
                  } ;
 
+    aform2gennum : AForm -> GenNum 
+      = \aform -> case aform of {
+                    ASg g _       => GSg g ;
+                    ASgMascDefNom => GSg Masc ;
+                    _             => GPl
+                  } ;
+
     indefNForm : NForm -> NForm
       = \nf -> case nf of {
                  NF n spec  => NF n  Indef ;

src/translator/ExtensionsBul.gf

@@ -52,21 +52,24 @@ lin
     g = ANeut
   } ;
 
-  GerundAP v = {
+  PresPartAP vp =
-    s = \\aform => v.s ! Imperf ! VPresPart aform ++
+    let ap : AForm => Str
-                   case v.vtype of {
+           = \\aform => vp.ad.s ++
+                        vp.s ! Imperf ! VPresPart aform ++
+                        case vp.vtype of {
                           VMedial c => reflClitics ! c;
                           _         => []
-                   };
+                        } ++
-    adv = v.s ! Imperf ! VPresPart (ASg Neut Indef);
+                        vp.compl ! {gn=aform2gennum aform; p=P3} ;
-    isPre = True
+    in {s = ap; adv = ap ! (ASg Neut Indef); isPre = True} ;
-  } ;
 
-  PastPartAP v = {
+  PastPartAP vp =
-    s = \\aform => v.s ! Perf ! VPassive aform ;
+    let ap : AForm => Str
-    adv = v.s ! Perf ! VPassive (ASg Neut Indef);
+           = \\aform => vp.ad.s ++
-    isPre = True
+                        vp.s ! Perf ! VPassive aform ++
-  } ;
+                        vp.compl1 ! {gn=aform2gennum aform; p=P3} ++
+                        vp.compl2 ! {gn=aform2gennum aform; p=P3}
+    in {s = ap; adv = ap ! ASg Neut Indef; isPre = True} ;
 
   PositAdVAdj a = {s = a.adv} ;
   

src/translator/TranslateBul.gf

@@ -24,7 +24,8 @@ concrete TranslateBul of Translate =
   DocumentationBul,
 
   ChunkBul,
-  ExtensionsBul [CompoundN,AdAdV,UttAdV,ApposNP,MkVPI, MkVPS, PredVPS, PassVPSlash, PassAgentVPSlash],
+  ExtensionsBul [CompoundN,AdAdV,UttAdV,ApposNP,MkVPI, MkVPS, PredVPS, 
+                 PresPartAP, PastPartAP, PassVPSlash, PassAgentVPSlash],
 
   DictionaryBul ** 
 open MorphoBul, ResBul, ParadigmsBul, SyntaxBul, CommonScand, (E = ExtraBul), Prelude in {