summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorKevin B Kenny <kennykb@acm.org>2006-09-26 23:01:10 (GMT)
committerKevin B Kenny <kennykb@acm.org>2006-09-26 23:01:10 (GMT)
commitb725003f03a39521f6ea93c9ee3f7a688eb96674 (patch)
tree0ce810c294bb948261ddbab693ef6d314cde3a0d
parent6142afe35274394fb66bf8ec381f250f4cb9dd11 (diff)
downloadtcl-b725003f03a39521f6ea93c9ee3f7a688eb96674.zip
tcl-b725003f03a39521f6ea93c9ee3f7a688eb96674.tar.gz
tcl-b725003f03a39521f6ea93c9ee3f7a688eb96674.tar.bz2
TIP 27 changes for Tcl_CreateEncoding
-rw-r--r--ChangeLog7
-rw-r--r--doc/Encoding.36
-rw-r--r--generic/tcl.decls4
-rw-r--r--generic/tclDecls.h6
-rw-r--r--generic/tclEncoding.c4
5 files changed, 17 insertions, 10 deletions
diff --git a/ChangeLog b/ChangeLog
index 1fcf3c2..78a39c7 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,10 @@
+2006-09-26 Kevin Kenny <kennykb@acm.org>
+
+ * doc/Encoding.3: Added covariant 'const' qualifier for the
+ * generic/tcl.decls: Tcl_EncodingType argument to
+ * generic/tclEncoding.c: Tcl_CreateEncoding. [Further TIP#27 work.]
+ * generic/tclDecls.h: Reran 'make genstubs'.
+
2006-09-26 Pat Thoyts <patthoyts@users.sourceforge.net>
* win/makefile.vc: Additional compiler flags and amd64 support.
diff --git a/doc/Encoding.3 b/doc/Encoding.3
index 940eb56..00b9cef 100644
--- a/doc/Encoding.3
+++ b/doc/Encoding.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: Encoding.3,v 1.23 2006/02/08 22:37:50 dgp Exp $
+'\" RCS: @(#) $Id: Encoding.3,v 1.24 2006/09/26 23:01:10 kennykb Exp $
'\"
.so man.macros
.TH Tcl_GetEncoding 3 "8.1" Tcl "Tcl Library Procedures"
@@ -77,7 +77,7 @@ const char *
void
\fBTcl_SetDefaultEncodingDir\fR(\fIpath\fR)
.SH ARGUMENTS
-.AS Tcl_EncodingState *dstWrotePtr in/out
+.AS "const Tcl_EncodingType" *dstWrotePtr in/out
.AP Tcl_Interp *interp in
Interpreter to use for error reporting, or NULL if no error reporting is
desired.
@@ -150,7 +150,7 @@ stored in the output buffer. May be NULL.
.VS 8.5
Storage for the prescribed system encoding name.
.VE 8.5
-.AP Tcl_EncodingType *typePtr in
+.AP "const Tcl_EncodingType" *typePtr in
Structure that defines a new type of encoding.
.AP Tcl_Obj *searchPath in
.VS 8.5
diff --git a/generic/tcl.decls b/generic/tcl.decls
index 189bcaf..d92985f 100644
--- a/generic/tcl.decls
+++ b/generic/tcl.decls
@@ -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: tcl.decls,v 1.121 2006/09/22 18:13:27 andreas_kupries Exp $
+# RCS: @(#) $Id: tcl.decls,v 1.122 2006/09/26 23:01:10 kennykb Exp $
library tcl
@@ -1036,7 +1036,7 @@ declare 286 generic {
void Tcl_AppendObjToObj(Tcl_Obj *objPtr, Tcl_Obj *appendObjPtr)
}
declare 287 generic {
- Tcl_Encoding Tcl_CreateEncoding(Tcl_EncodingType *typePtr)
+ Tcl_Encoding Tcl_CreateEncoding(const Tcl_EncodingType *typePtr)
}
declare 288 generic {
void Tcl_CreateThreadExitHandler(Tcl_ExitProc *proc, ClientData clientData)
diff --git a/generic/tclDecls.h b/generic/tclDecls.h
index 35776db..5a8de11 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.123 2006/09/22 18:13:28 andreas_kupries Exp $
+ * RCS: @(#) $Id: tclDecls.h,v 1.124 2006/09/26 23:01:10 kennykb Exp $
*/
#ifndef _TCLDECLS
@@ -1818,7 +1818,7 @@ EXTERN void Tcl_AppendObjToObj _ANSI_ARGS_((Tcl_Obj * objPtr,
#define Tcl_CreateEncoding_TCL_DECLARED
/* 287 */
EXTERN Tcl_Encoding Tcl_CreateEncoding _ANSI_ARGS_((
- Tcl_EncodingType * typePtr));
+ const Tcl_EncodingType * typePtr));
#endif
#ifndef Tcl_CreateThreadExitHandler_TCL_DECLARED
#define Tcl_CreateThreadExitHandler_TCL_DECLARED
@@ -3907,7 +3907,7 @@ typedef struct TclStubs {
void (*tcl_SetMainLoop) _ANSI_ARGS_((Tcl_MainLoopProc * proc)); /* 284 */
void *reserved285;
void (*tcl_AppendObjToObj) _ANSI_ARGS_((Tcl_Obj * objPtr, Tcl_Obj * appendObjPtr)); /* 286 */
- Tcl_Encoding (*tcl_CreateEncoding) _ANSI_ARGS_((Tcl_EncodingType * typePtr)); /* 287 */
+ Tcl_Encoding (*tcl_CreateEncoding) _ANSI_ARGS_((const Tcl_EncodingType * typePtr)); /* 287 */
void (*tcl_CreateThreadExitHandler) _ANSI_ARGS_((Tcl_ExitProc * proc, ClientData clientData)); /* 288 */
void (*tcl_DeleteThreadExitHandler) _ANSI_ARGS_((Tcl_ExitProc * proc, ClientData clientData)); /* 289 */
void (*tcl_DiscardResult) _ANSI_ARGS_((Tcl_SavedResult * statePtr)); /* 290 */
diff --git a/generic/tclEncoding.c b/generic/tclEncoding.c
index f5e216a..a766013 100644
--- a/generic/tclEncoding.c
+++ b/generic/tclEncoding.c
@@ -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: tclEncoding.c,v 1.43 2006/08/09 18:12:25 dgp Exp $
+ * RCS: @(#) $Id: tclEncoding.c,v 1.44 2006/09/26 23:01:11 kennykb Exp $
*/
#include "tclInt.h"
@@ -983,7 +983,7 @@ Tcl_SetSystemEncoding(
Tcl_Encoding
Tcl_CreateEncoding(
- Tcl_EncodingType *typePtr) /* The encoding type. */
+ const Tcl_EncodingType *typePtr) /* The encoding type. */
{
Tcl_HashEntry *hPtr;
int new;