mirror of
https://github.com/GrammaticalFramework/gf-rgl.git
synced 2026-05-27 08:58:55 -06:00
clean-up after Fin infinitives
This commit is contained in:
@@ -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 ;
|
||||
|
||||
@@ -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
|
||||
|
||||
|
||||
|
||||
|
||||
}
|
||||
Reference in New Issue
Block a user