diff options
| author | aarne <aarne@cs.chalmers.se> | 2008-02-18 18:20:42 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2008-02-18 18:20:42 +0000 |
| commit | 4e3d240d2dbd3a721ec4aea58c1e2ee31e49ed51 (patch) | |
| tree | 29541d1c2ad0cb624c23f84eb4d8afa3e7483c1e /examples/uusisuomi/Kotus.gf | |
| parent | 389ba6058d336e4f193fa02c1fad3edad67415c1 (diff) | |
final version of kotus experiment
Diffstat (limited to 'examples/uusisuomi/Kotus.gf')
| -rw-r--r-- | examples/uusisuomi/Kotus.gf | 17 |
1 files changed, 12 insertions, 5 deletions
diff --git a/examples/uusisuomi/Kotus.gf b/examples/uusisuomi/Kotus.gf index e6469924d..d2e3f0510 100644 --- a/examples/uusisuomi/Kotus.gf +++ b/examples/uusisuomi/Kotus.gf @@ -30,15 +30,19 @@ oper d08A : Str -> NForms -- 5 vinaigrette = \s -> dNukke s (weakGrade s + "n") ; d09 : Str -> NForms -- 696 ääriraja - = \s -> dUkko s (s + "n") ; + = \s -> let a = last s in dSilakka s + (s + "n") + (init s + case a of {"a" => "o" ; _ => "ö"} + "j" + a) ; d09A : Str -> NForms -- 1040 ääniraita - = \s -> dUkko s (s + weakGrade "n") ; + = \s -> let a = last s in dSilakka s + (weakGrade s + "n") + (init s + case a of {"a" => "o" ; _ => "ö"} + "j" + a) ; d10 : Str -> NForms -- 2119 äänittäjä = \s -> dSilakka s (s + "n") (init s + "i" + vowelHarmony (last s)) ; d10A : Str -> NForms -- 284 änkkä - = \s -> dUkko s (weakGrade s + "n") ; + = \s -> dSilakka s (weakGrade s + "n") (init s + "i" + vowelHarmony (last s)) ; d11 : Str -> NForms -- 46 ödeema - = \s -> dUkko s (s + "n") ; + = \s -> dSilakka s (weakGrade s + "n") (init s + "i" + vowelHarmony (last s)) ; d12 : Str -> NForms -- 1125 örinä = \s -> let a = vowelHarmony (last s) in dSilakka s (s + "n") @@ -174,7 +178,10 @@ oper d48A : Str -> NForms -- 481 äänne = \s -> dRae s (strongGrade s + "en") ; d49 : Str -> NForms -- 31 vempele - = \s -> dRae s (s + "en") ; + = \s -> case last s of { + "e" => dRae s (s + "en") ; + _ => dPiennar s (s + "en") + } ; d49A : Str -> NForms -- 11 vemmel = \s -> dPiennar s (strongGrade (init s) + "len") ; {- |