From 7994a12e1a415a4bae0606e17da1d454c5458c0e Mon Sep 17 00:00:00 2001
From: krasimir <krasimir@chalmers.se>
Date: Fri, 29 Feb 2008 15:35:00 +0000
Subject: [PATCH] add ComplVQ, ComplVA and ComplV2A

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

diff --git a/lib/resource/bulgarian/VerbBul.gf b/lib/resource/bulgarian/VerbBul.gf
index 8450490ee..60c57f948 100644
--- a/lib/resource/bulgarian/VerbBul.gf
+++ b/lib/resource/bulgarian/VerbBul.gf
@@ -17,6 +17,11 @@ concrete VerbBul of Verb = CatBul ** open Prelude, ResBul, ParadigmsBul in {
       } ;
 
     ComplVS v s  = insertObj (\\_ => "," ++ "χε" ++ s.s) (predV v) ;
+    ComplVQ v q  = insertObj (\\_ => q.s ! QIndir) (predV v) ;
+
+    ComplVA  v    ap = insertObj (\\agr => ap.s ! aform agr.gn Indef (RObj Acc)) (predV v) ;
+    ComplV2A v np ap = 
+      insertObj (\\_ => v.c2.s ++ np.s ! RObj v.c2.c ++ ap.s ! aform np.a.gn Indef (RObj Acc)) (predV v) ;
 
     UseComp comp = insertObj comp.s (predV verbBe) ;