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

Catalan constructions and terminology

Browse Source
This commit is contained in:
jordi.saludes
2014-12-03 15:31:03 +00:00
parent 432c9c9f08
commit bdb48c8033
2 changed files with 72 additions and 72 deletions
Download Patch File Download Diff File Expand all files Collapse all files

100
lib/src/catalan/ConstructionCat.gf
View File

@@ -1,41 +1,41 @@
--# -path=alltenses:.:../abstract
concrete ConstructionCat of Construction = CatCat **
open SyntaxCat, SymbolicCat, ParadigmsCat,
concrete ConstructionCat of Construction = CatCat **
open SyntaxCat, SymbolicCat, ParadigmsCat,
(L = LexiconCat), (E = ExtraCat), (I = IrregCat), (R = ResCat), (C = CommonRomance),
Prelude in {
flags coding=utf8 ;
lin
hungry_VP = E.ComplCN have_V2 (mkCN (mkN "gana" feminine)) ; -- "fam" (val)
hungry_VP = E.ComplCN have_V2 (mkCN (mkN "hambre" feminine)) ;
thirsty_VP = E.ComplCN have_V2 (mkCN (mkN "sed" 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 "dir"))) y ; -- was: "llamar"
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 "casat") ;
have_name_Cl x y = mkCl x (mkV2 (reflV (mkV "llamar"))) 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 "dir"))) ;
how_old_QCl x = mkQCl (mkIP how8many_IDet L.year_N) x have_V2 ;
---- how_far_QCl x = mkQCl (lin IAdv (ss "a quina distancia")) (mkCl x I.estar_V) ;
---- how_far_QCl x = mkQCl (lin IAdv (ss "a qué distancia")) (mkCl x I.estar_V) ;
-- some more things
---- weather_adjCl ap = mkCl (mkVP (mkVA I.fer_V) (lin AP ap)) ;
---- weather_adjCl ap = mkCl (mkVP (mkVA I.hacer_V) (lin AP ap)) ;
is_right_VP = E.ComplCN have_V2 (mkCN (mkN "raó")) ;
---- is_wrong_VP = mkVP (mkVA I.estar_V) (mkAP (mkA "equivocat")) ;
is_right_VP = E.ComplCN have_V2 (mkCN (mkN "razón")) ;
---- is_wrong_VP = mkVP (mkVA I.estar_V) (mkAP (mkA "equivocado")) ;
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 "ampolla" feminine) part_Prep)) np ; -- "botella" (val)
cup_of_CN np = mkCN (lin N2 (mkN2 (mkN "tassa") part_Prep)) np ;
glass_of_CN np = mkCN (lin N2 (mkN2 (mkN "got") part_Prep)) np ;
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 "copa") 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 "d'on")) (mkCl np (mkVP L.go_V)) ;
where_come_from_QCl np = mkQCl (lin IAdv (ss "d'où")) (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 ;
@@ -43,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 "d'allà") ;
come_from_there_VP = mkVP (mkVP L.come_V) (mkAdv "de là") ;
-}
lincat
@@ -57,18 +57,18 @@ oper
lin
weekdayPunctualAdv w = lin Adv {s = w.s ! C.Sg} ; -- lundi
weekdayHabitualAdv w = SyntaxCat.mkAdv noPrep (mkNP the_Det w) ; -- il lunedí ----
weekdayLastAdv w = SyntaxCat.mkAdv noPrep (mkNP the_Det (mkCN (mkA "pasat") w)) ; -- il lunedí scorso
weekdayNextAdv w = SyntaxCat.mkAdv noPrep (mkNP the_Det (mkCN (mkA "proper") w)) ; -- il lunedí prossimo
weekdayLastAdv w = SyntaxCat.mkAdv noPrep (mkNP the_Det (mkCN (mkA "pasado") w)) ; -- il lunedí scorso
weekdayNextAdv w = SyntaxCat.mkAdv noPrep (mkNP the_Det (mkCN (mkA "próximo") w)) ; -- il lunedí prossimo
monthAdv m = lin Adv {s = "en" ++ m.s ! C.Sg} ; -- in mggio
yearAdv y = SyntaxCat.mkAdv (mkPrep "en") y ; ----
dayMonthAdv d m = ParadigmsCat.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
yearAdv y = SyntaxCat.mkAdv (mkPrep "el") y ; ----
dayMonthAdv d m = ParadigmsCat.mkAdv ("el" ++ (d.s ! R.Nom).comp ++ m.s ! C.Sg) ; -- le 17 mai
monthYearAdv m y = lin Adv {s = "el" ++ m.s ! C.Sg ++ (y.s ! R.Nom).comp} ; -- in maggio 2012
dayMonthYearAdv d m y = ParadigmsCat.mkAdv ("el" ++ (d.s ! R.Nom).comp ++ m.s ! C.Sg ++ (y.s ! R.Nom).comp) ; -- il 17 maggio 2013
intYear = symb ;
intMonthday = symb ;
lincat Language = PN ;
@@ -95,9 +95,9 @@ lin friday_Weekday = mkN "divendres" ;
lin saturday_Weekday = mkN "dissabte" ;
lin sunday_Weekday = mkN "diumenge" ;
lin january_Month = mkN "gener" ;
lin february_Month = mkN "febrer" ;
lin march_Month = mkN "març" ;
lin january_Month = mkN "enero" ;
lin february_Month = mkN "febrero" ;
lin march_Month = mkN "marzo" ;
lin april_Month = mkN "abril" ;
lin may_Month = mkN "maig" ;
lin june_Month = mkN "juny" ;
@@ -108,40 +108,40 @@ lin october_Month = mkN "octubre" ;
lin november_Month = mkN "novembre" ;
lin december_Month = mkN "desembre" ;
lin afrikaans_Language = mkLanguage "afrikaans" ;
lin amharic_Language = mkLanguage "amhàric" ;
lin arabic_Language = mkLanguage "àrab" ;
lin bulgarian_Language = mkLanguage "búlgar" ;
lin catalan_Language = mkLanguage "català" ;
lin afrikaans_Language = mkLanguage "afrikáans" ;
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 "anglès" ;
lin estonian_Language = mkLanguage "estonià" ;
lin finnish_Language = mkLanguage "finès" ;
lin french_Language = mkLanguage "francès" ;
lin german_Language = mkLanguage "alemany" ;
lin greek_Language = mkLanguage "grec" ;
lin hebrew_Language = mkLanguage "ebreu" ;
lin danish_Language = mkLanguage "danés" ;
lin dutch_Language = mkLanguage "neerlandés" ;
lin english_Language = mkLanguage "inglés" ;
lin estonian_Language = mkLanguage "estone" ;
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 "italià" ;
lin latin_Language = mkLanguage "llatí" ;
lin latvian_Language = mkLanguage "letó" ;
lin maltese_Language = mkLanguage "maltè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 "noruec" ;
lin norwegian_Language = mkLanguage "noruego" ;
lin persian_Language = mkLanguage "persa" ;
lin polish_Language = mkLanguage "polonès" ;
lin polish_Language = mkLanguage "polaco" ;
lin punjabi_Language = mkLanguage "punjabi" ;
lin romanian_Language = mkLanguage "romanès" ;
lin russian_Language = mkLanguage "rus" ;
lin romanian_Language = mkLanguage "rumano" ;
lin russian_Language = mkLanguage "ruso" ;
lin sindhi_Language = mkLanguage "sindhi" ;
lin spanish_Language = mkLanguage "castellà" ; -- espanyol
lin spanish_Language = mkLanguage "español" ;
lin swahili_Language = mkLanguage "swahili" ;
lin swedish_Language = mkLanguage "suec" ;
lin thai_Language = mkLanguage "tailandès" ;
lin turkish_Language = mkLanguage "turc" ;
lin swedish_Language = mkLanguage "sueco" ;
lin thai_Language = mkLanguage "tailandés" ;
lin turkish_Language = mkLanguage "turco" ;
lin urdu_Language = mkLanguage "urdu" ;
}

44
lib/src/catalan/TerminologyCat.gf
View File

@@ -1,6 +1,6 @@
--# -path=.:../abstract:../common
concrete TerminologyCat of Terminology = CatCat ** open
concrete TerminologyCat of Terminology = CatCat ** open
ResCat,
CommonRomance,
ParadigmsCat,
@@ -17,16 +17,16 @@ lincat
Category = G.N ;
ParameterType = G.N ;
Parameter = G.N ;
Heading = {s : Str} ;
lin
noun_Category = mkN "substantiu" ;
adjective_Category = mkN "adjectiu" ;
verb_Category = mkN "verb" masculine ;
gender_ParameterType = mkN "género" masculine ;
gender_ParameterType = mkN "gènere" masculine ;
singular_Parameter = mkN "singular" ;
plural_Parameter = mkN "plural" ;
@@ -35,31 +35,31 @@ lin
feminine_Parameter = mkN "femení" ;
neuter_Parameter = mkN "neutre" ;
nominative_Parameter = mkN "nominatiu" ;
genitive_Parameter = mkN "genitiu" ;
dative_Parameter = mkN "datiu" ;
accusative_Parameter = mkN "accusatiu" ;
nominative_Parameter = mkN "nominativo" ;
genitive_Parameter = mkN "genitivo" ;
dative_Parameter = mkN "dativo" ;
accusative_Parameter = mkN "accusativo" ;
imperative_Parameter = mkN "imperatiu" ;
indicative_Parameter = mkN "indicatiu" ;
conjunctive_Parameter = mkN "subjuntiu" ;
infinitive_Parameter = mkN "infinitiu" ;
imperative_Parameter = mkN "imperativo" ;
indicative_Parameter = mkN "indicativo" ;
conjunctive_Parameter = mkN "subjuntivo" ;
infinitive_Parameter = mkN "infinitivo" ;
present_Parameter = mkN "present" ;
past_Parameter = mkN "pretèrit" ;
future_Parameter = mkN "futur" ;
present_Parameter = mkN "presente" ;
past_Parameter = mkN "pretérito" ;
future_Parameter = mkN "futuro" ;
conditional_Parameter = mkN "condicional" ;
perfect_Parameter = mkN "perfecte compost" ; ----
imperfect_Parameter = mkN "imperfect" ;
simple_past_Parameter = mkN "perfecte simple" ; ----
perfect_Parameter = mkN "perfecto compuesto" ; ----
imperfect_Parameter = mkN "imperfecto" ;
simple_past_Parameter = mkN "perfecto simple" ; ----
participle_Parameter = mkN "participi" ;
aux_verb_Parameter = mkN "auxiliar" ; ----
positive_Parameter = mkN "positiu" ;
comparative_Parameter = mkN "comparatiu" ;
superlative_Parameter = mkN "superlatiu" ;
predicative_Parameter = mkN "predicatiu" ;
positive_Parameter = mkN "positivo" ;
comparative_Parameter = mkN "comparativo" ;
superlative_Parameter = mkN "superlativo" ;
predicative_Parameter = mkN "predicativo" ;
nounHeading n = ss (n.s ! Sg) ;