allow VV verbs to control the aspect of the governed verb

src/bulgarian/CatBul.gf

@@ -99,7 +99,7 @@ concrete CatBul of Cat = CommonX - [IAdv,CAdv,AdV,SC] ** open ResBul, Prelude, P
     V2 = \s -> {s = \\_,_ => s; vtype = VNormal; c2 = {s=""; c=Acc}};
     V2A, V2V, V2S, V2Q = \s -> {s = \\_,_ => s; vtype = VNormal; c2,c3 = {s=""; c=Acc}};
     V3 = \s -> {s = \\_,_ => s; vtype = VNormal; c2,c3 = {s=""; c=Acc}};
-    VV = \s -> {s = \\_,_ => s; vtype = VNormal; typ = VVInf};
+    VV = \s -> {s = \\_,_ => s; vtype = VNormal; typ = VVInf Perf};
 
 	A = \s -> {s = \\_ => s; adv = s};
     A2 = \s -> {s = \\_ => s; adv = s; c2 = ""};

src/bulgarian/DocumentationBul.gf

@@ -237,8 +237,9 @@ lin
         } ++
         v.s ! Imperf ! VPres Sg P3 ++
         case v.typ of {
-          VVInf => "да" ++ pp "глагол";
-          VVGerund => pp "деепричастие"
+          VVInf Perf   => "да" ++ pp "свършен глагол";
+          VVInf Imperf => "да" ++ pp "несвършен глагол";
+          VVGerund     => pp "деепричастие"
         };
     s2= inflVerb v ;
     s3= ""

src/bulgarian/MorphoFunsBul.gf

@@ -144,7 +144,10 @@ oper
   mkVS  v = v ** {lock_VS = <>} ;
 
   mkVV : V -> VV ;
-  mkVV  v = v ** {typ = VVInf; lock_VV = <>} ;
+  mkVV  v = v ** {typ = VVInf Perf; lock_VV = <>} ;
+  
+  imperfVV : V -> VV ;
+  imperfVV  v = v ** {typ = VVInf Imperf; lock_VV = <>} ;
 
   gerundVV : V -> VV ;
   gerundVV  v = v ** {typ = VVGerund; lock_VV = <>} ;

src/bulgarian/ResBul.gf

@@ -73,7 +73,7 @@ resource ResBul = ParamX ** open Prelude, Predef in {
      | VPhrasal Case
      ;
 
-    VVType = VVInf | VVGerund ;
+    VVType = VVInf Aspect | VVGerund ;
 
 -- The order of sentence is needed already in $VP$.
 

src/bulgarian/VerbBul.gf

@@ -18,8 +18,8 @@ concrete VerbBul of Verb = CatBul ** open Prelude, ResBul, ParadigmsBul in {
 
     ComplVV vv vp =
       insertObj (case vv.typ of {
-                   VVInf => daComplex Simul Pos vp ! Perf;
-                   VVGerund => gerund vp ! Imperf
+                   VVInf asp => daComplex Simul Pos vp ! asp;
+                   VVGerund  => gerund vp ! Imperf
                  }) vp.p
                 (predV vv) ;