[Starkit] tclkit bug

Arjen Markus arjen.markus at wldelft.nl
Mon May 23 09:54:17 CEST 2005


ross wrote:
> 
> Tclkit doesn't correctly set encoding system in non=english locales
> on startup.
> 
> ------------begin patch-----------
> --- tclUnixInit.c Thu May 12 20:18:51 2005
> +++ tclUnixInit.c.new Thu May 12 20:14:03 2005
> @@ -485,7 +485,8 @@
> void
> TclpSetInitialEncodings()
> {
> - if (libraryPathEncodingFixed == 0) {
> +
> +/* if (libraryPathEncodingFixed == 0) { */
> CONST char *encoding = NULL;
> int i, setSysEncCode = TCL_ERROR;
> Tcl_Obj *pathPtr;
> @@ -647,6 +648,7 @@
> * dependent behavior.
> */
> 
> + if (libraryPathEncodingFixed == 0) {
> setlocale(LC_NUMERIC, "C");
> 
> /*
> ------------end patch-----------
> So, this function works only once. Not acceptable to tclkit, so
> system encoding is never set correctly.
> After the patch --- it works.
> 
> tclkit
> % encoding system
> koi8-r
> 
> On windows (and at all), there is a bug it boot.tcl in tclkit:
> 
> vfs::filesystem unmount $noe
> 
> Example in russian locale on Win98 (cp1251):
> noe: D:/TCLKIT/ÒÕÓÓËÉÊ/TCLKIT-WIN32-NEWEST.EXE
> ::vfs::filesystem info:
> d:/tclkit/ÒÕÓÓËÉÊ/tclkit-win32-newest.exe
> 
> Case differs, so it says: "no such mount" and crashes (on Win98 only).
> Replaced with:
> vfs::filesystem unmount [::vfs::filesystem info]
> 
> tclkit-win32-newest.exe with added encodings by tkunicode.html on the site works ok.
> 
> PS. Where should I send bug reports about tclkit?
>     Why nobody answers? ;)
> 

Perhaps, because the day has just started for most Tclers in Europe?

BTW, this is the first mail I have seen on this particular subject ...

Regards,

Arjen



More information about the Starkit mailing list