moved lexical parts of Construction to Names, and added Language names there ; implemented for the six old Construction languages

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 ;
 
 }

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 "十二月" ;
 
 }

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" ;
 
 }

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) ;
+
+
+
 }

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) ;
+
 
 }

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" ;
- 
 }

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) ;
+
 
 }

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 ;
+
+}

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" ;
+
+}

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" ;
+
+}

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" ;
+
+}

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" ;
+
+}

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" ;
+
+}

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" ;
+
+
+
+}