VS category and some of its constructors

lib/resource/bulgarian/LexiconBul.gf

@@ -25,6 +25,7 @@ lin
   drink_V2 = dirV2 (mkV163 "ďč˙") ;
   eat_V2 = dirV2 (mkV169 "˙ě") ;
   empty_A = mkA79 "ďđŕçĺí" ;
+  fear_VS = mkVS (mkV186 "ńňđŕőóâŕě") ;
   find_V2 = dirV2 (mkV173 "íŕěĺđ˙") ;
   forget_V2 = dirV2 (mkV173 "çŕáđŕâ˙") ;
   good_A = mkA80 "äîáúđ" ;
@@ -33,6 +34,7 @@ lin
   hate_V2 = dirV2 (mkV173 "ěđŕç˙") ;
   have_V2 = dirV2 (mkV186 "čěŕě") ;
   hear_V2 = dirV2 (mkV186 "÷óâŕě") ;
+  hope_VS = mkVS (mkV186 "íŕä˙âŕě") ;
   hot_A = mkA76 "ăîđĺů" ;
   important_A = mkA79 "âŕćĺí" ;
   know_V2 = dirV2 (mkV162 "çíŕ˙") ;
@@ -54,6 +56,7 @@ lin
   read_V2 = dirV2 (mkV145 "÷ĺňŕ") ;
   red_A = mkA76 "÷ĺđâĺí" ;
   run_V = (mkV186 "á˙ăŕě") ;
+  say_VS = mkVS (mkV186 "ęŕçâŕě") ;
   seek_V2 = dirV2 (mkV173 "ňúđń˙") ;
   see_V2 = dirV2 (mkV186 "âčćäŕě") ;
   sell_V3 = dirV3 (mkV186 "ďđîäŕâŕě") naP ;

lib/resource/bulgarian/ParadigmsBul.gf

@@ -81,7 +81,8 @@ oper
   dirV3    : V -> Prep -> V3 ;           -- give,_,to
   dirdirV3 : V -> V3 ;                   -- give,_,_
 
-
+  mkVS  : V -> VS ;
+  
   mkPN : Str -> Gender -> PN ;
   
   
@@ -97,6 +98,8 @@ oper
   dirV3 v p = mkV3 v noPrep p ;
   dirdirV3 v = dirV3 v noPrep ;
   
+  mkVS  v = v ** {lock_VS = <>} ;
+  
   mkPN s g = {s = s; g = g ; lock_PN = <>} ;
 
 }

lib/resource/bulgarian/VerbBul.gf

@@ -8,6 +8,8 @@ concrete VerbBul of Verb = CatBul ** open ResBul in {
     ComplV3 v np np2 = 
       insertObj (\\_ => v.c2 ++ np.s ! Acc ++ v.c3 ++ np2.s ! Acc) (predV v) ;
 
+    ComplVS v s  = insertObj (\\_ => "," ++ "֌" ++ s.s) (predV v) ;
+
     UseComp comp = insertObj comp.s (predV auxBe) ;
 
     AdvVP vp adv = insertObj (\\_ => adv.s) vp ;
@@ -16,6 +18,8 @@ concrete VerbBul of Verb = CatBul ** open ResBul in {
 
     PassV2 v = insertObj (\\a => v.s ! VPassive (aform a.gn Indef Acc)) (predV auxBe) ;
 
+    UseVS, UseVQ = \vv -> {s = vv.s ; c2 = [] ; isRefl = vv.isRefl} ; -- no "to"
+
     CompNP np = {s = \\_ => np.s ! Acc} ;
     CompAdv a = {s = \\_ => a.s} ;
 }