diff --git a/resource/bulgarian/CatBul.gf b/resource/bulgarian/CatBul.gf index 9931f2ca..a4010113 100644 --- a/resource/bulgarian/CatBul.gf +++ b/resource/bulgarian/CatBul.gf @@ -25,6 +25,7 @@ concrete CatBul of Cat = open ResBul, Prelude, (R = ParamX) in { QS = {s : QForm => Str} ; RS = {s : GenNum => Str} ; SC = {s : Str} ; + SlashS = {s : Str ; c2 : Preposition} ; -- Sentence diff --git a/resource/bulgarian/SentenceBul.gf b/resource/bulgarian/SentenceBul.gf index 96af093a..d4a34011 100644 --- a/resource/bulgarian/SentenceBul.gf +++ b/resource/bulgarian/SentenceBul.gf @@ -23,6 +23,11 @@ concrete SentenceBul of Sentence = CatBul ** open Prelude, ResBul in { } ; SlashPrep cl prep = cl ** {c2 = prep} ; + + SlashVS np vs slash = + mkClause (np.s ! RSubj) np.a + (insertObj (\\_ => "χε" ++ slash.s) (predV vs)) ** + {c2 = slash.c2} ; EmbedS s = {s = "," ++ "χε" ++ s.s} ; EmbedQS qs = {s = qs.s ! QIndir} ;