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

(Fin) Add more infinite forms to VVType

Browse Source
This commit is contained in:
Inari Listenmaa
2018-10-09 14:12:28 +02:00
parent ab88fd8018
commit 0cf74c04df
2 changed files with 8 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/finnish/ParadigmsFin.gf
View File

@@ -62,6 +62,7 @@ oper
infElat : InfForm ; -- e.g. "tekemästä" infElat : InfForm ; -- e.g. "tekemästä"
infIllat : InfForm ; -- e.g. "tekemään" infIllat : InfForm ; -- e.g. "tekemään"
infAdess : InfForm ; -- e.g. "tekemällä" infAdess : InfForm ; -- e.g. "tekemällä"
infPart : InfForm ; -- e.g. "tekemistä"
infPresPart : InfForm ; -- e.g. "tekevän" infPresPart : InfForm ; -- e.g. "tekevän"
infPresPartAgr : InfForm ; -- e.g. "tekevänsä" infPresPartAgr : InfForm ; -- e.g. "tekevänsä"
@@ -406,7 +407,8 @@ mkVS = overload {
infFirst = Inf1 ; infFirst = Inf1 ;
infElat = Inf3Elat ; infIllat = Inf3Illat ; infElat = Inf3Elat ; infIllat = Inf3Illat ;
infIness = Inf3Iness ; infAdess = Inf3Adess ; infIness = Inf3Iness ; infAdess = Inf3Adess ;
infPart = Inf4Part ;
infPresPart = InfPresPart ; infPresPartAgr = InfPresPartAgr ; infPresPart = InfPresPart ; infPresPartAgr = InfPresPartAgr ;
prePrep : Case -> Str -> Prep = prePrep : Case -> Str -> Prep =

6
src/finnish/ResFin.gf
View File

@@ -171,18 +171,22 @@ param
-- These forms appear in complements to VV and V2V. -- These forms appear in complements to VV and V2V.
VVType = VVInf | VVIness | VVIllat | VVPresPart ; VVType = VVInf | VVIness | VVIllat | VVPresPart | VVPart | VVAdess ;
oper oper
vvtype2infform : VVType -> InfForm = \vt -> case vt of { vvtype2infform : VVType -> InfForm = \vt -> case vt of {
VVInf => Inf1 ; VVInf => Inf1 ;
VVIness => Inf3Iness ; VVIness => Inf3Iness ;
VVIllat => Inf3Illat ; VVIllat => Inf3Illat ;
VVAdess => Inf3Adess ;
VVPart => Inf4Part ;
VVPresPart => InfPresPart VVPresPart => InfPresPart
} ; } ;
infform2vvtype : InfForm -> VVType = \vt -> case vt of { infform2vvtype : InfForm -> VVType = \vt -> case vt of {
Inf3Iness => VVIness ; Inf3Iness => VVIness ;
Inf3Illat => VVIllat ; Inf3Illat => VVIllat ;
Inf3Adess => VVAdess ;
Inf4Part => VVPart ;
InfPresPart => VVPresPart ; InfPresPart => VVPresPart ;
_ => VVInf _ => VVInf
} ; } ;