diff options
| author | aarne <aarne@cs.chalmers.se> | 2008-01-06 12:16:07 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2008-01-06 12:16:07 +0000 |
| commit | 330350325f79f8a229abe3ed460c814464d574e7 (patch) | |
| tree | 1c960828187df2cdcb79858fd58ef0cfde638367 /examples/uusisuomi/Declensions.gf | |
| parent | 238dba62642686b2d1354885cefa94088d4a3b2b (diff) | |
tests for verbs in uusisuomi
Diffstat (limited to 'examples/uusisuomi/Declensions.gf')
| -rw-r--r-- | examples/uusisuomi/Declensions.gf | 18 |
1 files changed, 15 insertions, 3 deletions
diff --git a/examples/uusisuomi/Declensions.gf b/examples/uusisuomi/Declensions.gf index 6bcd1ae06..c9971af50 100644 --- a/examples/uusisuomi/Declensions.gf +++ b/examples/uusisuomi/Declensions.gf @@ -305,6 +305,18 @@ resource Declensions = ResFin ** open MorphoFin,CatFin,Prelude in { (suurimp + "ien") (suurimp + "i" + a) (suurimp + "in" + a) (suurimm + "iss" + a) (suurimp + "iin") ; +-- for verb participle forms + + dOttanut : Str -> NForms = \ottanut -> + let + a = vowHarmony ottanut ; + ottane = init ottanut + "e" ; + ottanee = ottane + "e" ; + in nForms10 + ottanut (ottanee + "n") (ottanut + "t" + a) + (ottanee + "n" + a) (ottanee + "seen") + (ottane + "iden") (ottane + "it" + a) + (ottane + "in" + a) (ottane + "iss" + a) (ottane + "isiin") ; ------------------- -- auxiliaries ---- @@ -455,9 +467,9 @@ resource Declensions = ResFin ** open MorphoFin,CatFin,Prelude in { "rr" + e => "rt" + e ; "ll" + a => "lt" + a ; h@("h" | "l") + "j" + e => h + "k" + e ; -- pohje/lahje impossible - ("hk" | "sk" | "sp" | "st") + _ => nke ; -- viuhke,kuiske - a + k@("k" | "p" | "t") + e@("e"|"a"|"ä"|"u"|"i") => a + k + k + e ; - a + "d" + e@("e"|"a"|"ä"|"u"|"i") => a + "t" + e ; + ("tk" | "hk" | "sk" | "sp" | "st") + _ => nke ; -- viuhke,kuiske + a + k@("k"|"p"|"t") + e@("e"|"a"|"ä"|"u"|"i"|"o"|"ö") => a + k + k + e ; + a + "d" + e@("e"|"a"|"ä"|"u"|"i"|"o"|"ö") => a + "t" + e ; s + a@("a" | "ä") + "e" => s + a + "ke" ; -- säe, tae a + "v" + e@("e"|"a"|"ä"|"u"|"i") => a + "p" + e ; -- taive/toive imposs ase => ase |