GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-25 18:58:56 -06:00
Code Issues Packages Projects Releases Wiki Activity

unoptimize for Java ; Finnish

Browse Source
This commit is contained in:
aarne
2005-06-29 15:27:56 +00:00
parent 3f8fecbf30
commit ffe5c1b999
7 changed files with 70 additions and 21 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
lib/resource/finnish/ParadigmsFin.gf
View File

@@ -402,8 +402,7 @@ regV soutaa =
u = ifTok Str a "a" "u" "y" ;
joi = Predef.tk 2 juo + (o + "i")
in case ta of {
"st" => vJuosta soutaa soudan (juo + "s"+u+"t") (juo + "t"+u) ;
"nn" | "rr" | "ll" => vJuosta soutaa soudan (juo + o+u+"t") (juo + "t"+u) ;
"st" | "nn" | "rr" | "ll" => vJuosta soutaa soudan (juo + o+u+"t") (juo + "t"+u) ;
_ => case aa of {
"aa" | "ää" => vOttaa soutaa (souda + "n") ;
"da" | "dä" => vJuoda soutaa joi ;
@@ -429,7 +428,7 @@ reg2V : (soutaa,souti : Str) -> V = \soutaa,souti ->
_ => soudat
} ** {lock_V = <>} ;
reg3V soutaa soudan soudin =
reg3V soutaa soudan souti =
let
taa = Predef.dp 3 soutaa ;
ta = init taa ;
@@ -439,15 +438,14 @@ reg3V soutaa soudan soudin =
o = last juo ;
a = last aa ;
u = ifTok Str a "a" "u" "y" ;
joi = init soudin
soudin = weakGrade souti + "n" ;
soudat = reg2V soutaa souti ;
in case ta of {
"st" => vJuosta soutaa soudan (juo + "s"+u+"t") (juo + "t"+u) ;
"nn" | "rr" | "ll" => vJuosta soutaa soudan (juo + o+u+"t") (juo + "t"+u) ;
"ll" => vJuosta soutaa soudan (juo + o+u+"t") (juo + "t"+u) ;
_ => case aa of {
"aa" | "ää" => vHuoltaa soutaa soudan (init soudin) soudin ;
"da" | "dä" => vJuoda soutaa joi ;
"ta" | "tä" => vOsata soutaa ;
_ => vHukkua soudan souda
"aa" | "ää" => vHuoltaa soutaa soudan souti soudin ;
"da" | "dä" => vJuoda soutaa souti ;
_ => soudat
}} ** {lock_V = <>} ;
vValua v = vSanoa v ** {lock_V = <>} ;