summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2001-09-27 00:19:57 (GMT)
committerdgp <dgp@users.sourceforge.net>2001-09-27 00:19:57 (GMT)
commit073702fdd13f3a1c8c129b1fc0ac838f01b4d11b (patch)
tree11719d8041bc71444822ebd3d7e40e25c1c4323e
parenta6c26a069d4a7aa7cd5420cabb2a7614de09f299 (diff)
downloadtcl-073702fdd13f3a1c8c129b1fc0ac838f01b4d11b.zip
tcl-073702fdd13f3a1c8c129b1fc0ac838f01b4d11b.tar.gz
tcl-073702fdd13f3a1c8c129b1fc0ac838f01b4d11b.tar.bz2
* Vince Darley reports the 2001-09-24 TIP 27 changes left the win
directory CONST poisoned. These changes should fix that.
-rw-r--r--ChangeLog11
-rw-r--r--doc/SplitPath.34
-rw-r--r--generic/tcl.decls4
-rw-r--r--generic/tclDecls.h6
-rw-r--r--generic/tclFileName.c4
-rw-r--r--win/tclWinFile.c7
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 <dgp@users.sourceforge.net>
+
+ * 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 <dgp@users.sourceforge.net>
* 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);