From c8ceed08efcc0bdc1fcbd89bce643d9f52f0991b Mon Sep 17 00:00:00 2001 From: aarne Date: Wed, 9 Dec 2009 09:47:16 +0000 Subject: moving a few things to deprecated --- old-lib/resource/bulgarian/SentenceBul.gf | 72 ------------------------------- 1 file changed, 72 deletions(-) delete mode 100644 old-lib/resource/bulgarian/SentenceBul.gf (limited to 'old-lib/resource/bulgarian/SentenceBul.gf') diff --git a/old-lib/resource/bulgarian/SentenceBul.gf b/old-lib/resource/bulgarian/SentenceBul.gf deleted file mode 100644 index ff2bc0fd8..000000000 --- a/old-lib/resource/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 a p cl = { - s = t.s ++ a.s ++ p.s ++ cl.s ! t.t ! a.a ! p.p ! Main - } ; - UseQCl t a p cl = { - s = \\q => t.s ++ a.s ++ p.s ++ cl.s ! t.t ! a.a ! p.p ! q - } ; - UseRCl t a p cl = { - s = \\agr => t.s ++ a.s ++ p.s ++ cl.s ! t.t ! a.a ! p.p ! agr ; - role = cl.role - } ; - UseSlash t a p cl = { - s = \\agr => t.s ++ a.s ++ p.s ++ cl.s ! agr ! t.t ! a.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}} ; -} -- cgit v1.2.3