clean-up after Fin infinitives

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

View File

@@ -79,7 +79,8 @@ concrete VerbFin of Verb = CatFin ** open Prelude, ResFin, StemFin in {
) ** {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 ;
ExtAdvVP vp adv = insertAdv (\\_ => embedInCommas adv.s) vp ;

View File

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