From 70223e85f207beaae04c241da5069cc5c41a6909 Mon Sep 17 00:00:00 2001
From: Krasimir Angelov <kr.angelov@gmail.com>
Date: Wed, 3 Apr 2024 14:25:12 +0200
Subject: [PATCH] guessed QuantityNP and the MU category

---
 src/arabic/NounAra.gf      | 7 +++++--
 src/arabic/ParadigmsAra.gf | 4 ++++
 2 files changed, 9 insertions(+), 2 deletions(-)

diff --git a/src/arabic/NounAra.gf b/src/arabic/NounAra.gf
index 8af8ce0b..90a5979e 100644
--- a/src/arabic/NounAra.gf
+++ b/src/arabic/NounAra.gf
@@ -237,6 +237,9 @@ lin
              }
     };
 
-  -- : CN -> NP -> CN ;     -- glass of wine
-  --PartNP
+  QuantityNP n m = emptyNP ** {
+    s = \\c => preOrPost m.isPre m.s n.s ;
+    a = { pgn = agrP3 NoHum Masc (sizeToNumber n.n);
+          isPron = False }
+  };
 }
diff --git a/src/arabic/ParadigmsAra.gf b/src/arabic/ParadigmsAra.gf
index 9712bf8b..cb374579 100644
--- a/src/arabic/ParadigmsAra.gf
+++ b/src/arabic/ParadigmsAra.gf
@@ -206,6 +206,10 @@ resource ParadigmsAra = open
     mkConj : Str -> Str -> Number -> Conj ; -- either, or, sg
   } ;
 
+--2 Measurement Units
+
+  mkMU : Str -> MU = \s -> lin MU {s=s; isPre=False} ;
+
 --2 Verbs
 
 -- Overloaded operations