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/tclPathObj.c | |
| parent | 0642c2ce3305c22c76c707fe3a2b4adc74c36c72 (diff) | |
| download | tcl-490e91fb79a23c76883f37ec8930de79aeaf734e.zip tcl-490e91fb79a23c76883f37ec8930de79aeaf734e.tar.gz tcl-490e91fb79a23c76883f37ec8930de79aeaf734e.tar.bz2 | |
shared filesystem function
Diffstat (limited to 'generic/tclPathObj.c')
| -rw-r--r-- | generic/tclPathObj.c | 11 |
1 files changed, 4 insertions, 7 deletions
diff --git a/generic/tclPathObj.c b/generic/tclPathObj.c index 9dcde63..4f2aa25 100644 --- a/generic/tclPathObj.c +++ b/generic/tclPathObj.c @@ -10,7 +10,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclPathObj.c,v 1.1 2003/04/11 15:59:58 vincentdarley Exp $ + * RCS: @(#) $Id: tclPathObj.c,v 1.2 2003/04/14 15:48:38 vincentdarley Exp $ */ #include "tclInt.h" @@ -30,9 +30,6 @@ static void FreeFsPathInternalRep _ANSI_ARGS_((Tcl_Obj *listPtr)); static void UpdateStringOfFsPath _ANSI_ARGS_((Tcl_Obj *objPtr)); static int SetFsPathFromAny _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Obj *objPtr)); -static Tcl_Obj* FSNormalizeAbsolutePath - _ANSI_ARGS_((Tcl_Interp* interp, Tcl_Obj *pathPtr, - ClientData *clientDataPtr)); static int FindSplitPos _ANSI_ARGS_((char *path, char *separator)); @@ -104,7 +101,7 @@ typedef struct FsPath { /* *--------------------------------------------------------------------------- * - * FSNormalizeAbsolutePath -- + * TclFSNormalizeAbsolutePath -- * * Description: * Takes an absolute path specification and computes a 'normalized' @@ -136,7 +133,7 @@ typedef struct FsPath { *--------------------------------------------------------------------------- */ 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; @@ -1185,7 +1182,7 @@ Tcl_FSGetNormalizedPath(interp, pathObjPtr) /* We have a refCount on the cwd */ } /* Already has refCount incremented */ - fsPathPtr->normPathPtr = FSNormalizeAbsolutePath(interp, absolutePath, + fsPathPtr->normPathPtr = TclFSNormalizeAbsolutePath(interp, absolutePath, (fsPathPtr->nativePathPtr == NULL ? &clientData : NULL)); if (0 && (clientData != NULL)) { fsPathPtr->nativePathPtr = |