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" ;
fly_V = regV "lentää" ;
freeze_V = regV "jäätyä" ;
give_V3 = dirdirV3 (regV "antaa") ;
give_V3 = dirdirV3 (reg3V "antaa" "annan" "antoi") ;
hit_V2 = dirV2 (regV "lyödä") ;
hold_V2 = dirV2 (regV "pitää") ;
hunt_V2 = dirV2 (regV "metsästää") ;

View File

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

View File

@@ -281,9 +281,19 @@ oper
-- auxiliary of predication can be defined.
verbOlla : Verb =
mkVerb
let olla = mkVerb
"olla" "on" "olen" "ovat" "olkaa" "ollaan"
"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
--
@@ -324,7 +334,8 @@ oper
tulleena = Predef.tk 2 tullut + ("een" + a) ;
tulleen = (noun2adj (nhn (sRae tullut tulleena))).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"
in
{s = table {