[PD-cvs] pd/src desire.tk,1.1.2.600.2.253,1.1.2.600.2.254

[Mathieu Bouchard]

Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv15564

Modified Files:
      Tag: desiredata
	desire.tk 
Log Message:
first test of utf-8 locale


Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.600.2.253
retrieving revision 1.1.2.600.2.254
diff -C2 -d -r1.1.2.600.2.253 -r1.1.2.600.2.254
*** desire.tk	30 Jul 2007 05:16:08 -0000	1.1.2.600.2.253
--- desire.tk	30 Jul 2007 05:46:16 -0000	1.1.2.600.2.254
***************
*** 658,661 ****
--- 658,662 ----
  
  #set cmdline(server) \"$cmdline(server)\"
+ set encoding ""
  set langoptions {english francais deutsch catala espanol portugues italiano bokmal euskara}
  set langfile locale/[switch -regexp -- $language {
***************
*** 668,672 ****
    ^(it|italiano)$     {list italiano}
    ^(nb|norsk|bokmal)$ {list bokmal}
!   ^(ch|chinese)$      {list chinese}
    ^(eu|euskara)$      {list euskara}
    default {error "huh??? unknown language (locale)"}
--- 669,673 ----
    ^(it|italiano)$     {list italiano}
    ^(nb|norsk|bokmal)$ {list bokmal}
!   ^(ch|chinese)$      {set encoding utf-8; list chinese}
    ^(eu|euskara)$      {list euskara}
    default {error "huh??? unknown language (locale)"}
***************
*** 675,684 ****
  proc localedir {x} {file join [file dirname [file dirname $::argh0]] lib/pd/bin/$x}
  if {[regexp {desire\.tk$} $argh0]} {
- 	#source -encoding utf-8 $langfile
  	source locale/index.tcl
! 	source $langfile
  } else {
  	source [localedir locale/index.tcl]
! 	source [localedir $langfile]
  }
  
--- 676,684 ----
  proc localedir {x} {file join [file dirname [file dirname $::argh0]] lib/pd/bin/$x}
  if {[regexp {desire\.tk$} $argh0]} {
  	source locale/index.tcl
! 	if {$encoding != ""} {source -encoding $encoding $langfile} else {source $langfile}
  } else {
  	source [localedir locale/index.tcl]
! 	if {$encoding != ""} {source -encoding $encoding [localedir $langfile]} else {source [localedir $langfile]}
  }