diff --git a/examples/uusisuomi/Kotus.gf b/examples/uusisuomi/Kotus.gf index 2f46b9a13..e6469924d 100644 --- a/examples/uusisuomi/Kotus.gf +++ b/examples/uusisuomi/Kotus.gf @@ -110,7 +110,7 @@ oper d34 : Str -> NForms -- 1 alaston = \s -> let alastom = init s in nForms10 - s (s + "ta") (alastom + "an") (alastom + "ana") (alastom + "aan") + s (alastom + "an") (s + "ta") (alastom + "ana") (alastom + "aan") (alastom + "ien") (alastom + "ia") (alastom + "ina") (alastom + "issa") (alastom + "iin") ; d34A : Str -> NForms -- 569 ääretön @@ -118,7 +118,7 @@ oper d35A : Str -> NForms -- 1 lämmin = \s -> let lämpim = strongGrade (init s) + "m" in nForms10 - s (s + "tä") (lämpim + "än") (lämpim + "änä") (lämpim + "ään") + s (lämpim + "än") (s + "tä") (lämpim + "änä") (lämpim + "ään") (lämpim + "ien") (lämpim + "iä") (lämpim + "inä") (lämpim + "issä") (lämpim + "iin") ; d36 : Str -> NForms -- 11 ylin @@ -126,7 +126,7 @@ oper d37 : Str -> NForms -- 1 vasen = \s -> let vasem = init s + "m" in nForms10 - s (s + "ta") (vasem + "man") (vasem + "pana") (vasem + "paan") + s (vasem + "man") (s + "ta") (vasem + "pana") (vasem + "paan") (vasem + "pien") (vasem + "pia") (vasem + "pina") (vasem + "missa") (vasem + "piin") ; d38 : Str -> NForms -- 4195 öykkärimäinen @@ -142,8 +142,8 @@ oper d42 : Str -> NForms -- 1 mies = \s -> let mieh = init s + "s" in nForms10 - s (s + "tä") (mieh + "en") (mieh + "enä") (mieh + "een") - (s + "ten") (mieh + "iä") (mieh + "pinä") (mieh + "issä") + s (mieh + "en") (s + "tä") (mieh + "enä") (mieh + "een") + (s + "ten") (mieh + "iä") (mieh + "inä") (mieh + "issä") (mieh + "iin") ; d43 : Str -> NForms -- 11 tiehyt = \s -> dRae s (init s + "en") ; @@ -152,19 +152,19 @@ oper d44 : Str -> NForms -- 1 kevät = \s -> let kevä = init s in nForms10 - s (s + "tä") (kevä + "än") (kevä + "änä") (kevä + "äseen") + s (kevä + "än") (s + "tä") (kevä + "änä") (kevä + "äseen") (s + "iden") (kevä + "itä") (kevä + "inä") (kevä + "issä") (kevä + "isiin") ; d45 : Str -> NForms -- 23 yhdes = \s -> let yhde = init s ; a = vowelHarmony s in nForms10 - s (yhde + "tt" + a) (yhde + "nnen") (yhde + "nten" + a) (yhde + "nteen") + s (yhde + "nnen") (yhde + "tt" + a) (yhde + "nten" + a) (yhde + "nteen") (yhde + "nsien") (yhde + "nsi" + a) (yhde + "nsin" + a) (yhde + "nsiss" + a) (yhde + "nsiin") ; d46 : Str -> NForms -- 1 tuhat = \s -> let tuha = init s ; a = vowelHarmony s in nForms10 - s (tuha + "tt" + a) (tuha + "nnen") (tuha + "nten" + a) (tuha + "nteen") + s (tuha + "nnen") (tuha + "tt" + a) (tuha + "nten" + a) (tuha + "nteen") (tuha + "nsien") (tuha + "nsi" + a) (tuha + "nsin" + a) (tuha + "nsiss" + a) (tuha + "nsiin") ; d47 : Str -> NForms -- 46 ylirasittunut diff --git a/examples/uusisuomi/Makefile b/examples/uusisuomi/Makefile index 1a310d923..3c19e474d 100644 --- a/examples/uusisuomi/Makefile +++ b/examples/uusisuomi/Makefile @@ -33,7 +33,7 @@ CSC: gf-files: runghc MkLex.hs 0 $(CAT) $(LEX) > $(LEX)Abs.gf - runghc MkLex.hs 1 $(CAT) $(LEX) > $(LEX)1.gf +# runghc MkLex.hs 1 $(CAT) $(LEX) > $(LEX)1.gf runghc MkLex.hs 2 $(CAT) $(LEX) > $(LEX)2.gf runghc MkLex.hs 3 $(CAT) $(LEX) > $(LEX)3.gf runghc MkLex.hs 4 $(CAT) $(LEX) > $(LEX)4.gf diff --git a/examples/uusisuomi/correct-KOTUS.txt b/examples/uusisuomi/correct-KOTUS.txt index 7bc1d2e8e..9867fc2cc 100644 --- a/examples/uusisuomi/correct-KOTUS.txt +++ b/examples/uusisuomi/correct-KOTUS.txt @@ -26172,8 +26172,6 @@ miero mieron mieroa mierona mieroon mierojen mieroja mieroina mieroissa mieroihi mierolainen mierolaisen mierolaista mierolaisena mierolaiseen mierolaisten mierolaisia mierolaisina mierolaisissa mierolaisiin -mies miestä miesen miesenä mieseen miesten miesiä miespinä miesissä miesiin - miesmäinen miesmäisen miesmäistä miesmäisenä miesmäiseen miesmäisten miesmäisiä miesmäisinä miesmäisissä miesmäisiin miesmäisyys miesmäisyyden miesmäisyyttä miesmäisyytenä miesmäisyyteen miesmäisyyksien miesmäisyyksiä miesmäisyyksinä miesmäisyyksissä miesmäisyyksiin @@ -51894,7 +51892,7 @@ vasemmistolainen vasemmistolaisen vasemmistolaista vasemmistolaisena vasemmistol vasemmistolaisuus vasemmistolaisuuden vasemmistolaisuutta vasemmistolaisuutena vasemmistolaisuuteen vasemmistolaisuuksien vasemmistolaisuuksia vasemmistolaisuuksina vasemmistolaisuuksissa vasemmistolaisuuksiin -vasen vasenta vasemman vasempana vasempaan vasempien vasempia vasempina vasemmissa vasempiin +vasen vasemman vasenta vasempana vasempaan vasempien vasempia vasempina vasemmissa vasempiin vasikka vasikan vasikkaa vasikkana vasikkaan vasikoiden vasikoita vasikkoina vasikoissa vasikkoihin