diff options
| author | vincentdarley <vincentdarley> | 2003-04-14 15:48:30 (GMT) |
|---|---|---|
| committer | vincentdarley <vincentdarley> | 2003-04-14 15:48:30 (GMT) |
| commit | 490e91fb79a23c76883f37ec8930de79aeaf734e (patch) | |
| tree | 99a4f05e89735a7dcae8e27a518e3e75baa19b8a /generic/tclIOUtil.c | |
| parent | 0642c2ce3305c22c76c707fe3a2b4adc74c36c72 (diff) | |
| download | tcl-490e91fb79a23c76883f37ec8930de79aeaf734e.zip tcl-490e91fb79a23c76883f37ec8930de79aeaf734e.tar.gz tcl-490e91fb79a23c76883f37ec8930de79aeaf734e.tar.bz2 | |
shared filesystem function
Diffstat (limited to 'generic/tclIOUtil.c')
| -rw-r--r-- | generic/tclIOUtil.c | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/generic/tclIOUtil.c b/generic/tclIOUtil.c index f27fff9..d4f34d0 100644 --- a/generic/tclIOUtil.c +++ b/generic/tclIOUtil.c @@ -17,7 +17,7 @@ * 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.78 2003/04/11 15:59:54 vincentdarley Exp $ + * RCS: @(#) $Id: tclIOUtil.c,v 1.79 2003/04/14 15:48:35 vincentdarley Exp $ */ #include "tclInt.h" @@ -1000,7 +1000,7 @@ Tcl_FSData(fsPtr) /* *--------------------------------------------------------------------------- * - * FSNormalizeAbsolutePath -- + * TclFSNormalizeAbsolutePath -- * * Description: * Takes an absolute path specification and computes a 'normalized' @@ -1032,7 +1032,7 @@ Tcl_FSData(fsPtr) *--------------------------------------------------------------------------- */ static Tcl_Obj* -FSNormalizeAbsolutePath(interp, pathPtr, clientDataPtr) +TclFSNormalizeAbsolutePath(interp, pathPtr, clientDataPtr) Tcl_Interp* interp; /* Interpreter to use */ Tcl_Obj *pathPtr; /* Absolute path to normalize */ ClientData *clientDataPtr; @@ -2204,7 +2204,7 @@ Tcl_FSGetCwd(interp) * could be problematic. */ if (retVal != NULL) { - Tcl_Obj *norm = FSNormalizeAbsolutePath(interp, retVal, NULL); + Tcl_Obj *norm = TclFSNormalizeAbsolutePath(interp, retVal, NULL); if (norm != NULL) { /* * We found a cwd, which is now in our global storage. @@ -2253,7 +2253,7 @@ Tcl_FSGetCwd(interp) if (proc != NULL) { Tcl_Obj *retVal = (*proc)(interp); if (retVal != NULL) { - Tcl_Obj *norm = FSNormalizeAbsolutePath(interp, retVal, NULL); + Tcl_Obj *norm = TclFSNormalizeAbsolutePath(interp, retVal, NULL); /* * Check whether cwd has changed from the value * previously stored in cwdPathPtr. Really 'norm' |