diff options
| author | das <das@noemail.net> | 2002-05-20 10:22:20 (GMT) |
|---|---|---|
| committer | das <das@noemail.net> | 2002-05-20 10:22:20 (GMT) |
| commit | b2e9c568a7c186dd439825824cec0274cd7d002a (patch) | |
| tree | d1c4ef8ee74fc2ea0fffb8c912f056d9a1d3f803 /mac | |
| parent | 54874fb5da59efc980bea379fed2a36d21d39812 (diff) | |
| download | tcl-b2e9c568a7c186dd439825824cec0274cd7d002a.zip tcl-b2e9c568a7c186dd439825824cec0274cd7d002a.tar.gz tcl-b2e9c568a7c186dd439825824cec0274cd7d002a.tar.bz2 | |
* generic/tclInt.h: added prototype for TclpFilesystemPathType().
* mac/tclMacChan.c: use MSL provided creator type if available
instead of the default 'MPW '.
FossilOrigin-Name: 66a3c8ac714c2252159e30c1745015514625729c
Diffstat (limited to 'mac')
| -rw-r--r-- | mac/tclMacChan.c | 10 |
1 files changed, 8 insertions, 2 deletions
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); |