From 069a02c441a2d9f8a326468ef2a4f59c409657f7 Mon Sep 17 00:00:00 2001
From: Inari Listenmaa <inari.listenmaa@gmail.com>
Date: Wed, 17 Oct 2018 17:17:24 +0200
Subject: [PATCH] (Ara) WIP: noun compounds

---
 src/arabic/NounAra.gf | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

diff --git a/src/arabic/NounAra.gf b/src/arabic/NounAra.gf
index d02c0a3be..0e7a0c2db 100644
--- a/src/arabic/NounAra.gf
+++ b/src/arabic/NounAra.gf
@@ -193,5 +193,15 @@ lin
   --    AdvCN cn ad = {s = \\n,c => cn.s ! n ! c ++ ad.s} ;
   --
   --    SentCN cn sc = {s = \\n,c => cn.s ! n ! c ++ sc.s} ;
-  ApposCN cn np = cn ** { np = np.s } ;
+  ApposCN cn np = cn ** { np = \\c => cn.np ! c ++ np.s ! c } ;
+
+  -- : CN -> NP -> CN ;     -- house of Paris, house of mine
+  PossNP cn np = cn ** {
+    s = \\n,_d,c => cn.s ! n ! Const ! c ;
+    np = \\c => cn.np ! c ++ np.s ! Gen
+    };
+
+
+  -- : CN -> NP -> CN ;     -- glass of wine
+  --PartNP
 }