Mercurial > hg > egg-tcls
changeset 558:e0ff67318a99
weather: Rename some message ids, cleanups.
author | Matti Hamalainen <ccr@tnsp.org> |
---|---|
date | Thu, 09 Jul 2020 12:41:52 +0300 |
parents | 0ce432c3f03f |
children | 06d984a92a28 |
files | config.weather.example weather.tcl |
diffstat | 2 files changed, 18 insertions(+), 20 deletions(-) [+] |
line wrap: on
line diff
--- a/config.weather.example Thu Jul 09 12:40:23 2020 +0300 +++ b/config.weather.example Thu Jul 09 12:41:52 2020 +0300 @@ -115,8 +115,8 @@ array set weather_messages { - "usage_single" "@cmd@ \[paikka\]" - "usage_full" {"usage_single" "usage_stations" "usage_def_set" "usage_nearest" "usage_alias" "usage_unalias" "usage_list" } + "help_single" "@cmd@ \[paikka\]" + "help_full" {"help_single" "help_stations" "help_def_set" "help_nearest" "help_alias" "help_unalias" "help_list" } "no_results" "\002@1@\002: Ei mittaustietoja." "no_data_for_location" "\002@1@\002: Paikkakunnan tietoja ei saatu." @@ -127,13 +127,13 @@ "list_nearest" $weather_msg_list_station "nearest_stations" "Lähimmät mittausasemat (@1@, @2@): @3@" - "usage_nearest" "@cmd@ lähin <lat>\[, \]<long> -- näyttää annettuja koordinaatteja lähimpänä olevat mittausasemat" + "help_nearest" "@cmd@ lähin <lat>\[, \]<long> -- näyttää annettuja koordinaatteja lähimpänä olevat mittausasemat" "nearest_invalid" "@cmd@ lähin <lat>\[, \]<long> -- näyttää annettuja koordinaatteja lähimpänä olevat mittausasemat" "def_set_to" "Vakio-havaintoasemiksi asetettu: \002@1@\002." "def_value" "Käyttäjän \002@1@\002 vakio-havaintoasemat ovat: \002@2@\002." "def_not_set" "Vakio-havaintoasemia ei asetettu käyttäjälle \002@1@\002." - "usage_def_set" "@cmd@ vakio <paikka>\[;<paikka2>\] -- asettaa vakiohavaintoaseman\n@cmd@ vakio -- näyttää nykyisen vakiohavaintoaseman jos asetettu" + "help_def_set" "@cmd@ vakio <paikka>\[;<paikka2>\] -- asettaa vakiohavaintoaseman\n@cmd@ vakio -- näyttää nykyisen vakiohavaintoaseman jos asetettu" "alias_set" "Luotiin alias \002@1@\002 = \002@2@\002." "alias_updated" "Päivitettiin alias \002@1@\002 = \002@2@ -> @3@\002." @@ -142,14 +142,14 @@ "alias_list" "Aliakset: @1@" "alias_list_sep" ", " "alias_not_exist" "Aliasta '@1@' ei ole olemassa." - "usage_alias" "@cmd@ alias <alias> = <nimi> -- lisää alias-nimen, esim. alias perse = turku" - "usage_unalias" "@cmd@ unalias <alias> -- poistaa aliaksen" - "usage_list" "@cmd@ list -- listaa määritellyt aliakset" + "help_alias" "@cmd@ alias <alias> = <nimi> -- lisää alias-nimen, esim. alias perse = turku" + "help_unalias" "@cmd@ unalias <alias> -- poistaa aliaksen" + "help_list" "@cmd@ list -- listaa määritellyt aliakset" "user_not_known" "Tuntematon käyttäjä." "no_access" "Ei oikeuksia muuttaa asetuksia." "stations_list" "Mittausasemat: @1@" "stations_no_matches" "Ei osumia." - "usage_stations" "@cmd@ asemat <patterni> -- listaa mittausasemat joiden nimi matsaa patternin kanssa" + "help_stations" "@cmd@ asemat <patterni> -- listaa mittausasemat joiden nimi matsaa patternin kanssa" }
--- a/weather.tcl Thu Jul 09 12:40:23 2020 +0300 +++ b/weather.tcl Thu Jul 09 12:41:52 2020 +0300 @@ -25,15 +25,11 @@ package require textutil::split set weather_name "Weather" -set weather_version "2.0.0" - - -### Initialization messages -set weather_message "$weather_name v$weather_version (C) 2014-2020 ccr/TNSP" -putlog "$weather_message" +set weather_message "$weather_name v2.0.0 (C) 2014-2020 ccr/TNSP" #------------------------------------------------------------------------- +### Utility functions proc weather_log {umsg} { global weather_log_enable weather_name if {$weather_log_enable != 0} { @@ -293,7 +289,7 @@ set rcmd [lindex $rarglist 0] if {$rcmd == "?" || $rcmd == "help" || $rcmd == "apua"} { - foreach ukey $weather_messages(usage_full) { + foreach ukey $weather_messages(help_full) { weather_msg $upublic $unick $uchan $ukey } return 0 @@ -302,7 +298,7 @@ if {$rcmd == "asemat" || $rcmd == "stations"} { # List stations/locations matching the given pattern if {[llength $rarglist] < 2} { - weather_msg $upublic $unick $uchan "usage_stations" + weather_msg $upublic $unick $uchan "help_stations" return 0 } @@ -331,7 +327,7 @@ # List stations nearest to given coordinates set qargs [join [lrange $rarglist 1 end] ""] if {![regexp {@?(\d+|\d+\.\d+|\.\d+)\s*,\s*(\d+|\d+\.\d+|\.\d+)} $qargs -> d_lat d_lng]} { - weather_msg $upublic $unick $uchan "usage_nearest" + weather_msg $upublic $unick $uchan "help_nearest" return 0 } @@ -391,7 +387,7 @@ weather_msg $upublic $unick $uchan "def_set_to" [list [join $nlist " ; "]] setuser $uhand XTRA "weather_locations" [join $nlist ";"] } else { - weather_msg $upublic $unick $uchan "usage_def_set" + weather_msg $upublic $unick $uchan "help_def_set" } } return 0 @@ -405,7 +401,7 @@ set qlist [::textutil::split::splitx [join [lrange $rarglist 1 end] " "] {\s*=\s*}] set nlist [lsearch -all -inline -not -exact $qlist ""] if {[llength $nlist] < 2} { - weather_msg $upublic $unick $uchan "usage_alias" + weather_msg $upublic $unick $uchan "help_alias" return 0 } @@ -430,7 +426,7 @@ } if {[llength $rarglist] < 2} { - weather_msg $upublic $unick $uchan "usage_unalias" + weather_msg $upublic $unick $uchan "help_unalias" return 0 } @@ -539,6 +535,8 @@ #------------------------------------------------------------------------- # Script initialization #------------------------------------------------------------------------- +putlog "$weather_message" + if {![info exists weather_data]} { array set weather_data {}