From 88ae57db6baa180ad804fb879a52b282264543dd 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

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

diff --git a/resource/bulgarian/SentenceBul.gf b/resource/bulgarian/SentenceBul.gf
index d4a34011..40b836ad 100644
--- a/resource/bulgarian/SentenceBul.gf
+++ b/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