mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-05-19 16:12:52 -06:00
fixes in finnish verbs
This commit is contained in:
@@ -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ää") ;
|
||||||
|
|||||||
@@ -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 ;
|
||||||
|
|||||||
@@ -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 {
|
||||||
|
|||||||
Reference in New Issue
Block a user