diff options
| author | krasimir <krasimir@chalmers.se> | 2008-11-26 14:43:05 +0000 |
|---|---|---|
| committer | krasimir <krasimir@chalmers.se> | 2008-11-26 14:43:05 +0000 |
| commit | d0116c395839cd53dd24cfe1cb26b3f64ddc9430 (patch) | |
| tree | 74665c6353429f714a973437fb49a7b80a1ac12a /next-lib/src/russian/RelativeRus.gf | |
| parent | 66785b20208f9ea2fca7b6ff3355cd8ce87636c3 (diff) | |
add Russian in next-lib
Diffstat (limited to 'next-lib/src/russian/RelativeRus.gf')
| -rw-r--r-- | next-lib/src/russian/RelativeRus.gf | 37 |
1 files changed, 37 insertions, 0 deletions
diff --git a/next-lib/src/russian/RelativeRus.gf b/next-lib/src/russian/RelativeRus.gf new file mode 100644 index 000000000..d8a60dc47 --- /dev/null +++ b/next-lib/src/russian/RelativeRus.gf @@ -0,0 +1,37 @@ +--# -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 = numGNum 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 = numGNum 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 )} ;
+}
+
|