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

(Fin) add ApposNP, PresPartAP, PastPartAP

Browse Source
This commit is contained in:
Inari Listenmaa
2023-09-28 10:06:17 +02:00
parent f19dcc01f9
commit d1ff26f3ce
1 changed files with 13 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
src/finnish/ExtendFin.gf
View File

@@ -10,6 +10,8 @@ concrete ExtendFin of Extend =
,CardCNCard ,CardCNCard
,UttAccNP ,UttAccNP
,AdjAsCN, AdjAsNP ,AdjAsCN, AdjAsNP
,ApposNP
,PresPartAP, PastPartAP
] ]
with with
(Grammar = GrammarFin) ** (Grammar = GrammarFin) **
@@ -240,5 +242,16 @@ lin CardCNCard card cn = {
lin UttAccNP np = {s = P.addNegation np.isNeg ++ np.s ! NPAcc} ; lin UttAccNP np = {s = P.addNegation np.isNeg ++ np.s ! NPAcc} ;
lin AdjAsCN ap = {s = ap.s ! True ; postmod = \\_ => ap.p ; h = Back} ; ---- Harmony just a guess lin AdjAsCN ap = {s = ap.s ! True ; postmod = \\_ => ap.p ; h = Back} ; ---- Harmony just a guess
lin AdjAsNP ap = MassNP (AdjAsCN ap) ; lin AdjAsNP ap = MassNP (AdjAsCN ap) ;
lin ApposNP np1 np2 = np1 ** {s = \\npf => np1.s ! npf ++ np2.s ! NPSep} ;
lin PresPartAP vp = {
s = \\_,nf => vp.s.s ! PresPartAct (AN nf) ;
p = [] ;
hasPrefix = False
} ;
lin PastPartAP vps = {
s = \\_,nf => vps.s.s ! PastPartAct (AN nf) ;
p = vps.c2.s.p1 ;
hasPrefix = False
} ;
} }