From d44298a4ad99674256fb5966dc72a69a4d4e9090 Mon Sep 17 00:00:00 2001
From: Krasimir Angelov <kr.angelov@gmail.com>
Date: Tue, 22 Oct 2024 20:41:16 +0200
Subject: [PATCH] added QuantityNP and mkMU

---
 src/interlingua/NounIna.gf      | 6 ++++++
 src/interlingua/ParadigmsIna.gf | 1 +
 2 files changed, 7 insertions(+)

diff --git a/src/interlingua/NounIna.gf b/src/interlingua/NounIna.gf
index c3c8e5cd..dbe63f3a 100644
--- a/src/interlingua/NounIna.gf
+++ b/src/interlingua/NounIna.gf
@@ -118,4 +118,10 @@ concrete NounIna of Noun = CatIna ** open ResIna, Prelude in {
       isPronoun = np.isPronoun ---- ?? AR
       } ;
 
+    QuantityNP n m = {
+      s = \\c => preOrPost m.isPre m.s (n.s ! NCard) ;
+      a = agrP3 n.n ;
+      isPronoun = False
+    } ;
+
 }
diff --git a/src/interlingua/ParadigmsIna.gf b/src/interlingua/ParadigmsIna.gf
index 153b3c0c..a198a514 100644
--- a/src/interlingua/ParadigmsIna.gf
+++ b/src/interlingua/ParadigmsIna.gf
@@ -254,5 +254,6 @@ oper
   mkInterj : Str -> Interj = \s -> lin Interj {s=s};
   mkVoc : Str -> Voc = variants {} ;
 
+  mkMU : Str -> MU = \s -> lin MU {s=s; isPre=False} ;
 
 } ;