This commit is contained in:
janna
2006-05-26 09:59:30 +00:00
parent 0d7406a7f0
commit 40dcf1c0d6
11 changed files with 531 additions and 826 deletions

View File

@@ -70,10 +70,10 @@ concrete SentenceRus of Sentence = CatRus ** open Prelude, ResRus in {
EmbedS s = {s = "что" ++ s.s} ;
-- In Russian "Whether you go" transformed in "go whether you":
EmbedQS qs = {s = qs.s ! QIndir} ;
EmbedVP vp = {s = vp.s!ClInfinit!(ASg Masc) !P3} ;
EmbedVP vp = {s = vp.s!ClInfinit!(ASg Masc) !P3} ;
UseCl t a p cl = {s = cl.s! p.p ! ClIndic t.t a.a};
UseCl t a p cl = {s = cl.s! p.p ! ClIndic (getTense t.t) a.a};
UseQCl t a p qcl= {s = qcl.s!p.p! ClIndic (getTense t.t) a.a };
UseRCl t a p rcl ={s = rcl.s! p.p ! ClIndic (getTense t.t) a.a };