Merge pull request #101 from odanoburu/ud-por

(gf2ud) add minimal LangPor.labels

src/portuguese/IdiomPor.gf

@@ -57,7 +57,17 @@ concrete IdiomPor of Idiom = CatPor **
         } ;
 
     SelfAdvVP vp = vp ;
-    SelfAdVVP vp = vp ;
+
+    SelfAdVVP = insertComplement (
+      \\agr => case agr of {
+        {g = g ; n = n ; p = p} => table {
+          P1 => numForms "eu próprio" "nós próprios" ! n ;
+          P2 => genNumForms "você mesmo" "você mesma" "vocês mesmos" "vocês mesmas" ! g ! n ;
+          P3 => genNumForms "ele próprio" "ela própria" "eles mesmos" "elas mesmas" ! g ! n
+          } ! p
+        }
+      ) ;
+
     SelfNP np = np ;
 
 } ;

src/portuguese/LangPor.labels

@@ -0,0 +1,15 @@
+CompCN {"um"} DET det head
+ComplVS {"que"} SCONJ mark head
+EmbedS {"que"} PRON nsubj head
+EmbedVP {"de"} ADP mark head
+ExtAdvS,SubjS,VocNP {","} PUNCT punct head
+PassV2 {"era","sido"} AUX aux:pass head
+PredVP {"há"} AUX aux head
+PredVP {"se"} PRON expl head
+ProgrVP {"estavam"} AUX aux head
+SelfAdVVP {"ela"} PRON obl head
+SelfAdVVP {"própria"} DET det head
+SlashV2a,UseComp,UseV {"não"} ADV advmod head
+SlashV2V {"a"} ADP mark head
+UseComp,ProgrVP,QuestIComp {"é","sou","são","está","estão","estava"} VERB cop head
+UsePN {"de","por"} ADP case head

src/portuguese/LexiconPor.gf

@@ -1,7 +1,7 @@
 --# -path=.:../romance:../common:../abstract:../../prelude
 
 concrete LexiconPor of Lexicon = CatPor ** open
-  (M=MorphoPor), ParadigmsPor, BeschPor, Prelude, (D = DiffPor) in {
+  (M=MorphoPor), ParadigmsPor, BeschPor, Prelude, (D = DiffPor), (S = StructuralPor) in {
 
 flags
   optimize=values ;
@@ -9,7 +9,7 @@ flags
 
 lin
    easy_A2V = mkA2V (mkA "fácil") dative genitive ;
-   married_A2 = mkA2 (mkA "casado") dative ;
+   married_A2 = mkA2 (mkA "casado") S.with_Prep ;
    probable_AS = mkAS (prefA (mkA "provável" "provavelmente")) ;
    fun_AV = mkAV (mkA "divertido") genitive ;
    -- A
@@ -318,13 +318,13 @@ lin
    sell_V3 = mkV3 (mkV "vender") dative ;
    send_V3 = mkV3 (mkV "enviar") dative ; -- mandar
    talk_V3 = mkV3 (mkV "falar") dative genitive ;
-   become_VA = reflV (mkV "virar") ;  --- convertirse en, volverse, ponerse
+   become_VA = reflV (mkV "tornar") ;
    know_VQ = mkVQ (mkV "saber") ;
    wonder_VQ = mkVQ (reflV (mkV "perguntar")) ;
    fear_VS = mkVS (mkV "temer") ;
    hope_VS = mkVS (mkV "esperar") ;
    know_VS = mkVS (mkV "saber") ;
-   say_VS = mkVS (mkV "dizer") ;
+   say_VS = mkVS (mkV (dizer_Besch "dizer")) ;
    -- V
    blow_V    = mkV "assoprar" ;
    breathe_V = mkV "respirar" ;

src/portuguese/StructuralPor.gf

@@ -41,7 +41,7 @@ concrete StructuralPor of Structural = CatPor **
       Masc Pl P3 ;
 
     above_Prep = mkPrep "sobre" ;
-    after_Prep = {s = ["depois"] ; c = MorphoPor.genitive ;
+    after_Prep = {s = "depois" ; c = MorphoPor.genitive ;
                   isDir = False} ;
     all_Predet = {
       s = \\a,c => prepCase c ++ aagrForms "todo" "toda" "todos" "todas" ! a ;
@@ -60,7 +60,7 @@ concrete StructuralPor of Structural = CatPor **
     behind_Prep = {s = "atrás" ; c = MorphoPor.genitive ;
                    isDir = False} ;
     between_Prep = mkPrep "entre" ;
-    both7and_DConj = {s1,s2 = etConj.s ; n = Pl} ;
+    both7and_DConj = {s1 = "tanto" ; s2 = "quanto" ; n = Pl} ;
     but_PConj = ss "mas" ;
     by8agent_Prep = mkPrep [] ablative ; -- por
     by8means_Prep = mkPrep [] ablative ; -- por
@@ -68,9 +68,9 @@ concrete StructuralPor of Structural = CatPor **
     can_VV = mkVV B.poder_V ;
     during_Prep = mkPrep "durante" ;
     either7or_DConj = {s1,s2 = "ou" ; n = Sg} ;
-    everybody_NP = makeNP ["todos"] Masc Pl ;
+    everybody_NP = makeNP "todos" Masc Pl ;
     every_Det = mkDeterminer "cada" "cada" Sg False ;
-    everything_NP = pn2np (mkPN ["todo"] Masc) ;
+    everything_NP = pn2np (mkPN "tudo" Masc) ;
     everywhere_Adv = ss ["em toda parte"] ;
     except_Prep = mkPrep "exceto" ;
     few_Det = mkDeterminer "poucos" "poucas" Pl False ;
@@ -79,7 +79,7 @@ concrete StructuralPor of Structural = CatPor **
     from_Prep = complGen ; ---
     here_Adv = mkAdv "aqui" ;
     here7to_Adv = mkAdv ["para cá"] ;
-    here7from_Adv = mkAdv ["daqui"] ;
+    here7from_Adv = mkAdv "daqui" ;
     how_IAdv = ss "como" ;
     how8many_IDet = mkIDet "quantos" "quantas" Pl ;
     how8much_IAdv = ss "quanto" ;
@@ -98,12 +98,12 @@ concrete StructuralPor of Structural = CatPor **
     must_VV = mkVV (regV "dever") ;
     no_Quant =
       let
-        ningun : ParadigmsPor.Number => ParadigmsPor.Gender => Case => Str = table {
+        nenhum : ParadigmsPor.Number => ParadigmsPor.Gender => Case => Str =
-          _ => \\g,c => prepCase c ++ genForms "nenhum" "nenhuma" ! g
+          -- https://web.archive.org/web/20181003161105/http://sualingua.com.br/2009/05/08/nenhuns/
-          }
+          \\n,g,c => prepCase c ++ genNumForms "nenhum" "nenhuma" "nenhuns" "nenhumas" ! g ! n
       in {
-        s = \\_ => ningun ;
+        s = \\_ => nenhum ;
-        sp = ningun ;
+        sp = nenhum ;
         s2 = [] ; isNeg = True
       } ;
     no_Utt = ss "não" ;
@@ -124,12 +124,12 @@ concrete StructuralPor of Structural = CatPor **
     somebody_NP = pn2np (mkPN "alguém" Masc) ;
     somePl_Det = mkDeterminer "alguns" "algumas" Pl False ;
     someSg_Det = mkDeterminer "algum" "alguma" Sg False ;
-    something_NP = pn2np (mkPN ["algo"] Masc) ;
+    something_NP = pn2np (mkPN "algo" Masc) ;
     somewhere_Adv = ss ["em algum lugar"] ;
     that_Quant = mkQuantifier "esse" "essa" "esses" "essas" ;
     there_Adv = mkAdv "ali" ; -- lá
     there7to_Adv = mkAdv ["para lá"] ;
-    there7from_Adv = mkAdv ["dali"] ;
+    there7from_Adv = mkAdv "dali" ;
     therefore_PConj = ss ["por isso"] ;
 
     this_Quant = mkQuantifier "este" "esta" "estes" "estas" ;
@@ -139,8 +139,8 @@ concrete StructuralPor of Structural = CatPor **
     under_Prep = mkPrep "embaixo" ;
     very_AdA = ss "muito" ;
     want_VV = mkVV B.querer_V ;
-    whatSg_IP = {s = \\c => prepCase c ++ ["que"] ; a = aagr Masc Sg} ;
+    whatSg_IP = {s = \\c => prepCase c ++ "que" ; a = aagr Masc Sg} ;
-    whatPl_IP = {s = \\c => prepCase c ++ ["que"] ; a = aagr Masc Pl} ; ---
+    whatPl_IP = {s = \\c => prepCase c ++ "que" ; a = aagr Masc Pl} ; ---
     when_IAdv = ss "quando" ;
     when_Subj = ss "quando" ** {m = Indic} ;
     where_IAdv = ss "onde" ;