From f8d100edee70a1d359646d7f5c92c1fa4661f671 Mon Sep 17 00:00:00 2001
From: aarneranta <aarne@chalmers.se>
Date: Thu, 8 Feb 2024 11:55:14 +0100
Subject: [PATCH] ParadigmsAra.mkLN added

---
 src/arabic/ParadigmsAra.gf | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/src/arabic/ParadigmsAra.gf b/src/arabic/ParadigmsAra.gf
index 74fcde773..9712bf8b8 100644
--- a/src/arabic/ParadigmsAra.gf
+++ b/src/arabic/ParadigmsAra.gf
@@ -95,6 +95,16 @@ resource ParadigmsAra = open
      = mkFullPN ;
   } ;
 
+  mkLN = overload {
+    mkLN : Str -> LN  -- Predictable LN from a Str: fem hum if ends in ة, otherwise masc hum.
+     = \s -> lin LN (smartPN s) ;
+    mkLN : N -> LN    -- Make a LN out of N. The LN is in construct state.
+     = \n -> lin LN (n ** {
+          s = \\c => n.s ! Sg ! Const ! c
+                  ++ n.s2 ! Sg ! Def ! c -- NB this hack works for idaafa constructions (if you used mkN : N -> N -> N), but wrong for mkN : N -> A -> N. /IL
+        }) ;
+  } ;
+
 --3 Relational nouns
 
   mkN2 : overload {