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

(Fin) Add some cases for weakGrade + add exceptions to Kotus.gf

Browse Source
This commit is contained in:
Inari Listenmaa
2018-10-08 17:55:58 +02:00
parent 583f77e450
commit 5223a3d9c9
2 changed files with 15 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
src/finnish/Kotus.gf
View File

@@ -41,11 +41,19 @@ oper
(s + "n") (s + "n")
(init s + case a of {"a" => "o" ; _ => "ö"} + "j" + a) ; (init s + case a of {"a" => "o" ; _ => "ö"} + "j" + a) ;
d09A : Str -> NForms -- 1040 ääniraita d09A : Str -> NForms -- 1040 ääniraita
= \s -> let a = last s in dSilakka s = \s -> case s of {
(weakGrade s + "n") x + "aaka" => dSilakka s (x+"aa'an") (x+"aakoja") ;
(init s + case a of {"a" => "o" ; _ => "ö"} + "j" + a) ; x + "aika" => dSilakka s (x+"ajan") (x+"aikoja") ; -- lots of compound words in NewDictFin that end in aika, but are not analysed as compounds
_ => 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ä d10 : Str -> NForms -- 2119 äänittäjä
= \s -> dSilakka s (s + "n") (init s + "i" + vowelHarmony (last s)) ; = \s -> case s of {
x+"poika" => dSilakka s (x+"pojan") (x+"poikia") ;
_ => dSilakka s (s + "n") (init s + "i" + vowelHarmony (last s))
} ;
d10A : Str -> NForms -- 284 änkkä d10A : Str -> NForms -- 284 änkkä
= \s -> dSilakka s (weakGrade s + "n") (init s + "i" + vowelHarmony (last s)) ; = \s -> dSilakka s (weakGrade s + "n") (init s + "i" + vowelHarmony (last s)) ;
d11 : Str -> NForms -- 46 ödeema d11 : Str -> NForms -- 46 ödeema

5
src/finnish/MorphoFin.gf
View File

@@ -858,7 +858,8 @@ resource MorphoFin = ResFin ** open Prelude in {
("hk" | "tk") + _ => kukko ; -- *tahko-tahon, *pitkä-pitkän ("hk" | "tk") + _ => kukko ; -- *tahko-tahon, *pitkä-pitkän
("f"|"s") + ("k" | "p" | "t") + _ => kukko ; -- *lasku-lasvun, *raspi-rasvin, *lastu-lasdun, *afta-aftan ("f"|"s") + ("k" | "p" | "t") + _ => kukko ; -- *lasku-lasvun, *raspi-rasvin, *lastu-lasdun, *afta-aftan
("k"|"p") + "t" + _ => kukko ; -- *projekti-projekdin ("k"|"p") + "t" + _ => kukko ; -- *projekti-projekdin
x + "ku" => ku + x + "vu" ; "uku" => ku + "uvu" ;
"yky" => ku + "yvy" ;
x + "k" + ("a" | "e" | "i" | "o" | "u" | "y" | "ä" | "ö") => ku + x + o ; x + "k" + ("a" | "e" | "i" | "o" | "u" | "y" | "ä" | "ö") => ku + x + o ;
x + "p" + ("a" | "e" | "i" | "o" | "u" | "y" | "ä" | "ö") => ku + x + "v" + o ; x + "p" + ("a" | "e" | "i" | "o" | "u" | "y" | "ä" | "ö") => ku + x + "v" + o ;
x + "t" + ("a" | "e" | "i" | "o" | "u" | "y" | "ä" | "ö") => ku + x + "d" + o ; x + "t" + ("a" | "e" | "i" | "o" | "u" | "y" | "ä" | "ö") => ku + x + "d" + o ;
@@ -882,7 +883,7 @@ resource MorphoFin = ResFin ** open Prelude in {
("tk" | "hk" | "sk" | "sp" | "st") + _ => nke ; -- viuhke,kuiske ("tk" | "hk" | "sk" | "sp" | "st") + _ => nke ; -- viuhke,kuiske
a + k@("k"|"p"|"t") + e@("e"|"a"|"ä"|"u"|"y"|"i"|"o"|"ö") => a + k + k + e ; a + k@("k"|"p"|"t") + e@("e"|"a"|"ä"|"u"|"y"|"i"|"o"|"ö") => a + k + k + e ;
a + "d" + e@("e"|"a"|"ä"|"u"|"i"|"o"|"ö") => a + "t" + e ; a + "d" + e@("e"|"a"|"ä"|"u"|"i"|"o"|"ö") => a + "t" + e ;
s + a@("a" | "ä") + "e" => s + a + "ke" ; -- säe, tae s + a@("a"|"ä"|"o"|"ö") + "e" => s + a + "ke" ; -- säe, tae, koe
s + "ui" => s + "uki" ; -- ruis s + "ui" => s + "uki" ; -- ruis
s + "aa" => s + "aka" ; -- taata s + "aa" => s + "aka" ; -- taata
s + "i" + a@("a" | "e" | "i") => s + "ik" + a ; -- liata, siitä, pietä s + "i" + a@("a" | "e" | "i") => s + "ik" + a ; -- liata, siitä, pietä