From 297f396bd217355cc4c308ba5b54c191ccf4a913 Mon Sep 17 00:00:00 2001 From: Krasimir Angelov Date: Sun, 8 Oct 2023 19:46:32 +0200 Subject: [PATCH] fix PassVPSlash/PassAgentVPSlash when the Slash category contain an adverb --- src/french/ExtendFre.gf | 6 ++++-- src/romance/ExtendRomanceFunctor.gf | 2 +- 2 files changed, 5 insertions(+), 3 deletions(-) diff --git a/src/french/ExtendFre.gf b/src/french/ExtendFre.gf index 3c3f209d..02b2915e 100644 --- a/src/french/ExtendFre.gf +++ b/src/french/ExtendFre.gf @@ -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 + } diff --git a/src/romance/ExtendRomanceFunctor.gf b/src/romance/ExtendRomanceFunctor.gf index fc4f206e..0f2ba9c3 100644 --- a/src/romance/ExtendRomanceFunctor.gf +++ b/src/romance/ExtendRomanceFunctor.gf @@ -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 ; } ; } ;