From 7b520280d7ac1e3c3e62112d568ab0ebd1b09ee6 Mon Sep 17 00:00:00 2001
From: Inari Listenmaa <inari.listenmaa@gmail.com>
Date: Mon, 19 Nov 2018 15:23:54 +0100
Subject: [PATCH] (Ara) adverbs

---
 src/arabic/AdverbAra.gf | 28 +++++++++++++++-------------
 1 file changed, 15 insertions(+), 13 deletions(-)

diff --git a/src/arabic/AdverbAra.gf b/src/arabic/AdverbAra.gf
index df61ffc5..d10d2ac4 100644
--- a/src/arabic/AdverbAra.gf
+++ b/src/arabic/AdverbAra.gf
@@ -2,22 +2,24 @@ concrete AdverbAra of Adverb = CatAra ** open ResAra, Prelude in {
   flags coding=utf8;
 
   lin
+
     PositAdvAdj a = {s = a.s ! APosit Masc Sg Indef Acc} ;
---    ComparAdvAdj cadv a np = {
---      s = cadv.s ++ a.s ! AAdv ++ "مِنْ" ++ np.s ! Gen
---      } ;
---    ComparAdvAdjS cadv a s = {
---      s = cadv.s ++ a.s ! AAdv ++ "تهَن" ++ s.s
---      } ;
+    -- ComparAdvAdj cadv a np = {
+    --   s = cadv.s ++ a.s ! AAdv ++ "مِنْ" ++ np.s ! Gen
+    --   } ;
+    -- ComparAdvAdjS cadv a s = {
+    --   s = cadv.s ++ a.s ! AAdv ++ "مِنْ" ++ s.s
+    --   } ;
 
     PrepNP prep np = {s = prep.s ++ np.s ! prep.c} ;
 
---    AdAdv = cc2 ;
---
-   -- : Subj -> S -> Adv ;              -- when she sleeps
-   SubjS subj s = {s = subj.s ++ s.s ! Subord} ;
+    AdAdv ad av = cc2 av ad ;
+
+    -- : Subj -> S -> Adv ;              -- when she sleeps
+    SubjS subj s = {s = subj.s ++ s.s ! Subord} ;
+
 --    AdvSC s = s ; --- this rule give stack overflow in ordinary parsing
---
---    AdnCAdv cadv = {s = cadv.s ++ "تهَن"} ;
---
+
+    AdnCAdv cadv = {s = cadv.s ++ "مِنْ"} ;
+
 }