Tcl Source Code

View Ticket
Login
Ticket UUID: 685926
Title: tcl_platform(user) is not in UTF-8 format
Type: Bug Version: None
Submitter: vwartelle Created on: 2003-02-13 13:56:27
Subsystem: 38. Init - Library - Autoload Assigned To: kennykb
Priority: 5 Medium Severity:
Status: Closed Last Modified: 2003-02-14 07:04:53
Resolution: Fixed Closed By: kennykb
    Closed on: 2003-02-14 00:04:53
Description:
Problem - ActiveTcl8.4.1.0 - Win XP - (french version)

set tcl_platform(user)
Propriétaire
puts stdout "-$tcl_platform(user)-"
-Propriétaire-
string bytelength "Propriétaire"
13
string bytelength $tcl_platform(user)
12

string compare $tcl_platform(user) "Propriétaire"
1

Workaround

set username [encoding convertto /tcl/encoding/cp1252 
$tcl_platform(user)]
Propriétaire
string bytelength $username
13

string compare $username "Propriétaire"
0
User Comments: kennykb added on 2003-02-14 07:04:53:
Logged In: YES 
user_id=99768

fix committed

kennykb added on 2003-02-14 06:17:08:

File Added - 42370: 685926.patch

Logged In: YES 
user_id=99768

Patch attached.

dgp added on 2003-02-13 23:04:24:
Logged In: YES 
user_id=80530

Apparently improper handling of the
value returned from GetUserName
in TclpSetVariables() in tclWinInit.c.

Kevin, can you advise whether the
obvious fix will work?

Meanwhile, a better workaround is
to set the environment variable
USERNAME to the value you
want for tcl_platform(user).

Attachments: