UseComp_estar/UseComp_ser in Extend

This commit is contained in:
Krasimir Angelov
2023-03-30 14:24:06 +02:00
parent ac2c5c52ac
commit 1c0a4f98ed
4 changed files with 18 additions and 2 deletions
+7 -2
View File
@@ -20,7 +20,8 @@ concrete ExtendSpa of Extend = CatSpa ** ExtendRomanceFunctor -
youPolFem_Pron,
youPolPlFem_Pron,
youPolPl_Pron,
PassVPSlash, PassAgentVPSlash
PassVPSlash, PassAgentVPSlash,
UseComp_estar, UseComp_ser
] -- don't forget to put the names of your own
-- definitions here
with
@@ -31,7 +32,8 @@ concrete ExtendSpa of Extend = CatSpa ** ExtendRomanceFunctor -
MorphoSpa,
Coordination,
Prelude,
ParadigmsSpa in {
ParadigmsSpa,
(I=IrregSpa) in {
-- put your own definitions here
lin
@@ -101,6 +103,9 @@ concrete ExtendSpa of Extend = CatSpa ** ExtendRomanceFunctor -
cop = serCopula
} ;
lin UseComp_estar comp = insertComplement comp.s (predV I.estar_V) ;
UseComp_ser comp = insertComplement comp.s (predV copula) ;
lin GivenName, MaleSurname, FemaleSurname = \n -> n ;
lin FullName gn sn = {
s = gn.s ++ sn.s ;