From 7da28a09bee433704d1c11a3cb71b1e652f44e43 Mon Sep 17 00:00:00 2001
From: aarneranta <aarne@chalmers.se>
Date: Thu, 22 Jul 2021 10:33:44 +0200
Subject: [PATCH] ifPluralNP and forceNumberNP in ParadigmsFin

---
 src/finnish/ParadigmsFin.gf | 13 +++++++++++++
 1 file changed, 13 insertions(+)

diff --git a/src/finnish/ParadigmsFin.gf b/src/finnish/ParadigmsFin.gf
index a5ef957a8..f695a2d41 100644
--- a/src/finnish/ParadigmsFin.gf
+++ b/src/finnish/ParadigmsFin.gf
@@ -183,6 +183,19 @@ oper
 
   foreignPN : Str -> PN ; -- Dieppe-Dieppen
 
+-- To inspect the number of an NP
+
+  ifPluralNP : NP -> Bool  -- False if singular, True if plural
+    = \np -> case np.a of {
+      Ag Pl _ => True ;
+      _ => False
+      } ;
+
+-- To force a number on NP
+
+  forceNumberNP : Number -> NP -> NP  -- e.g. Yhdysvallat plural in form, singular in agreement
+    = \n,np -> np ** {a = agrP3 n} ; --- also forces 3rd person
+
 --2 Adjectives
 
 -- Non-comparison one-place adjectives are just like nouns.