From b325a612995ea837808778749e8aefa00f64deba Mon Sep 17 00:00:00 2001
From: Inari Listenmaa <inari.listenmaa@gmail.com>
Date: Wed, 2 Jan 2019 13:39:28 +0200
Subject: [PATCH] (Ara) hack to force the case of a NP

---
 src/arabic/ResAra.gf | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/src/arabic/ResAra.gf b/src/arabic/ResAra.gf
index c6f65c0ea..9611f8a01 100644
--- a/src/arabic/ResAra.gf
+++ b/src/arabic/ResAra.gf
@@ -1121,7 +1121,6 @@ patGeminateImp : (_,_ :Str) -> Gender => Number => Str = \facc,facic ->
         _ => brkPl word ! s ! c
       } ;
 
-
     -- takes a singular word and tests the ending to
     -- determine the declension and gives the corresponding dual inf table
     dual : Str -> State => Case => Str = \caSaA ->
@@ -1449,6 +1448,11 @@ patGeminateImp : (_,_ :Str) -> Gender => Number => Str = \facc,facic ->
       empty : Str -- to prevent ambiguities with prodrop
       } ;
 
+    -- hack, but better to have it here than to define ad hoc in every application grammar /IL
+    forceCase : NP -> Case -> NP = \np,c -> np ** {
+      s = \\_ => np.s ! c
+      } ;
+
     mkPron : (_,_,_ : Str) -> PerGenNum -> NP = \ana,nI,I,pgn ->
      { s =
         table {