added SlashS

lib/resource/bulgarian/CatBul.gf

@@ -25,6 +25,7 @@ concrete CatBul of Cat = open ResBul, Prelude, (R = ParamX) in {
     QS = {s : QForm => Str} ;
     RS = {s : GenNum => Str} ;
     SC  = {s : Str} ;
+    SlashS = {s : Str ; c2 : Preposition} ;
 
 -- Sentence
 

lib/resource/bulgarian/SentenceBul.gf

@@ -23,6 +23,11 @@ concrete SentenceBul of Sentence = CatBul ** open Prelude, ResBul in {
     } ;
 
     SlashPrep cl prep = cl ** {c2 = prep} ;
+    
+    SlashVS np vs slash = 
+      mkClause (np.s ! RSubj) np.a 
+        (insertObj (\\_ => "֌" ++ slash.s) (predV vs))  **
+      {c2 = slash.c2} ;
 
     EmbedS  s  = {s = "," ++ "֌" ++ s.s} ;
     EmbedQS qs = {s = qs.s ! QIndir} ;