GitHub/gf-rgl
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-rgl.git synced 2026-05-27 17:08:54 -06:00
Code Issues Packages Projects Releases Wiki Activity

fix ReflRNP for V2A verbs

Browse Source
This commit is contained in:
krangelov
2021-03-19 20:39:44 +01:00
parent 4e39ada69b
commit de405c7929
2 changed files with 4 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/english/ExtendEng.gf
View File

@@ -331,7 +331,7 @@ lin BaseImp = twoTable2 CPolarity ImpForm ;
RNPList = {s1,s2 : Agr => Str} ; RNPList = {s1,s2 : Agr => Str} ;
lin lin
ReflRNP vps rnp = insertObj (\\a => vps.c2 ++ rnp.s ! a) vps ; ReflRNP vps rnp = insertObjPre (\\a => vps.c2 ++ rnp.s ! a) vps ;
ReflPron = {s = reflPron} ; ReflPron = {s = reflPron} ;
ReflPoss num cn = {s = \\a => possPron ! a ++ num.s ! True ! Nom ++ cn.s ! num.n ! Nom} ; ReflPoss num cn = {s = \\a => possPron ! a ++ num.s ! True ! Nom ++ cn.s ! num.n ! Nom} ;
PredetRNP predet rnp = {s = \\a => predet.s ++ rnp.s ! a} ; PredetRNP predet rnp = {s = \\a => predet.s ++ rnp.s ! a} ;

7
src/swedish/ExtendSwe.gf
View File

@@ -199,10 +199,9 @@ lin BaseImp = twoTable2 Polarity Number ;
lin lin
ReflRNP vps rnp = ReflRNP vps rnp =
insertObjPron insertObjPost (\\a => vps.n3 ! a)
(andB (notB vps.c2.hasPrep) rnp.isPron) (insertObjPron (andB rnp.isPron (notB vps.c2.hasPrep)) (\\a => vps.c2.s ++ rnp.s ! a)
rnp.s vps) ;
(insertObj (\\a => vps.c2.s ++ vps.n3 ! a) vps) ;
ReflPron = {s = \\a => reflPron a ; isPron = True} ; ---- agr ?? ReflPron = {s = \\a => reflPron a ; isPron = True} ; ---- agr ??
ReflPoss num cn = { ReflPoss num cn = {