diff options
Diffstat (limited to 'examples/uusisuomi/Declensions.gf')
| -rw-r--r-- | examples/uusisuomi/Declensions.gf | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/examples/uusisuomi/Declensions.gf b/examples/uusisuomi/Declensions.gf index 92e8c368d..af7db3fdf 100644 --- a/examples/uusisuomi/Declensions.gf +++ b/examples/uusisuomi/Declensions.gf @@ -26,6 +26,16 @@ resource Declensions = ResFin ** open MorphoFin,CatFin,Prelude in { (nais + "ten") (nais + "i" + a) (nais + "in" + a) (nais + "iss" + a) (nais + "iin") ; + dPaluu : Str -> NForms = \paluu -> + let + a = vowHarmony paluu ; + palui = init paluu + "i" ; + u = last paluu ; + in nForms10 + paluu (paluu + "n") (paluu + "t" + a) (paluu + "n" + a) (paluu + "seen") + (palui + "den") (palui + "t" + a) + (palui + "n" + a) (palui + "ss" + a) (palui + "siin") ; + dPuu : Str -> NForms = \puu -> let a = vowHarmony puu ; |