some ParadigmsEng,Fin,Ger additions

2021-07-30 09:29:19 +02:00
parent da443a79af
commit cb502488d1
3 changed files with 11 additions and 1 deletions
--- 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 {