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

fixed three paradigms in Finnish Kotus: lapsi, veitsi, harkita

Browse Source
This commit is contained in:
Aarne Ranta
2018-10-11 06:58:57 +02:00
parent 05ed75c131
commit 56fd159e34
2 changed files with 5 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
src/finnish/Kotus.gf
View File

@@ -106,11 +106,11 @@ oper
d28A : Str -> NForms -- 1 jälsi d28A : Str -> NForms -- 1 jälsi
= \s -> dArpi s (Predef.tk 2 s + "len") ; = \s -> dArpi s (Predef.tk 2 s + "len") ;
d29 : Str -> NForms -- 1 lapsi d29 : Str -> NForms -- 1 lapsi
= \s -> let lapsi = dArpi s (init s + "en") in = \s -> let lapsi = dArpi s (init s + "en") ; a = vowHarmony s in
table {2 => Predef.tk 3 s + "ta" ; i => lapsi ! i} ; table {2 => Predef.tk 3 s + "st" + a ; i => lapsi ! i} ;
d30 : Str -> NForms -- 2 veitsi d30 : Str -> NForms -- 2 veitsi
= \s -> let lapsi = dArpi s (init s + "en") in = \s -> let lapsi = dArpi s (init s + "en") ; a = vowHarmony s in
table {2 => Predef.tk 3 s + "stä" ; i => lapsi ! i} ; table {2 => Predef.tk 3 s + "st" + a ; i => lapsi ! i} ;
d31 : Str -> NForms -- 3 yksi d31 : Str -> NForms -- 3 yksi
= \s -> let = \s -> let
y = Predef.tk 3 s ; y = Predef.tk 3 s ;

2
src/finnish/MorphoFin.gf
View File

@@ -639,7 +639,7 @@ resource MorphoFin = ResFin ** open Prelude in {
in vForms12 in vForms12
harkita harkita
(harkit + "sen") (harkit + "sen")
(harkit + "se") (harkit + "see")
(harkit + "sev" + a + "t") (harkit + "sev" + a + "t")
(harkit + "k" + a + a) (harkit + "k" + a + a)
(harkit + a + a + "n") (harkit + a + a + "n")