msyds/gf-rgl
1
0
Fork 0
forked from GitHub/gf-rgl
Code Pull Requests Activity

(Por) small fixes due to revising UD treebank

Browse Source
This commit is contained in:
odanoburu
2018-12-16 11:01:51 -02:00
parent 6fe29ecc84
commit 8e0afa202b
3 changed files with 29 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
src/portuguese/IdiomPor.gf
View File

@@ -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 ;
} ;

8
src/portuguese/LexiconPor.gf
View File

@@ -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" ;

28
src/portuguese/StructuralPor.gf
View File

@@ -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 {
_ => \\g,c => prepCase c ++ genForms "nenhum" "nenhuma" ! g
}
nenhum : ParadigmsPor.Number => ParadigmsPor.Gender => Case => Str =
-- 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 ;
sp = ningun ;
s = \\_ => nenhum ;
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} ;
whatPl_IP = {s = \\c => prepCase c ++ ["que"] ; a = aagr Masc Pl} ; ---
whatSg_IP = {s = \\c => prepCase c ++ "que" ; a = aagr Masc Sg} ;
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" ;