diff options
author | vincentdarley <vincentdarley@noemail.net> | 2002-07-12 16:26:04 (GMT) |
---|---|---|
committer | vincentdarley <vincentdarley@noemail.net> | 2002-07-12 16:26:04 (GMT) |
commit | 53a7a71182bcfff16834c0149981ef39641cdbbb (patch) | |
tree | d1dc5bed30e2692c5f213c271dc9b24414d95f86 /win/tclWinFile.c | |
parent | 8b73cbac2afcf6909e5c3b32ff2e432ff028430c (diff) | |
download | tcl-53a7a71182bcfff16834c0149981ef39641cdbbb.zip tcl-53a7a71182bcfff16834c0149981ef39641cdbbb.tar.gz tcl-53a7a71182bcfff16834c0149981ef39641cdbbb.tar.bz2 |
file normalization on win 95/98
FossilOrigin-Name: 622e2c69ee3179b188c582dbd61a0d7ca1898e1e
Diffstat (limited to 'win/tclWinFile.c')
-rw-r--r-- | win/tclWinFile.c | 112 |
1 files changed, 39 insertions, 73 deletions
diff --git a/win/tclWinFile.c b/win/tclWinFile.c index 18b5555..8457ac2 100644 --- a/win/tclWinFile.c +++ b/win/tclWinFile.c @@ -11,7 +11,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclWinFile.c,v 1.34 2002/07/11 17:42:20 vincentdarley Exp $ + * RCS: @(#) $Id: tclWinFile.c,v 1.35 2002/07/12 16:26:05 vincentdarley Exp $ */ //#define _WIN32_WINNT 0x0500 @@ -1986,7 +1986,13 @@ TclpObjNormalizePath(interp, pathPtr, nextCheckpoint) int nextCheckpoint; { char *lastValidPathEnd = NULL; - char *path = Tcl_GetString(pathPtr); + /* This will hold the normalized string */ + Tcl_DString dsNorm; + char *path; + char *currentPathEndPosition; + + Tcl_DStringInit(&dsNorm); + path = Tcl_GetString(pathPtr); if (TclWinGetPlatformId() == VER_PLATFORM_WIN32_WINDOWS) { /* @@ -1996,13 +2002,9 @@ TclpObjNormalizePath(interp, pathPtr, nextCheckpoint) * links are not possible. Both of these assumptions * appear to be true of these operating systems. */ - char *currentPathEndPosition; Tcl_Obj *temp = NULL; int isDrive = 1; Tcl_DString ds; - /* This will hold the normalized string */ - Tcl_DString dsNorm; - Tcl_DStringInit(&dsNorm); currentPathEndPosition = path + nextCheckpoint; while (1) { @@ -2067,47 +2069,11 @@ TclpObjNormalizePath(interp, pathPtr, nextCheckpoint) } currentPathEndPosition++; } - nextCheckpoint = currentPathEndPosition - path; - - if (lastValidPathEnd != NULL) { - /* - * Concatenate the normalized string in dsNorm with the - * tail of the path which we didn't recognise. The - * string in dsNorm is in the native encoding, so we - * have to convert it to Utf. - */ - Tcl_DString dsTemp; - Tcl_ExternalToUtfDString(NULL, Tcl_DStringValue(&dsNorm), - Tcl_DStringLength(&dsNorm), &dsTemp); - nextCheckpoint = Tcl_DStringLength(&dsTemp); - if (*lastValidPathEnd != 0) { - /* Not the end of the string */ - int len; - char *path; - Tcl_Obj *tmpPathPtr; - tmpPathPtr = Tcl_NewStringObj(Tcl_DStringValue(&dsTemp), - nextCheckpoint); - Tcl_AppendToObj(tmpPathPtr, lastValidPathEnd, -1); - path = Tcl_GetStringFromObj(tmpPathPtr, &len); - Tcl_SetStringObj(pathPtr, path, len); - Tcl_DecrRefCount(tmpPathPtr); - } else { - /* End of string was reached above */ - Tcl_SetStringObj(pathPtr, Tcl_DStringValue(&dsTemp), - nextCheckpoint); - } - Tcl_DStringFree(&dsTemp); - } - Tcl_DStringFree(&dsNorm); } else { /* We're on WinNT or 2000 or XP */ - char *currentPathEndPosition; Tcl_Obj *temp = NULL; int isDrive = 1; Tcl_DString ds; - /* This will hold the normalized string */ - Tcl_DString dsNorm; - Tcl_DStringInit(&dsNorm); currentPathEndPosition = path + nextCheckpoint; while (1) { @@ -2212,38 +2178,38 @@ TclpObjNormalizePath(interp, pathPtr, nextCheckpoint) } currentPathEndPosition++; } - nextCheckpoint = currentPathEndPosition - path; - - if (lastValidPathEnd != NULL) { - /* - * Concatenate the normalized string in dsNorm with the - * tail of the path which we didn't recognise. The - * string in dsNorm is in the native encoding, so we - * have to convert it to Utf. - */ - Tcl_DString dsTemp; - Tcl_WinTCharToUtf(Tcl_DStringValue(&dsNorm), - Tcl_DStringLength(&dsNorm), &dsTemp); - nextCheckpoint = Tcl_DStringLength(&dsTemp); - if (*lastValidPathEnd != 0) { - /* Not the end of the string */ - int len; - char *path; - Tcl_Obj *tmpPathPtr; - tmpPathPtr = Tcl_NewStringObj(Tcl_DStringValue(&dsTemp), - nextCheckpoint); - Tcl_AppendToObj(tmpPathPtr, lastValidPathEnd, -1); - path = Tcl_GetStringFromObj(tmpPathPtr, &len); - Tcl_SetStringObj(pathPtr, path, len); - Tcl_DecrRefCount(tmpPathPtr); - } else { - /* End of string was reached above */ - Tcl_SetStringObj(pathPtr, Tcl_DStringValue(&dsTemp), - nextCheckpoint); - } - Tcl_DStringFree(&dsTemp); + } + /* Common code path for all Windows platforms */ + nextCheckpoint = currentPathEndPosition - path; + if (lastValidPathEnd != NULL) { + /* + * Concatenate the normalized string in dsNorm with the + * tail of the path which we didn't recognise. The + * string in dsNorm is in the native encoding, so we + * have to convert it to Utf. + */ + Tcl_DString dsTemp; + Tcl_WinTCharToUtf(Tcl_DStringValue(&dsNorm), + Tcl_DStringLength(&dsNorm), &dsTemp); + nextCheckpoint = Tcl_DStringLength(&dsTemp); + if (*lastValidPathEnd != 0) { + /* Not the end of the string */ + int len; + char *path; + Tcl_Obj *tmpPathPtr; + tmpPathPtr = Tcl_NewStringObj(Tcl_DStringValue(&dsTemp), + nextCheckpoint); + Tcl_AppendToObj(tmpPathPtr, lastValidPathEnd, -1); + path = Tcl_GetStringFromObj(tmpPathPtr, &len); + Tcl_SetStringObj(pathPtr, path, len); + Tcl_DecrRefCount(tmpPathPtr); + } else { + /* End of string was reached above */ + Tcl_SetStringObj(pathPtr, Tcl_DStringValue(&dsTemp), + nextCheckpoint); } - Tcl_DStringFree(&dsNorm); + Tcl_DStringFree(&dsTemp); } + Tcl_DStringFree(&dsNorm); return nextCheckpoint; } |