From 99df330e35733c60dcd6bfb039507628ea751576 Mon Sep 17 00:00:00 2001
From: krasimir <krasimir@chalmers.se>
Date: Fri, 22 Feb 2008 14:56:35 +0000
Subject: [PATCH] VS category and some of its constructors

---
 lib/resource/bulgarian/LexiconBul.gf   | 3 +++
 lib/resource/bulgarian/ParadigmsBul.gf | 5 ++++-
 lib/resource/bulgarian/VerbBul.gf      | 4 ++++
 3 files changed, 11 insertions(+), 1 deletion(-)

diff --git a/lib/resource/bulgarian/LexiconBul.gf b/lib/resource/bulgarian/LexiconBul.gf
index c8984ceaa..867b17716 100644
--- a/lib/resource/bulgarian/LexiconBul.gf
+++ b/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 ;
diff --git a/lib/resource/bulgarian/ParadigmsBul.gf b/lib/resource/bulgarian/ParadigmsBul.gf
index e37e70330..4ff567754 100644
--- a/lib/resource/bulgarian/ParadigmsBul.gf
+++ b/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 = <>} ;
 
 }
\ No newline at end of file
diff --git a/lib/resource/bulgarian/VerbBul.gf b/lib/resource/bulgarian/VerbBul.gf
index 28db621cc..0c740f415 100644
--- a/lib/resource/bulgarian/VerbBul.gf
+++ b/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} ;
 }