GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-20 00:22:51 -06:00
Code Issues Packages Projects Releases Wiki 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 --# -path=alltenses:.:../abstract
concrete ConstructionCat of Construction = CatCat ** concrete ConstructionCat of Construction = CatCat **
open SyntaxCat, SymbolicCat, ParadigmsCat, open SyntaxCat, SymbolicCat, ParadigmsCat,
(L = LexiconCat), (E = ExtraCat), (I = IrregCat), (R = ResCat), (C = CommonRomance), (L = LexiconCat), (E = ExtraCat), (I = IrregCat), (R = ResCat), (C = CommonRomance),
Prelude in { Prelude in {
flags coding=utf8 ; flags coding=utf8 ;
lin 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)) ; 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) ; 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" 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 "casat") ; 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"))) ; 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_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 -- 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_right_VP = E.ComplCN have_V2 (mkCN (mkN "razón")) ;
---- is_wrong_VP = mkVP (mkVA I.estar_V) (mkAP (mkA "equivocat")) ; ---- 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) ; 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) bottle_of_CN np = mkCN (lin N2 (mkN2 (mkN "botella" feminine) part_Prep)) np ;
cup_of_CN np = mkCN (lin N2 (mkN2 (mkN "tassa") 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 "got") part_Prep)) np ; glass_of_CN np = mkCN (lin N2 (mkN2 (mkN "copa") part_Prep)) np ;
{- {-
-- spatial deixis and motion verbs -- spatial deixis and motion verbs
where_go_QCl np = mkQCl where_IAdv (mkCl np (mkVP L.go_V)) ; 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 ; go_here_VP = mkVP (mkVP L.go_V) here_Adv ;
come_here_VP = mkVP (mkVP L.come_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 ; go_there_VP = mkVP (mkVP L.go_V) there_Adv ;
come_there_VP = mkVP (mkVP L.come_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 lincat
@@ -57,18 +57,18 @@ oper
lin lin
weekdayPunctualAdv w = lin Adv {s = w.s ! C.Sg} ; -- lundi weekdayPunctualAdv w = lin Adv {s = w.s ! C.Sg} ; -- lundi
weekdayHabitualAdv w = SyntaxCat.mkAdv noPrep (mkNP the_Det w) ; -- il lunedí ---- 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 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 "proper") w)) ; -- il lunedí prossimo 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 monthAdv m = lin Adv {s = "en" ++ m.s ! C.Sg} ; -- in mggio
yearAdv y = SyntaxCat.mkAdv (mkPrep "en") y ; ---- 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 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 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 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 ; intYear = symb ;
intMonthday = symb ; intMonthday = symb ;
lincat Language = PN ; lincat Language = PN ;
@@ -95,9 +95,9 @@ lin friday_Weekday = mkN "divendres" ;
lin saturday_Weekday = mkN "dissabte" ; lin saturday_Weekday = mkN "dissabte" ;
lin sunday_Weekday = mkN "diumenge" ; lin sunday_Weekday = mkN "diumenge" ;
lin january_Month = mkN "gener" ; lin january_Month = mkN "enero" ;
lin february_Month = mkN "febrer" ; lin february_Month = mkN "febrero" ;
lin march_Month = mkN "març" ; lin march_Month = mkN "marzo" ;
lin april_Month = mkN "abril" ; lin april_Month = mkN "abril" ;
lin may_Month = mkN "maig" ; lin may_Month = mkN "maig" ;
lin june_Month = mkN "juny" ; lin june_Month = mkN "juny" ;
@@ -108,40 +108,40 @@ lin october_Month = mkN "octubre" ;
lin november_Month = mkN "novembre" ; lin november_Month = mkN "novembre" ;
lin december_Month = mkN "desembre" ; lin december_Month = mkN "desembre" ;
lin afrikaans_Language = mkLanguage "afrikaans" ; lin afrikaans_Language = mkLanguage "afrikáans" ;
lin amharic_Language = mkLanguage "amhàric" ; lin amharic_Language = mkLanguage "amárico" ;
lin arabic_Language = mkLanguage "àrab" ; lin arabic_Language = mkLanguage "árabe" ;
lin bulgarian_Language = mkLanguage "búlgar" ; lin bulgarian_Language = mkLanguage "búlgaro" ;
lin catalan_Language = mkLanguage "català" ; lin catalan_Language = mkLanguage "catalán" ;
lin chinese_Language = mkLanguage "chino" ; lin chinese_Language = mkLanguage "chino" ;
lin danish_Language = mkLanguage "danès" ; lin danish_Language = mkLanguage "danés" ;
lin dutch_Language = mkLanguage "neerlandès" ; lin dutch_Language = mkLanguage "neerlandés" ;
lin english_Language = mkLanguage "anglès" ; lin english_Language = mkLanguage "inglés" ;
lin estonian_Language = mkLanguage "estonià" ; lin estonian_Language = mkLanguage "estone" ;
lin finnish_Language = mkLanguage "finès" ; lin finnish_Language = mkLanguage "finés" ;
lin french_Language = mkLanguage "francès" ; lin french_Language = mkLanguage "francés" ;
lin german_Language = mkLanguage "alemany" ; lin german_Language = mkLanguage "alemán" ;
lin greek_Language = mkLanguage "grec" ; lin greek_Language = mkLanguage "griego" ;
lin hebrew_Language = mkLanguage "ebreu" ; lin hebrew_Language = mkLanguage "ebreo" ;
lin hindi_Language = mkLanguage "hindi" ; lin hindi_Language = mkLanguage "hindi" ;
lin japanese_Language = mkLanguage "japonès" ; lin japanese_Language = mkLanguage "japonés" ;
lin italian_Language = mkLanguage "italià" ; lin italian_Language = mkLanguage "italiano" ;
lin latin_Language = mkLanguage "llatí" ; lin latin_Language = mkLanguage "latín" ;
lin latvian_Language = mkLanguage "letó" ; lin latvian_Language = mkLanguage "letón" ;
lin maltese_Language = mkLanguage "maltès" ; lin maltese_Language = mkLanguage "maltés" ;
lin nepali_Language = mkLanguage "nepalí" ; lin nepali_Language = mkLanguage "nepalí" ;
lin norwegian_Language = mkLanguage "noruec" ; lin norwegian_Language = mkLanguage "noruego" ;
lin persian_Language = mkLanguage "persa" ; lin persian_Language = mkLanguage "persa" ;
lin polish_Language = mkLanguage "polonès" ; lin polish_Language = mkLanguage "polaco" ;
lin punjabi_Language = mkLanguage "punjabi" ; lin punjabi_Language = mkLanguage "punjabi" ;
lin romanian_Language = mkLanguage "romanès" ; lin romanian_Language = mkLanguage "rumano" ;
lin russian_Language = mkLanguage "rus" ; lin russian_Language = mkLanguage "ruso" ;
lin sindhi_Language = mkLanguage "sindhi" ; lin sindhi_Language = mkLanguage "sindhi" ;
lin spanish_Language = mkLanguage "castellà" ; -- espanyol lin spanish_Language = mkLanguage "español" ;
lin swahili_Language = mkLanguage "swahili" ; lin swahili_Language = mkLanguage "swahili" ;
lin swedish_Language = mkLanguage "suec" ; lin swedish_Language = mkLanguage "sueco" ;
lin thai_Language = mkLanguage "tailandès" ; lin thai_Language = mkLanguage "tailandés" ;
lin turkish_Language = mkLanguage "turc" ; lin turkish_Language = mkLanguage "turco" ;
lin urdu_Language = mkLanguage "urdu" ; lin urdu_Language = mkLanguage "urdu" ;
} }

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

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