ParadigmsFin.exceptPlGenN for special plural genitives

src/finnish/ParadigmsFin.gf

@@ -137,6 +137,10 @@ oper
 
     exceptNomN : N -> Str -> N ;
 
+-- Some nouns have special, or variant, plural genitives (e.g. "valta" - "valtojen"|"valtain").
+
+    exceptPlGenN : N -> Str -> N ;
+
 -- Nouns where the parts are separate (should perhaps be treated as CN)
 
    separateN = overload {
@@ -489,6 +493,7 @@ mkVS = overload {
   } ;
 
     exceptNomN : N -> Str -> N = \noun,nom -> lin N (exceptNomSNoun noun nom) ;
+    exceptPlGenN : N -> Str -> N = \noun,nom -> lin N (exceptPlGenSNoun noun nom) ;
 
 ----  mk1A : Str -> A = \jalo -> aForms2A (nforms2aforms (nForms1 jalo)) ;
 ----  mkNA : N -> A = snoun2sadj ;

src/finnish/StemFin.gf

@@ -47,6 +47,13 @@ oper
 	} ;
       h = noun.h
       } ;
+  exceptPlGenSNoun : SNoun -> Str -> SNoun = \noun,plgen -> {
+      s = table {
+        NCase Pl Gen => plgen ;
+        f => noun.s ! f
+	} ;
+      h = noun.h
+      } ;
 
 
 

src/finnish/stemmed/StemFin.gf

@@ -117,7 +117,14 @@ oper
 
     exceptNomSNoun : SNoun -> Str -> SNoun = \noun,nom -> {
       s = table {
-        0 => nom ;
+        5 => nom ;
+        f => noun.s ! f
+	} ;
+      h = noun.h
+      } ;
+    exceptPlGenSNoun : SNoun -> Str -> SNoun = \noun,plgen -> {
+      s = table {
+        5 => init plgen ;
         f => noun.s ! f
 	} ;
       h = noun.h

src/finnish/tagged/StemFin.gf

@@ -47,6 +47,7 @@ oper
   snoun2spn : SNoun -> SPN = \n -> {s = \\c => n.s ! 0 ++ tagCase c} ;
 
   exceptNomSNoun : SNoun -> Str -> SNoun = \noun,nom -> mkSNoun nom ;
+  exceptPlGenSNoun : SNoun -> Str -> SNoun = \noun,nom -> mkSNoun nom ; --- is this what is meant? AR 1/8/2021