Tcl Source Code

Artifact [68e01eef2f]
Login

Artifact 68e01eef2f3187dcc03be6342dd89f08bd298099:

Ticket change [68e01eef2f] - New ticket [8d5f5b8034] string tolower does not invalidate list representation. by oehhar 2014-02-25 14:10:04.
D 2014-02-25T14:10:04.244
J assignee nobody
J closer nobody
J cmimetype text/x-fossil-wiki
J comment <h1>Issue</h1>\r\nstring\stolower\sdoes\snot\sremove\sa\slist\srepresentation\sin\ssome\scircumstances\r\n\r\n<h1>Environment</h1>\r\n\s\s\s*\s\s\sFossil\sTrunk\s[29b5d483ec]\r\n\s\s\s*\s\s\sCompiled\swith\sMSVC6++,\sSDK2003SP1\sand\sMakefile.vc\r\n\s\s\s*\s\s\sWindows\sVista\s32\sbit\sGER\r\n\r\n<h1>Demonstration</h1>\r\nI\sstumbled\sover\sthe\sfact,\sthat\sthe\sfollowing\stest\sfailed:\r\n<verbatim>\r\n====\scmdAH-6.4\sTcl_FileObjCmd:\svolumes\sFAILED\r\n====\sContents\sof\stest\scase:\r\n\r\n\s\s\s\sset\svolumeList\s[string\stolower\s[file\svolumes]]\r\n\s\s\s\sset\selement\s[lsearch\s-exact\s$volumeList\s"c:/"]\r\n\s\s\s\slist\s[expr\s{$element>-1}]\s[glob\s-nocomplain\s[lindex\s$volumeList\r\n$element]*]\r\n\r\n----\sResult\swas:\r\n0\s{aclocal.m4\sbuildall.vc.bat\scat.c\scoffbase.txt\sconfigure\sconfigure.in\r\nmakefile.bc\sMakefile.in\smakefile.vc\snmakehlp.c\snmakehlp.exe\snmakehlp.obj\r\nREADME\sRelease\srules.vc\stcl.dsp\stcl.dsw\stcl.hpj.in\stcl.m4\stcl.rc\r\ntclAppInit.c\stclConfig.sh.in\stclooConfig.sh\stclsh.exe.manifest.in\r\ntclsh.ico\stclsh.rc\stclWin32Dll.c\stclWinChan.c\stclWinConsole.c\r\ntclWinDde.c\stclWinError.c\stclWinFCmd.c\stclWinFile.c\stclWinInit.c\r\ntclWinInt.h\stclWinLoad.c\stclWinNotify.c\stclWinPipe.c\stclWinPort.h\r\ntclWinReg.c\stclWinSerial.c\stclWinSock.c\stclWinTest.c\stclWinThrd.c\r\ntclWinTime.c\stestlog_tcl-trunk_2014-02-24.txt\sversions.vc\s_junk.pch}\r\n----\sResult\sshould\shave\sbeen\s(glob\smatching):\r\n1\s*\r\n====\scmdAH-6.4\sFAILED\r\n</verbatim>\r\nThen,\sI\sstarted\sthe\sfreshly\scompiled\stclsh86.exe\sand\sexecuted\scommand\r\nby\scommand:\r\n<verbatim>\r\n%\sfile\svolume\r\nC:/\sD:/\sE:/\sT:/\sU:/\sX:/\sY:/\r\n%\sset\svolumeList\s[string\stolower\s[file\svolumes]]\r\nc:/\sd:/\se:/\st:/\su:/\sx:/\sy:/\r\n%\sset\selement\s[lsearch\s-exact\s$volumeList\s"c:/"]\r\n-1\r\n%\slindex\s$volumeList\s0\r\nC:/\r\n%\sset\svolumeList\r\nc:/\sd:/\se:/\st:/\su:/\sx:/\sy:/\r\n</verbatim>\r\nIMHO,\sthe\slist\srepresentation\swas\snot\sdestroyed\sand\sthe\sstring\sis\r\ntolower\sbut\sthe\slist\sstill\suppercase.
J foundin [29b5d483ec]
J is_private 0
J login oehhar
J priority 5\sMedium
J private_contact 0f366eb3e9e2fcab52b8ebacd197db9047186a5f
J resolution None
J severity Critical
J status Open
J submitter oehhar
J subsystem 18.\sCommands\sM-Z
J title string\stolower\sdoes\snot\sinvalidate\slist\srepresentation
J type Bug
K 8d5f5b80343e8e7d21d4dd96343a281895380ffd
U oehhar
Z ece5835bdb915187445f266da0ff3e78