GitHub/gf-rgl
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-rgl.git synced 2026-06-30 02:58:35 -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
src/portuguese/ConstructionPor.gf
+78 -79
View File
@@ -1,42 +1,41 @@
--# -path=alltenses:.:../abstract
concrete ConstructionPor of Construction = CatPor **
open SyntaxPor, SymbolicPor, ParadigmsPor,
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
where_go_QCl np = mkQCl where_IAdv (mkCl np (mkVP L.go_V)) ;
where_come_from_QCl np = mkQCl (lin IAdv (ss "de dónde")) (mkCl np (mkVP L.go_V)) ;
go_here_VP = mkVP (mkVP L.go_V) here_Adv ;
come_here_VP = mkVP (mkVP L.come_V) here_Adv ;
come_from_here_VP = mkVP (mkVP L.come_V) (mkAdv "de aquí") ;
@@ -44,7 +43,7 @@ lin
go_there_VP = mkVP (mkVP L.go_V) there_Adv ;
come_there_VP = mkVP (mkVP L.come_V) there_Adv ;
come_from_there_VP = mkVP (mkVP L.come_V) (mkAdv "de allí") ; -- "de allá"
-}
-}
lincat
Weekday = N ;
@@ -57,22 +56,22 @@ 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 ;
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,61 +87,61 @@ 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 saturday_Weekday = mkN "sábado" ;
lin sunday_Weekday = mkN "domingo" ;
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 april_Month = mkN "abril" ;
lin may_Month = mkN "mayo" ;
lin june_Month = mkN "junio" ;
lin july_Month = mkN "julio" ;
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 january_Month = mkN "janeiro" ;
lin february_Month = mkN "fevereiro" ;
lin march_Month = mkN "março" ;
lin april_Month = mkN "abril" ;
lin may_Month = mkN "maio" ;
lin june_Month = mkN "junho" ;
lin july_Month = mkN "julho" ;
lin august_Month = mkN "agosto" ;
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 amharic_Language = mkLanguage "amárico" ;
lin arabic_Language = mkLanguage "árabe" ;
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 hindi_Language = mkLanguage "hindi" ;
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 persian_Language = mkLanguage "persa" ;
lin polish_Language = mkLanguage "polaco" ;
lin punjabi_Language = mkLanguage "punjabi" ;
lin romanian_Language = mkLanguage "rumano" ;
lin russian_Language = mkLanguage "ruso" ;
lin sindhi_Language = mkLanguage "sindhi" ;
lin spanish_Language = mkLanguage "español" | mkLanguage "castellano" ;
lin swahili_Language = mkLanguage "swahili" ;
lin swedish_Language = mkLanguage "sueco" ;
lin thai_Language = mkLanguage "tailandés" ;
lin turkish_Language = mkLanguage "turco" ;
lin urdu_Language = mkLanguage "urdu" ;
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 italian_Language = mkLanguage "italiano" ;
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 "polonês" ;
lin punjabi_Language = mkLanguage "punjabi" ;
lin romanian_Language = mkLanguage "romeno" ;
lin russian_Language = mkLanguage "russo" ;
lin sindhi_Language = mkLanguage "sindhi" ;
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 turkish_Language = mkLanguage "turco" ;
lin urdu_Language = mkLanguage "urdu" ;
}