msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

bugs in kotus paradigm implementations fixed

Browse Source
This commit is contained in:
aarne
2008-02-13 22:01:30 +00:00
parent 34037dbf3c
commit 9f6dec7f15
3 changed files with 10 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
examples/uusisuomi/Kotus.gf
View File

@@ -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

2
examples/uusisuomi/Makefile
View File

@@ -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

4
examples/uusisuomi/correct-KOTUS.txt
View File

@@ -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