Tcl Source Code

Artifact [47fe708cf2]
Login

Artifact 47fe708cf26ba7b87c6b93659a79898e2f945d5c:

Ticket change [47fe708cf2] - Ticket [da7c079978] FS strips root '/' from FS root volume "zvfs:/" status still Open with 3 other changes by anonymous 2017-06-18 00:15:59.
D 2017-06-18T00:15:59.003
J icomment I\sam\scontinuing\swith\smy\szvfs:\sfs\sand\sI\sfound\sanother\sbug.\sAgain,\sit\sis\san\r\ninstance\sof\sTcl\snot\shandling\sVOLUME_RELATIVE\sfs\scorrectly\sand\sdoing\sa\r\n"windows"\sthing\sjust\sbecause\sI\shappen\sto\sbe\sdeveloping\son\swindows.\r\n\r\nAfter:\r\n\s%\scd\szvfs:\r\n\s%\spwd\r\n\szvfs:/\r\n\s%\scd\s/\r\n\r\n"cd\s/"\sattempts\sto\scd\sto\s"zv/"\r\n\r\nTcl_FSGetNormalizedPath()\sin\stclPathObj.c\saround\sline\s1946:\r\n\r\n\s\sTcl_PathType\stype\s=\sTcl_FSGetPathType(absolutePath);\r\n\r\nVariable\s"type"\sis\snow\sset\sto\sTCL_PATH_VOLUME_RELATIVE\s(which\sis\sactually\r\ncorrect\seven\sthough\smy\sfs\sis\snot\swindows)\r\n\r\nA\sfew\slines\slater:\r\n\r\n\s\s#ifdef\s_WIN32\r\n\t\s\s\s\s}\selse\sif\s(type\s==\sTCL_PATH_VOLUME_RELATIVE)\s{\r\n\t\t/*\r\n\t\t\s*\sOnly\sWindows\shas\svolume-relative\spaths.\r\n\t\t\s*/\r\n\r\n\r\nIf\sTCL_PATH_VOLUME_RELATIVE\sis\sonly\sfor\swindows,\sthen\sTcl_FSGetPathType()\shas\sa\sbug.\sOtherwise,\sthe\scomment\s"Only\sWindows\shas\svolume..."\sis\sfalse.\r\n\r\nSince\sTclWinVolumeRelativeNormalize()\sis\scalled,\sit\smakes\sthe\sincorrect\r\nassumption\sthat\sthe\scwd\sis\sof\sthe\sform\s"D:..."\s(<drive>:)\sand\sproceeds\sto\r\ntake\sthe\s"D:"\sand\sappend\sthe\s"/".\sThus\sthe\sbogus\sresult\s"zv/".\sThat\spath\sis\spassed\sto\sFSPathInFilesystemProc\swhere\sit\sis\srejected.
J login anonymous
J mimetype text/plain
K da7c079978cb3183731147d2e6a555794416a5bf
U anonymous
Z ea5d0d9ed2b171b1041d3d9c86e7c8c3