diff options
| author | aarne <aarne@cs.chalmers.se> | 2008-02-07 08:42:08 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2008-02-07 08:42:08 +0000 |
| commit | 9f861ee5371c1c72147f991302a02aba3130e4f4 (patch) | |
| tree | 42a4d0e9aa9720b9d0bc9514e6bfea8b7864e236 /examples/uusisuomi/Declensions.gf | |
| parent | d2a5a88b18c9270f3f387a696e46cc0ba116bd08 (diff) | |
finnish kotus word list
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 ; |