ParadigmsFin.exceptPlGenN for special plural genitives

This commit is contained in:
aarneranta
2021-08-01 12:38:24 +02:00
parent decdfac926
commit ee86e2390c
4 changed files with 21 additions and 1 deletions
+5
View File
@@ -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 ;