(Por) Extend : begin to add VPS

src/portuguese/ExtendPor.gf

@@ -5,7 +5,7 @@ concrete ExtendPor of Extend =
    [
      iFem_Pron, weFem_Pron, youFem_Pron, youPlFem_Pron, youPolPl_Pron, youPolFem_Pron, youPolPlFem_Pron, theyFem_Pron,
        ProDrop,
-       PassVPSlash, ExistsNP
+       PassVPSlash, ExistsNP, VPS
    ]                   -- put the names of your own definitions here
   with
     (Grammar = GrammarPor), (Syntax = SyntaxPor) **
@@ -18,6 +18,18 @@ concrete ExtendPor of Extend =
     ParadigmsPor,
     (S = StructuralPor) in {
 
+  lincat
+    VPS = {s : Agr => Str} ;
+    [VPS] = {s1,s2 : Agr => Str} ;
+--    VPI = {s : VType => Agr => Str } ;
+
+  lin
+    BaseVPS = twotable Agr ;
+    ConsVPS = consrTable Agr comma ;
+
+--    MkVPS t p vp = mkVPS (lin Temp t) (lin Pol p) (lin VP vp) ;
+--TODO: write mkVPS oper
+
   lin
     ProDrop p = {
       s = table {

src/portuguese/StructuralPor.gf

@@ -112,7 +112,6 @@ concrete StructuralPor of Structural = CatPor **
     nothing_NP = pn2npNeg (mkPN "nada") ;
 
     on_Prep = mkPrep "sobre" ;
-  ---  one_Quant = {s = \\g,c => prepCase c ++ genForms "uno" "una" ! g} ;
     only_Predet = {s = \\_,c => prepCase c ++ "só" ; c = Nom ;
                    a = PNoAg} ;
     or_Conj = {s1 = [] ; s2 = "ou" ; n = Sg} ;