From 073702fdd13f3a1c8c129b1fc0ac838f01b4d11b Mon Sep 17 00:00:00 2001 From: dgp Date: Thu, 27 Sep 2001 00:19:57 +0000 Subject: * Vince Darley reports the 2001-09-24 TIP 27 changes left the win directory CONST poisoned. These changes should fix that. --- ChangeLog | 11 +++++++++++ doc/SplitPath.3 | 4 ++-- generic/tcl.decls | 4 ++-- generic/tclDecls.h | 6 +++--- generic/tclFileName.c | 4 ++-- win/tclWinFile.c | 7 ++++--- 6 files changed, 24 insertions(+), 12 deletions(-) diff --git a/ChangeLog b/ChangeLog index b83a8e4..8e541a3 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,14 @@ +2001-09-26 Don Porter + + * doc/SplitPath.3 (Tcl_GetPathType): + * generic/tcl.decls (Tcl_GetPathType): + * generic/tclFileName.c (Tcl_GetPathType): + * win/tclWinFile.c (TclpMatchInDirectory, NativeStat): Vince + Darley reports the 2001-09-24 TIP 27 changes left the win + directory CONST poisoned. These changes should fix that. + + * generic/tclDecls.h: make genstubs + 2001-09-25 Don Porter * doc/GetInt.3: diff --git a/doc/SplitPath.3 b/doc/SplitPath.3 index 71ebe82..165df09 100644 --- a/doc/SplitPath.3 +++ b/doc/SplitPath.3 @@ -4,7 +4,7 @@ '\" See the file "license.terms" for information on usage and redistribution '\" of this file, and for a DISCLAIMER OF ALL WARRANTIES. '\" -'\" RCS: @(#) $Id: SplitPath.3,v 1.3 2001/08/23 17:37:07 vincentdarley Exp $ +'\" RCS: @(#) $Id: SplitPath.3,v 1.4 2001/09/27 00:19:57 dgp Exp $ '\" .so man.macros .TH Tcl_SplitPath 3 7.5 Tcl "Tcl Library Procedures" @@ -24,7 +24,7 @@ Tcl_PathType \fBTcl_GetPathType\fR(\fIpath\fR) .SH ARGUMENTS .AS Tcl_DString ***argvPtr -.AP char *path in +.AP "CONST char" *path in File path in a form appropriate for the current platform (see the \fBfilename\fR manual entry for acceptable forms for path names). .AP int *argcPtr out diff --git a/generic/tcl.decls b/generic/tcl.decls index d80e3fa..62cc523 100644 --- a/generic/tcl.decls +++ b/generic/tcl.decls @@ -10,7 +10,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: tcl.decls,v 1.60 2001/09/25 16:23:55 dgp Exp $ +# RCS: @(#) $Id: tcl.decls,v 1.61 2001/09/27 00:19:57 dgp Exp $ library tcl @@ -605,7 +605,7 @@ declare 167 unix { # Obsolete. Should now use Tcl_FSGetPathType which is objectified # and therefore usually faster. declare 168 generic { - Tcl_PathType Tcl_GetPathType(char *path) + Tcl_PathType Tcl_GetPathType(CONST char *path) } declare 169 generic { int Tcl_Gets(Tcl_Channel chan, Tcl_DString *dsPtr) diff --git a/generic/tclDecls.h b/generic/tclDecls.h index 5138a50..fe42b3b 100644 --- a/generic/tclDecls.h +++ b/generic/tclDecls.h @@ -8,7 +8,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclDecls.h,v 1.60 2001/09/25 16:23:55 dgp Exp $ + * RCS: @(#) $Id: tclDecls.h,v 1.61 2001/09/27 00:19:57 dgp Exp $ */ #ifndef _TCLDECLS @@ -551,7 +551,7 @@ EXTERN int Tcl_GetOpenFile _ANSI_ARGS_((Tcl_Interp * interp, ClientData * filePtr)); #endif /* UNIX */ /* 168 */ -EXTERN Tcl_PathType Tcl_GetPathType _ANSI_ARGS_((char * path)); +EXTERN Tcl_PathType Tcl_GetPathType _ANSI_ARGS_((CONST char * path)); /* 169 */ EXTERN int Tcl_Gets _ANSI_ARGS_((Tcl_Channel chan, Tcl_DString * dsPtr)); @@ -1716,7 +1716,7 @@ typedef struct TclStubs { #ifdef MAC_TCL void *reserved167; #endif /* MAC_TCL */ - Tcl_PathType (*tcl_GetPathType) _ANSI_ARGS_((char * path)); /* 168 */ + Tcl_PathType (*tcl_GetPathType) _ANSI_ARGS_((CONST char * path)); /* 168 */ int (*tcl_Gets) _ANSI_ARGS_((Tcl_Channel chan, Tcl_DString * dsPtr)); /* 169 */ int (*tcl_GetsObj) _ANSI_ARGS_((Tcl_Channel chan, Tcl_Obj * objPtr)); /* 170 */ int (*tcl_GetServiceMode) _ANSI_ARGS_((void)); /* 171 */ diff --git a/generic/tclFileName.c b/generic/tclFileName.c index 3eb9a17..4c2a580 100644 --- a/generic/tclFileName.c +++ b/generic/tclFileName.c @@ -10,7 +10,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclFileName.c,v 1.20 2001/09/04 18:06:34 vincentdarley Exp $ + * RCS: @(#) $Id: tclFileName.c,v 1.21 2001/09/27 00:19:57 dgp Exp $ */ #include "tclInt.h" @@ -272,7 +272,7 @@ ExtractWinRoot(path, resultPtr, offset, typePtr) Tcl_PathType Tcl_GetPathType(path) - char *path; + CONST char *path; { Tcl_PathType type; Tcl_Obj *tempObj = Tcl_NewStringObj(path,-1); diff --git a/win/tclWinFile.c b/win/tclWinFile.c index 1cce9fd..cb4e683 100644 --- a/win/tclWinFile.c +++ b/win/tclWinFile.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: tclWinFile.c,v 1.15 2001/09/10 17:17:41 andreas_kupries Exp $ + * RCS: @(#) $Id: tclWinFile.c,v 1.16 2001/09/27 00:19:57 dgp Exp $ */ #include "tclWinInt.h" @@ -121,7 +121,8 @@ TclpMatchInDirectory(interp, resultPtr, pathPtr, pattern, types) { char drivePat[] = "?:\\"; const char *message; - char *dir, *root; + CONST char *dir; + char *root; int dirLength; Tcl_DString dirString; DWORD attr, volFlags; @@ -887,7 +888,7 @@ NativeStat(nativePath, statPtr) DWORD attr; WCHAR nativeFullPath[MAX_PATH]; TCHAR *nativePart; - char *fullPath; + CONST char *fullPath; int dev, mode; handle = (*tclWinProcs->findFirstFileProc)(nativePath, &data); -- cgit v0.12