From b725003f03a39521f6ea93c9ee3f7a688eb96674 Mon Sep 17 00:00:00 2001 From: Kevin B Kenny Date: Tue, 26 Sep 2006 23:01:10 +0000 Subject: TIP 27 changes for Tcl_CreateEncoding --- ChangeLog | 7 +++++++ doc/Encoding.3 | 6 +++--- generic/tcl.decls | 4 ++-- generic/tclDecls.h | 6 +++--- generic/tclEncoding.c | 4 ++-- 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 + + * 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 * 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; -- cgit v0.12