diff options
| author | das <das> | 2002-05-20 10:22:20 (GMT) |
|---|---|---|
| committer | das <das> | 2002-05-20 10:22:20 (GMT) |
| commit | e0c4b53d5b6dd002350c769dbb457b715f63daed (patch) | |
| tree | d1c4ef8ee74fc2ea0fffb8c912f056d9a1d3f803 | |
| parent | 8fc6a5c4266eef42d854a03f6a4458545464916d (diff) | |
| download | tcl-e0c4b53d5b6dd002350c769dbb457b715f63daed.zip tcl-e0c4b53d5b6dd002350c769dbb457b715f63daed.tar.gz tcl-e0c4b53d5b6dd002350c769dbb457b715f63daed.tar.bz2 | |
* generic/tclInt.h: added prototype for TclpFilesystemPathType().
* mac/tclMacChan.c: use MSL provided creator type if available
instead of the default 'MPW '.
| -rw-r--r-- | ChangeLog | 7 | ||||
| -rw-r--r-- | generic/tclInt.h | 4 | ||||
| -rw-r--r-- | mac/tclMacChan.c | 10 |
3 files changed, 18 insertions, 3 deletions
@@ -1,4 +1,11 @@ +2002-05-20 Daniel Steffen <das@users.sourceforge.net> + + * generic/tclInt.h: added prototype for TclpFilesystemPathType(). + * mac/tclMacChan.c: use MSL provided creator type if available + instead of the default 'MPW '. + 2002-05-16 Joe English <jenglish@users.sf.net> + * doc/CrtObjCmd.3: Added Tcl_GetCommandFromObj, Tcl_GetCommandFullName (Tcl Bug #547987, #414921) diff --git a/generic/tclInt.h b/generic/tclInt.h index 7346bd2..3a94802 100644 --- a/generic/tclInt.h +++ b/generic/tclInt.h @@ -12,7 +12,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclInt.h,v 1.87 2002/05/13 13:20:00 vincentdarley Exp $ + * RCS: @(#) $Id: tclInt.h,v 1.88 2002/05/20 10:22:26 das Exp $ */ #ifndef _TCLINT @@ -1925,6 +1925,8 @@ EXTERN void TclTransferResult _ANSI_ARGS_((Tcl_Interp *sourceInterp, EXTERN int TclUpdateReturnInfo _ANSI_ARGS_((Interp *iPtr)); EXTERN Tcl_Obj* TclpNativeToNormalized _ANSI_ARGS_((ClientData clientData)); +EXTERN Tcl_Obj* TclpFilesystemPathType + _ANSI_ARGS_((Tcl_Obj* pathObjPtr)); /* *---------------------------------------------------------------- diff --git a/mac/tclMacChan.c b/mac/tclMacChan.c index 6b83e2f..7daa41b 100644 --- a/mac/tclMacChan.c +++ b/mac/tclMacChan.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: tclMacChan.c,v 1.13 2002/02/15 14:28:49 dkf Exp $ + * RCS: @(#) $Id: tclMacChan.c,v 1.14 2002/05/20 10:22:33 das Exp $ */ #include "tclInt.h" @@ -25,6 +25,12 @@ #include <MoreFiles.h> #include <MoreFilesExtras.h> +#ifdef __MSL__ +#include <unix.mac.h> +#define TCL_FILE_CREATOR (__getcreator(0)) +#else +#define TCL_FILE_CREATOR 'MPW ' +#endif /* * The following are flags returned by GetOpenMode. They @@ -858,7 +864,7 @@ OpenFileChannel( } if ((err == fnfErr) && (mode & TCL_CREAT)) { - err = HCreate(fileSpec.vRefNum, fileSpec.parID, fileSpec.name, 'MPW ', 'TEXT'); + err = HCreate(fileSpec.vRefNum, fileSpec.parID, fileSpec.name, TCL_FILE_CREATOR, 'TEXT'); if (err != noErr) { *errorCodePtr = errno = TclMacOSErrorToPosixError(err); Tcl_SetErrno(errno); |