From 5f9322683cbebd175b09e7c35c4b0506f0761c9c Mon Sep 17 00:00:00 2001
From: aarneranta <aarne@chalmers.se>
Date: Fri, 8 Sep 2023 13:10:49 +0200
Subject: [PATCH] added NamesAra

---
 src/arabic/CatAra.gf   |  2 +-
 src/arabic/NamesAra.gf | 17 +++++++++++++++++
 2 files changed, 18 insertions(+), 1 deletion(-)
 create mode 100644 src/arabic/NamesAra.gf

diff --git a/src/arabic/CatAra.gf b/src/arabic/CatAra.gf
index 222c798b..5dba84f2 100644
--- a/src/arabic/CatAra.gf
+++ b/src/arabic/CatAra.gf
@@ -92,7 +92,7 @@ concrete CatAra of Cat = CommonX - [Utt]  ** open ResAra, Prelude, ParamX in {
     N = ResAra.Noun ;
     N2 = ResAra.Noun2 ;
     N3 = ResAra.Noun3 ;
-    PN = {s : Case => Str; g : Gender; h : Species} ;
+    GN, SN, LN, PN = {s : Case => Str; g : Gender; h : Species} ;
 
 linref
 
diff --git a/src/arabic/NamesAra.gf b/src/arabic/NamesAra.gf
new file mode 100644
index 00000000..d8928696
--- /dev/null
+++ b/src/arabic/NamesAra.gf
@@ -0,0 +1,17 @@
+concrete NamesAra of Names = CatAra ** open ResAra, Prelude in { 
+
+lin GivenName, MaleSurname, FemaleSurname, PlSurname = \n -> emptyNP ** {
+      s = n.s ;
+      a = {pgn = Per3 n.g Sg ; isPron = False} ;
+      } ;
+lin FullName gn sn = emptyNP ** {
+      s = \\c => gn.s ! c ++ sn.s ! c ;
+      a = {pgn = Per3 gn.g Sg ; isPron = False} ;
+      } ;
+
+lin UseLN pn = emptyNP ** {
+      s = pn.s ;
+      a = {pgn = Per3 pn.g Sg ; isPron = False} ;
+      } ;
+
+}