From cf24f0cc5f58ca91c49d46e631feeaf536162fb0 Mon Sep 17 00:00:00 2001 From: nijtmans Date: Sat, 4 Oct 2008 11:34:19 +0000 Subject: * doc/RegConfig.3: CONSTified the configuration argument * generic/tcl.decls: of Tcl_RegisterConfig. * generic/tclConfig.c * generic/tclPkgConfig.c * ChangeLog * generic/tclDecls.h: regenerated This change complies with TIP #27. --- ChangeLog | 10 ++++++++++ doc/RegConfig.3 | 4 ++-- generic/tcl.decls | 4 ++-- generic/tclConfig.c | 4 ++-- generic/tclDecls.h | 6 +++--- generic/tclPkgConfig.c | 4 ++-- 6 files changed, 21 insertions(+), 11 deletions(-) diff --git a/ChangeLog b/ChangeLog index 79d990f..0c6ad63 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,5 +1,15 @@ 2008-10-4 Jan Nijtmans + * doc/RegConfig.3: CONSTified the configuration argument + * generic/tcl.decls: of Tcl_RegisterConfig. + * generic/tclConfig.c + * generic/tclPkgConfig.c + * ChangeLog + * generic/tclDecls.h: regenerated + This change complies with TIP #27. + +2008-10-4 Jan Nijtmans + * doc/GetIndex.3: CONSTified the tablePtr argument * generic/tcl.decls: of Tcl_GetIndexFromObj. * generic/tclIndexObj.c diff --git a/doc/RegConfig.3 b/doc/RegConfig.3 index 51d4df2..19a7c7a 100644 --- a/doc/RegConfig.3 +++ b/doc/RegConfig.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: RegConfig.3,v 1.10 2008/08/27 20:29:48 dgp Exp $ +'\" RCS: @(#) $Id: RegConfig.3,v 1.11 2008/10/04 11:34:19 nijtmans Exp $ .so man.macros .TH Tcl_RegisterConfig 3 8.4 Tcl "Tcl Library Procedures" .BS @@ -27,7 +27,7 @@ registered for. Must not be NULL. Contains the name of the package registering the embedded configuration as ASCII string. This means that this information is in UTF-8 too. Must not be NULL. -.AP Tcl_Config *configuration in +.AP "const Tcl_Config" *configuration in Refers to an array of Tcl_Config entries containing the information embedded in the binary library. Must not be NULL. The end of the array is signaled by either a key identical to NULL, or a key referring to diff --git a/generic/tcl.decls b/generic/tcl.decls index 8f9f46a..adcd936 100644 --- a/generic/tcl.decls +++ b/generic/tcl.decls @@ -12,7 +12,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.148 2008/10/04 11:04:43 nijtmans Exp $ +# RCS: @(#) $Id: tcl.decls,v 1.149 2008/10/04 11:34:19 nijtmans Exp $ library tcl @@ -1804,7 +1804,7 @@ declare 504 generic { # New export due to TIP#59 declare 505 generic { void Tcl_RegisterConfig(Tcl_Interp* interp, CONST char* pkgName, - Tcl_Config* configuration, CONST char* valEncoding) + CONST Tcl_Config* configuration, CONST char* valEncoding) } # Transferred from tclInt.decls due to TIP #139 diff --git a/generic/tclConfig.c b/generic/tclConfig.c index e0ee15a..2380430 100644 --- a/generic/tclConfig.c +++ b/generic/tclConfig.c @@ -9,7 +9,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclConfig.c,v 1.22 2008/08/07 22:29:09 nijtmans Exp $ + * RCS: @(#) $Id: tclConfig.c,v 1.23 2008/10/04 11:34:19 nijtmans Exp $ */ #include "tclInt.h" @@ -73,7 +73,7 @@ Tcl_RegisterConfig( const char *pkgName, /* Name of the package registering the * embedded configuration. ASCII, thus in * UTF-8 too. */ - Tcl_Config *configuration, /* Embedded configuration. */ + const Tcl_Config *configuration, /* Embedded configuration. */ const char *valEncoding) /* Name of the encoding used to store the * configuration values, ASCII, thus UTF-8. */ { diff --git a/generic/tclDecls.h b/generic/tclDecls.h index f015e4c..68c220c 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.150 2008/10/04 11:04:43 nijtmans Exp $ + * RCS: @(#) $Id: tclDecls.h,v 1.151 2008/10/04 11:34:20 nijtmans Exp $ */ #ifndef _TCLDECLS @@ -3063,7 +3063,7 @@ EXTERN Tcl_Obj * Tcl_DbNewDictObj (CONST char * file, int line); /* 505 */ EXTERN void Tcl_RegisterConfig (Tcl_Interp* interp, CONST char* pkgName, - Tcl_Config* configuration, + CONST Tcl_Config* configuration, CONST char* valEncoding); #endif #ifndef Tcl_CreateNamespace_TCL_DECLARED @@ -4221,7 +4221,7 @@ typedef struct TclStubs { int (*tcl_DictObjRemoveKeyList) (Tcl_Interp * interp, Tcl_Obj * dictPtr, int keyc, Tcl_Obj *CONST * keyv); /* 502 */ Tcl_Obj * (*tcl_NewDictObj) (void); /* 503 */ Tcl_Obj * (*tcl_DbNewDictObj) (CONST char * file, int line); /* 504 */ - void (*tcl_RegisterConfig) (Tcl_Interp* interp, CONST char* pkgName, Tcl_Config* configuration, CONST char* valEncoding); /* 505 */ + void (*tcl_RegisterConfig) (Tcl_Interp* interp, CONST char* pkgName, CONST Tcl_Config* configuration, CONST char* valEncoding); /* 505 */ Tcl_Namespace * (*tcl_CreateNamespace) (Tcl_Interp * interp, CONST char * name, ClientData clientData, Tcl_NamespaceDeleteProc * deleteProc); /* 506 */ void (*tcl_DeleteNamespace) (Tcl_Namespace * nsPtr); /* 507 */ int (*tcl_AppendExportList) (Tcl_Interp * interp, Tcl_Namespace * nsPtr, Tcl_Obj * objPtr); /* 508 */ diff --git a/generic/tclPkgConfig.c b/generic/tclPkgConfig.c index 10ddc58..72a9b6b 100644 --- a/generic/tclPkgConfig.c +++ b/generic/tclPkgConfig.c @@ -9,7 +9,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclPkgConfig.c,v 1.4 2005/11/07 15:14:09 dkf Exp $ + * RCS: @(#) $Id: tclPkgConfig.c,v 1.5 2008/10/04 11:34:19 nijtmans Exp $ */ /* Note, the definitions in this module are influenced by the following C @@ -90,7 +90,7 @@ # define CFG_PROFILED "0" #endif -static Tcl_Config cfg[] = { +static Tcl_Config const cfg[] = { {"debug", CFG_DEBUG}, {"threaded", CFG_THREADED}, {"profiled", CFG_PROFILED}, -- cgit v0.12