diff options
Diffstat (limited to 'next-lib/src/russian/IdiomRus.gf')
| -rw-r--r-- | next-lib/src/russian/IdiomRus.gf | 58 |
1 files changed, 0 insertions, 58 deletions
diff --git a/next-lib/src/russian/IdiomRus.gf b/next-lib/src/russian/IdiomRus.gf deleted file mode 100644 index 1c64ae51d..000000000 --- a/next-lib/src/russian/IdiomRus.gf +++ /dev/null @@ -1,58 +0,0 @@ ---# -path=.:../abstract:../common:../../prelude
-
-concrete IdiomRus of Idiom = CatRus ** open Prelude, ResRus, MorphoRus in {
-
- flags optimize=all_subs ; coding=utf8 ;
-
- lin
- ExistNP = \bar ->
- {s =\\b,clf => case b of
- {Pos => verbSuchestvovat.s ! (getActVerbForm clf (pgen2gen bar.g) Sg P3)
- ++ bar.s ! PF Nom No NonPoss;
- Neg => "не" ++ verbSuchestvovat.s ! (getActVerbForm clf (pgen2gen bar.g) Sg P3)
- ++ bar.s ! PF Nom No NonPoss
- }
-} ;
-
- ExistIP Kto =
- let { kto = Kto.s ! (PF Nom No NonPoss) } in
- {s = \\b,clf,_ => case b of
- {Pos => kto ++ verbSuchestvovat.s ! (getActVerbForm clf (pgen2gen Kto.g) Sg P3) ;
- Neg => kto ++ "не" ++ verbSuchestvovat.s ! (getActVerbForm clf (pgen2gen Kto.g) Sg P3)
- }
- } ;
-
- CleftAdv adv sen = {s= \\ b, clf => let ne= case b of {Pos =>[]; Neg =>"не"}
- in
- "это" ++ ne ++ adv.s ++ [", "]++ sen.s };
-
- CleftNP np rs = {s= \\ b, clf =>
- let
- ne= case b of {Pos =>[]; Neg =>"не"};
- gn = case np.n of {Pl => GPl; _=> GSg (pgen2gen np.g)}
- in
- "это" ++ ne ++ np.s ! (PF Nom No NonPoss) ++
- rs.s ! gn !Nom!Animate };
-
- ImpPl1 vp = {s= "давайте" ++ vp.s! (ClIndic Future Simul)! GPl ! P1};
-
- ImpersCl vp = {s= \\ b, clf => let ne= case b of {Pos =>[]; Neg =>"не"}
- in
- ne ++ vp.s! clf! (GSg Neut) ! P3 };
-
--- No direct correspondance in Russian. Usually expressed by infinitive:
--- "Если очень захотеть, можно в космос улететь"
--- (If one really wants one can fly into the space).
--- Note that the modal verb "can" is trasferred into adverb
--- "можно" (it is possible) in Russian
--- The closest subject is "ты" (you), which is omitted in the final sentence:
--- "Если очень захочешь, можешь в космос улететь"
-
- GenericCl vp = {s= \\ b, clf => let ne= case b of {Pos =>[]; Neg =>"не"}
- in
- "ты" ++ ne ++ vp.s! clf! (GSg Masc) ! P2 };
-
- ProgrVP vp = vp ;
-
-}
-
|
