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

(Fin) weak grade of "-hka" in paradigms 9A and 10A

Browse Source
This commit is contained in:
Inari Listenmaa
2023-09-28 10:09:16 +02:00
parent d1ff26f3ce
commit 5f4bb014b8
1 changed files with 5 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
src/finnish/Kotus.gf
View File

@@ -44,6 +44,7 @@ oper
= \s -> case s of { = \s -> case s of {
x + "aaka" => dSilakka s (x+"aa'an") (x+"aakoja") ; x + "aaka" => dSilakka s (x+"aa'an") (x+"aakoja") ;
x + "aika" => dSilakka s (x+"ajan") (x+"aikoja") ; -- lots of compound words in NewDictFin that end in aika, but are not analysed as compounds x + "aika" => dSilakka s (x+"ajan") (x+"aikoja") ; -- lots of compound words in NewDictFin that end in aika, but are not analysed as compounds
x + "ahka" => dSilakka s (x+"ahan") (x+"ahkoja") ; -- nahka~nahan not covered by weakGrade
_ => let a = last s _ => let a = last s
in dSilakka s in dSilakka s
(weakGrade s + "n") (weakGrade s + "n")
@@ -55,7 +56,10 @@ oper
_ => dSilakka s (s + "n") (init s + "i" + vowelHarmony (last s)) _ => 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 -> case s of {
x + "hka" => dSilakka s (x+"han") (x+"hkia") ; -- tuhka, uhka
_ => dSilakka s (weakGrade s + "n") (init s + "i" + vowelHarmony (last s))
} ;
d11 : Str -> NForms -- 46 ödeema d11 : Str -> NForms -- 46 ödeema
= \s -> dSilakka s (weakGrade s + "n") (init s + "i" + vowelHarmony (last s)) ; = \s -> dSilakka s (weakGrade s + "n") (init s + "i" + vowelHarmony (last s)) ;
d12 : Str -> NForms -- 1125 örinä d12 : Str -> NForms -- 1125 örinä