GitHub/gf-rgl
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-rgl.git synced 2026-06-07 14:16:31 -06:00
Code Issues Packages Projects Releases Wiki Activity

copula in romance: ser/estar for Cat,Spa, just essere/etre in Ita,Fra. Controlled by the param type CopulaType in DiffRomance.

Browse Source
This commit is contained in:
aarne
2015-07-20 13:41:01 +00:00
parent 8b7ed159ca
commit ab36e5ce8f
16 changed files with 58 additions and 27 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
src/romance/VerbRomance.gf
View File

@@ -87,17 +87,18 @@ incomplete concrete VerbRomance of Verb =
-}
UseComp comp = insertComplement comp.s (predV copula) ;
UseComp comp = insertComplement comp.s (predV (selectCopula comp.cop)) ;
UseCopula = predV copula ;
CompAP ap = {s = \\ag => let agr = complAgr ag in ap.s ! AF agr.g agr.n} ;
CompAP ap = {s = \\ag => let agr = complAgr ag in ap.s ! AF agr.g agr.n ; cop = serCopula} ;
CompCN cn = { s = \\ag =>
let agr = complAgr ag in
artIndef False cn.g agr.n Nom ++ cn.s ! agr.n
let agr = complAgr ag in
artIndef False cn.g agr.n Nom ++ cn.s ! agr.n ;
cop = serCopula
}; --- RE 7/12/2010 -- AR added indef 2/8/2011
CompNP np = {s = \\_ => (np.s ! Nom).ton} ;
CompAdv a = {s = \\_ => a.s} ;
CompNP np = {s = \\_ => (np.s ! Nom).ton ; cop = serCopula} ;
CompAdv a = {s = \\_ => a.s ; cop = estarCopula} ;
AdvVP vp adv = insertAdv adv.s vp ;
ExtAdvVP vp adv = insertAdv (embedInCommas adv.s) vp ;