pd/src desire.tk,1.1.2.600.2.253,1.1.2.600.2.254 - Pd-cvs

30 Jul 2007


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