msyds/gf-rgl
1
0
Fork 0
forked from GitHub/gf-rgl
Code Pull Requests Activity

fix PassVPSlash/PassAgentVPSlash when the Slash category contain an adverb

Browse Source
This commit is contained in:
Krasimir Angelov
2023-10-08 19:46:32 +02:00
parent 6e0d281fe0
commit 297f396bd2
2 changed files with 5 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
src/french/ExtendFre.gf
View File

@@ -5,7 +5,7 @@ concrete ExtendFre of Extend =
[
---- iFem_Pron, youFem_Pron, weFem_Pron, youPlFem_Pron, theyFem_Pron, youPolFem_Pron, youPolPl_Pron, youPolPlFem_Pron,
ExistCN, ExistMassCN, ExistPluralCN,
PassVPSlash, PassAgentVPSlash, ApposNP
PassVPSlash, PassAgentVPSlash, ApposNP, CompoundN
] -- put the names of your own definitions here
with
(Grammar = GrammarFre) **
@@ -50,7 +50,7 @@ oper
vps ** {
s = auxvp.s ;
agr = auxvp.agr ;
comp = \\a => vps.comp ! a ++ (let agr = complAgr a in vps.s.s ! VPart agr.g agr.n) ++ agent ;
comp = \\a => (let agr = complAgr a in vps.s.s ! VPart agr.g agr.n) ++ vps.comp ! a ++ agent ;
} ;
lin ApposNP np1 np2 = np1 ** { -- guessed by KA
@@ -59,4 +59,6 @@ lin ApposNP np1 np2 = np1 ** { -- guessed by KA
} ;
} ;
lin CompoundN a b = lin N {s = \\n => b.s ! n ++ a.s ! Sg ; g = b.g} ; -- connessione internet = internet connection
}

2
src/romance/ExtendRomanceFunctor.gf
View File

@@ -302,7 +302,7 @@ incomplete concrete ExtendRomanceFunctor of Extend =
vps ** {
s = auxvp.s ;
agr = auxvp.agr ;
comp = \\a => vps.comp ! a ++ (let agr = complAgr a in vps.s.s ! VPart agr.g agr.n) ++ agent ;
comp = \\a => (let agr = complAgr a in vps.s.s ! VPart agr.g agr.n) ++ vps.comp ! a ++ agent ;
} ;
} ;