From 26afd1c267e9170831f0783b7b086c2809f0ee36 Mon Sep 17 00:00:00 2001
From: odanoburu <bcclaro@gmail.com>
Date: Thu, 6 Sep 2018 22:32:57 +0000
Subject: [PATCH] (Por) Extend : begin to add VPS

---
 src/portuguese/ExtendPor.gf     | 14 +++++++++++++-
 src/portuguese/StructuralPor.gf |  1 -
 2 files changed, 13 insertions(+), 2 deletions(-)

diff --git a/src/portuguese/ExtendPor.gf b/src/portuguese/ExtendPor.gf
index c432ab3e9..edd347afd 100644
--- a/src/portuguese/ExtendPor.gf
+++ b/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 {
diff --git a/src/portuguese/StructuralPor.gf b/src/portuguese/StructuralPor.gf
index d967961b3..87b7eac6b 100644
--- a/src/portuguese/StructuralPor.gf
+++ b/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} ;