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

(Fin) Pattern match all 3 arguments in 3-arg mkN

Browse Source
This commit is contained in:
Inari Listenmaa
2020-05-04 14:51:34 +02:00
parent e5ff427826
commit 1cdc6cf774
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
src/finnish/ParadigmsFin.gf
View File

@@ -582,7 +582,10 @@ mkVS = overload {
ukk = init ukko ;
ukot = nForms2 ukko ukkoja ;
in
case <ukko,ukon> of {
case <ukko,ukon,ukkoja> of {
<muk + "i", muk_ + "in",
muk__ + "ej" + ("a"|"ä")> -- don't match voi - voin - voita
=> dPaatti ukko ukon ; -- 1-arg paradigm forces consonant gradation
<_, _ + ":n"> => dSDP ukko ;
<_ + ("aa" | "ee" | "ii" | "oo" | "uu" | "yy" | "ää" | "öö" |
"ie" | "uo" | "yö" | "ea" | "eä" |
@@ -598,9 +601,6 @@ mkVS = overload {
dRae ukko ukon ;
<nukk + "e", nuk + "een"> => dRae ukko ukon ;
<arp + "i", arv + "en"> => dArpi ukko ukon ;
<muk + "i", muk_ + "in",
muk__ + "ej" + ("a"|"ä")> => -- don't match voi - voin - voita
dPaatti ukko ukon ; -- 1-arg paradigm forces consonant gradation
<_ + ("us" | "ys"), _ + "den"> => dLujuus ukko ;
<laid + ("u"|"a"|"ä") + "n", laitu + "men">
=> dLiitin ukko ukon ; -- laidun,hapan,sydän not caught in previous