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

clean-up after Fin infinitives

Browse Source
This commit is contained in:
Aarne Ranta
2023-08-16 16:05:28 +03:00
parent 31b025bdf1
commit 146bc71a06
2 changed files with 8 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
src/finnish/VerbFin.gf
View File

@@ -79,7 +79,8 @@ concrete VerbFin of Verb = CatFin ** open Prelude, ResFin, StemFin in {
) ** {c2 = vp.c2} ; ---- correct ?? ) ** {c2 = vp.c2} ; ---- correct ??
-} -}
SlashV2VNP = StemFin.slashV2VNP ; ---- compilation to pgf takes too long 6/8/2013 hence a simplified version in stemmed/ ----
SlashV2VNP = StemFin.slashV2VNP ; ---- compilation to pgf takes too long 6/8/2013 hence a simplified version in stemmed/
AdvVP vp adv = insertAdv (\\_ => adv.s) vp ; AdvVP vp adv = insertAdv (\\_ => adv.s) vp ;
ExtAdvVP vp adv = insertAdv (\\_ => embedInCommas adv.s) vp ; ExtAdvVP vp adv = insertAdv (\\_ => embedInCommas adv.s) vp ;

11
src/finnish/infinitives/Infinitive.gf
View File

@@ -4,21 +4,23 @@ abstract Infinitive =
Lexicon Lexicon
** { ** {
fun flags startcat = Utt ;
data
PresPartPassSubjVP : VP -> VP ; -- (minun) on mentävä PresPartPassSubjVP : VP -> VP ; -- (minun) on mentävä
PresPartPassObjVP : VPSlash -> VP ; -- (oluesta) on pidettävä PresPartPassObjVP : VPSlash -> VP ; -- (oluesta) on pidettävä
PastPartPassAdv : NP -> VP -> Adv ; -- junan mentyä PastPartPassAdv : NP -> VP -> Adv ; -- junan mentyä
PresPartActAP : VP -> AP ; -- (lihaa) syövä PresPartActAP : VP -> AP ; -- (lihaa) syövä
PastPartActAP : VP -> AP ; -- (lihaa) syönyt PastPartActAP : VP -> AP ; -- (lihaa) syönyt
PresPartPassAP : VPSlash -> AP ; -- (tänään) syötävä PresPartPassAP : VPSlash -> AP ; -- (tänään) syötävä
PastPartPassAP : VPSlash -> AP ; -- (tänään) syöty PastPartPassAP : VPSlash -> AP ; -- (tänään) syöty
AgentPartAP : NP -> VPSlash -> AP ; -- koiran syömä AgentPartAP : NP -> VPSlash -> AP ; -- koiran syömä
Inf2InessAdv : NP -> VP -> Adv ; -- junan mennessä Inf2InessAdv : NP -> VP -> Adv ; -- junan mennessä
Inf2InessPassAdv : VP -> Adv ; -- odotettaessa (junaa), touhuttaessa (junan kanssa) Inf2InessPassAdv : VP -> Adv ; -- odotettaessa (junaa), touhuttaessa (junan kanssa)
Inf2InessPassInvAdv : NP -> VPSlash -> Adv ; -- junaa odotettaessa, junan kanssa touhutessa Inf2InessPassInvAdv : NP -> VPSlash -> Adv ; -- junaa odotettaessa, junan kanssa touhutessa
@@ -53,6 +55,5 @@ fun
ComplPastPartPassVS : VS -> NP -> VPSlash -> VP ; -- sanoa junaa odotetun ComplPastPartPassVS : VS -> NP -> VPSlash -> VP ; -- sanoa junaa odotetun
} }