1
0
forked from GitHub/gf-rgl

plural inflection of Fin LN

This commit is contained in:
Aarne Ranta
2024-01-30 16:00:59 +01:00
parent 61bc8e7619
commit 4a12ecd9d3
3 changed files with 7 additions and 5 deletions
+3 -1
View File
@@ -38,7 +38,9 @@ oper
SPN : Type = {s : Case => Str} ;
snoun2spn : SNoun -> SPN = \n -> {s = \\c => n.s ! NCase Sg c} ;
snoun2spn : SNoun -> SPN = \n -> snoun2spnGen n Sg ;
snoun2spnGen : SNoun -> Number -> SPN = \n,nb -> {s = \\c => n.s ! NCase nb c} ;
exceptNomSNoun : SNoun -> Str -> SNoun = \noun,nom -> {
s = table {