diff options
Diffstat (limited to 'next-lib/src/bulgarian/SentenceBul.gf')
| -rw-r--r-- | next-lib/src/bulgarian/SentenceBul.gf | 72 |
1 files changed, 0 insertions, 72 deletions
diff --git a/next-lib/src/bulgarian/SentenceBul.gf b/next-lib/src/bulgarian/SentenceBul.gf deleted file mode 100644 index 9966b538d..000000000 --- a/next-lib/src/bulgarian/SentenceBul.gf +++ /dev/null @@ -1,72 +0,0 @@ -concrete SentenceBul of Sentence = CatBul ** open Prelude, ResBul in { - flags coding=cp1251 ; - - - flags optimize=all_subs ; - - lin - PredVP np vp = mkClause (np.s ! (case vp.vtype of { - VNormal => RSubj ; - VMedial _ => RSubj ; - VPhrasal c => RObj c})) 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} ; - verb = vp.s ! Perf ! VImperative (numGenNum gn) ; - compl = vp.compl ! agr ; - clitic = case vp.vtype of { - VNormal => [] ; - VMedial c => reflClitics ! c ; - VPhrasal c => personalClitics ! c ! agr.gn ! agr.p - } ; - in case p of {Pos => vp.ad.s ++ verb ++ clitic ; - Neg => "νε" ++ vp.ad.s ++ clitic ++ verb} ++ compl ; - } ; - - SlashVP np slash = { - s = \\agr => (mkClause (np.s ! RSubj) np.a {s = slash.s ; - ad = slash.ad ; - compl = \\_ => slash.compl1 ! np.a ++ slash.compl2 ! agr ; - vtype = slash.vtype}).s ; - c2 = slash.c2 - } ; - - AdvSlash slash adv = { - s = \\agr,t,a,b,o => slash.s ! agr ! t ! a ! b ! o ++ adv.s ; - c2 = slash.c2 - } ; - - SlashPrep cl prep = {s = \\_ => cl.s; c2 = prep} ; - - SlashVS np vs slash = { - s = \\agr => (mkClause (np.s ! RSubj) np.a - (insertObj (\\_ => "χε" ++ slash.s ! agr) (predV vs))).s ; - c2 = slash.c2 - } ; - - EmbedS s = {s = "," ++ "χε" ++ s.s} ; - EmbedQS qs = {s = qs.s ! QIndir} ; - EmbedVP vp = {s = daComplex vp ! Perf ! {gn=GSg Masc; p=P1}} ; - - UseCl t p cl = { - s = t.s ++ p.s ++ cl.s ! t.t ! t.a ! p.p ! Main - } ; - UseQCl t p cl = { - s = \\q => t.s ++ p.s ++ cl.s ! t.t ! t.a ! p.p ! q - } ; - UseRCl t p cl = { - s = \\agr => t.s ++ p.s ++ cl.s ! t.t ! t.a ! p.p ! agr ; - role = cl.role - } ; - UseSlash t p cl = { - s = \\agr => t.s ++ p.s ++ cl.s ! agr ! t.t ! t.a ! p.p ! Main ; - c2 = cl.c2 - } ; - - AdvS a s = {s = a.s ++ "," ++ s.s} ; - - RelS s r = {s = s.s ++ "," ++ r.s ! {gn=gennum DNeut Sg; p=P3}} ; -} |