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

Mathieu Bouchard matju at users.sourceforge.net
Mon Aug 6 18:31:19 CEST 2007


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





More information about the Pd-cvs mailing list