diff options
| author | aarne <aarne@cs.chalmers.se> | 2008-01-06 21:05:56 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2008-01-06 21:05:56 +0000 |
| commit | fc65b10e0f689a51f2f856b43abfb6d266889a9b (patch) | |
| tree | 453717608eb8bd04e47424b9a779efc5978a8aec /examples/uusisuomi/Verbal.gf | |
| parent | 330350325f79f8a229abe3ed460c814464d574e7 (diff) | |
dictionary experiment with Finnish verbs
Diffstat (limited to 'examples/uusisuomi/Verbal.gf')
| -rw-r--r-- | examples/uusisuomi/Verbal.gf | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/examples/uusisuomi/Verbal.gf b/examples/uusisuomi/Verbal.gf index cdf61f88e..5cf4b11d6 100644 --- a/examples/uusisuomi/Verbal.gf +++ b/examples/uusisuomi/Verbal.gf @@ -9,7 +9,7 @@ resource Verbal = ResFin ** mkV = overload { mkV : (huutaa : Str) -> V = mk1V ; - mkV : (huutaa,huusi : Str) -> V = \s,t -> mk2V <s,t> ; + mkV : (huutaa,huusi : Str) -> V = mk2V ; } ; showV : V -> Utt = \v -> ss ( @@ -27,8 +27,7 @@ resource Verbal = ResFin ** ) ** {lock_Utt = <>} ; mk1V : Str -> V = \s -> vforms2V (vForms1 s) ; - mk2V : (_ : Str * Str) -> V = \st -> - vforms2V (vForms2 st.p1 st.p2) ; + mk2V : (_,_ : Str) -> V = \s,t -> vforms2V (vForms2 s t) ; vForms1 : Str -> VForms = \ottaa -> let @@ -45,6 +44,9 @@ resource Verbal = ResFin ** cHukkua ottaa (ota + "n") ; _ + ("l" | "n" | "r") + ("taa" | "tää") => cOttaa ottaa (ota + "n") (ots + "in") (ots + "i") ; + ("" | C_) + ("a" | "e" | "i" | "o" | "u") + C_ + _ + + ("a" | "e" | "i" | "o" | "u") + _ + "aa" => + cOttaa ottaa (ota + "n") (ot + "in") (ott + "i") ; ("" | C_) + ("a" | "e" | "i") + _ + "aa" => cOttaa ottaa (ota + "n") (ot + "oin") (ott + "oi") ; _ + ("aa" | "ää") => |