From 750ecf1ee314350c623cb80758cf8b47a1104673 Mon Sep 17 00:00:00 2001
From: krasimir <krasimir@chalmers.se>
Date: Wed, 27 Feb 2008 22:56:47 +0000
Subject: [PATCH] add AdvS and PredSCVP

---
 lib/resource/bulgarian/SentenceBul.gf | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/lib/resource/bulgarian/SentenceBul.gf b/lib/resource/bulgarian/SentenceBul.gf
index d4a340116..40b836ade 100644
--- a/lib/resource/bulgarian/SentenceBul.gf
+++ b/lib/resource/bulgarian/SentenceBul.gf
@@ -5,6 +5,8 @@ concrete SentenceBul of Sentence = CatBul ** open Prelude, ResBul in {
   lin
     PredVP np vp = mkClause (np.s ! vp.subjRole) np.a vp ;
 
+    PredSCVP sc vp = mkClause sc.s {gn=GSg Masc; p=P3} vp ;
+
     ImpVP vp = {
       s = \\p,gn => 
         let agr = {gn = gn ; p = P2} ;
@@ -46,4 +48,6 @@ concrete SentenceBul of Sentence = CatBul ** open Prelude, ResBul in {
       s = t.s ++ a.s ++ p.s ++ cl.s ! t.t ! a.a ! p.p ! Main ;
       c2 = cl.c2
     } ;
+
+    AdvS a s = {s = a.s ++ "," ++ s.s} ;
 }
\ No newline at end of file