diff options
| author | aarne <aarne@cs.chalmers.se> | 2008-01-04 15:54:40 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2008-01-04 15:54:40 +0000 |
| commit | d5500498736ff9cdce7d23e336357742c5799825 (patch) | |
| tree | 53d4fe137e04c79d521fc373d41f5c38eb1bb5e9 /examples | |
| parent | 934d4dbd7c922fdc30b0bd6225c0dc44fea16ddb (diff) | |
finalizing experiments with Finnish nouns
Diffstat (limited to 'examples')
| -rw-r--r-- | examples/uusisuomi/Makefile | 16 | ||||
| -rw-r--r-- | examples/uusisuomi/Nominal.gf | 11 | ||||
| -rw-r--r-- | examples/uusisuomi/correct-Duodecim.txt | 2 |
3 files changed, 20 insertions, 9 deletions
diff --git a/examples/uusisuomi/Makefile b/examples/uusisuomi/Makefile index 0c593c8d3..a054f0a20 100644 --- a/examples/uusisuomi/Makefile +++ b/examples/uusisuomi/Makefile @@ -1,10 +1,14 @@ -#LEX=Duodecim -#LEX=Aino -#LEX=Omat -#LEX=NSSK -LEX=Swadesh +LEX=Omat -all: tests +all: + export LEX=NSSK ; make -e tests + export LEX=Omat ; make -e tests + export LEX=Swadesh ; make -e tests + export LEX=Dictionary ; make -e tests + export LEX=Duodecim ; make -e tests + export LEX=Aino ; make -e tests + cat all-diff-* >all-differences + cat all-differences gf-files: runghc MkLex.hs 0 $(LEX) > $(LEX)Abs.gf diff --git a/examples/uusisuomi/Nominal.gf b/examples/uusisuomi/Nominal.gf index 60bec2d60..e9eee3c6a 100644 --- a/examples/uusisuomi/Nominal.gf +++ b/examples/uusisuomi/Nominal.gf @@ -31,10 +31,17 @@ resource Nominal = ResFin ** open MorphoFin,Declensions,CatFin,Prelude in { _ + "is" => dKaunis ukko ; _ + ("i" | "u") + "n" => dLiitin ukko (renka + "men") ; _ + ("ton" | "tön") => dOnneton ukko ; + _ + "e" => dRae ukko (rake + "en") ; _ + ("ut" | "yt") => dRae ukko (ukk + "en") ; _ + ("as" | "äs") => dRae ukko (renka + last renka + "n") ; - _ + "e" => dRae ukko (rake + "en") ; + _ + ("uus" | "yys") => dLujuus ukko ; _ + "s" => dJalas ukko ; + _ + ("a" | "e" | "i") + C_ + _ + "aja" => -- opettaja correct autom. + dSilakka ukko (ukko + "n") (ukk + "ia") ; + _ + ("a" | "e" | "i" | "o" | "u") + C_ + _ + "ija" => + dSilakka ukko (ukko + "n") (ukk + "oita") ; + _ + ("e" | "i" | "y" | "ä" | "ö") + C_ + _ + "ijä" => + dSilakka ukko (ukko + "n") (ukk + "öitä") ; _ + "i" +o@("o"|"ö") => dSilakka ukko (ukko+"n") (ukko+"it"+getHarmony o); _ + "i" + "a" => dSilakka ukko (ukko + "n") (ukk + "oita") ; _ + "i" + "ä" => dSilakka ukko (ukko + "n") (ukk + "öitä") ; @@ -52,7 +59,7 @@ resource Nominal = ResFin ** open MorphoFin,Declensions,CatFin,Prelude in { case <ukko,ukon> of { <_ + ("aa" | "ee" | "ii" | "oo" | "uu" | "yy" | "ää" | "öö" | "ie" | "uo" | "yö" | "ea" | "eä" | - "ia" | "iä" | "io" | "iö"), _ + "n"> => + "ia" | "iä" | "io" | "iö" | "ja" | "jä"), _ + "n"> => nForms1 ukko ; --- to protect <_ + ("a" | "o" | "u" | "y" | "ä" | "ö"), _ + "n"> => dUkko ukko ukon ; -- auto,auton diff --git a/examples/uusisuomi/correct-Duodecim.txt b/examples/uusisuomi/correct-Duodecim.txt index c8732a274..a56ec4167 100644 --- a/examples/uusisuomi/correct-Duodecim.txt +++ b/examples/uusisuomi/correct-Duodecim.txt @@ -52,7 +52,7 @@ hyperkalsemia hyperkalsemian hyperkalsemiaa hyperkalsemiana hyperkalsemiaan hype seerumi seerumin seerumia seerumina seerumiin seerumien seerumeja seerumeina seerumeissa seerumeihin -pitoisuus pitoisuuksen pitoisuusta pitoisuuksena pitoisuukseen pitoisuusten pitoisuuksia pitoisuuksina pitoisuuksissa pitoisuuksiin +pitoisuus pitoisuuden pitoisuutta pitoisuutena pitoisuuteen pitoisuuksien pitoisuuksia pitoisuuksina pitoisuuksissa pitoisuuksiin viitealue viitealueen viitealuetta viitealueena viitealueeseen viitealueiden viitealueita viitealueina viitealueissa viitealueisiin |