From 5ac2f432cfaa7ebad25317ac78b1a1a378dc9cf0 Mon Sep 17 00:00:00 2001
From: krasimir <krasimir@chalmers.se>
Date: Wed, 27 Feb 2008 22:48:51 +0000
Subject: [PATCH] added SlashS

---
 lib/resource/bulgarian/CatBul.gf      | 1 +
 lib/resource/bulgarian/SentenceBul.gf | 5 +++++
 2 files changed, 6 insertions(+)

diff --git a/lib/resource/bulgarian/CatBul.gf b/lib/resource/bulgarian/CatBul.gf
index 9931f2cab..a40101137 100644
--- a/lib/resource/bulgarian/CatBul.gf
+++ b/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
 
diff --git a/lib/resource/bulgarian/SentenceBul.gf b/lib/resource/bulgarian/SentenceBul.gf
index 96af093ab..d4a340116 100644
--- a/lib/resource/bulgarian/SentenceBul.gf
+++ b/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} ;