diff options
| author | aarne <aarne@chalmers.se> | 2009-06-22 15:39:08 +0000 |
|---|---|---|
| committer | aarne <aarne@chalmers.se> | 2009-06-22 15:39:08 +0000 |
| commit | e89fdae2fa1626348d8025824a7469252fa85e42 (patch) | |
| tree | c7d46bbd0494043b4bd6f917a25a7687517d0547 /next-lib/src/russian/RelativeRus.gf | |
| parent | 3049b59b35b25381a7c6787444165c200d66e08b (diff) | |
next-lib renamed to lib, lib to old-lib
Diffstat (limited to 'next-lib/src/russian/RelativeRus.gf')
| -rw-r--r-- | next-lib/src/russian/RelativeRus.gf | 37 |
1 files changed, 0 insertions, 37 deletions
diff --git a/next-lib/src/russian/RelativeRus.gf b/next-lib/src/russian/RelativeRus.gf deleted file mode 100644 index 51088de57..000000000 --- a/next-lib/src/russian/RelativeRus.gf +++ /dev/null @@ -1,37 +0,0 @@ ---# -path=.:../abstract:../common:../../prelude
-
-concrete RelativeRus of Relative = CatRus ** open ResRus, MorphoRus in {
-
- flags optimize=all_subs ; coding=utf8 ;
-
- lin
-
- RelCl A = {s = \\b,clf,gn,c, anim =>
- takoj.s ! AF c anim gn ++ "что" ++ A.s !b!clf};
-
- RelVP kotoruj gulyaet =
- { s = \\b,clf,gn, c, anim => let { nu = numGenNum gn } in
- kotoruj.s ! gn ! c ! anim ++ gulyaet.s2 ++ gulyaet.s ! clf ! gn !P3 ++
- gulyaet.s3 ! genGNum gn ! nu
- } ;
-
-
--- Preposition stranding: "that we are looking at". Pied-piping is
--- deferred to $ExtRus.gf$ ("at which we are looking").
-
- RelSlash kotoruj yaVizhu =
- {s = \\b,clf,gn, _ , anim => yaVizhu.s2 ++
- kotoruj.s ! gn ! yaVizhu.c ! anim
- ++ yaVizhu.s!b!clf
- } ;
-
- FunRP p mama kotoruj =
- {s = \\gn,c, anim => let {nu = numGenNum gn} in
- mama.s ! PF c No NonPoss ++
- p.s ++ kotoruj.s ! gn ! p.c ! anim
- } ;
-
- IdRP ={ s = \\gn, c, anim =>
- kotorujDet.s ! (AF c anim gn )} ;
-}
-
|
