From a6291512b6041abb8073c0ea961153e0b9ee7253 Mon Sep 17 00:00:00 2001
From: krasimir <krasimir@chalmers.se>
Date: Thu, 21 Feb 2008 16:38:24 +0000
Subject: [PATCH] add SC category

---
 lib/resource/bulgarian/NounBul.gf     | 2 ++
 lib/resource/bulgarian/SentenceBul.gf | 3 +++
 2 files changed, 5 insertions(+)

diff --git a/lib/resource/bulgarian/NounBul.gf b/lib/resource/bulgarian/NounBul.gf
index 682c7373e..b289a1f72 100644
--- a/lib/resource/bulgarian/NounBul.gf
+++ b/lib/resource/bulgarian/NounBul.gf
@@ -95,4 +95,6 @@ concrete NounBul of Noun = CatBul ** open ResBul, Prelude in {
       s = \\nf => preOrPost ap.isPre (ap.s ! nform2aform nf cn.g) (cn.s ! (indefNForm nf)) ;
       g = cn.g
       } ;
+      
+    SentCN cn sc = {s = \\nf => cn.s ! nf ++ sc.s; g=cn.g} ;
 }
diff --git a/lib/resource/bulgarian/SentenceBul.gf b/lib/resource/bulgarian/SentenceBul.gf
index 636b0eae6..d2a858dc6 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
     } ;
 
+    EmbedS  s  = {s = "," ++ "χε" ++ s.s} ;
+    EmbedQS qs = {s = qs.s ! QIndir} ;
+
     UseCl t a p cl = {
       s = t.s ++ a.s ++ p.s ++ cl.s ! t.t ! a.a ! p.p ! ODir
     } ;