diff --git a/lib/src/api/TryBul.gf b/lib/src/api/TryBul.gf index 5b58da938..c6ff1ed05 100644 --- a/lib/src/api/TryBul.gf +++ b/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 diff --git a/lib/src/bulgarian/AdjectiveBul.gf b/lib/src/bulgarian/AdjectiveBul.gf index bb5e8137c..53a7088d2 100644 --- a/lib/src/bulgarian/AdjectiveBul.gf +++ b/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 ; diff --git a/lib/src/bulgarian/ConjunctionBul.gf b/lib/src/bulgarian/ConjunctionBul.gf index 3d1b18486..21b3c3bfb 100644 --- a/lib/src/bulgarian/ConjunctionBul.gf +++ b/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} ; }