defined AdjectiveBul.CAdvAP and RS functions in ConjunctionBul, to make the API compile - these might have errors

lib/src/api/TryBul.gf

@@ -1,6 +1,6 @@
 --# -path=.:alltenses:prelude
 
-resource TryBul = SyntaxBul, LexiconBul, ParadigmsBul - [mkAdv] ** 
+resource TryBul = SyntaxBul, LexiconBul, ParadigmsBul - [mkAdv,mkIAdv] ** 
   open (P = ParadigmsBul) in {
 
 oper

lib/src/bulgarian/AdjectiveBul.gf

@@ -27,6 +27,13 @@ concrete AdjectiveBul of Adjective = CatBul ** open ResBul, Prelude in {
 
 -- $SuperlA$ belongs to determiner syntax in $Noun$.
 
+---- just to make the API compile. AR 7/4/2010
+    CAdvAP ad ap np = {
+      s = \\a => ad.s ++ ap.s ! a ++ ad.sn ++ np.s ! RObj Acc ; 
+      adv =      ad.s ++ ap.adv ++ ad.sn ++ np.s ! RObj Acc ; 
+      isPre = False
+      } ;
+
     ComplA2 a np = {
       s = \\aform => a.s ! aform ++ a.c2 ++ np.s ! RObj Acc ; 
       adv = a.adv ++ a.c2 ++ np.s ! RObj Acc ; 

lib/src/bulgarian/ConjunctionBul.gf

@@ -19,6 +19,11 @@ concrete ConjunctionBul of Conjunction =
       a = {gn = conjGenNum (gennum (AMasc NonHuman) conj.n) ss.a.gn; p = ss.a.p}
       } ;
 
+    ---- RS rules by AR 7/4/2010 to make API compile
+    ConjRS conj ss = {
+      s = \\role => (linCoordSep [])!conj.distr!conj.conj++ss.s!conj.distr!conj.conj!role
+      } ;
+
     ConjAP conj ss = {
       s     = \\aform => (linCoordSep [])!conj.distr!conj.conj++ss.s!conj.distr!conj.conj!aform;
       adv   =            (linCoordSep [])!conj.distr!conj.conj++ss.adv!conj.distr!conj.conj;
@@ -39,6 +44,11 @@ concrete ConjunctionBul of Conjunction =
       {s = \\d,t,role=>x.s!role++(linCoordSep comma)!d!t++xs.s!d!t!role; 
        a = conjAgr xs.a x.a} ;
 
+    BaseRS x y =
+      {s = \\d,t,role=>x.s!role++linCoord!t++y.s!role} ;
+    ConsRS x xs =
+      {s = \\d,t,role=>x.s!role++(linCoordSep comma)!d!t++xs.s!d!t!role} ;
+
     BaseAP x y =
       {s  = \\d,t,aform=>x.s!aform++linCoord!t++y.s!aform; 
        adv= \\d,t      =>x.adv    ++linCoord!t++y.adv;
@@ -52,5 +62,6 @@ concrete ConjunctionBul of Conjunction =
     [S] = {s : Bool => Bool => Str} ;
     [Adv] = {s : Bool => Bool => Str} ;
     [NP] = {s : Bool => Bool => Role  => Str; a : Agr} ;
+    [RS] = {s : Bool => Bool => Agr   => Str} ;
     [AP] = {s : Bool => Bool => AForm => Str; adv : Bool => Bool => Str; isPre : Bool} ;
 }