GerundNP and GerundAdv in Swe,Bul

src/bulgarian/ExtendBul.gf

@@ -54,6 +54,17 @@ lin
                           "от" ++ np.s ! RObj Acc
     in {s = ap; adv = ap ! ASg Neut Indef ! P3; isPre = False} ;
 
+  GerundNP vp = {
+    s = \\_ => daComplex Simul Pos vp ! Imperf ! {gn=GSg Neut; p=P1};
+    a = {gn=GSg Neut; p=P3};
+    p = Pos
+  } ;
+
+  GerundAdv vp =
+    {s = vp.ad.s ++
+         vp.s ! Imperf ! VGerund ++
+         vp.compl ! {gn=GSg Neut; p=P3}} ;
+
   iFem_Pron      = mkPron "аз" "мен" "ме" "ми" "мой" "моя" "моят" "моя" "моята" "мое" "моето" "мои" "моите" (GSg Fem)  P1 ;
   youFem_Pron    = youSg_Pron ;
   weFem_Pron     = we_Pron ;

src/swedish/ExtendSwe.gf

@@ -177,5 +177,14 @@ concrete ExtendSwe of Extend = CatSwe **
       isPre = False
     } ;
     
+    GerundNP vp = {  -- infinitive: att dricka öl, att vara glad
+      s = \\_ => "att" ++ infVP vp {g = Utr ; n = Sg ; p = P3} ; 
+      a = {g = Neutr ; n = Sg ; p = P3} ;
+      isPron = False
+    } ;
+
+    GerundAdv vp = {
+      s = partVPPlusPost vp (PartPres Sg Indef (Nom|Gen)) {g = Utr ; n = Sg ; p = P3} Pos -- sovande(s) i sängen
+    } ;
 }