diff options
| author | das <das> | 2004-03-17 18:14:11 (GMT) |
|---|---|---|
| committer | das <das> | 2004-03-17 18:14:11 (GMT) |
| commit | 0205867a3dad7204c57477b6c38c52b981af36e1 (patch) | |
| tree | b40c5ed765d71e7cb68ba178c3f3a098638c9987 /generic/tclCmdAH.c | |
| parent | b07cf17d9c57bb355e84b17470235902854c7d40 (diff) | |
| download | tcl-0205867a3dad7204c57477b6c38c52b981af36e1.zip tcl-0205867a3dad7204c57477b6c38c52b981af36e1.tar.gz tcl-0205867a3dad7204c57477b6c38c52b981af36e1.tar.bz2 | |
Removed support for Mac OS Classic platform [Patch 918142]
Diffstat (limited to 'generic/tclCmdAH.c')
| -rw-r--r-- | generic/tclCmdAH.c | 11 |
1 files changed, 4 insertions, 7 deletions
diff --git a/generic/tclCmdAH.c b/generic/tclCmdAH.c index b9ddd58..ddb36ba 100644 --- a/generic/tclCmdAH.c +++ b/generic/tclCmdAH.c @@ -11,7 +11,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclCmdAH.c,v 1.42 2004/03/09 12:59:04 vincentdarley Exp $ + * RCS: @(#) $Id: tclCmdAH.c,v 1.43 2004/03/17 18:14:13 das Exp $ */ #include "tclInt.h" @@ -822,7 +822,7 @@ Tcl_ExprObjCmd(dummy, interp, objc, objv) * This procedure is invoked to process the "file" Tcl command. * See the user documentation for details on what it does. * PLEASE NOTE THAT THIS FAILS WITH FILENAMES AND PATHS WITH - * EMBEDDED NULLS, WHICH COULD THEORETICALLY HAPPEN ON A MAC. + * EMBEDDED NULLS. * With the object-based Tcl_FS APIs, the above NOTE may no * longer be true. In any case this assertion should be tested. * @@ -1237,11 +1237,11 @@ Tcl_FileObjCmd(dummy, interp, objc, objv) value = 0; if (GetStatBuf(NULL, objv[2], Tcl_FSStat, &buf) == TCL_OK) { /* - * For Windows and Macintosh, there are no user ids + * For Windows, there are no user ids * associated with a file, so we always return 1. */ -#if (defined(__WIN32__) || defined(MAC_TCL)) +#if defined(__WIN32__) value = 1; #else value = (geteuid() == buf.st_uid); @@ -1326,9 +1326,6 @@ Tcl_FileObjCmd(dummy, interp, objc, objv) case TCL_PLATFORM_WINDOWS: separator = "\\"; break; - case TCL_PLATFORM_MAC: - separator = ":"; - break; } Tcl_SetObjResult(interp, Tcl_NewStringObj(separator,1)); } else { |