A Tcl universal greeting - from a session on tkchat - [NEM]


 namespace eval universal {
     package require msgcat
     msgcat::mcset en "Good Morning!"
     msgcat::mcset de "Good Morning!" "Guten Morgen!"
     msgcat::mcset es_ES "Good Morning!" "\u00a1Buenas Man~anas!"
     msgcat::mcset fr_FR "Good Morning!" "Bonjour!"
     msgcat::mcset du_NL "Good Morning!" "Goedemorgen!"
     msgcat::mcset sv "Good Morning!" "God morgon!"
     msgcat::mcset en "Good Afternoon!"
     msgcat::mcset de "Good Afternoon!" "Guten Tag!"
     msgcat::mcset es_ES "Good Afternoon!" "\u00a1Buenas Tardes!"
     msgcat::mcset fr_FR "Good Afternoon!" "Bonne Apres-midi!"
     msgcat::mcset du_NL "Good Afternoon!" "Goedemiddag!"
     msgcat::mcset sv "Good Afternoon!" "God kv\u00e4ll!"
     proc greeting {} {
        set timeofday [expr {[clock format [clock seconds] -format %p]\
            == "AM" ? "Morning" : "Afternoon"}]
        return [msgcat::mc "Good $timeofday!"]
     }
 } 

Add other languages. Also, I'm not sure if es_ES is the right code for Spanish.
Rule of spanish greetings:

   * From sunrise till noon: Buenos Dias
   * From noon till sunset: Buenas tardes
   * From sundet till sunrise: Buenas noches
'''US'''

[AvL] (at least) in German business-life:
   * From about 11am till 3pm: "Mahlzeit"  ;-)

[RS] Similar in German: "Guten Morgen" until ~11:00; "Guten Tag" until ~17:00; "Guten Abend" after that. So one should maybe better switch on ranges of %H, instead of the binary %p...
See [Time-dependent greetings] for refined versions.

[Michael Schlenker] In some parts of northern germany, especially where i live, it's very easy. The universal greeting that can be used at all times is "Moin".

----
This seems terribly broken to me.  For example, shouldn't the line

     msgcat::mcset de "Guten Morgen!"

be

     msgcat::mcset de "Good Morning!" "Guten Morgen!"

? -- [CLN] - [RS] Right, was too much in a hurry, and more concerned with the ranges problem I wrote below. Thanks for the hint; fixed.

[AvL] Why aren't the english originals stored in a local variable and reused ?  I mean sthg like:
     set str "Good Morning!"
     msgcat::mcset en $str
     msgcat::mcset de $str "Guten Morgen!"
     msgcat::mcset ... $str "..."

----
Watch out for non-ASCII characters; the Wiki mangles them. :/ - ''[DKF]''