added tired_VP in Constructions

This commit is contained in:
krasimir
2016-07-04 21:15:00 +00:00
parent 348623db29
commit 10378917ff
22 changed files with 52 additions and 8 deletions

View File

@@ -1,7 +1,7 @@
--# -path=alltenses:.:../abstract
concrete ConstructionSpa of Construction = CatSpa **
open SyntaxSpa, SymbolicSpa, ParadigmsSpa,
open SyntaxSpa, SymbolicSpa, ParadigmsSpa, BeschSpa,
(L = LexiconSpa), (E = ExtraSpa), (I = IrregSpa), (R = ResSpa), (C = CommonRomance),
Prelude in {
flags coding=utf8 ;
@@ -10,6 +10,8 @@ flags coding=utf8 ;
lin
hungry_VP = E.ComplCN have_V2 (mkCN (mkN "hambre" feminine)) ;
thirsty_VP = E.ComplCN have_V2 (mkCN (mkN "sed" feminine)) ;
tired_VP = mkVP stateCopula (mkAP (mkA "cansado")) ;
has_age_VP card = mkVP have_V2 (mkNP <lin Card card : Card> L.year_N) ;
have_name_Cl x y = mkCl x (mkV2 (reflV (mkV "llamar"))) y ;
@@ -53,6 +55,7 @@ lincat
Year = NP ;
oper
noPrep : Prep = mkPrep [] ;
stateCopula = mkVA (mkV (estar_2 "estar")) ;
lin
weekdayPunctualAdv w = lin Adv {s = w.s ! C.Sg} ; -- lundi