diff options
| author | vincentdarley <vincentdarley> | 2003-01-09 10:38:28 (GMT) |
|---|---|---|
| committer | vincentdarley <vincentdarley> | 2003-01-09 10:38:28 (GMT) |
| commit | 148ced9ceeadb0fede7d548f209c3ade2af8291b (patch) | |
| tree | 94e33d4bbeedca7ca6ecf8cead2a25e077246a54 /generic/tclIOUtil.c | |
| parent | f98b2e353536358f9a36a52cb3a593b6958b9666 (diff) | |
| download | tcl-148ced9ceeadb0fede7d548f209c3ade2af8291b.zip tcl-148ced9ceeadb0fede7d548f209c3ade2af8291b.tar.gz tcl-148ced9ceeadb0fede7d548f209c3ade2af8291b.tar.bz2 | |
non-ascii chars in file mtime fix
Diffstat (limited to 'generic/tclIOUtil.c')
| -rw-r--r-- | generic/tclIOUtil.c | 32 |
1 files changed, 2 insertions, 30 deletions
diff --git a/generic/tclIOUtil.c b/generic/tclIOUtil.c index 2145fa2..b1bca76 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.67 2002/12/06 23:22:08 hobbs Exp $ + * RCS: @(#) $Id: tclIOUtil.c,v 1.68 2003/01/09 10:38:29 vincentdarley Exp $ */ #include "tclInt.h" @@ -342,7 +342,6 @@ static Tcl_FSCreateInternalRepProc NativeCreateNativeRep; static Tcl_FSFileAttrStringsProc NativeFileAttrStrings; static Tcl_FSFileAttrsGetProc NativeFileAttrsGet; static Tcl_FSFileAttrsSetProc NativeFileAttrsSet; -static Tcl_FSUtimeProc NativeUtime; /* * The only reason these functions are not static is that they @@ -396,7 +395,7 @@ static Tcl_Filesystem tclNativeFilesystem = { &TclpObjAccess, &TclpOpenFileChannel, &TclpMatchInDirectory, - &NativeUtime, + &TclpUtime, #ifndef S_IFLNK NULL, #else @@ -4987,33 +4986,6 @@ Tcl_FSEqualPaths(firstPtr, secondPtr) } return 0; } - -/* - * utime wants a normalized, NOT native path. I assume a native - * version of 'utime' doesn't exist (at least under that name) on NT/2000. - * If a native function does exist somewhere, then we could use: - * - * return native_utime(Tcl_FSGetNativePath(pathPtr),tval); - * - * This seems rather strange when compared with stat, lstat, access, etc. - * all of which want a native path. - */ -static int -NativeUtime(pathPtr, tval) - Tcl_Obj *pathPtr; - struct utimbuf *tval; -{ -#ifdef MAC_TCL - long gmt_offset=TclpGetGMTOffset(); - struct utimbuf local_tval; - local_tval.actime=tval->actime+gmt_offset; - local_tval.modtime=tval->modtime+gmt_offset; - return utime(Tcl_GetString(Tcl_FSGetNormalizedPath(NULL,pathPtr)), - &local_tval); -#else - return utime(Tcl_GetString(Tcl_FSGetNormalizedPath(NULL,pathPtr)),tval); -#endif -} /* Everything from here on is contained in this obsolete ifdef */ #ifdef USE_OBSOLETE_FS_HOOKS |