From 9a413efd6f9bda37dc47e9a56a193cb45d4aa7f3 Mon Sep 17 00:00:00 2001
From: Krasimir Angelov <kr.angelov@gmail.com>
Date: Tue, 22 Aug 2023 08:06:07 +0200
Subject: [PATCH] restore InLN in German

---
 src/german/NamesGer.gf | 22 ++++++++++++++--------
 1 file changed, 14 insertions(+), 8 deletions(-)

diff --git a/src/german/NamesGer.gf b/src/german/NamesGer.gf
index d97381e6..5f6f8391 100644
--- a/src/german/NamesGer.gf
+++ b/src/german/NamesGer.gf
@@ -1,4 +1,4 @@
-concrete NamesGer of Names = CatGer ** open ResGer, Prelude in {
+concrete NamesGer of Names = CatGer ** open ResGer, Prelude, (P=ParadigmsGer) in {
 
 lin GivenName gn = {
       s = \\_,c => gn.s ! c ;
@@ -58,16 +58,22 @@ lin PlainLN ln = {
       rc, ext = []
       } ;
 
-{-
 -- InLN : LN -> Adv ;
 lin InLN ln = {
-      s = let c = CInDat
-          in case ln.hasArt of {
-               True  => artDefContr (gennum ln.g ln.n) c ++ usePrepC c (\k -> ln.s ! Weak ! k) ;
-               False => usePrepC c (\k -> ln.s ! adjfCase Strong k ! k)
-             } ;
+      s = appPrepNP P.inDat_Prep {
+             s = \\b,c => case ln.hasArt of {
+                            True  => case b of {
+                                       True  => [] ; -- defart dropped
+                                       False => artDef ! (gennum ln.g ln.n) ! c
+                                     } ++
+                                     ln.s ! (adjfCase Weak c) ! c ;
+                            False => ln.s ! Strong ! c
+                          } ;
+             a = agrgP3 ln.g ln.n ;
+             w = WLight ;
+             rc, ext = []
+      }
       } ;
--}
 
 -- AdjLN : AP -> LN -> LN ;
 lin AdjLN ap ln = ln ** {