mirror of
https://github.com/GrammaticalFramework/gf-rgl.git
synced 2026-06-28 12:26:30 -06:00
UseComp_estar/UseComp_ser in Extend
This commit is contained in:
@@ -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 ;
|
||||
|
||||
Reference in New Issue
Block a user