GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-23 03:32:51 -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

4
lib/resource/finnish/BasicFin.gf
View File

@@ -113,7 +113,7 @@ lin
leather_N = regN "nahka" ; --- nahan
leave_V2 = dirV2 (regV "jättää") ;
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ää" ;
long_ADeg = mkADeg (regN "pitkä") "pitempi" "pisin" ;
lose_V2 = dirV2 (regV "hävitä") ; --- hukata
@@ -200,7 +200,7 @@ lin
tree_N = regN "puu" ;
---- trousers_N = regN "trousers" ;
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" ;
village_N = regN "kylä" ;
wait_V2 = caseV2 (regV "odottaa") partitive ;

2
lib/resource/finnish/MorphoFin.gf
View File

@@ -921,7 +921,7 @@ caseTable : Number -> CommonNoun -> Case => Str = \n,cn ->
vOttaa : (_,_ : Str) -> Verb = \ottaa,otan ->
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
vHuoltaa ottaa otan (Predef.tk 2 ottaa + i) (Predef.tk 2 otan + i + "n") ;

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 = <>} ;

6
lib/resource/finnish/SwadeshLexFin.gf
View File

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