From ec4edf4524ab97694be1857c5a9329b095879ec7 Mon Sep 17 00:00:00 2001
From: krasimir <krasimir@chalmers.se>
Date: Fri, 22 Feb 2008 14:06:14 +0000
Subject: [PATCH] add Slash category

---
 lib/resource/bulgarian/CatBul.gf      | 4 ++++
 lib/resource/bulgarian/SentenceBul.gf | 3 +++
 2 files changed, 7 insertions(+)

diff --git a/lib/resource/bulgarian/CatBul.gf b/lib/resource/bulgarian/CatBul.gf
index 3f34bafa1..c5cd6f5b7 100644
--- a/lib/resource/bulgarian/CatBul.gf
+++ b/lib/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
diff --git a/lib/resource/bulgarian/SentenceBul.gf b/lib/resource/bulgarian/SentenceBul.gf
index d2a858dc6..70bd23710 100644
--- a/lib/resource/bulgarian/SentenceBul.gf
+++ b/lib/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} ;