diff options
Diffstat (limited to 'macosx/tclMacOSXFCmd.c')
| -rw-r--r-- | macosx/tclMacOSXFCmd.c | 13 |
1 files changed, 6 insertions, 7 deletions
diff --git a/macosx/tclMacOSXFCmd.c b/macosx/tclMacOSXFCmd.c index 6b32726..885a450 100644 --- a/macosx/tclMacOSXFCmd.c +++ b/macosx/tclMacOSXFCmd.c @@ -4,13 +4,12 @@ * This file implements the MacOSX specific portion of file manipulation * subcommands of the "file" command. * - * Copyright (c) 2003 Tcl Core Team. - * Copyright (c) 2003-2006 Daniel A. Steffen <das@users.sourceforge.net> + * Copyright (c) 2003-2007 Daniel A. Steffen <das@users.sourceforge.net> * * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclMacOSXFCmd.c,v 1.11 2007/01/19 01:03:59 das Exp $ + * RCS: @(#) $Id: tclMacOSXFCmd.c,v 1.12 2007/04/23 20:46:14 das Exp $ */ #include "tclInt.h" @@ -71,7 +70,7 @@ typedef u_int32_t OSType; static int GetOSTypeFromObj(Tcl_Interp *interp, Tcl_Obj *objPtr, OSType *osTypePtr); -static Tcl_Obj * NewOSTypeObj(CONST OSType newOSType); +static Tcl_Obj * NewOSTypeObj(const OSType newOSType); static int SetOSTypeFromAny(Tcl_Interp *interp, Tcl_Obj *objPtr); static void UpdateStringOfOSType(Tcl_Obj *objPtr); @@ -135,7 +134,7 @@ TclMacOSXGetFileAttribute( fileinfobuf finfo; finderinfo *finder = (finderinfo*)(&finfo.data); off_t *rsrcForkSize = (off_t*)(&finfo.data); - CONST char *native; + const char *native; result = TclpObjStat(fileName, &statBuf); @@ -227,7 +226,7 @@ TclMacOSXSetFileAttribute( fileinfobuf finfo; finderinfo *finder = (finderinfo*)(&finfo.data); off_t *rsrcForkSize = (off_t*)(&finfo.data); - CONST char *native; + const char *native; result = TclpObjStat(fileName, &statBuf); @@ -585,7 +584,7 @@ GetOSTypeFromObj( static Tcl_Obj * NewOSTypeObj( - CONST OSType osType) /* OSType used to initialize the new object. */ + const OSType osType) /* OSType used to initialize the new object. */ { Tcl_Obj *objPtr; |