(Extend,Por,Spa) add UseComp_estar

- with default UseComp lin

src/abstract/Extend.gf

@@ -206,6 +206,8 @@ abstract Extend = Cat ** {
   DetNPMasc : Det -> NP ;
   DetNPFem  : Det -> NP ;
 
+  UseComp_estar : Comp -> VP ; -- (Cat, Spa, Por) "está cheio" instead of "é cheio"
+  
   iFem_Pron      : Pron ; -- I (Fem)
   youFem_Pron    : Pron ; -- you (Fem)
   weFem_Pron     : Pron ; -- we (Fem)

src/common/ExtendFunctor.gf

@@ -76,7 +76,7 @@ lin
   Cons_nr_RNP = variants {} ;     -- NP -> RNPList -> RNPList ; -- John, my family, myself
   ComplGenVV = variants {} ;     -- VV -> Ant -> Pol -> VP -> VP ; -- want not to have slept
   ComplSlashPartLast = ComplSlash ;
-  SlashV2V = variants {} ;     -- V2V -> Ant -> Pol -> VPS -> VPSlash ; -- force (her) not to have slept
+  --SlashV2V = variants {} ;     -- V2V -> Ant -> Pol -> VPS -> VPSlash ; -- force (her) not to have slept
   CompoundN = variants {} ;     -- N -> N -> N ; -- control system / controls system / control-system
   CompoundAP = variants {} ;     -- N -> A -> AP ; -- language independent / language-independent
   GerundCN = variants {} ;     -- VP -> CN ; -- publishing of the document (can get a determiner)
@@ -96,6 +96,7 @@ lin
   DetNPMasc = DetNP ;
   DetNPFem = DetNP ;
 
+  UseComp_estar = UseComp ; -- DEFAULT UseComp
   iFem_Pron = i_Pron ; -- DEFAULT I (masc)
   youFem_Pron = youSg_Pron ; -- DEFAULT you (masc)
   weFem_Pron = we_Pron ;  -- DEFAULT we (masc)

src/portuguese/ExtendPor.gf

@@ -40,6 +40,7 @@ concrete ExtendPor of Extend =
       PresPartAP,
       ProDrop,
       PurposeVP,
+      UseComp_estar,
       VPS,
       iFem_Pron,
       theyFem_Pron,
@@ -273,7 +274,11 @@ concrete ExtendPor of Extend =
     gerundStr vp = gerVP vp (Ag Masc Sg P3) ;
 
   lin
+    UncontractedNeg = {s = [] ; p = RNeg False} ;
+    
     -- Romance
+    UseComp_estar comp = insertComplement comp.s (predV estar_V) ;
+    
     iFem_Pron = pronAgr S.i_Pron Fem Sg P1 ;
     weFem_Pron = pronAgr S.we_Pron Fem Pl P1 ;
     youFem_Pron = pronAgr S.youSg_Pron Fem Sg P3 ;

src/spanish/ExtendSpa.gf

@@ -18,6 +18,8 @@ concrete ExtendSpa of Extend =
     -- put your own definitions here
 
   lin
+    UseComp_estar comp = insertComplement comp.s (predV estar_V) ;
+    
     iFem_Pron =  mkPronoun
       "yo" "me" "me" "mí"
       "mi" "mi" "mis" "mis"
@@ -67,4 +69,4 @@ concrete ExtendSpa of Extend =
       } ;
 
 
-    }
+    }