summaryrefslogtreecommitdiffstats
path: root/unix/tclUnixFile.c
diff options
context:
space:
mode:
authorvincentdarley <vincentdarley>2003-01-09 10:38:28 (GMT)
committervincentdarley <vincentdarley>2003-01-09 10:38:28 (GMT)
commit148ced9ceeadb0fede7d548f209c3ade2af8291b (patch)
tree94e33d4bbeedca7ca6ecf8cead2a25e077246a54 /unix/tclUnixFile.c
parentf98b2e353536358f9a36a52cb3a593b6958b9666 (diff)
downloadtcl-148ced9ceeadb0fede7d548f209c3ade2af8291b.zip
tcl-148ced9ceeadb0fede7d548f209c3ade2af8291b.tar.gz
tcl-148ced9ceeadb0fede7d548f209c3ade2af8291b.tar.bz2
non-ascii chars in file mtime fix
Diffstat (limited to 'unix/tclUnixFile.c')
-rw-r--r--unix/tclUnixFile.c25
1 files changed, 24 insertions, 1 deletions
diff --git a/unix/tclUnixFile.c b/unix/tclUnixFile.c
index 0fe97d6..2dacb64 100644
--- a/unix/tclUnixFile.c
+++ b/unix/tclUnixFile.c
@@ -9,7 +9,7 @@
* See the file "license.terms" for information on usage and redistribution
* of this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclUnixFile.c,v 1.28 2002/09/03 02:01:42 hobbs Exp $
+ * RCS: @(#) $Id: tclUnixFile.c,v 1.29 2003/01/09 10:38:34 vincentdarley Exp $
*/
#include "tclInt.h"
@@ -813,3 +813,26 @@ TclpFilesystemPathType(pathObjPtr)
/* All native paths are of the same type */
return NULL;
}
+
+/*
+ *---------------------------------------------------------------------------
+ *
+ * TclpUtime --
+ *
+ * Set the modification date for a file.
+ *
+ * Results:
+ * 0 on success, -1 on error.
+ *
+ * Side effects:
+ * None.
+ *
+ *---------------------------------------------------------------------------
+ */
+int
+TclpUtime(pathPtr, tval)
+ Tcl_Obj *pathPtr; /* File to modify */
+ struct utimbuf *tval; /* New modification date structure */
+{
+ return utime(Tcl_FSGetNativePath(pathPtr),tval);
+}