From 2fa70fdda555cba8d799cecfdb3244cb600ae01c Mon Sep 17 00:00:00 2001 From: aarne Date: Wed, 18 Jun 2014 09:57:17 +0000 Subject: [PATCH] added ConstructionIta --- lib/src/italian/ConstructionIta.gf | 146 ++++++++++++++++++++++++++++ lib/src/italian/LangIta.gf | 3 +- lib/src/italian/ParadigmsIta.gf | 6 +- lib/src/translator/DictionaryFre.gf | 2 +- lib/src/translator/TranslateIta.gf | 2 +- 5 files changed, 154 insertions(+), 5 deletions(-) create mode 100644 lib/src/italian/ConstructionIta.gf diff --git a/lib/src/italian/ConstructionIta.gf b/lib/src/italian/ConstructionIta.gf new file mode 100644 index 000000000..af6176e6a --- /dev/null +++ b/lib/src/italian/ConstructionIta.gf @@ -0,0 +1,146 @@ +--# -path=alltenses:.:../abstract + +concrete ConstructionIta of Construction = CatIta ** + open SyntaxIta, SymbolicIta, ParadigmsIta, + (L = LexiconIta), (E = ExtraIta), (I = IrregIta), (R = ResIta), (C = CommonRomance), + Prelude in { + + +lin + hungry_VP = E.ComplCN have_V2 (mkCN (mkN "fame")) ; + thirsty_VP = E.ComplCN have_V2 (mkCN (mkN "sete")) ; + has_age_VP card = mkVP have_V2 (mkNP L.year_N) ; + + have_name_Cl x y = mkCl x (mkV2 (reflV (mkV "chiamare"))) 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 "sposato") ; + + what_name_QCl x = mkQCl how_IAdv (mkCl (lin NP x) (reflV (mkV "chiamare"))) ; + how_old_QCl x = mkQCl (mkIP how8many_IDet L.year_N) x have_V2 ; + how_far_QCl x = mkQCl how8much_IAdv (mkCl x (mkV "distare")) ; + +-- some more things + weather_adjCl ap = mkCl (mkVP (mkVA I.fare_V) (lin AP ap)) ; + + is_right_VP = E.ComplCN have_V2 (mkCN (mkN "ragione")) ; + is_wrong_VP = mkVP (reflV (mkV "sbagliare")) ; + + n_units_AP card cn a = mkAP (lin AdA (mkUtt (mkNP (lin CN cn)))) (lin A a) ; + + bottle_of_CN np = mkCN (lin N2 (mkN2 (mkN "bottiglia" feminine) part_Prep)) np ; + cup_of_CN np = mkCN (lin N2 (mkN2 (mkN "tazza") part_Prep)) np ; + glass_of_CN np = mkCN (lin N2 (mkN2 (mkN "bicchiere") 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'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 ; + come_from_here_VP = mkVP (mkVP L.come_V) (mkAdv "d'ici") ; + + 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 là") ; +-} + +lincat + Weekday = N ; + Monthday = NP ; + Month = N ; + Year = NP ; +oper + noPrep : Prep = mkPrep [] ; + +lin + weekdayPunctualAdv w = lin Adv {s = w.s ! C.Sg} ; -- lundi + weekdayHabitualAdv w = SyntaxIta.mkAdv noPrep (mkNP the_Det w) ; -- il lunedí ---- + weekdayLastAdv w = SyntaxIta.mkAdv noPrep (mkNP the_Det (mkCN (mkA "scorso") w)) ; -- il lunedí scorso + weekdayNextAdv w = SyntaxIta.mkAdv noPrep (mkNP the_Det (mkCN (mkA "prossimo") w)) ; -- il lunedí prossimo + + monthAdv m = lin Adv {s = "in" ++ m.s ! C.Sg} ; -- in mggio + yearAdv y = SyntaxIta.mkAdv (mkPrep "nel") y ; ---- + dayMonthAdv d m = ParadigmsIta.mkAdv ("il" ++ (d.s ! R.Nom).comp ++ m.s ! C.Sg) ; -- le 17 mai + monthYearAdv m y = lin Adv {s = "in" ++ m.s ! C.Sg ++ (y.s ! R.Nom).comp} ; -- in maggio 2012 + dayMonthYearAdv d m y = ParadigmsIta.mkAdv ("il" ++ (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 ; + +lin InLanguage l = SyntaxIta.mkAdv (mkPrep "in") (mkNP l) ; + +lin + weekdayN w = w ; + + weekdayPN w = mkPN w ; + monthPN m = mkPN m ; + + languagePN l = l ; + +oper mkLanguage : Str -> PN = \s -> mkPN s ; + +---------------------------------------------- +---- lexicon of special names + +lin monday_Weekday = mkN "lunedí" ; +lin tuesday_Weekday = mkN "martedí" ; +lin wednesday_Weekday = mkN "mercoledí" ; +lin thursday_Weekday = mkN "giovedí" ; +lin friday_Weekday = mkN "venerdi" ; +lin saturday_Weekday = mkN "sabato" ; +lin sunday_Weekday = mkN "domenica" ; + +lin january_Month = mkN "gennaio" ; +lin february_Month = mkN "febbraio" ; +lin march_Month = mkN "marzo" ; +lin april_Month = mkN "aprile" ; +lin may_Month = mkN "maggio" ; +lin june_Month = mkN "giugno" ; +lin july_Month = mkN "luglio" ; +lin august_Month = mkN "agosto" ; +lin september_Month = mkN "settembre" ; +lin october_Month = mkN "ottobre" ; +lin november_Month = mkN "novembre" ; +lin december_Month = mkN "dicembre" ; + +lin afrikaans_Language = mkLanguage "afrikaans" ; +lin amharic_Language = mkLanguage "amarico" ; +lin arabic_Language = mkLanguage "arabo" ; +lin bulgarian_Language = mkLanguage "bulgaro" ; +lin catalan_Language = mkLanguage "catalano" ; +lin chinese_Language = mkLanguage "cinese" ; +lin danish_Language = mkLanguage "danese" ; +lin dutch_Language = mkLanguage "olandese" ; +lin english_Language = mkLanguage "inglese" ; +lin estonian_Language = mkLanguage "estone" ; +lin finnish_Language = mkLanguage "finnico" ; +lin french_Language = mkLanguage "francese" ; +lin german_Language = mkLanguage "tedesco" ; +lin greek_Language = mkLanguage "greco" ; +lin hebrew_Language = mkLanguage "ebraico" ; +lin hindi_Language = mkLanguage "hindi" ; +lin japanese_Language = mkLanguage "giapponese" ; +lin italian_Language = mkLanguage "italiano" ; +lin latin_Language = mkLanguage "latino" ; +lin latvian_Language = mkLanguage "lettone" ; +lin maltese_Language = mkLanguage "maltese" ; +lin nepali_Language = mkLanguage "nepali" ; +lin norwegian_Language = mkLanguage "norvegese" ; +lin persian_Language = mkLanguage "perso" ; +lin polish_Language = mkLanguage "polonese" ; +lin punjabi_Language = mkLanguage "punjabi" ; +lin romanian_Language = mkLanguage "rumeno" ; +lin russian_Language = mkLanguage "russo" ; +lin sindhi_Language = mkLanguage "sindhi" ; +lin spanish_Language = mkLanguage "spagnolo" ; +lin swahili_Language = mkLanguage "swahili" ; +lin swedish_Language = mkLanguage "svedese" ; +lin thai_Language = mkLanguage "thai" ; +lin turkish_Language = mkLanguage "turco" ; +lin urdu_Language = mkLanguage "urdu" ; + +} diff --git a/lib/src/italian/LangIta.gf b/lib/src/italian/LangIta.gf index 46720990a..256dff3fb 100644 --- a/lib/src/italian/LangIta.gf +++ b/lib/src/italian/LangIta.gf @@ -1,9 +1,10 @@ ---# -path=.:../romance:../abstract:../common:../prelude +--# -path=.:../romance:../abstract:../common:../api concrete LangIta of Lang = GrammarIta, LexiconIta ,DocumentationIta + ,ConstructionIta ** { flags startcat = Phr ; unlexer = text ; lexer = text ; diff --git a/lib/src/italian/ParadigmsIta.gf b/lib/src/italian/ParadigmsIta.gf index f91b749d8..d8cf135d8 100644 --- a/lib/src/italian/ParadigmsIta.gf +++ b/lib/src/italian/ParadigmsIta.gf @@ -138,7 +138,8 @@ oper mkPN : overload { mkPN : Str -> PN ; -- femininne for "-a", otherwise masculine - mkPN : Str -> Gender -> PN -- set gender manually + mkPN : Str -> Gender -> PN ; -- set gender manually + mkPN : N -> PN ; -- get gender from noun } ; @@ -490,7 +491,8 @@ oper mkPN = overload { mkPN : Str -> PN = regPN ; - mkPN : Str -> Gender -> PN = mk2PN + mkPN : Str -> Gender -> PN = mk2PN ; + mkPN : N -> PN = \n -> lin PN {s = n.s ! Sg ; g = n.g} ; } ; mkA = overload { diff --git a/lib/src/translator/DictionaryFre.gf b/lib/src/translator/DictionaryFre.gf index 2ceaf2e2e..7abaa23c5 100644 --- a/lib/src/translator/DictionaryFre.gf +++ b/lib/src/translator/DictionaryFre.gf @@ -10092,7 +10092,7 @@ lin in8front_Prep = S.in8front_Prep ; lin in_1_Adv = mkAdv "dedans" ; lin in_2_Adv = mkAdv "dedans" ; lin in_Adv = mkAdv "dedans" ; -lin in_Prep = S.in_Prep ; +lin in_Prep = mkPrep "dans" | mkPrep "en" | complDat ; lin inability_N = mkN "incapacité" feminine ; -- tocheck lin inaccuracy_N = mkN "erreur" ; -- tocheck lin inaccurate_A = mkA "imprécis" ; -- tocheck diff --git a/lib/src/translator/TranslateIta.gf b/lib/src/translator/TranslateIta.gf index a0e824eac..cc101666e 100644 --- a/lib/src/translator/TranslateIta.gf +++ b/lib/src/translator/TranslateIta.gf @@ -21,7 +21,7 @@ concrete TranslateIta of Translate = QuestionIta, RelativeIta, IdiomIta, --- ConstructionIta, + ConstructionIta, DocumentationIta, ChunkIta,