From cb502488d106b54d56b8518bdf1c65face413776 Mon Sep 17 00:00:00 2001
From: aarneranta <aarne@chalmers.se>
Date: Fri, 30 Jul 2021 09:29:19 +0200
Subject: [PATCH] some ParadigmsEng,Fin,Ger additions

---
 src/english/ParadigmsEng.gf | 6 ++++++
 src/finnish/ParadigmsFin.gf | 2 ++
 src/german/ParadigmsGer.gf  | 4 +++-
 3 files changed, 11 insertions(+), 1 deletion(-)

diff --git a/src/english/ParadigmsEng.gf b/src/english/ParadigmsEng.gf
index 4582d4d85..69fdd7369 100644
--- a/src/english/ParadigmsEng.gf
+++ b/src/english/ParadigmsEng.gf
@@ -138,6 +138,12 @@ oper
     mkPN : N -> PN --%
   } ;
 
+-- To extract the number of a noun phrase
+
+    ifPluralNP : NP -> Bool
+      = \np -> case (fromAgr np.a).n of {Sg => False ; Pl => True} ;
+
+
 --3 Determiners and quantifiers
 
   mkQuant : overload {
diff --git a/src/finnish/ParadigmsFin.gf b/src/finnish/ParadigmsFin.gf
index f695a2d41..54f5ec2ee 100644
--- a/src/finnish/ParadigmsFin.gf
+++ b/src/finnish/ParadigmsFin.gf
@@ -396,6 +396,8 @@ mkVS = overload {
       Part => lin Det (MorphoFin.mkDetPol isNeg nu (snoun2nounBind noun)) ** {isNum = True} ; --- works like "kolme autoa"
       _ => lin Det (MorphoFin.mkDetPol isNeg nu (snoun2nounBind noun)) ---- are there other cases?
       } ;
+    mkDet : Str -> Det -> Det -- add a string to a Det, e.g. "suunnilleen jokainen"
+      = \s,det -> det ** {s1 = \\c => s ++ det.s1 ! c} ;
     } ;
 
   mkQuant = overload {
diff --git a/src/german/ParadigmsGer.gf b/src/german/ParadigmsGer.gf
index aec0cb8ab..df3a24fe1 100644
--- a/src/german/ParadigmsGer.gf
+++ b/src/german/ParadigmsGer.gf
@@ -143,8 +143,10 @@ mkN : overload {
 
     } ;
 
+-- To extract the number of a noun phrase
 
-
+    ifPluralNP : NP -> Bool
+      = \np -> case (numberAgr np.a) of {Sg => False ; Pl => True} ;
 
 
 --2 Adjectives