diff --git a/lib/src/abstract/Construction.gf b/lib/src/abstract/Construction.gf index cbbb0bd10..731b87490 100644 --- a/lib/src/abstract/Construction.gf +++ b/lib/src/abstract/Construction.gf @@ -79,9 +79,12 @@ fun intYear : Int -> Year ; intMonthday : Int -> Monthday ; - monday_Weekday, tuesday_Weekday, wednesday_Weekday, thursday_Weekday, friday_Weekday, saturday_Weekday, sunday_Weekday : Weekday ; - january_Month, february_Month, march_Month, april_Month, may_Month, june_Month, july_Month : Month ; - august_Month, september_Month, october_Month, november_Month, december_Month : Month ; +-- languages + +cat + Language ; +fun + InLanguage : Language -> Adv ; } diff --git a/lib/src/chinese/ConstructionChi.gf b/lib/src/chinese/ConstructionChi.gf index 404a51f05..d7df99ce6 100644 --- a/lib/src/chinese/ConstructionChi.gf +++ b/lib/src/chinese/ConstructionChi.gf @@ -44,25 +44,9 @@ lin intYear i = lin NP i ; intMonthday i = lin NP i ; - monday_Weekday = mkN "星期一" ; - tuesday_Weekday = mkN "星期二" ; - wednesday_Weekday = mkN "星期三" ; - thursday_Weekday = mkN "星期四" ; - friday_Weekday = mkN "星期五" ; - saturday_Weekday = mkN "星期六" ; - sunday_Weekday = mkN "星期日" ; +lincat Language = PN ; + +lin InLanguage l = SyntaxChi.mkAdv (mkPrep "在") (mkNP l) ; - january_Month = mkN "一月" ; - february_Month = mkN "二月" ; - march_Month = mkN "三月" ; - april_Month = mkN "四月" ; - may_Month = mkN "五月" ; - june_Month = mkN "六月" ; - july_Month = mkN "七月" ; - august_Month = mkN "八月t" ; - september_Month = mkN "九月" ; - october_Month = mkN "十月" ; - november_Month = mkN "十一月" ; - december_Month = mkN "十二月" ; } diff --git a/lib/src/english/ConstructionEng.gf b/lib/src/english/ConstructionEng.gf index d749b5627..ec47af8d0 100644 --- a/lib/src/english/ConstructionEng.gf +++ b/lib/src/english/ConstructionEng.gf @@ -64,25 +64,9 @@ lin intYear = symb ; intMonthday = symb ; - monday_Weekday = mkN "Monday" ; - tuesday_Weekday = mkN "Tuesday" ; - wednesday_Weekday = mkN "Wednesday" ; - thursday_Weekday = mkN "Thursday" ; - friday_Weekday = mkN "Friday" ; - saturday_Weekday = mkN "Saturday" ; - sunday_Weekday = mkN "Sunday" ; +lincat Language = PN ; + +lin InLanguage l = SyntaxEng.mkAdv in_Prep (mkNP l) ; - january_Month = mkN "January" ; - february_Month = mkN "February" ; - march_Month = mkN "March" ; - april_Month = mkN "April" ; - may_Month = mkN "May" ; - june_Month = mkN "June" ; - july_Month = mkN "July" ; - august_Month = mkN "August" ; - september_Month = mkN "September" ; - october_Month = mkN "October" ; - november_Month = mkN "November" ; - december_Month = mkN "December" ; } diff --git a/lib/src/finnish/ConstructionFin.gf b/lib/src/finnish/ConstructionFin.gf index 8a807246e..6b325953f 100644 --- a/lib/src/finnish/ConstructionFin.gf +++ b/lib/src/finnish/ConstructionFin.gf @@ -44,13 +44,6 @@ lincat Month = N ; Year = NP ; lin - monday_Weekday = mkWeekday "maanantai" ; - tuesday_Weekday = mkWeekday "tiistai" ; - wednesday_Weekday = mkWeekday "keskiviikko" ; - thursday_Weekday = mkWeekday "torstai" ; - friday_Weekday = mkWeekday "perjantai" ; - saturday_Weekday = mkWeekday"lauantai" ; - sunday_Weekday = mkWeekday "sunnuntai" ; weekdayPunctualAdv w = lin Adv {s = pointWeekday w} ; weekdayHabitualAdv w = w.habitual ; @@ -66,31 +59,14 @@ lin intYear = symb ; intMonthday = symb ; - - january_Month = mkN "tammikuu" ; - february_Month = mkN "helmikuu" ; - march_Month = mkN "maaliskuu" ; - april_Month = mkN "huhtikuu" ; - may_Month = mkN "toukokuu" ; - june_Month = mkN "kesäkuu" ; - july_Month = mkN "heinäkuu" ; - august_Month = mkN "elokuu" ; - september_Month = mkN "syyskuu" ; - october_Month = mkN "lokakuu" ; - november_Month = mkN "marraskuu" ; - december_Month = mkN "joulukuu" ; oper - - mkWeekday : Str -> Weekday = \d -> - lin Weekday { - noun = mkN d ; - habitual = case d of { - _ + "i" => ParadigmsFin.mkAdv (d + "sin") ; -- tiistaisin - _ => ParadigmsFin.mkAdv (d + "isin") -- keskiviikkoisin - } - } ; - pointWeekday : Weekday -> Str = \w -> (SyntaxFin.mkAdv (casePrep essive) (mkNP w.noun)).s ; +lincat Language = PN ; + +lin InLanguage l = SyntaxFin.mkAdv (mkPrep translative) (mkNP l) ; + + + } diff --git a/lib/src/french/ConstructionFre.gf b/lib/src/french/ConstructionFre.gf index 44e491502..a02e282bf 100644 --- a/lib/src/french/ConstructionFre.gf +++ b/lib/src/french/ConstructionFre.gf @@ -53,14 +53,6 @@ oper noPrep : Prep = mkPrep [] ; lin - monday_Weekday = mkN "lundi" ; - tuesday_Weekday = mkN "mardi" ; - wednesday_Weekday = mkN "mercredi" ; - thursday_Weekday = mkN "jeudi" ; - friday_Weekday = mkN "vendredi" ; - saturday_Weekday = mkN "samedi" ; - sunday_Weekday = mkN "dimanche" masculine ; - weekdayPunctualAdv w = lin Adv {s = w.s ! C.Sg} ; -- lundi weekdayHabitualAdv w = SyntaxFre.mkAdv noPrep (mkNP the_Det w) ; -- le lundi weekdayLastAdv w = SyntaxFre.mkAdv noPrep (mkNP the_Det (mkCN (mkA "dernier") w)) ; -- le lundi dernier @@ -75,17 +67,10 @@ lin intYear = symb ; intMonthday = symb ; - january_Month = mkN "janvier" ; - february_Month = mkN "février" ; - march_Month = mkN "mars" ; - april_Month = mkN "avril" ; - may_Month = mkN "mai" ; - june_Month = mkN "juin" ; - july_Month = mkN "juillet" ; - august_Month = mkN "août" ; - september_Month = mkN "septembre" ; - october_Month = mkN "octobre" ; - november_Month = mkN "novembre" ; - december_Month = mkN "décembre" ; + +lincat Language = PN ; + +lin InLanguage l = SyntaxFre.mkAdv (mkPrep "en") (mkNP l) ; + } diff --git a/lib/src/german/ConstructionGer.gf b/lib/src/german/ConstructionGer.gf index ba4afde35..f93bec621 100644 --- a/lib/src/german/ConstructionGer.gf +++ b/lib/src/german/ConstructionGer.gf @@ -49,14 +49,6 @@ lincat Month = N ; Year = NP ; lin - monday_Weekday = mkN "Montag" ; - tuesday_Weekday = mkN "Dienstag" ; - wednesday_Weekday = mkN "Mittwoch" ; - thursday_Weekday = mkN "Donnerstag" ; - friday_Weekday = mkN "Freitag" ; - saturday_Weekday = mkN "Samstag" ; - sunday_Weekday = mkN "Sonntag" ; - weekdayPunctualAdv w = SyntaxGer.mkAdv anDat_Prep (mkNP the_Det w) ; -- am Montag weekdayHabitualAdv w = SyntaxGer.mkAdv (mkPrep "" accusative) (mkNP every_Det w) ; ---- jeden Montag weekdayLastAdv w = SyntaxGer.mkAdv (mkPrep "am letzten" dative) (mkNP w) ; -- letzten Montag ---- @@ -70,18 +62,9 @@ lin intYear = symb ; intMonthday = symb ; + +lincat Language = PN ; + +lin InLanguage l = SyntaxGer.mkAdv on_Prep (mkNP l) ; - january_Month = mkN "Januar" ; - february_Month = mkN "Februar" ; - march_Month = mkN "März" ; - april_Month = mkN "April" ; - may_Month = mkN "Mai" ; - june_Month = mkN "Juni" ; - july_Month = mkN "Juli" ; - august_Month = mkN "August" ; - september_Month = mkN "September" ; - october_Month = mkN "Oktober" ; - november_Month = mkN "November" ; - december_Month = mkN "Dezember" ; - } diff --git a/lib/src/swedish/ConstructionSwe.gf b/lib/src/swedish/ConstructionSwe.gf index 51b29e681..e45f626fe 100644 --- a/lib/src/swedish/ConstructionSwe.gf +++ b/lib/src/swedish/ConstructionSwe.gf @@ -48,14 +48,6 @@ lincat Month = N ; Year = NP ; lin - monday_Weekday = mkN "måndag" ; - tuesday_Weekday = mkN "tisdag" ; - wednesday_Weekday = mkN "onsdag" ; - thursday_Weekday = mkN "torsdag" ; - friday_Weekday = mkN "fredag" ; - saturday_Weekday = mkN "lördag" ; - sunday_Weekday = mkN "söndag" ; - weekdayPunctualAdv w = SyntaxSwe.mkAdv on_Prep (mkNP w) ; -- på söndag weekdayHabitualAdv w = SyntaxSwe.mkAdv on_Prep (mkNP aPl_Det w) ; -- på söndagar weekdayLastAdv w = SyntaxSwe.mkAdv in_Prep (mkNP (E.GenNP (mkNP w))) ; -- i söndags @@ -70,17 +62,10 @@ lin intYear = symb ; intMonthday = symb ; - january_Month = mkN "januari" ; - february_Month = mkN "februari" ; - march_Month = mkN "mars" ; - april_Month = mkN "april" ; - may_Month = mkN "maj" ; - june_Month = mkN "juni" ; - july_Month = mkN "juli" ; - august_Month = mkN "augusti" ; - september_Month = mkN "september" ; - october_Month = mkN "oktober" ; - november_Month = mkN "november" ; - december_Month = mkN "december" ; + +lincat Language = PN ; + +lin InLanguage l = SyntaxSwe.mkAdv on_Prep (mkNP l) ; + } diff --git a/lib/src/translator/Names.gf b/lib/src/translator/Names.gf new file mode 100644 index 000000000..b93007639 --- /dev/null +++ b/lib/src/translator/Names.gf @@ -0,0 +1,61 @@ +abstract Names = Construction ** { + +fun monday_Weekday : Weekday ; +fun tuesday_Weekday : Weekday ; +fun wednesday_Weekday : Weekday ; +fun thursday_Weekday : Weekday ; +fun friday_Weekday : Weekday ; +fun saturday_Weekday : Weekday ; +fun sunday_Weekday : Weekday ; + +fun january_Month : Month ; +fun february_Month : Month ; +fun march_Month : Month ; +fun april_Month : Month ; +fun may_Month : Month ; +fun june_Month : Month ; +fun july_Month : Month ; +fun august_Month : Month ; +fun september_Month : Month ; +fun october_Month : Month ; +fun november_Month : Month ; +fun december_Month : Month ; + + +fun afrikaans_Language : Language ; +fun amharic_Language : Language ; +fun arabic_Language : Language ; +fun bulgarian_Language : Language ; +fun catalan_Language : Language ; +fun chinese_Language : Language ; +fun danish_Language : Language ; +fun dutch_Language : Language ; +fun english_Language : Language ; +fun estonian_Language : Language ; +fun finnish_Language : Language ; +fun french_Language : Language ; +fun german_Language : Language ; +fun greek_Language : Language ; +fun hebrew_Language : Language ; +fun hindi_Language : Language ; +fun japanese_Language : Language ; +fun italian_Language : Language ; +fun latin_Language : Language ; +fun latvian_Language : Language ; +fun maltese_Language : Language ; +fun nepali_Language : Language ; +fun norwegian_Language : Language ; +fun persian_Language : Language ; +fun polish_Language : Language ; +fun punjabi_Language : Language ; +fun romanian_Language : Language ; +fun russian_Language : Language ; +fun sindhi_Language : Language ; +fun spanish_Language : Language ; +fun swahili_Language : Language ; +fun swedish_Language : Language ; +fun thai_Language : Language ; +fun turkish_Language : Language ; +fun urdu_Language : Language ; + +} \ No newline at end of file diff --git a/lib/src/translator/NamesChi.gf b/lib/src/translator/NamesChi.gf new file mode 100644 index 000000000..611080811 --- /dev/null +++ b/lib/src/translator/NamesChi.gf @@ -0,0 +1,64 @@ +concrete NamesChi of Names = ConstructionChi ** + + open ParadigmsChi in { + +oper mkLanguage : Str -> PN = \s -> mkPN s ; + +lin monday_Weekday = mkN "星期一" ; +lin tuesday_Weekday = mkN "星期二" ; +lin wednesday_Weekday = mkN "星期三" ; +lin thursday_Weekday = mkN "星期四" ; +lin friday_Weekday = mkN "星期五" ; +lin saturday_Weekday = mkN "星期六" ; +lin sunday_Weekday = mkN "星期日" ; + +lin january_Month = mkN "一月" ; +lin february_Month = mkN "二月" ; +lin march_Month = mkN "三月" ; +lin april_Month = mkN "四月" ; +lin may_Month = mkN "五月" ; +lin june_Month = mkN "六月" ; +lin july_Month = mkN "七月" ; +lin august_Month = mkN "八月t" ; +lin september_Month = mkN "九月" ; +lin october_Month = mkN "十月" ; +lin november_Month = mkN "十一月" ; +lin december_Month = mkN "十二月" ; + +lin afrikaans_Language = mkLanguage "南非語" ; +lin amharic_Language = mkLanguage "阿姆哈拉语" ; +lin arabic_Language = mkLanguage "阿拉伯语" ; +lin bulgarian_Language = mkLanguage "保加利亚语" ; +--lin catalan_Language = mkLanguage "Catalan" ; +lin chinese_Language = mkLanguage "中文" ; +--lin danish_Language = mkLanguage "Danish" ; +lin dutch_Language = mkLanguage "荷蘭語" ; +lin english_Language = mkLanguage "英语" ; +--lin estonian_Language = mkLanguage "Estonian" ; +lin finnish_Language = mkLanguage "芬兰语" ; +lin french_Language = mkLanguage "法语" ; +lin german_Language = mkLanguage "德语" ; +--lin greek_Language = mkLanguage "Greek" ; +--lin hebrew_Language = mkLanguage "Hebrew" ; +lin hindi_Language = mkLanguage "印地语" ; +lin japanese_Language = mkLanguage "日语" ; +lin italian_Language = mkLanguage "意大利语" ; +--lin latin_Language = mkLanguage "Latin" ; +--lin latvian_Language = mkLanguage "Latvian" ; +--lin maltese_Language = mkLanguage "Maltese" ; +--lin nepali_Language = mkLanguage "Nepali" ; +--lin norwegian_Language = mkLanguage "Norwegian" ; +--lin persian_Language = mkLanguage "Persian" ; +--lin polish_Language = mkLanguage "Polish" ; +--lin punjabi_Language = mkLanguage "Punjabi" ; +--lin romanian_Language = mkLanguage "罗马尼亚" ; +lin russian_Language = mkLanguage "俄语" ; +--lin sindhi_Language = mkLanguage "Sindhi" ; +lin spanish_Language = mkLanguage "西班牙语" ; +--lin swahili_Language = mkLanguage "Swahili" ; +lin swedish_Language = mkLanguage "瑞典文" ; +--lin thai_Language = mkLanguage "Thai" ; +--lin turkish_Language = mkLanguage "Turkish" ; +--lin urdu_Language = mkLanguage "Urdu" ; + +} \ No newline at end of file diff --git a/lib/src/translator/NamesEng.gf b/lib/src/translator/NamesEng.gf new file mode 100644 index 000000000..74109f1a5 --- /dev/null +++ b/lib/src/translator/NamesEng.gf @@ -0,0 +1,65 @@ +concrete NamesEng of Names = ConstructionEng ** + + open ParadigmsEng in { + +lin monday_Weekday = mkN "Monday" ; +lin tuesday_Weekday = mkN "Tuesday" ; +lin wednesday_Weekday = mkN "Wednesday" ; +lin thursday_Weekday = mkN "Thursday" ; +lin friday_Weekday = mkN "Friday" ; +lin saturday_Weekday = mkN "Saturday" ; +lin sunday_Weekday = mkN "Sunday" ; + +lin january_Month = mkN "January" ; +lin february_Month = mkN "February" ; +lin march_Month = mkN "March" ; +lin april_Month = mkN "April" ; +lin may_Month = mkN "May" ; +lin june_Month = mkN "June" ; +lin july_Month = mkN "July" ; +lin august_Month = mkN "August" ; +lin september_Month = mkN "September" ; +lin october_Month = mkN "October" ; +lin november_Month = mkN "November" ; +lin december_Month = mkN "December" ; + + +oper mkLanguage : Str -> PN = \s -> mkPN s ; + +lin afrikaans_Language = mkLanguage "Afrikaans" ; +lin amharic_Language = mkLanguage "Amharic" ; +lin arabic_Language = mkLanguage "Arabic" ; +lin bulgarian_Language = mkLanguage "Bulgarian" ; +lin catalan_Language = mkLanguage "Catalan" ; +lin chinese_Language = mkLanguage "Chinese" ; +lin danish_Language = mkLanguage "Danish" ; +lin dutch_Language = mkLanguage "Dutch" ; +lin english_Language = mkLanguage "English" ; +lin estonian_Language = mkLanguage "Estonian" ; +lin finnish_Language = mkLanguage "Finnish" ; +lin french_Language = mkLanguage "French" ; +lin german_Language = mkLanguage "German" ; +lin greek_Language = mkLanguage "Greek" ; +lin hebrew_Language = mkLanguage "Hebrew" ; +lin hindi_Language = mkLanguage "Hindi" ; +lin japanese_Language = mkLanguage "Japanese" ; +lin italian_Language = mkLanguage "Italian" ; +lin latin_Language = mkLanguage "Latin" ; +lin latvian_Language = mkLanguage "Latvian" ; +lin maltese_Language = mkLanguage "Maltese" ; +lin nepali_Language = mkLanguage "Nepali" ; +lin norwegian_Language = mkLanguage "Norwegian" ; +lin persian_Language = mkLanguage "Persian" ; +lin polish_Language = mkLanguage "Polish" ; +lin punjabi_Language = mkLanguage "Punjabi" ; +lin romanian_Language = mkLanguage "Romanian" ; +lin russian_Language = mkLanguage "Russian" ; +lin sindhi_Language = mkLanguage "Sindhi" ; +lin spanish_Language = mkLanguage "Spanish" ; +lin swahili_Language = mkLanguage "Swahili" ; +lin swedish_Language = mkLanguage "Swedish" ; +lin thai_Language = mkLanguage "Thai" ; +lin turkish_Language = mkLanguage "Turkish" ; +lin urdu_Language = mkLanguage "Urdu" ; + +} \ No newline at end of file diff --git a/lib/src/translator/NamesFin.gf b/lib/src/translator/NamesFin.gf new file mode 100644 index 000000000..eeebc24da --- /dev/null +++ b/lib/src/translator/NamesFin.gf @@ -0,0 +1,76 @@ +--# -path=.:../chunk:../finnish/stemmed:../finnish:../api + +concrete NamesFin of Names = ConstructionFin ** + + open ParadigmsFin in { + +oper mkLanguage : Str -> PN = \s -> mkPN s ; + +oper mkWeekday : Str -> Weekday = \d -> + lin Weekday { + noun = mkN d ; + habitual = case d of { + _ + "i" => ParadigmsFin.mkAdv (d + "sin") ; -- tiistaisin + _ => ParadigmsFin.mkAdv (d + "isin") -- keskiviikkoisin + } + } ; + + +lin monday_Weekday = mkWeekday "maanantai" ; +lin tuesday_Weekday = mkWeekday "tiistai" ; +lin wednesday_Weekday = mkWeekday "keskiviikko" ; +lin thursday_Weekday = mkWeekday "torstai" ; +lin friday_Weekday = mkWeekday "perjantai" ; +lin saturday_Weekday = mkWeekday"lauantai" ; +lin sunday_Weekday = mkWeekday "sunnuntai" ; + +lin january_Month = mkN "tammikuu" ; +lin february_Month = mkN "helmikuu" ; +lin march_Month = mkN "maaliskuu" ; +lin april_Month = mkN "huhtikuu" ; +lin may_Month = mkN "toukokuu" ; +lin june_Month = mkN "kesäkuu" ; +lin july_Month = mkN "heinäkuu" ; +lin august_Month = mkN "elokuu" ; +lin september_Month = mkN "syyskuu" ; +lin october_Month = mkN "lokakuu" ; +lin november_Month = mkN "marraskuu" ; +lin december_Month = mkN "joulukuu" ; + +lin afrikaans_Language = mkLanguage "afrikaans" ; +lin amharic_Language = mkLanguage "amhara" ; +lin arabic_Language = mkLanguage "arabia" ; +lin bulgarian_Language = mkLanguage "bulgaria" ; +lin catalan_Language = mkLanguage "katalaani" ; +lin chinese_Language = mkLanguage "kiina" ; +lin danish_Language = mkLanguage "tanska" ; +lin dutch_Language = mkLanguage "hollanti" ; +lin english_Language = mkLanguage "englanti" ; +lin estonian_Language = mkLanguage "viro" ; +lin finnish_Language = mkPN (mkN "suomi" "suomia") ; +lin french_Language = mkLanguage "ranska" ; +lin german_Language = mkLanguage "saksa" ; +lin greek_Language = mkLanguage "kreikka" ; +lin hebrew_Language = mkLanguage "heprea" ; +lin hindi_Language = mkLanguage "hindi" ; +lin japanese_Language = mkLanguage "japani" ; +lin italian_Language = mkLanguage "italia" ; +lin latin_Language = mkLanguage "latina" ; +lin latvian_Language = mkLanguage "latvia" ; +lin maltese_Language = mkLanguage "malta" ; +lin nepali_Language = mkLanguage "nepali" ; +lin norwegian_Language = mkLanguage "norja" ; +lin persian_Language = mkLanguage "persia" ; +lin polish_Language = mkLanguage "puola" ; +lin punjabi_Language = mkLanguage "punjabi" ; +lin romanian_Language = mkLanguage "romania" ; +lin russian_Language = mkLanguage "venäjä" ; +lin sindhi_Language = mkLanguage "sindhi" ; +lin spanish_Language = mkLanguage "espanja" ; +lin swahili_Language = mkLanguage "swahili" ; +lin swedish_Language = mkLanguage "ruotsi" ; +lin thai_Language = mkLanguage "thai" ; +lin turkish_Language = mkLanguage "turkki" ; +lin urdu_Language = mkLanguage "urdu" ; + +} \ No newline at end of file diff --git a/lib/src/translator/NamesFre.gf b/lib/src/translator/NamesFre.gf new file mode 100644 index 000000000..9a858de4f --- /dev/null +++ b/lib/src/translator/NamesFre.gf @@ -0,0 +1,66 @@ +concrete NamesFre of Names = ConstructionFre ** + + open ParadigmsFre in { + +oper mkLanguage : Str -> PN = \s -> mkPN s ; + +lin monday_Weekday = mkN "lundi" ; +lin tuesday_Weekday = mkN "mardi" ; +lin wednesday_Weekday = mkN "mercredi" ; +lin thursday_Weekday = mkN "jeudi" ; +lin friday_Weekday = mkN "vendredi" ; +lin saturday_Weekday = mkN "samedi" ; +lin sunday_Weekday = mkN "dimanche" masculine ; + +lin january_Month = mkN "janvier" ; +lin february_Month = mkN "février" ; +lin march_Month = mkN "mars" ; +lin april_Month = mkN "avril" ; +lin may_Month = mkN "mai" ; +lin june_Month = mkN "juin" ; +lin july_Month = mkN "juillet" ; +lin august_Month = mkN "août" ; +lin september_Month = mkN "septembre" ; +lin october_Month = mkN "octobre" ; +lin november_Month = mkN "novembre" ; +lin december_Month = mkN "décembre" ; + + + +lin afrikaans_Language = mkLanguage "afrikaans" ; +lin amharic_Language = mkLanguage "amharique" ; ---- +lin arabic_Language = mkLanguage "arabe" ; +lin bulgarian_Language = mkLanguage "bulgare" ; +lin catalan_Language = mkLanguage "catalan" ; +lin chinese_Language = mkLanguage "chinois" ; +lin danish_Language = mkLanguage "danois" ; +lin dutch_Language = mkLanguage "hollandais" ; +lin english_Language = mkLanguage "anglais" ; +lin estonian_Language = mkLanguage "estonien" ; +lin finnish_Language = mkLanguage "finnois" ; +lin french_Language = mkLanguage "francais" ; +lin german_Language = mkLanguage "allemand" ; +lin greek_Language = mkLanguage "grècque" ; +lin hebrew_Language = mkLanguage "hebreu" ; +lin hindi_Language = mkLanguage "hindi" ; +lin japanese_Language = mkLanguage "japonais" ; +lin italian_Language = mkLanguage "italien" ; +lin latin_Language = mkLanguage "latin" ; +lin latvian_Language = mkLanguage "letton" ; +lin maltese_Language = mkLanguage "maltais" ; +lin nepali_Language = mkLanguage "nepali" ; +lin norwegian_Language = mkLanguage "norvégien" ; +lin persian_Language = mkLanguage "persien" ; +lin polish_Language = mkLanguage "polonais" ; +lin punjabi_Language = mkLanguage "punjabi" ; +lin romanian_Language = mkLanguage "roumain" ; +lin russian_Language = mkLanguage "russe" ; +lin sindhi_Language = mkLanguage "sindhi" ; +lin spanish_Language = mkLanguage "espagnol" ; +lin swahili_Language = mkLanguage "swahili" ; +lin swedish_Language = mkLanguage "suédois" ; +lin thai_Language = mkLanguage "thaï" ; +lin turkish_Language = mkLanguage "turque" ; +lin urdu_Language = mkLanguage "urdu" ; + +} \ No newline at end of file diff --git a/lib/src/translator/NamesGer.gf b/lib/src/translator/NamesGer.gf new file mode 100644 index 000000000..0a547fd8a --- /dev/null +++ b/lib/src/translator/NamesGer.gf @@ -0,0 +1,66 @@ +concrete NamesGer of Names = ConstructionGer ** + + open ParadigmsGer in { + +oper mkLanguage : Str -> PN = \s -> mkPN s ; + +lin monday_Weekday = mkN "Montag" ; +lin tuesday_Weekday = mkN "Dienstag" ; +lin wednesday_Weekday = mkN "Mittwoch" ; +lin thursday_Weekday = mkN "Donnerstag" ; +lin friday_Weekday = mkN "Freitag" ; +lin saturday_Weekday = mkN "Samstag" ; +lin sunday_Weekday = mkN "Sonntag" ; + +lin january_Month = mkN "Januar" ; +lin february_Month = mkN "Februar" ; +lin march_Month = mkN "März" ; +lin april_Month = mkN "April" ; +lin may_Month = mkN "Mai" ; +lin june_Month = mkN "Juni" ; +lin july_Month = mkN "Juli" ; +lin august_Month = mkN "August" ; +lin september_Month = mkN "September" ; +lin october_Month = mkN "Oktober" ; +lin november_Month = mkN "November" ; +lin december_Month = mkN "Dezember" ; + + + +lin afrikaans_Language = mkLanguage "Afrikaans" ; +lin amharic_Language = mkLanguage "Amharisch" ; +lin arabic_Language = mkLanguage "Arabisch" ; +lin bulgarian_Language = mkLanguage "Bulgarisch" ; +lin catalan_Language = mkLanguage "Katalanish" ; +lin chinese_Language = mkLanguage "Chinesisch" ; +lin danish_Language = mkLanguage "Dänisch" ; +lin dutch_Language = mkLanguage "Holländisch" ; +lin english_Language = mkLanguage "Englisch" ; +lin estonian_Language = mkLanguage "Estnisch" ; +lin finnish_Language = mkLanguage "Finnisch" ; +lin french_Language = mkLanguage "Französisch" ; +lin german_Language = mkLanguage "Deutsch" ; +lin greek_Language = mkLanguage "Griechisch" ; +lin hebrew_Language = mkLanguage "Hebräisch" ; +lin hindi_Language = mkLanguage "Hindi" ; +lin japanese_Language = mkLanguage "Japanisch" ; +lin italian_Language = mkLanguage "Italienisch" ; +lin latin_Language = mkLanguage "Latein" ; +lin latvian_Language = mkLanguage "Lettisch" ; +lin maltese_Language = mkLanguage "Maltesisch" ; +lin nepali_Language = mkLanguage "Nepali" ; +lin norwegian_Language = mkLanguage "Norwegisch" ; +lin persian_Language = mkLanguage "Persisch" ; +lin polish_Language = mkLanguage "Polnisch" ; +lin punjabi_Language = mkLanguage "Punjabi" ; +lin romanian_Language = mkLanguage "Rumänisch" ; +lin russian_Language = mkLanguage "Russisch" ; +lin sindhi_Language = mkLanguage "Sindhi" ; +lin spanish_Language = mkLanguage "Spanisch" ; +lin swahili_Language = mkLanguage "Swahili" ; +lin swedish_Language = mkLanguage "Schwedisch" ; +lin thai_Language = mkLanguage "Thai" ; +lin turkish_Language = mkLanguage "Türkisch" ; +lin urdu_Language = mkLanguage "Urdu" ; + +} \ No newline at end of file diff --git a/lib/src/translator/NamesSwe.gf b/lib/src/translator/NamesSwe.gf new file mode 100644 index 000000000..a64ac3561 --- /dev/null +++ b/lib/src/translator/NamesSwe.gf @@ -0,0 +1,66 @@ +concrete NamesSwe of Names = ConstructionSwe ** + + open ParadigmsSwe in { + +oper mkLanguage : Str -> PN = \s -> mkPN s ; + +lin monday_Weekday = mkN "måndag" ; +lin tuesday_Weekday = mkN "tisdag" ; +lin wednesday_Weekday = mkN "onsdag" ; +lin thursday_Weekday = mkN "torsdag" ; +lin friday_Weekday = mkN "fredag" ; +lin saturday_Weekday = mkN "lördag" ; +lin sunday_Weekday = mkN "söndag" ; + +lin january_Month = mkN "januari" ; +lin february_Month = mkN "februari" ; +lin march_Month = mkN "mars" ; +lin april_Month = mkN "april" ; +lin may_Month = mkN "maj" ; +lin june_Month = mkN "juni" ; +lin july_Month = mkN "juli" ; +lin august_Month = mkN "augusti" ; +lin september_Month = mkN "september" ; +lin october_Month = mkN "oktober" ; +lin november_Month = mkN "november" ; +lin december_Month = mkN "december" ; + +lin afrikaans_Language = mkLanguage "afrikaans" ; +lin amharic_Language = mkLanguage "amhariska" ; +lin arabic_Language = mkLanguage "arabiska" ; +lin bulgarian_Language = mkLanguage "bulgariska" ; +lin catalan_Language = mkLanguage "catalanska" ; +lin chinese_Language = mkLanguage "kinesiska" ; +lin danish_Language = mkLanguage "danska" ; +lin dutch_Language = mkLanguage "holländska" ; +lin english_Language = mkLanguage "engelska" ; +lin estonian_Language = mkLanguage "estniska" ; +lin finnish_Language = mkLanguage "finska" ; +lin french_Language = mkLanguage "franska" ; +lin german_Language = mkLanguage "tyska" ; +lin greek_Language = mkLanguage "grekiska" ; +lin hebrew_Language = mkLanguage "hebreiska" ; +lin hindi_Language = mkLanguage "hindi" ; +lin japanese_Language = mkLanguage "japanska" ; +lin italian_Language = mkLanguage "italienska" ; +lin latin_Language = mkLanguage "latin" ; +lin latvian_Language = mkLanguage "lettiska" ; +lin maltese_Language = mkLanguage "maltesiska" ; +lin nepali_Language = mkLanguage "nepali" ; +lin norwegian_Language = mkLanguage "norska" ; +lin persian_Language = mkLanguage "persiska" ; +lin polish_Language = mkLanguage "polska" ; +lin punjabi_Language = mkLanguage "punjabi" ; +lin romanian_Language = mkLanguage "rumänska" ; +lin russian_Language = mkLanguage "ryska" ; +lin sindhi_Language = mkLanguage "sindhi" ; +lin spanish_Language = mkLanguage "spanska" ; +lin swahili_Language = mkLanguage "swahili" ; +lin swedish_Language = mkLanguage "svenska" ; +lin thai_Language = mkLanguage "thai" ; +lin turkish_Language = mkLanguage "turkiska" ; +lin urdu_Language = mkLanguage "urdu" ; + + + +} \ No newline at end of file