add Slash category

resource/bulgarian/CatBul.gf

@@ -28,6 +28,10 @@ concrete CatBul of Cat = open ResBul, Prelude, (R = ParamX) in {
 -- Sentence
 
     Cl = {s : ResBul.Tense => Anteriority => Polarity => Order => Str} ;
+    Slash = {
+      s : ResBul.Tense => Anteriority => Polarity => Order => Str ;
+      c2 : Str
+      } ;
     Imp = {s : Polarity => GenNum => Str} ;
 
 -- Question

resource/bulgarian/SentenceBul.gf

@@ -14,6 +14,9 @@ concrete SentenceBul of Sentence = CatBul ** open Prelude, ResBul in {
         verb ++ compl
     } ;
 
+    SlashV2 np v2 = 
+      mkClause (np.s ! Nom) np.a (predV v2) ** {c2 = v2.c2} ;
+
     EmbedS  s  = {s = "," ++ "֌" ++ s.s} ;
     EmbedQS qs = {s = qs.s ! QIndir} ;