From becd4324552f0ba8b044c95169208eb7d1cacca2 Mon Sep 17 00:00:00 2001
From: odanoburu <bcclaro@gmail.com>
Date: Mon, 10 Dec 2018 14:31:28 +0200
Subject: [PATCH] (Por) add ImpP3 - do not use nonExist in Lexicon - draft
 other missing lins in Idiom

---
 src/portuguese/IdiomPor.gf   | 12 ++++++++++--
 src/portuguese/LexiconPor.gf | 24 ++++++++++++------------
 2 files changed, 22 insertions(+), 14 deletions(-)

diff --git a/src/portuguese/IdiomPor.gf b/src/portuguese/IdiomPor.gf
index fb14ea638..23df0d997 100644
--- a/src/portuguese/IdiomPor.gf
+++ b/src/portuguese/IdiomPor.gf
@@ -21,7 +21,7 @@ concrete IdiomPor of Idiom = CatPor **
     ExistNP np =
       mkClause [] True False (agrP3 Masc Sg)
       (insertComplement (\\_ => (np.s ! Acc).ton) (predV B.haver_V)) ;
-    
+
     ExistIP ip = {
       s = \\t,a,p,_ =>
         ip.s ! Nom ++
@@ -52,4 +52,12 @@ concrete IdiomPor of Idiom = CatPor **
       mkImperative False P1 vp ! RPos ! Masc ! Pl ; --- fem
       } ;
 
-}
+    ImpP3 np vp = {
+      s = "deixe" ++ (np.s ! Nom).ton ++ infVP vp np.a ;
+        } ;
+
+    SelfAdvVP vp = vp ;
+    SelfAdVVP vp = vp ;
+    SelfNP np = np ;
+
+} ;
diff --git a/src/portuguese/LexiconPor.gf b/src/portuguese/LexiconPor.gf
index 699a8fa63..2d7685e87 100644
--- a/src/portuguese/LexiconPor.gf
+++ b/src/portuguese/LexiconPor.gf
@@ -82,7 +82,7 @@ lin
    belly_N      = mkN "barriga" ;
    bike_N       = mkN "bicicleta" ;
    bird_N       = mkN "pássaro" ;
-   blood_N      = mkN "sangue" nonExist ;
+   blood_N      = mkN "sangue" "sangues" ;
    boat_N       = mkN "bote" ;
    bone_N       = mkN "osso" ;
    book_N       = mkN "livro" ;
@@ -113,7 +113,7 @@ lin
    doctor_N     = mkN "médico" ;		-- médica
    dog_N        = mkN "cachorro" ;		-- cadela
    door_N       = mkN "porta" ;
-   dust_N       = mkN "poeira" nonExist ;
+   dust_N       = mkN "poeira" "poeiras" ;
    ear_N        = mkN "orelha" ;
    earth_N      = mkN "terra" ;
    egg_N        = mkN "ovo" ;
@@ -125,7 +125,7 @@ lin
    fingernail_N = mkN "unha" ;
    fire_N       = mkN "fogo" ;
    fish_N       = mkN "peixe" ;
-   floor_N      = mkN "chão" nonExist ; -- piso
+   floor_N      = mkN "piso" "pisos" ; -- piso
    flower_N     = mkN "flor" feminine ;
    fog_N        = mkN "névoa" ;
    foot_N       = mkN "pé" ;
@@ -136,11 +136,11 @@ lin
    garden_N     = mkN "jardim" ;
    girl_N       = mkN "menina" ;
    glove_N      = mkN "luva" ;
-   gold_N       = mkN "ouro" nonExist ;
+   gold_N       = mkN "ouro" "ouros" ;
    grammar_N    = mkN "gramática" ;
-   grass_N      = mkN "grama" nonExist ;
+   grass_N      = mkN "grama" "gramas" ;
    guts_N       = mkN "tripa" ;
-   hair_N       = mkN "cabelo" nonExist ;
+   hair_N       = mkN "cabelo" "cabelos" ;
    hand_N       = mkN "mão" "mãos" feminine ;
    harbour_N    = mkN "porto" ;
    hat_N        = mkN "chapéu" ;
@@ -160,7 +160,7 @@ lin
    lamp_N       = mkN "lâmpada" ;
    language_N   = mkN "linguagem" ;
    leaf_N       = mkN "folha" ;
-   leather_N    = mkN "couro" nonExist ;
+   leather_N    = mkN "couro" "couros" ;
    leg_N        = mkN "perna" ;
    liver_N      = mkN "fígado" ;
    louse_N      = mkN "piolho" ;
@@ -203,7 +203,7 @@ lin
    rubber_N     = mkN "borracha" ;
    rule_N       = mkN "regra" ;
    salt_N       = mkN "sal" ;
-   sand_N       = mkN "areia" nonExist ;
+   sand_N       = mkN "areia" "areias" ;
    school_N     = mkN "escola" ;
    science_N    = mkN "ciência" ;
    sea_N        = mkN "mar" ;
@@ -213,17 +213,17 @@ lin
    shirt_N      = mkN "camisa" ;
    shoe_N       = mkN "sapato" ;
    shop_N       = mkN "loja" ;
-   silver_N     = mkN "prata" nonExist ;
+   silver_N     = mkN "prata" "pratas" ;
    sister_N     = mkN "irmã" ;
    skin_N       = mkN "pele" feminine ;
    sky_N        = mkN "céu" ;
-   smoke_N      = mkN "fumaça" nonExist ;
+   smoke_N      = mkN "fumaça" "fumaças" ;
    snake_N      = mkN "cobra" ;
-   snow_N       = mkN "neve" nonExist feminine ;
+   snow_N       = mkN "neve" "neves" feminine ;
    sock_N       = mkN "meia" ;
    song_N       = mkN "canção" "canções" feminine ;
    star_N       = mkN "estrela" ;
-   steel_N      = mkN "aço" nonExist ;
+   steel_N      = mkN "aço" "aços" ;
    stick_N      = mkN "bastão" "bastões" ;
    stone_N      = mkN "pedra" ;
    stove_N      = mkN "forno" ;