Extend.PresPartAP for Swe and Bul

src/bulgarian/ExtendBul.gf

@@ -16,6 +16,17 @@ lin
 
   PositAdVAdj a = {s = a.adv} ;
 
+  PresPartAP vp =
+    let ap : AForm => Str
+           = \\aform => vp.ad.s ++
+                        vp.s ! Imperf ! VPresPart aform ++
+                        case vp.vtype of {
+                          VMedial c => reflClitics ! c;
+                          _         => []
+                        } ++
+                        vp.compl ! {gn=aform2gennum aform; p=P3} ;
+    in {s = ap; adv = ap ! (ASg Neut Indef); isPre = True} ;
+
   PastPartAP vp =
     let ap : AForm => Str
            = \\aform => vp.ad.s ++

src/swedish/ExtendSwe.gf

@@ -7,7 +7,7 @@ concrete ExtendSwe of Extend = CatSwe **
     MkVPI, BaseVPI, ConsVPI, ConjVPI, ComplVPIVV,
     MkVPS, BaseVPS, ConsVPS, ConjVPS, PredVPS,
     ICompAP,
-    PositAdVAdj, PastPartAP, PastPartAgentAP,
+    PositAdVAdj, PresPartAP, PastPartAP, PastPartAgentAP,
     RNP, RNPList, ReflRNP, ReflPron, ReflPoss, PredetRNP, ConjRNP,
     Base_rr_RNP, Base_nr_RNP, Base_rn_RNP, Cons_rr_RNP, Cons_nr_RNP,
     CompoundN
@@ -154,6 +154,11 @@ concrete ExtendSwe of Extend = CatSwe **
   lin
     PositAdVAdj a = {s = a.s ! AAdv} ;
     
+    PresPartAP vp = {
+      s = \\af => partVPPlus vp (PartPres Sg Indef Nom) (aformpos2agr af) Pos ;
+      isPre = True
+    } ;
+
     PastPartAP vp = {
       s = \\af => partVPPlus vp (PartPret af Nom) (aformpos2agr af) Pos ;
       isPre = True