From a5e6106d5151aadb07bf206c37ed9f8bb3ab88a6 Mon Sep 17 00:00:00 2001
From: Krasimir Angelov <kr.angelov@gmail.com>
Date: Sat, 4 Nov 2023 17:00:25 +0100
Subject: [PATCH] make it possible to control the preposition in LN

---
 src/russian/CatRus.gf                  | 1 +
 src/russian/DocumentationRusFunctor.gf | 4 +++-
 src/russian/NamesRus.gf                | 2 +-
 3 files changed, 5 insertions(+), 2 deletions(-)

diff --git a/src/russian/CatRus.gf b/src/russian/CatRus.gf
index 2c770052..9aa05bf6 100644
--- a/src/russian/CatRus.gf
+++ b/src/russian/CatRus.gf
@@ -12,6 +12,7 @@ lincat
   } ;
   LN = {
     s : Case => Str ;
+    c : ResRus.ComplementCase ;
     g : Gender ;
     n : Number ;
     anim : Animacy
diff --git a/src/russian/DocumentationRusFunctor.gf b/src/russian/DocumentationRusFunctor.gf
index 083ad94f..397651cd 100644
--- a/src/russian/DocumentationRusFunctor.gf
+++ b/src/russian/DocumentationRusFunctor.gf
@@ -110,7 +110,9 @@ lin
           tr (th (heading partitive_Parameter) ++ td (ln.s ! Ptv)) ++
           tr (th ("местный") ++ td (ln.s ! Loc)) ++
           tr (th ("звательный") ++ td (ln.s ! VocRus))
-          )
+          ) ++
+          heading2 (heading adverb_Category) ++
+          paragraph (ln.c.s ++ ln.s ! ln.c.c)
     } ;
 
   InflectionA, InflectionA2 = \adj -> {
diff --git a/src/russian/NamesRus.gf b/src/russian/NamesRus.gf
index 3a89fae6..720543be 100644
--- a/src/russian/NamesRus.gf
+++ b/src/russian/NamesRus.gf
@@ -41,7 +41,7 @@ lin FullName gn sn =
     a=Ag (gennum ln.g ln.n) P3
     } ;   -- Does NP need animacy?
 
-  InLN ln = ss (applyPrep {s=v_prep_mod; c=Loc; hasPrep=True} {
+  InLN ln = ss (applyPrep ln.c {
     s=ln.s ;
     pron=False;
     a=Ag (gennum ln.g ln.n) P3