From 02130dc128955661775b604d9c29d776957bff7c Mon Sep 17 00:00:00 2001
From: Herbert Lange <herbert.lange@cse.gu.se>
Date: Sun, 23 Jun 2019 16:51:38 +0200
Subject: [PATCH] helper functions for various noun types

---
 src/latin/ParadigmsLat.gf | 6 ++++--
 src/latin/ResLat.gf       | 2 ++
 2 files changed, 6 insertions(+), 2 deletions(-)

diff --git a/src/latin/ParadigmsLat.gf b/src/latin/ParadigmsLat.gf
index 71a47e11a..cedb844cc 100644
--- a/src/latin/ParadigmsLat.gf
+++ b/src/latin/ParadigmsLat.gf
@@ -41,6 +41,9 @@ oper
       = \x,y,z -> lin N ( noun_ngg x y z ) ;
   } ;
   
+  pluralN = ResLat.pluralN ;
+  singularN = ResLat.singularN ;
+  constN = ResLat.constN ;
   mkA = overload {
     mkA : (verbum : Str) -> A -- Nominative masculine
       = \n -> lin A ( adj n ** {isPre = False } ) ;
@@ -101,8 +104,7 @@ oper
       = \p,c -> lin Adv (mkFullAdverb p c nonExist);
     };
   
-  pluralN = ResLat.pluralN ;
-  singularN = ResLat.singularN ;
+
 
   mkConj = overload {
     mkConj : Str -> Str -> Str -> Number -> Coordinator -> Conjunction = mkConjunction ;
diff --git a/src/latin/ResLat.gf b/src/latin/ResLat.gf
index 24f7e407c..c5bb1cff1 100644
--- a/src/latin/ResLat.gf
+++ b/src/latin/ResLat.gf
@@ -79,6 +79,8 @@ param
       postap = n.postap 
 --      massable = n.massable ;
     };
+  constN : Str -> Gender -> Noun = \s,g ->
+    { s = \\_,_ => s ; g = g } ;
 
   param
     AdjPos = Pre | Post ;