GitHub/gf-rgl
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-rgl.git synced 2026-05-30 10:28:53 -06:00
Code Issues Packages Projects Releases Wiki Activity

add some more changes

Browse Source
This commit is contained in:
odanoburu
2018-03-23 19:02:52 -03:00
parent 2aaa698f69
commit 2939809f45
20 changed files with 5555 additions and 6852 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11963
src/portuguese/BeschPor.gf
View File

File diff suppressed because it is too large Load Diff

15
src/portuguese/CombinatorsPor.gf Normal file
View File

@@ -0,0 +1,15 @@
--# -path=.:alltenses:prelude
resource CombinatorsPor = Combinators - [appCN, appCNc] with
(Cat = CatPor),
(Structural = StructuralPor),
(Noun = NounPor),
(Constructors = ConstructorsPor) **
{
oper
appCN : CN -> NP -> NP
= \cn,x -> mkNP the_Art (PossNP cn x) ;
appCNc : CN -> [NP] -> NP
= \cn,xs -> let np : NP = mkNP and_Conj xs
in mkNP the_Art (PossNP cn np) ;
}

117
src/portuguese/ConstructionPor.gf
View File

@@ -4,32 +4,31 @@ concrete ConstructionPor of Construction = CatPor **
open SyntaxPor, SymbolicPor, ParadigmsPor,
(L = LexiconPor), (E = ExtraPor), (I = IrregPor), (R = ResPor), (C = CommonRomance),
Prelude in {
flags coding=utf8 ;
flags coding=utf8 ;
lin
hungry_VP = E.ComplCN have_V2 (mkCN (mkN "hambre" feminine)) ;
thirsty_VP = E.ComplCN have_V2 (mkCN (mkN "sed" feminine)) ;
hungry_VP = E.ComplCN have_V2 (mkCN (mkN "fome" feminine)) ;
thirsty_VP = E.ComplCN have_V2 (mkCN (mkN "sede" feminine)) ;
has_age_VP card = mkVP have_V2 (mkNP <lin Card card : Card> L.year_N) ;
have_name_Cl x y = mkCl x (mkV2 (reflV (mkV "llamar"))) y ;
have_name_Cl x y = mkCl x (mkV2 (reflV (mkV "chamar"))) y ;
married_Cl x y = mkCl (lin NP x) L.married_A2 (lin NP y) | mkCl (mkNP and_Conj (lin NP x) (lin NP y)) (mkA "casado") ;
what_name_QCl x = mkQCl how_IAdv (mkCl (lin NP x) (reflV (mkV "llamar"))) ;
what_name_QCl x = mkQCl how_IAdv (mkCl (lin NP x) (reflV (mkV "chamar"))) ;
how_old_QCl x = mkQCl (mkIP how8many_IDet L.year_N) x have_V2 ;
how_far_QCl x = mkQCl (lin IAdv (ss "a qué distancia")) (mkCl x I.estar_V) ;
how_far_QCl x = mkQCl (lin IAdv (ss "a que distância")) (mkCl x I.estar_V) ;
-- some more things
weather_adjCl ap = mkCl (mkVP (mkVA I.hacer_V) (lin AP ap)) ;
is_right_VP = E.ComplCN have_V2 (mkCN (mkN "razón")) ;
is_wrong_VP = mkVP (mkVA I.estar_V) (mkAP (mkA "equivocado")) ;
is_right_VP = E.ComplCN have_V2 (mkCN (mkN "razão")) ;
is_wrong_VP = mkVP (mkVA I.estar_V) (mkAP (mkA "errado")) ;
n_units_AP card cn a = mkAP (lin AdA (mkUtt (mkNP <lin Card card : Card> (lin CN cn)))) (lin A a) ;
bottle_of_CN np = mkCN (lin N2 (mkN2 (mkN "botella" feminine) part_Prep)) np ;
cup_of_CN np = mkCN (lin N2 (mkN2 (mkN "taza") part_Prep)) np ;
glass_of_CN np = mkCN (lin N2 (mkN2 (mkN "vaso") part_Prep)) np ; -- copa
bottle_of_CN np = mkCN (lin N2 (mkN2 (mkN "garrafa" feminine) part_Prep)) np ;
cup_of_CN np = mkCN (lin N2 (mkN2 (mkN "copo") part_Prep)) np ;
glass_of_CN np = mkCN (lin N2 (mkN2 (mkN "taça") part_Prep)) np ;
{-
-- spatial deixis and motion verbs
@@ -57,14 +56,14 @@ oper
lin
weekdayPunctualAdv w = lin Adv {s = w.s ! C.Sg} ; -- lundi
weekdayHabitualAdv w = SyntaxPor.mkAdv noPrep (mkNP the_Det w) ; -- il lunedí ----
weekdayLastAdv w = SyntaxPor.mkAdv noPrep (mkNP the_Det (mkCN (mkA "pasado") w)) ; -- il lunedí scorso
weekdayNextAdv w = SyntaxPor.mkAdv noPrep (mkNP the_Det (mkCN (mkA "próximo") w)) ; -- il lunedí prossimo
weekdayLastAdv w = SyntaxPor.mkAdv noPrep (mkNP the_Det (mkCN (mkA "passado") w)) ; -- il lunedí scorso
weekdayNextAdv w = SyntaxPor.mkAdv noPrep (mkNP the_Det (mkCN (prefixA (mkA "próximo")) w)) ; -- il lunedí prossimo
monthAdv m = lin Adv {s = "en" ++ m.s ! C.Sg} ; -- in mggio
yearAdv y = SyntaxPor.mkAdv (mkPrep "en") y ; ----
dayMonthAdv d m = ParadigmsPor.mkAdv ("el" ++ (d.s ! R.Nom).comp ++ m.s ! C.Sg) ; -- le 17 mai
monthYearAdv m y = lin Adv {s = "en" ++ m.s ! C.Sg ++ (y.s ! R.Nom).comp} ; -- in maggio 2012
dayMonthYearAdv d m y = ParadigmsPor.mkAdv ("el" ++ (d.s ! R.Nom).comp ++ m.s ! C.Sg ++ (y.s ! R.Nom).comp) ; -- il 17 maggio 2013
monthAdv m = lin Adv {s = "em" ++ m.s ! C.Sg} ; -- in maggio
yearAdv y = SyntaxPor.mkAdv (mkPrep "em") y ; ----
dayMonthAdv d m = ParadigmsPor.mkAdv ("o" ++ (d.s ! R.Nom).comp ++ m.s ! C.Sg) ; -- le 17 mai
monthYearAdv m y = lin Adv {s = "em" ++ m.s ! C.Sg ++ (y.s ! R.Nom).comp} ; -- in maggio 2012
dayMonthYearAdv d m y = ParadigmsPor.mkAdv ("o" ++ (d.s ! R.Nom).comp ++ m.s ! C.Sg ++ (y.s ! R.Nom).comp) ; -- il 17 maggio 2013
intYear = symb ;
intMonthday = symb ;
@@ -72,7 +71,7 @@ lin
lincat Language = N ;
lin InLanguage l = SyntaxPor.mkAdv (mkPrep "en") (mkNP l) ;
lin InLanguage l = SyntaxPor.mkAdv (mkPrep "em") (mkNP l) ;
lin
weekdayN w = w ;
@@ -88,60 +87,60 @@ oper mkLanguage : Str -> N = \s -> mkN s ;
----------------------------------------------
---- lexicon of special names
lin monday_Weekday = mkN "lunes" ;
lin tuesday_Weekday = mkN "martes" ;
lin wednesday_Weekday = mkN "miércoles" ;
lin thursday_Weekday = mkN "jueves" ;
lin friday_Weekday = mkN "viernes" ;
lin monday_Weekday = mkN "segunda" ;
lin tuesday_Weekday = mkN "terça" ;
lin wednesday_Weekday = mkN "quarta" ;
lin thursday_Weekday = mkN "quinta" ;
lin friday_Weekday = mkN "sexta" ;
lin saturday_Weekday = mkN "sábado" ;
lin sunday_Weekday = mkN "domingo" ;
lin january_Month = mkN "enero" ;
lin february_Month = mkN "febrero" ;
lin march_Month = mkN "marzo" ;
lin january_Month = mkN "janeiro" ;
lin february_Month = mkN "fevereiro" ;
lin march_Month = mkN "março" ;
lin april_Month = mkN "abril" ;
lin may_Month = mkN "mayo" ;
lin june_Month = mkN "junio" ;
lin july_Month = mkN "julio" ;
lin may_Month = mkN "maio" ;
lin june_Month = mkN "junho" ;
lin july_Month = mkN "julho" ;
lin august_Month = mkN "agosto" ;
lin september_Month = mkN "septiembre" ;
lin october_Month = mkN "octubre" ;
lin november_Month = mkN "noviembre" ;
lin december_Month = mkN "diciembre" ;
lin september_Month = mkN "setembro" ;
lin october_Month = mkN "outubro" ;
lin november_Month = mkN "novembro" ;
lin december_Month = mkN "dezembro" ;
lin afrikaans_Language = mkLanguage "afrikáans" ;
lin afrikaans_Language = mkLanguage "africâner" ;
lin amharic_Language = mkLanguage "amárico" ;
lin arabic_Language = mkLanguage "árabe" ;
lin bulgarian_Language = mkLanguage "búlgaro" ;
lin catalan_Language = mkLanguage "catalán" ;
lin chinese_Language = mkLanguage "chino" ;
lin danish_Language = mkLanguage "danés" ;
lin dutch_Language = mkLanguage "neerlandés" ;
lin english_Language = mkLanguage "inglés" ;
lin estonian_Language = mkLanguage "estonio" ;
lin finnish_Language = mkLanguage "finés" ;
lin french_Language = mkLanguage "francés" ;
lin german_Language = mkLanguage "alemán" ;
lin greek_Language = mkLanguage "griego" ;
lin hebrew_Language = mkLanguage "ebreo" ;
lin catalan_Language = mkLanguage "catalão" ;
lin chinese_Language = mkLanguage "chinês" ;
lin danish_Language = mkLanguage "dinamarquês" ;
lin dutch_Language = mkLanguage "holandês" ;
lin english_Language = mkLanguage "inglês" ;
lin estonian_Language = mkLanguage "estônio" ;
lin finnish_Language = mkLanguage "finlandês" ;
lin french_Language = mkLanguage "francês" ;
lin german_Language = mkLanguage "alemão" ;
lin greek_Language = mkLanguage "grego" ;
lin hebrew_Language = mkLanguage "hebraico" ;
lin hindi_Language = mkLanguage "hindi" ;
lin japanese_Language = mkLanguage "japonés" ;
lin japanese_Language = mkLanguage "japonês" ;
lin italian_Language = mkLanguage "italiano" ;
lin latin_Language = mkLanguage "latín" ;
lin latvian_Language = mkLanguage "letón" ;
lin maltese_Language = mkLanguage "maltés" ;
lin nepali_Language = mkLanguage "nepalí" ;
lin norwegian_Language = mkLanguage "noruego" ;
lin latin_Language = mkLanguage "latim" ;
lin latvian_Language = mkLanguage "letão" ;
lin maltese_Language = mkLanguage "maltês" ;
lin nepali_Language = mkLanguage "nepalês" ;
lin norwegian_Language = mkLanguage "norueguês" ;
lin persian_Language = mkLanguage "persa" ;
lin polish_Language = mkLanguage "polaco" ;
lin polish_Language = mkLanguage "polonês" ;
lin punjabi_Language = mkLanguage "punjabi" ;
lin romanian_Language = mkLanguage "rumano" ;
lin russian_Language = mkLanguage "ruso" ;
lin romanian_Language = mkLanguage "romeno" ;
lin russian_Language = mkLanguage "russo" ;
lin sindhi_Language = mkLanguage "sindhi" ;
lin spanish_Language = mkLanguage "español" | mkLanguage "castellano" ;
lin swahili_Language = mkLanguage "swahili" ;
lin spanish_Language = mkLanguage "espanhol" | mkLanguage "castelhano" ;
lin swahili_Language = mkLanguage "suaíli" ;
lin swedish_Language = mkLanguage "sueco" ;
lin thai_Language = mkLanguage "tailandés" ;
lin thai_Language = mkLanguage "tailandês" ;
lin turkish_Language = mkLanguage "turco" ;
lin urdu_Language = mkLanguage "urdu" ;

3
src/portuguese/ConstructorsPor.gf Normal file
View File

@@ -0,0 +1,3 @@
--# -path=.:alltenses:prelude
resource ConstructorsPor = Constructors with (Grammar = GrammarPor) ;

48
src/portuguese/DiffPor.gf
View File

@@ -32,30 +32,30 @@ instance DiffPor of DiffRomance - [partAgr,vpAgrSubj,vpAgrClits] = open CommonRo
artDef : Bool -> Gender -> Number -> Case -> Str = \isNP,g,n,c ->
case isNP of {
True => case <g,n,c> of {
<Masc,Sg, _> => prepCase c ++ "el" ;
<Fem, Sg, _> => prepCase c ++ "la" ; ----- ??
<Masc,Pl, _> => prepCase c ++ "los" ;
<Fem ,Pl, _> => prepCase c ++ "las"
<Masc,Sg, _> => prepCase c ++ "o" ;
<Fem, Sg, _> => prepCase c ++ "a" ; ----- ??
<Masc,Pl, _> => prepCase c ++ "os" ;
<Fem ,Pl, _> => prepCase c ++ "as"
} ;
_ => case <g,n,c> of {
<Masc,Sg, CPrep P_de> => "del" ;
<Masc,Sg, CPrep P_a> => "al" ;
<Masc,Sg, _> => prepCase c ++ "el" ;
<Fem ,Sg, CPrep P_de> => chooseDeLa ;
<Fem ,Sg, CPrep P_a> => chooseALa ;
<Fem, Sg, _> => prepCase c ++ chooseLa ;
<Masc,Pl, _> => prepCase c ++ "los" ;
<Fem ,Pl, _> => prepCase c ++ "las"
False => case <g,n,c> of {
<Masc,Sg, CPrep P_de> => "do" ;
<Masc,Sg, CPrep P_a> => "ao" ;
<Masc,Sg, _> => prepCase c ++ "o" ;
<Fem ,Sg, CPrep P_de> => "da" ;
<Fem ,Sg, CPrep P_a> => "à" ;
<Fem, Sg, _> => prepCase c ++ "a" ;
<Masc,Pl, _> => prepCase c ++ "os" ;
<Fem ,Pl, _> => prepCase c ++ "as"
}
} ;
artIndef = \isNP,g,n,c -> case isNP of {
True => case n of {
Sg => prepCase c ++ genForms "uno" "una" ! g ;
_ => prepCase c ++ genForms "unos" "unas" ! g
Sg => prepCase c ++ genForms "um" "uma" ! g ;
_ => prepCase c ++ genForms "uns" "umas" ! g
} ;
_ => case n of {
Sg => prepCase c ++ genForms "un" "una" ! g ;
Sg => prepCase c ++ genForms "um" "uma" ! g ;
_ => prepCase c
}
} ;
@@ -154,13 +154,13 @@ instance DiffPor of DiffRomance - [partAgr,vpAgrSubj,vpAgrClits] = open CommonRo
relPron : Bool => AAgr => Case => Str = \\b,a,c =>
case c of {
Nom | Acc => "que" ;
CPrep P_a => "cuyo" ;
_ => prepCase c ++ "cuyo"
CPrep P_a => "cujo" ;
_ => prepCase c ++ "cujo"
} ;
pronSuch : AAgr => Str = aagrForms "tál" "tál" "tales" "tales" ;
pronSuch : AAgr => Str = aagrForms "tal" "tal" "tais" "tais" ;
quelPron : AAgr => Str = aagrForms "cuál" "cuál" "cuales" "cuales" ;
quelPron : AAgr => Str = aagrForms "qual" "qual" "quais" "quais" ;
partQIndir = [] ; ---- ?
@@ -204,13 +204,13 @@ instance DiffPor of DiffRomance - [partAgr,vpAgrSubj,vpAgrClits] = open CommonRo
_ => False
} ;
auxPassive : Verb = verbBeschH (estar_2 "estar") ;
auxPassive : Verb = verbBeschH (estar_10 "estar") ;
copula : Verb = verbBeschH (ser_1 "ser") ;
copula : Verb = verbBeschH (ser_3 []) ;
estar_V : Verb = verbBeschH (estar_2 "estar") ;
estar_V : Verb = verbBeschH (estar_10 "estar") ;
haber_V : Verb = verbBeschH (haber_3 "haber") ;
haber_V : Verb = verbBeschH (haver_2 "haver") ;
verbBeschH : Verbum -> Verb = \v -> verbBesch v ** {vtyp = VHabere ; p = []} ;

8
src/portuguese/DocumentationPorFunctor.gf
View File

@@ -52,13 +52,13 @@ lin
InflectionAdv adv = {
t = "adv" ;
s1 = heading1 "Adverbe" ;
s1 = heading1 "Advérbio" ;
s2 = paragraph adv.s
} ;
InflectionPrep p = {
t = "prep" ;
s1 = heading1 "Préposition" ;
s1 = heading1 "Preposição" ;
s2 = paragraph p.s
} ;
@@ -135,8 +135,8 @@ lin
lin
NoDefinition t = {s=t.s};
MkDefinition t d = {s="<p><b>Definición:</b>"++t.s++d.s++"</p>"};
MkDefinitionEx t d e = {s="<p><b>Definición:</b>"++t.s++d.s++"</p><p><b>Ejemplo:</b>"++e.s++"</p>"};
MkDefinition t d = {s="<p><b>Definição:</b>"++t.s++d.s++"</p>"};
MkDefinitionEx t d e = {s="<p><b>Definição:</b>"++t.s++d.s++"</p><p><b>Exemplo:</b>"++e.s++"</p>"};
lin
MkDocument b i e = ss (i.s1 ++ "<p style=\"font-size:20px\">"++b.s++"</p>" ++ i.s2 ++ paragraph e.s) ; -- explanation appended in a new paragraph

53
src/portuguese/ExtraPor.gf
View File

@@ -1,49 +1,26 @@
concrete ExtraPor of ExtraPorAbs = ExtraRomancePor **
open CommonRomance, PhonoPor, MorphoPor, ParadigmsPor, ParamX, ResPor, BeschPor, (I = IrregPor),
open CommonRomance, PhonoPor, MorphoPor, ParadigmsPor, ParamX, ResPor, BeschPor, (I = IrregPor), (S = StructuralPor),
Prelude in {
flags coding=utf8 ;
lin
i8fem_Pron = mkPronoun
"yo" "me" "me" "mí"
"mi" "mi" "mis" "mis"
Fem Sg P1 ;
--- Prons
i8fem_Pron = pronAgr S.i_Pron Fem Sg P1 ;
youSg8fem_Pron = pronAgr S.youSg_Pron Fem Sg P3 ;
we8fem_Pron = pronAgr S.we_Pron Fem Pl P1 ;
youPl8fem_Pron = pronAgr S.youPl_Pron Fem Pl P3 ;
youPolPl_Pron = S.youPlPol_Pron ;
youPol8fem_Pron = pronAgr S.youSgPol_Pron Fem Sg P2 ;
youPolPl8fem_Pron = pronAgr S.youPlPol_Pron Fem Pl P2 ;
they8fem_Pron = mkPronFrom S.they_Pron "elas" "as" "lhes" "elas" Fem Pl P3 ;
these8fem_NP = makeNP ["estas"] Fem Pl ;
they8fem_Pron = mkPronoun
"ellas" "las" "les" "ellas"
"su" "su" "sus" "sus"
Fem Pl P3 ;
this8fem_NP = pn2np (mkPN ["esta"] Fem) ;
those8fem_NP = makeNP ["esas"] Fem Pl ;
those8fem_NP = makeNP ["essas"] Fem Pl ;
we8fem_Pron = mkPronoun
"nosotras" "nos" "nos" "nosotras"
"nuestro" "nuestra" "nuestros" "nuestras"
Fem Pl P1 ;
whoPl8fem_IP = {s = \\c => prepCase c ++ "quién" ; a = aagr Fem Pl} ;
whoSg8fem_IP = {s = \\c => prepCase c ++ "quién" ; a = aagr Fem Sg} ;
youSg8fem_Pron = mkPronoun
"tú" "te" "te" "ti"
"tu" "tu" "tus" "tus"
Fem Sg P2 ;
youPl8fem_Pron = mkPronoun
"vosotras" "os" "os" "vosotras"
"vuestro" "vuestra" "vuestros" "vuestras"
Fem Pl P2 ;
youPol8fem_Pron = mkPronoun
"usted" "la" "le" "usted"
"su" "su" "sus" "sus"
Fem Sg P3 ;
youPolPl_Pron = mkPronoun
"ustedes" "los" "les" "usted"
"su" "su" "sus" "sus"
Masc Pl P3 ;
youPolPl8fem_Pron = mkPronoun
"ustedes" "las" "les" "usted"
"su" "su" "sus" "sus"
Fem Pl P3 ;
whoPl8fem_IP = {s = \\c => prepCase c ++ "quem" ; a = aagr Fem Pl} ;
whoSg8fem_IP = {s = \\c => prepCase c ++ "quem" ; a = aagr Fem Sg} ;
ImpNeg np vp = lin Utt{
s = (mkClause (np.s ! Nom).comp np.hasClit False np.a vp).s

2
src/portuguese/ExtraPorAbs.gf
View File

@@ -32,6 +32,6 @@ abstract ExtraPorAbs = ExtraRomanceAbs ** {
PassVPSlash_ser : VPSlash -> VP ;
UseComp_estar : Comp -> VP ; -- esta lleno, as opposed to es lleno
UseComp_estar : Comp -> VP ; -- 'está cheio', instead of 'é cheio'
}

90
src/portuguese/LexiconPor.gf
View File

@@ -5,6 +5,7 @@ concrete LexiconPor of Lexicon = CatPor ** open
flags
optimize=values ;
coding=utf8 ;
lin
easy_A2V = mkA2V (regA "fácil") dative genitive ;
@@ -38,8 +39,9 @@ lin
near_A = regA "cercano" ;
new_A = prefA (regADeg "novo") ;
old_A = prefA (regADeg "velho") ;
ready_A = regA "pronto" ;
red_A = regADeg "vermelho" ;
rotten_A = regA "podrido" ;
rotten_A = regA "podre" ;
round_A = regA "redondo" ;
sharp_A = regA "filoso" ; -- afilado, puntiagudo
short_A = regADeg "curto" ; --- breve, pequeno, baixo
@@ -50,6 +52,7 @@ lin
thick_A = regADeg "grosso" ;
thin_A = regADeg "fino" ; -- delgado
ugly_A = regADeg "feio" ;
uncertain_A = regA "incerto" ;
warm_A = regADeg "quente" ;
wet_A = regA "mojado" ;
white_A = compADeg (regA "blanco") ;
@@ -251,47 +254,47 @@ lin
right_Ord = M.mkOrd (regA "direita") ;
john_PN = mkPN "João" masculine ;
paris_PN = mkPN "Paris" feminine ;
rain_V0 = mkV0 (verboV (llover_89 "chover")) ;
-- V
rain_V0 = mkV0 (verboV (chover_47 "chover")) ;
paint_V2A = mkV2A (regV "pintar") accusative (mkPrep "em") ;
ask_V2Q = mkV2Q (regV "perguntar") dative ;
answer_V2S = mkV2S (regV "responder") dative ;
beg_V2V = mkV2V (mkV "rogar" "rogo") accusative dative ; -- pedir
-- V2
bite_V2 = dirV2 (verboV (morder_50b "morder")) ;
beg_V2V = mkV2V (mkV "rogar") accusative dative ; -- pedir
bite_V2 = dirV2 (regV "morder") ;
break_V2 = dirV2 (special_ppV (regV "romper") "rompido") ;
buy_V2 = dirV2 (regV "comprar") ;
close_V2 = dirV2 (mkV "fechar" "fechado") ;
count_V2 = dirV2 (verboV (contar_38b "contar")) ;
close_V2 = dirV2 (mkV "fechar") ;
count_V2 = dirV2 (regV "contar") ;
cut_V2 = dirV2 (regV "cortar") ;
do_V2 = dirV2 (verboV (hacer_44 "fazer")) ;
do_V2 = dirV2 (regV "fazer") ;
drink_V2 = dirV2 (regV "beber") ;
eat_V2 = dirV2 (regV "comer") ;
fear_V2 = dirV2 (regV "temer") ;
fight_V2 = dirV2 (regV "lutar") ;
find_V2 = dirV2 (verboV (encontrar_38 "encontrar")) ;
find_V2 = dirV2 (regV "encontrar") ;
forget_V2 = dirV2 (regV "esquecer") ;
hate_V2 = dirV2 (mkV "odiar" "ódio") ;
hear_V2 = dirV2 (mkV (oir_51 "ouvir")) ;
hate_V2 = dirV2 (mkV "odiar") ;
hear_V2 = dirV2 (mkV "ouvir") ;
hit_V2 = dirV2 (regV "bater") ;
hold_V2 = dirV2 (verboV (tener_4 "ter")) ;
hold_V2 = dirV2 (regV "ter") ;
hunt_V2 = dirV2 (regV "caçar") ;
kill_V2 = dirV2 (regV "matar") ;
know_V2 = mkV2 (verboV (conocer_25 "conhecer")) ;
know_V2 = mkV2 (regV "conhecer") ;
learn_V2 = dirV2 (regV "aprender") ;
leave_V2 = dirV2 (regV "partir") ; -- irse, dejar
like_V2 = dirV2 (regV "gostar") ;
listen_V2 = dirV2 (regV "escutar") ;
lose_V2 = dirV2 (verboV (defender_29 "perder")) ;
lose_V2 = dirV2 (regV "perder") ;
love_V2 = dirV2 (regV "amar") ;
open_V2 = dirV2 (special_ppV (regV "abrir") "aberto") ;
play_V2 = dirV2 (verboV (jugar_47 "jogar")) ;
play_V2 = dirV2 (regV "jogar") ;
pull_V2 = dirV2 (regV "tirar") ;
push_V2 = dirV2 (regV "empurrar") ;
put_V2 = dirV2 (verboV (poner_60 "por")) ;
read_V2 = dirV2 (verboV (creer_26 "ler")) ;
put_V2 = dirV2 (regV "por") ;
read_V2 = dirV2 (regV "ler") ;
rub_V2 = dirV2 (regV "resfregar") ;
scratch_V2 = dirV2 (regV "rascar") ;
see_V2 = dirV2 (verboV (ver_83 "ver")) ;
see_V2 = dirV2 (regV "ver") ;
seek_V2 = dirV2 (regV "buscar") ;
speak_V2 = dirV2 (regV "falar") ;
split_V2 = dirV2 (regV "separar") ; -- dividir,) ;
@@ -303,51 +306,51 @@ lin
teach_V2 = dirV2 (regV "enseñar") ;
throw_V2 = dirV2 (regV "tirar") ;
tie_V2 = dirV2 (regV "atar") ;
understand_V2 = dirV2 (mkV "entender" "entiendo") ;
understand_V2 = dirV2 (mkV "entender") ;
wait_V2 = mkV2 (regV "esperar") dative ;
wash_V2 = dirV2 (regV "lavar") ;
watch_V2 = dirV2 (regV "mirar") ; -- ver
win_V2 = dirV2 (regV "ganar") ;
wipe_V2 = dirV2 (regV "secar") ;
write_V2 = dirV2 (special_ppV (regV "escribir") "escrito") ;
add_V3 = dirV3 (regV "sumar") dative ;
give_V3 = dirdirV3 (verboV (dar_27 "dar")) ;
add_V3 = dirV3 (regV "somar") dative ;
give_V3 = dirdirV3 (regV "dar") ;
sell_V3 = dirV3 (regV "vender") dative ;
send_V3 = dirV3 (regV "mandar") dative ; -- enviar
talk_V3 = mkV3 (regV "hablar") dative genitive ;
become_VA = reflV (mkV "converter" "convertido") ; --- convertirse en, volverse, ponerse
know_VQ = mkVQ (verboV (saber_71 "saber")) ;
talk_V3 = mkV3 (regV "falar") dative genitive ;
become_VA = reflV (mkV "converter") ; --- convertirse en, volverse, ponerse
know_VQ = mkVQ (regV "saber") ;
wonder_VQ = mkVQ (reflV (regV "preguntar")) ;
fear_VS = mkVS (regV "temer") ;
hope_VS = mkVS (regV "esperar") ;
know_VS = mkVS (verboV (saber_71 "saber")) ;
say_VS = mkVS (verboV (decir_28 "dizer")) ;
know_VS = mkVS (regV "saber") ;
say_VS = mkVS (regV "dizer") ;
-- V
blow_V = regV "soplar" ;
breathe_V = (regV "respirar") ;
burn_V = regV "quemar" ;
come_V = verboV (venir_82 "vir") ;
die_V = verboV (morir_35b "morrer") ;
dig_V = regV "escarbar" ;
fall_V = verboV (caer_20 "caer") ;
float_V = regV "flotar" ;
flow_V = verboV (influir_45 "fluir") ; -- circular
fly_V = regV "volar" ;
blow_V = regV "assoprar" ;
breathe_V = regV "respirar" ;
burn_V = regV "queimar" ;
come_V = regV "vir" ;
die_V = regV "morrer" ;
dig_V = regV "escavar" ;
fall_V = regV "cair" ;
float_V = regV "flutuar" ;
flow_V = regV "fluir" ; -- circular
fly_V = regV "voar" ;
freeze_V = regV "congelar" ;
go_V = (verboV (ir_46 "ir")) ;
go_V = (regV "ir") ;
jump_V = regV "saltar" ;
laugh_V = regV "reir" ; ----V reír_67
lie_V = reflV (regV "acostar") ; -- "acostarse"
live_V = verboV (vivir_7 "viver") ;
live_V = regV "viver" ;
play_V = regV "jugar" ;
run_V = regV "correr" ;
sew_V = regV "coser" ;
sing_V = regV "cantar" ;
sit_V = reflV (mkV "sentar" "siento") ;
sleep_V = verboV (dormir_35 "dormir") ;
smell_V = verboV (oler_52 "oler") ;
sit_V = reflV (mkV "sentar") ;
sleep_V = regV "dormir" ;
smell_V = regV "cheirar" ;
spit_V = regV "escupir" ;
stand_V = verboV (estar_2 "estar") ; ---- "estar de pie" ;
stand_V = regV "estar" ; ---- "estar de pie" ;
stop_V = regV "parar" ;
swell_V = regV "tragar" ;
swim_V = regV "nadar" ;
@@ -356,5 +359,6 @@ lin
turn_V = regV "doblar" ;
vomit_V = regV "vomitar" ;
walk_V = mkV "caminhar" ;
-- interj
alas_Interj = ss "infelizmente" ;
} ;

2
src/portuguese/MorphoPor.gf
View File

@@ -12,7 +12,7 @@ resource MorphoPor = CommonRomance, ResPor **
CatPor in {
flags optimize=all ;
coding=utf8 ;
--2 Nouns
--
-- The following macro is useful for creating the forms of

2
src/portuguese/NumeralPor.gf
View File

@@ -1,6 +1,8 @@
concrete NumeralPor of Numeral = CatPor [Numeral,Digits] **
open CommonRomance, ResRomance, MorphoPor, Prelude in {
flags coding=utf8 ;
lincat
Digit = {s : DForm => CardOrd => Str} ;
Sub10 = {s : DForm => CardOrd => Str ; n : Number} ;

51
src/portuguese/ParadigmsPor.gf
View File

@@ -31,6 +31,7 @@ resource ParadigmsPor =
CatPor in {
flags optimize=all ;
coding=utf8 ;
--2 Parameters
--
@@ -92,7 +93,7 @@ oper
mascN : N -> N ;
mascN x = {s = x.s ; g = masculine ; lock_N = <>} ;
mk2N : (baston,bastones : Str) -> Gender -> N ;
mk2N : (bastão, bastões : Str) -> Gender -> N ;
mk2N x y g = mkNounIrreg x y g ** {lock_N = <>} ;
--- [] update this docstring
@@ -188,6 +189,11 @@ oper
a.s ! Posit ! f} ;
isPre = a.isPre ; lock_A = <>} ;
{- superlADeg : A -> A ;
superlADeg a = {s = table {Posit => a.s ! Posit ;
Compar => a.s ! Compar ;
Superl => a.s ! Compar}} ;
-}
regA : Str -> A ;
regA a = compADeg {s = \\_ => (mkAdjReg a).s ; isPre = False ;
lock_A = <>} ;
@@ -267,31 +273,39 @@ oper
--2 Verbs
regV : Str -> V ;
regV x = -- cortar actuar cazar guiar pagar sacar
regV v = -- cortar actuar cazar guiar pagar sacar
let
ar = Predef.dp 2 x ;
z = Predef.dp 1 (Predef.tk 2 x) ;
verb = case ar of {
"ir" => vivir_7 x ;
"er" => deber_6 x ;
"ar" => case z of {
"u" => actuar_9 x ;
"z" => cazar_21 x ;
"i" => guiar_43 x ;
"g" => pagar_53 x ;
"c" => sacar_72 x ;
_ => cortar_5 x
xr = Predef.dp 2 v ; -- -ar
z = Predef.dp 1 (Predef.tk 2 v) ; -- i in -iar
verb = case xr of {
"ir" => case z of {
"g" => redigir_52 v ;
"a" => sair_68 v ;
"u" => distribuir_73 v ;
_ => garantir_6 v
} ;
_ => Predef.error ("regular verb infinitive must end ar/ir/er, not satisfied by" ++ x) -- rm this?
"er" => case z of {
"c" => aquecer_25 v ;
_ => vender_5 v
} ;
"ar" => case z of {
"e" => recear_15 v ;
"i" => anunciar_16 v ;
"o" => perdoar_20 v ;
"u" => averiguar_21 v ;
_ => comprar_4 v
} ;
"or" => pôr_45 v ;
_ => comprar_4 v -- hole
}
in verboV verb ;
regAltV : (mostrar,muestro : Str) -> V ;
{- regAltV : (mostrar,muestro : Str) -> V ;
regAltV x y = case x of {
_ + "ar" => verboV (regAlternV x y) ;
_ => verboV (regAlternVEr x y)
} ;
-}
verboV : Verbum -> V ;
verboV ve = verbBesch ve ** {vtyp = VHabere ; p = [] ;
lock_V = <>} ;
@@ -311,7 +325,8 @@ oper
-- Verbs with vowel alternation in the stem - easiest to give with two
-- forms, e.g. "mostrar"/"muestro".
mkV : (mostrar,muestro : Str) -> V = regAltV ;
-- mkV : (mostrar,muestro : Str) -> V = regAltV ;
-- rm'ed as is uncommon in Por
-- Most irregular verbs are found in $IrregPor$. If this is not
-- enough, the module $BeschPor$ gives all the patterns of the

8
src/portuguese/ParsePor.gf
View File

@@ -46,12 +46,12 @@ lin
-- lexical entries
another_Quant = mkQuantifier "otro" "otra" "otros" "otras" ;
some_Quant = mkQuantifier "algún" "alguna" "algunos" "algunas" ;
anySg_Det = mkDeterminer "algún" "alguna" Sg False ; ---- also meaning "whichever" ?
another_Quant = mkQuantifier "outro" "outra" "outros" "outras" ;
some_Quant = mkQuantifier "algum" "alguma" "alguns" "algumas" ;
anySg_Det = mkDeterminer "algum" "alguma" Sg False ; ---- also meaning "whichever" ?
each_Det = SyntaxPor.every_Det ;
but_Subj = {s = "pero" ; m = Indic} ; ---- strange to have this as Subj
but_Subj = {s = "mas" ; m = Indic} ; ---- strange to have this as Subj
{-
myself_NP = regNP "myself" singular ;

36
src/portuguese/PhonoPor.gf
View File

@@ -1,39 +1,3 @@
resource PhonoPor = open Prelude in {
flags coding=utf8 ;
--3 Elision
--
-- The phonological rule of *elision* can be defined as follows in GF.
-- In Pornish it includes both vowels and 'h'.
oper
vocale : Strs = strs {
"a" ; "e" ; "h" ; "i" ; "o" ; "u"
} ;
--Feminine nouns that start with stressed a use the masculine article el for phonetic reasons:
--e.g. "el agua pura" but "la pura agua".
--To prevent "el aguamarina", we list explicitly words that begin with these words
falseAWords : pattern Str = #("aguam"|"aguaf"|"almac"|"alab"|"alac"|"alam"|"alan"|"alar") ;
aWords : pattern Str = #("agua" | "alma" | "ala") ;
chooseLa = pre {
falseAWords => "la" ;
aWords => "el" ;
"á" => "el" ;
_ => "la"
} ;
chooseDeLa = pre {
falseAWords => "de la" ;
aWords => "del" ;
"á" => "del" ;
_ => "de la"
} ;
chooseALa = pre {
falseAWords => "a la" ;
aWords => "al" ;
"á" => "al" ;
_ => "a la"
} ;
}

11
src/portuguese/StructuralPor.gf
View File

@@ -3,6 +3,7 @@ concrete StructuralPor of Structural = CatPor **
MakeStructuralPor, (X = ConstructX), Prelude in {
flags optimize=all ;
coding=utf8 ;
lin
-- have_V3
@@ -60,8 +61,8 @@ concrete StructuralPor of Structural = CatPor **
but_PConj = ss "mas" ;
by8agent_Prep = mkPrep "por" ;
by8means_Prep = mkPrep "por" ;
can8know_VV = mkVV (verboV (saber_71 "saber")) ;
can_VV = mkVV (verboV (poder_58 "poder")) ;
can8know_VV = mkVV (verboV (saber_35 "saber")) ;
can_VV = mkVV (verboV (poder_36 "poder")) ;
during_Prep = mkPrep "durante" ;
either7or_DConj = {s1,s2 = "o" ; n = Sg} ;
everybody_NP = makeNP ["todos"] Masc Pl ;
@@ -91,7 +92,7 @@ concrete StructuralPor of Structural = CatPor **
most_Predet = {s = \\_,c => prepCase c ++ ["a maior parte"] ; c = CPrep P_de ;
a = PNoAg} ;
much_Det = mkDeterminer "muito" "muita" Sg False ;
must_VV = mkVV (verboV (deber_6 "dever")) ;
must_VV = mkVV (regV "dever") ;
no_Quant =
let
ningun : ParadigmsPor.Number => ParadigmsPor.Gender => Case => Str = table {
@@ -135,7 +136,7 @@ concrete StructuralPor of Structural = CatPor **
to_Prep = complDat ;
under_Prep = mkPrep "embaixo" ;
very_AdA = ss "muito" ;
want_VV = mkVV (verboV (querer_64 "querer")) ;
want_VV = mkVV (verboV (querer_38 "querer")) ;
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" ;
@@ -166,7 +167,7 @@ concrete StructuralPor of Structural = CatPor **
Masc Pl P2 ;
lin
as_CAdv = X.mkCAdv "tão" conjThan ; ----
have_V2 = dirV2 (verboV (tener_4 "ter")) ;
have_V2 = dirV2 (verboV (ter_1 "ter")) ;
that_Subj = {s = "que" ; m = Conjunct} ;
lin language_title_Utt = ss "português" ;

5
src/portuguese/SymbolicPor.gf Normal file
View File

@@ -0,0 +1,5 @@
--# -path=.:../spanish:../romance:../common:../abstract:../prelude
resource SymbolicPor = Symbolic with
(Symbol = SymbolPor),
(Grammar = GrammarPor) ;

4
src/portuguese/SyntaxPor.gf Normal file
View File

@@ -0,0 +1,4 @@
--# -path=.:alltenses
instance SyntaxPor of Syntax =
ConstructorsPor, CatPor, StructuralPor, CombinatorsPor ;

19
src/portuguese/TerminologyPor.gf
View File

@@ -1,3 +1,4 @@
--# -path=.:../abstract:../common
concrete TerminologyPor of Terminology = CatPor ** open
@@ -22,23 +23,23 @@ lincat
lin
noun_Category = mkN "sustantivo" ;
noun_Category = mkN "substantivo" ;
adjective_Category = mkN "adjetivo" ;
verb_Category = mkN "verbo" masculine ;
gender_ParameterType = mkN "género" masculine ;
gender_ParameterType = mkN "gênero" masculine ;
singular_Parameter = mkN "singular" ;
plural_Parameter = mkN "plural" ;
masculine_Parameter = mkN "masculino" ;
feminine_Parameter = mkN "femenino" ;
feminine_Parameter = mkN "feminino" ;
neuter_Parameter = mkN "neutro" ;
nominative_Parameter = mkN "nominativo" ;
genitive_Parameter = mkN "genitivo" ;
dative_Parameter = mkN "dativo" ;
accusative_Parameter = mkN "accusativo" ;
accusative_Parameter = mkN "acusativo" ;
imperative_Parameter = mkN "imperativo" ;
indicative_Parameter = mkN "indicativo" ;
@@ -49,11 +50,11 @@ lin
past_Parameter = mkN "pretérito" ;
future_Parameter = mkN "futuro" ;
conditional_Parameter = mkN "condicional" ;
perfect_Parameter = mkN "perfecto compuesto" ; ----
imperfect_Parameter = mkN "imperfecto" ;
simple_past_Parameter = mkN "perfecto simple" ; ----
perfect_Parameter = mkN "perfeito composto" ; ----
imperfect_Parameter = mkN "imperfeito" ;
simple_past_Parameter = mkN "perfeito simples" ; ----
participle_Parameter = mkN "participio" ;
participle_Parameter = mkN "particípio" ;
aux_verb_Parameter = mkN "auxiliar" ; ----
positive_Parameter = mkN "positivo" ;
@@ -63,6 +64,6 @@ lin
nounHeading n = ss (n.s ! Sg) ;
exampleGr_N = mkN "ejemplo" masculine ;
exampleGr_N = mkN "examplo" masculine ;
}

5
src/portuguese/TextPor.gf
View File

@@ -1,12 +1,11 @@
concrete TextPor of Text = CommonX - [Temp,TTAnt,Tense,TPres,TPast,TFut,TCond] ** open Prelude in {
flags coding=utf8 ;
-- This works for the special punctuation marks of Portuguese.
lin
TEmpty = {s = []} ;
TFullStop x xs = {s = x.s ++ SOFT_BIND ++ "." ++ xs.s} ;
TQuestMark x xs = {s = "¿" ++ SOFT_BIND ++ x.s ++ SOFT_BIND ++ "?" ++ xs.s} ;
TExclMark x xs = {s = "¡" ++ SOFT_BIND ++ x.s ++ SOFT_BIND ++ "!" ++ xs.s} ;
TQuestMark x xs = {s = x.s ++ SOFT_BIND ++ "?" ++ xs.s} ;
TExclMark x xs = {s = x.s ++ SOFT_BIND ++ "!" ++ xs.s} ;
}

3
src/portuguese/TryPor.gf Normal file
View File

@@ -0,0 +1,3 @@
--# -path=.:../spanish:../romance:../common:../abstract:../prelude
resource TryPor = SyntaxPor, LexiconPor, ParadigmsPor - [mkAdv,mkAdN] ;