mirror of
https://github.com/GrammaticalFramework/gf-rgl.git
synced 2026-05-27 17:08:54 -06:00
ExtraSpa.UseComp_ser
This commit is contained in:
@@ -4,5 +4,5 @@ concrete AllSpa of AllSpaAbs =
|
|||||||
LangSpa,
|
LangSpa,
|
||||||
IrregSpa,
|
IrregSpa,
|
||||||
ExtendSpa
|
ExtendSpa
|
||||||
---- ExtraSpa
|
-- ExtraSpa
|
||||||
** {} ;
|
** {} ;
|
||||||
|
|||||||
@@ -79,6 +79,7 @@ concrete ExtraSpa of ExtraSpaAbs = ExtraRomanceSpa **
|
|||||||
mkClause [] True False np.a (insertComplement (\\_ => (np.s ! Nom).ton) (predV (mkV "existir"))) ;
|
mkClause [] True False np.a (insertComplement (\\_ => (np.s ! Nom).ton) (predV (mkV "existir"))) ;
|
||||||
|
|
||||||
UseComp_estar comp = insertComplement comp.s (predV I.estar_V) ;
|
UseComp_estar comp = insertComplement comp.s (predV I.estar_V) ;
|
||||||
|
UseComp_ser comp = insertComplement comp.s (predV copula) ;
|
||||||
|
|
||||||
cual_IComp = {
|
cual_IComp = {
|
||||||
s = aagrForms "cual" "cual" "cuáles" "cuáles" ;
|
s = aagrForms "cual" "cual" "cuáles" "cuáles" ;
|
||||||
|
|||||||
@@ -33,6 +33,7 @@ abstract ExtraSpaAbs = ExtraRomanceAbs ** {
|
|||||||
PassVPSlash_ser : VPSlash -> VP ;
|
PassVPSlash_ser : VPSlash -> VP ;
|
||||||
|
|
||||||
UseComp_estar : Comp -> VP ; -- esta lleno, as opposed to es lleno
|
UseComp_estar : Comp -> VP ; -- esta lleno, as opposed to es lleno
|
||||||
|
UseComp_ser : Comp -> VP ; -- es lleno, as opposed to esta lleno
|
||||||
|
|
||||||
cual_IComp : IComp ; -- cual es ...
|
cual_IComp : IComp ; -- cual es ...
|
||||||
|
|
||||||
|
|||||||
Reference in New Issue
Block a user