A Tcl universal greeting - from a session on tkchat - NEM
namespace eval universal {
package require msgcat
msgcat::mcset en "Good Morning!"
msgcat::mcset de "Guten Morgen!"
msgcat::mcset es_ES "Good Morning!" "������¡Buenas Man~anas!"
msgcat::mcset fr_FR "Good Morning!" "Bonjour!"
msgcat::mcset du_NL "Good Morning!" "Goedemorgen!"
msgcat::mcset en "Good Afternoon!"
msgcat::mcset de "Guten Tag!"
msgcat::mcset es_ES "Good Afternoon!" "������������������������������¡Buenas Tardes!"
msgcat::mcset fr_FR "Good Afternoon!" "Bonne Apres-midi!"
msgcat::mcset du_NL "Good Afternoon!" "Goedemiddag!"
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:
US
RS Similar in German: "Guten Morgen" until ~11:00; "Guten Tag" until ~17:00; "Guten Abend" after that. So one shoulb maybe better switch on ranges of %H, instead of the binary %p...