fixes in finnish verbs

This commit is contained in:
aarne
2006-05-11 14:30:24 +00:00
parent 660644fcf5
commit a90dbdd2c5
3 changed files with 15 additions and 4 deletions

View File

@@ -331,7 +331,7 @@ lin
flow_V = reg3V "virrata" "virtaan" "virtasi" ; flow_V = reg3V "virrata" "virtaan" "virtasi" ;
fly_V = regV "lentää" ; fly_V = regV "lentää" ;
freeze_V = regV "jäätyä" ; freeze_V = regV "jäätyä" ;
give_V3 = dirdirV3 (regV "antaa") ; give_V3 = dirdirV3 (reg3V "antaa" "annan" "antoi") ;
hit_V2 = dirV2 (regV "lyödä") ; hit_V2 = dirV2 (regV "lyödä") ;
hold_V2 = dirV2 (regV "pitää") ; hold_V2 = dirV2 (regV "pitää") ;
hunt_V2 = dirV2 (regV "metsästää") ; hunt_V2 = dirV2 (regV "metsästää") ;

View File

@@ -687,7 +687,7 @@ caseTable : Number -> CommonNoun -> Case => Str = \n,cn ->
o = last juo ; o = last juo ;
a = last taa ; a = last taa ;
u = ifTok Str a "a" "u" "y" ; u = ifTok Str a "a" "u" "y" ;
soudin = souti + "n" ; ----weakGrade souti + "n" ; soudin = weakGrade (init souti) + "in" ;
in case taa of { in case taa of {
"lla" | "llä" => vJuosta soutaa soudan (juo + o+u+"t") (juo + "t"+u) ; "lla" | "llä" => vJuosta soutaa soudan (juo + o+u+"t") (juo + "t"+u) ;
"taa" | "tää" => vHuoltaa soutaa soudan souti soudin ; "taa" | "tää" => vHuoltaa soutaa soudan souti soudin ;

View File

@@ -281,9 +281,19 @@ oper
-- auxiliary of predication can be defined. -- auxiliary of predication can be defined.
verbOlla : Verb = verbOlla : Verb =
mkVerb let olla = mkVerb
"olla" "on" "olen" "ovat" "olkaa" "ollaan" "olla" "on" "olen" "ovat" "olkaa" "ollaan"
"oli" "olin" "olisi" "ollut" "oltu" "ollun" ; "oli" "olin" "olisi" "ollut" "oltu" "ollun" ;
in {s = table {
Inf Inf3Iness => "olemassa" ;
Inf Inf3Elat => "olemasta" ;
Inf Inf3Illat => "olemaan" ;
Inf Inf3Adess => "olemalla" ;
Inf Inf3Abess => "olematta" ;
v => olla.s ! v
}
} ;
--3 Verbs --3 Verbs
-- --
@@ -324,7 +334,8 @@ oper
tulleena = Predef.tk 2 tullut + ("een" + a) ; tulleena = Predef.tk 2 tullut + ("een" + a) ;
tulleen = (noun2adj (nhn (sRae tullut tulleena))).s ; tulleen = (noun2adj (nhn (sRae tullut tulleena))).s ;
tullun = (noun2adj (nhn (sKukko tultu tullun (tultu + ("j"+a))))).s ; tullun = (noun2adj (nhn (sKukko tultu tullun (tultu + ("j"+a))))).s ;
tulema = tuje + "m" + a ; tulema = Predef.tk 3 tulevat + "m" + a ;
---- tulema = tuje + "m" + a ;
vat = "v" + a + "t" vat = "v" + a + "t"
in in
{s = table { {s = table {