[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