*
 * Copyright (c) 1991-1994 The Regents of the University of California.
 * Copyright (c) 1994-1997 Sun Microsystems, Inc.
 *
 * See the file "license.terms" for information on usage and redistribution
 * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 *
 * RCS: @(#) $Id: tclIOUtil.c,v 1.106 2004/07/11 21:13:27 vincentdarley Exp $
 * RCS: @(#) $Id: tclIOUtil.c,v 1.107 2004/07/17 12:18:22 vincentdarley Exp $
 */

#include "tclInt.h"
#ifdef __WIN32__
#include "tclWinInt.h"
#endif
#include "tclFileSystem.h"

		     * shouldn't be null, but we are careful.
		     */
		    if (norm == NULL) {
			/* Do nothing */
			if (retCd != NULL) {
			    (*fsPtr->freeInternalRepProc)(retCd);
			}
		    } else if (norm == tsdPtr->cwdPathPtr) {
			goto cdEqual;
		    } else {
			/* 
			 * Note that both 'norm' and
			 * 'tsdPtr->cwdPathPtr' are normalized paths.
			 * Therefore we can be more efficient than
			 * calling 'Tcl_FSEqualPaths', and in addition
			 * avoid a nasty infinite loop bug when trying
			 * to normalize tsdPtr->cwdPathPtr.
			 */
			int len1, len2;
			char *str1, *str2;
		    } else if (Tcl_FSEqualPaths(tsdPtr->cwdPathPtr, norm)) {
			/* 
			 * If the paths were equal, we can be more
			 * efficient and retain the old path object
			 * which will probably already be shared.  In
			 * this case we can simply free the normalized
			 * path we just calculated.
			 */
			Tcl_DecrRefCount(norm);
			if (retCd != NULL) {
			    (*fsPtr->freeInternalRepProc)(retCd);
			}
		    } else {
			FsUpdateCwd(norm, retCd);
			Tcl_DecrRefCount(norm);
			str1 = Tcl_GetStringFromObj(tsdPtr->cwdPathPtr, &len1);
			str2 = Tcl_GetStringFromObj(norm, &len2);
			if ((len1 == len2) && (strcmp(str1, str2) == 0)) {
			    /* 
			     * If the paths were equal, we can be more
			     * efficient and retain the old path object
			     * which will probably already be shared.  In
			     * this case we can simply free the normalized
			     * path we just calculated.
			     */
			  cdEqual:
			    Tcl_DecrRefCount(norm);
			    if (retCd != NULL) {
				(*fsPtr->freeInternalRepProc)(retCd);
			    }
			} else {
			    FsUpdateCwd(norm, retCd);
			    Tcl_DecrRefCount(norm);
			}
		    }
		    Tcl_DecrRefCount(retVal);
		} else {
		    /* The 'cwd' function returned an error; reset the cwd */
		    FsUpdateCwd(NULL, NULL);
		}
	    }

	 * Tcl_FSGetCwd will however recalculate the private copy to
	 * match the OS-value so everything will work right.
	 * 
	 * However, if there is no getCwdProc, then we _must_ update
	 * our private storage of the cwd, since this is the only
	 * opportunity to do that!
	 * 
	 * Note: We used to call this block of code irrespective of
	 * whether there was a getCwdProc or not, but that led to
	 * problems with threads.
	 * Note: We currently call this block of code irrespective of
	 * whether there was a getCwdProc or not, but the code should
	 * all in principle work if we only call this block if 
	 * fsPtr->getCwdProc == NULL.
	 */

	if (fsPtr->getCwdProc == NULL && retVal == 0) {
	if (retVal == 0) {
	    /* 
	     * Note that this normalized path may be different to what
	     * we found above (or at least a different object), if the
	     * filesystem epoch changed recently.  This can actually
	     * happen with scripted documents very easily.  Therefore
	     * we ask for the normalized path again (the correct value
	     * will have been cached as a result of the
	     * Tcl_FSGetFileSystemForPath call above anyway).
	     */
	    Tcl_Obj *normDirName = Tcl_FSGetNormalizedPath(NULL, pathPtr);
	    if (normDirName == NULL) {
		/* Not really true, but what else to do? */
		Tcl_SetErrno(ENOENT); /*Not really true, but what else to do?*/
		Tcl_SetErrno(ENOENT); 
		return -1;
	    }
	    if (fsPtr == &tclNativeFilesystem) {
		/* 
		 * For the native filesystem, we keep a cache of the
		 * native representation of the cwd.  But, we want to do
		 * that for the exact format that is returned by