Update of /cvsroot/pure-data/pd/src/locale In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv23823
Modified Files: Tag: desiredata localeutils.tcl Log Message: fix typos
Index: localeutils.tcl =================================================================== RCS file: /cvsroot/pure-data/pd/src/locale/Attic/localeutils.tcl,v retrieving revision 1.1.2.1 retrieving revision 1.1.2.2 diff -C2 -d -r1.1.2.1 -r1.1.2.2 *** localeutils.tcl 5 Aug 2007 19:33:52 -0000 1.1.2.1 --- localeutils.tcl 6 Aug 2007 16:31:17 -0000 1.1.2.2 *************** *** 58,62 ****
proc value_compare {lang} { ! puts "\nFollowing entires has the same value as English:" set values {} set english2 [array names ::english] --- 58,62 ----
proc value_compare {lang} { ! puts "\nFollowing entries has the same value as English:" set values {} set english2 [array names ::english] *************** *** 99,111 **** ^-lang$ { set lang [lindex $argv 1] ! if {[lsearch [array names ::index] $lang] > 0} {compare $lang} {puts "Unknowb locale"} } ^-h$ { ! puts "-list: view the list of supported locales" ! puts "-lang: <locale> compare <locale> to english" ! puts "none: summary of all locales" ! } ! default {puts "Unknow option.."} } ! } \ No newline at end of file --- 99,110 ---- ^-lang$ { set lang [lindex $argv 1] ! if {[lsearch [array names ::index] $lang] > 0} {compare $lang} {puts "Unknown locale '$lang'"} } ^-h$ { ! puts "-list view the list of supported locales" ! puts "-lang <locale> only report about <locale> instead of about all locales" } ! default {puts "Unknown option '[lindex $argv 0]'. try -h for help"} } ! } !