GitHub/gf-rgl
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-rgl.git synced 2026-05-28 01:18:57 -06:00
Code Issues Packages Projects Releases Wiki Activity

added PassVPSlash to ExtendFin

Browse Source
This commit is contained in:
Aarne Ranta
2019-09-11 10:41:21 +02:00
parent 516270148f
commit 953771ccf6
1 changed files with 12 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
src/finnish/ExtendFin.gf
View File

@@ -6,6 +6,7 @@ concrete ExtendFin of Extend =
MkVPI2,ConjVPI2,ComplVPI2,ComplVPIVV MkVPI2,ConjVPI2,ComplVPI2,ComplVPIVV
,ExistCN, ExistMassCN, ICompAP, ByVP ,ExistCN, ExistMassCN, ICompAP, ByVP
,CompoundN, GenNP, GenIP, AdvIsNP, EmbedSSlash ,CompoundN, GenNP, GenIP, AdvIsNP, EmbedSSlash
,PassVPSlash, PassAgentVPSlash
] ]
with with
(Grammar = GrammarFin) ** (Grammar = GrammarFin) **
@@ -160,4 +161,15 @@ lin
NPSep => mikaInt ! Sg ! Nom } NPSep => mikaInt ! Sg ! Nom }
} ; } ;
in {s = appCompl True Pos ss.c2 thatWhich ++ ss.s} ; in {s = appCompl True Pos ss.c2 thatWhich ++ ss.s} ;
PassVPSlash vp = S.passVP vp vp.c2 ;
PassAgentVPSlash vp np = {
s = {s = vp.s.s ; h = vp.s.h ; p = vp.s.p ; sc = npform2subjcase vp.c2.c} ;
s2 = \\b,p,a => np.s ! NPSep ++ vp.s2 ! b ! p ! a ;
adv = vp.adv ;
ext = vp.ext ;
vptyp = vp.vptyp ;
} ;
} }