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 /old-lib/resource/russian/RelativeRus.gf | |
| parent | 3049b59b35b25381a7c6787444165c200d66e08b (diff) | |
next-lib renamed to lib, lib to old-lib
Diffstat (limited to 'old-lib/resource/russian/RelativeRus.gf')
| -rw-r--r-- | old-lib/resource/russian/RelativeRus.gf | 37 |
1 files changed, 37 insertions, 0 deletions
diff --git a/old-lib/resource/russian/RelativeRus.gf b/old-lib/resource/russian/RelativeRus.gf new file mode 100644 index 000000000..d8a60dc47 --- /dev/null +++ b/old-lib/resource/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 )} ;
+}
+
|