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

unoptimize for Java ; Finnish

Browse Source
This commit is contained in:
aarne
2005-06-29 15:27:56 +00:00
parent 554ae36c55
commit 8f5dddfeb4
4 changed files with 14 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
resource/finnish/BasicFin.gf
View File

@@ -113,7 +113,7 @@ lin
leather_N = regN "nahka" ; --- nahan leather_N = regN "nahka" ; --- nahan
leave_V2 = dirV2 (regV "jättää") ; leave_V2 = dirV2 (regV "jättää") ;
like_V2 = caseV2 (regV "pitää") elative ; like_V2 = caseV2 (regV "pitää") elative ;
listen_V2 = caseV2 (reg3V "kuunnella" "kuuntelen" "kuuntelin") partitive ; listen_V2 = caseV2 (reg3V "kuunnella" "kuuntelen" "kuunteli") partitive ;
live_V = regV "elää" ; live_V = regV "elää" ;
long_ADeg = mkADeg (regN "pitkä") "pitempi" "pisin" ; long_ADeg = mkADeg (regN "pitkä") "pitempi" "pisin" ;
lose_V2 = dirV2 (regV "hävitä") ; --- hukata lose_V2 = dirV2 (regV "hävitä") ; --- hukata
@@ -200,7 +200,7 @@ lin
tree_N = regN "puu" ; tree_N = regN "puu" ;
---- trousers_N = regN "trousers" ; ---- trousers_N = regN "trousers" ;
ugly_ADeg = mkADeg (regN "ruma") "rumempi" "rumin" ; ugly_ADeg = mkADeg (regN "ruma") "rumempi" "rumin" ;
understand_V2 = dirV2 (reg3V "ymmärtää" "ymmärrän" "ymmärsin") ; understand_V2 = dirV2 (reg3V "ymmärtää" "ymmärrän" "ymmärsi") ;
university_N = regN "yliopisto" ; university_N = regN "yliopisto" ;
village_N = regN "kylä" ; village_N = regN "kylä" ;
wait_V2 = caseV2 (regV "odottaa") partitive ; wait_V2 = caseV2 (regV "odottaa") partitive ;

2
resource/finnish/MorphoFin.gf
View File

@@ -921,7 +921,7 @@ caseTable : Number -> CommonNoun -> Case => Str = \n,cn ->
vOttaa : (_,_ : Str) -> Verb = \ottaa,otan -> vOttaa : (_,_ : Str) -> Verb = \ottaa,otan ->
let let
i = if_then_Str (pbool2bool (Predef.occurs "ou" ottaa)) "i" "oi" i = "i" ; --- wrong rule if_then_Str (pbool2bool (Predef.occurs "ou" ottaa)) "i" "oi"
in in
vHuoltaa ottaa otan (Predef.tk 2 ottaa + i) (Predef.tk 2 otan + i + "n") ; vHuoltaa ottaa otan (Predef.tk 2 ottaa + i) (Predef.tk 2 otan + i + "n") ;

18
resource/finnish/ParadigmsFin.gf
View File

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

6
resource/finnish/SwadeshLexFin.gf
View File

@@ -211,7 +211,7 @@ concrete SwadeshLexFin of SwadeshLex = CategoriesFin
hunt_V = regV "metsästää" ; hunt_V = regV "metsästää" ;
kill_V = regV "tappaa" ; kill_V = regV "tappaa" ;
know_V =reg2V "tietää" "tiesin" ; know_V =reg2V "tietää" "tiesin" ;
laugh_V = reg3V "nauraa" "nauran" "nauroin" ; laugh_V = reg3V "nauraa" "nauran" "nauroi" ;
lie_V = regV "maata" ; lie_V = regV "maata" ;
live_V = live_V ; live_V = live_V ;
play_V = UseV2 play_V2 ; play_V = UseV2 play_V2 ;
@@ -235,8 +235,8 @@ concrete SwadeshLexFin of SwadeshLex = CategoriesFin
suck_V = regV "imeä" ; suck_V = regV "imeä" ;
swell_V = mkV "turvota" "turpoaa" "turpoan" "turpoavat" "turvotkaa" "turvotaan" swell_V = mkV "turvota" "turpoaa" "turpoan" "turpoavat" "turvotkaa" "turvotaan"
"turposi" "turposin" "turpoaisi" "turvonnut" "turvottu" "turvotun" ; "turposi" "turposin" "turpoaisi" "turvonnut" "turvottu" "turvotun" ;
swim_V = reg3V "uida" "uin" "uin" ; swim_V = reg3V "uida" "uin" "ui" ;
think_V = reg3V "ajatella" "ajattelen" "ajattelin" ; think_V = reg3V "ajatella" "ajattelen" "ajatteli" ;
throw_V = regV "heittää" ; throw_V = regV "heittää" ;
tie_V = regV "sitoa" ; tie_V = regV "sitoa" ;
turn_V = regV "kääntyä" ; turn_V = regV "kääntyä" ;