[PD-cvs] pd/src/locale localeutils.tcl,1.1.2.2,1.1.2.3

[Mathieu Bouchard]

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"
  	}
  }