Update of /cvsroot/pure-data/pd/src/locale In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv28567
Modified Files: Tag: desiredata localeutils.tcl Log Message: fix typo; sort listings
Index: localeutils.tcl =================================================================== RCS file: /cvsroot/pure-data/pd/src/locale/Attic/localeutils.tcl,v retrieving revision 1.1.2.2 retrieving revision 1.1.2.3 diff -C2 -d -r1.1.2.2 -r1.1.2.3 *** localeutils.tcl 6 Aug 2007 16:31:17 -0000 1.1.2.2 --- localeutils.tcl 6 Aug 2007 16:43:11 -0000 1.1.2.3 *************** *** 45,49 ****
proc summary {} { ! foreach lang [lwithout [array names ::index] english] { puts "#-----------------------------8<-----CUT------8<-----------------------------#" key_compare $lang; value_compare $lang --- 45,49 ----
proc summary {} { ! foreach lang [lsort [lwithout [array names ::index] english]] { puts "#-----------------------------8<-----CUT------8<-----------------------------#" key_compare $lang; value_compare $lang *************** *** 52,56 ****
proc compare {lang} { - key_compare $lang value_compare $lang --- 52,55 ---- *************** *** 58,67 ****
proc value_compare {lang} { ! puts "\nFollowing entries has the same value as English:" set values {} set english2 [array names ::english] set locale [array names ::$lang] set intersect [lintersection $english2 $locale] ! foreach item $intersect { set val1 $::english($item) set val2 [set ::${lang}($item)] --- 57,66 ----
proc value_compare {lang} { ! puts "\nFollowing entries have the same value as English:" set values {} set english2 [array names ::english] set locale [array names ::$lang] set intersect [lintersection $english2 $locale] ! foreach item [lsort $intersect] { set val1 $::english($item) set val2 [set ::${lang}($item)] *************** *** 82,91 **** set percent_extra [expr int(([llength $diff_extra] / [llength $english2].0)*100)] puts "\ncompare $lang to english --> ${percent_missing}% difference" ! foreach item $diff_missing { ! puts "\t -$item" } puts "\ncompare english to $lang --> ${percent_extra}% difference" ! foreach item $diff_extra { ! puts "\t +$item" } } --- 81,90 ---- set percent_extra [expr int(([llength $diff_extra] / [llength $english2].0)*100)] puts "\ncompare $lang to english --> ${percent_missing}% difference" ! foreach item [lsort $diff_missing] { ! puts " - $item" } puts "\ncompare english to $lang --> ${percent_extra}% difference" ! foreach item [lsort $diff_extra] { ! puts " + $item" } }