diff options
author | dgp <dgp@noemail.net> | 2002-01-25 22:01:31 (GMT) |
---|---|---|
committer | dgp <dgp@noemail.net> | 2002-01-25 22:01:31 (GMT) |
commit | a05d2c7670008987246fc3b329292a305d96c0f4 (patch) | |
tree | 32c26ed603d296c79d882b996758ea3cdd0caacb /generic/tclInt.decls | |
parent | 222ad06ccbcc936b9c7251f2b0cfa2f2c65daf3d (diff) | |
download | tcl-a05d2c7670008987246fc3b329292a305d96c0f4.zip tcl-a05d2c7670008987246fc3b329292a305d96c0f4.tar.gz tcl-a05d2c7670008987246fc3b329292a305d96c0f4.tar.bz2 |
* [Patch 501006] Updated APIs in generic/tclResolve.c
and generic/tclNamesp.c according to the guidelines of TIP 27.
FossilOrigin-Name: f9df4b63e5a14e1897d89ae9d1e4a7a1d98630fa
Diffstat (limited to 'generic/tclInt.decls')
-rw-r--r-- | generic/tclInt.decls | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/generic/tclInt.decls b/generic/tclInt.decls index e8613f2..008b1d3 100644 --- a/generic/tclInt.decls +++ b/generic/tclInt.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: tclInt.decls,v 1.43 2002/01/25 20:40:55 dgp Exp $ +# RCS: @(#) $Id: tclInt.decls,v 1.44 2002/01/25 22:01:31 dgp Exp $ library tcl @@ -431,7 +431,7 @@ declare 109 generic { # defined here instead of in tcl.decls since they are not stable yet. declare 111 generic { - void Tcl_AddInterpResolvers(Tcl_Interp *interp, char *name, \ + void Tcl_AddInterpResolvers(Tcl_Interp *interp, CONST char *name, \ Tcl_ResolveCmdProc *cmdProc, Tcl_ResolveVarProc *varProc, \ Tcl_ResolveCompiledVarProc *compiledVarProc) } @@ -447,19 +447,19 @@ declare 114 generic { void Tcl_DeleteNamespace(Tcl_Namespace *nsPtr) } declare 115 generic { - int Tcl_Export(Tcl_Interp *interp, Tcl_Namespace *nsPtr, char *pattern, \ - int resetListFirst) + int Tcl_Export(Tcl_Interp *interp, Tcl_Namespace *nsPtr, \ + CONST char *pattern, int resetListFirst) } declare 116 generic { Tcl_Command Tcl_FindCommand(Tcl_Interp *interp, CONST char *name, \ Tcl_Namespace *contextNsPtr, int flags) } declare 117 generic { - Tcl_Namespace * Tcl_FindNamespace(Tcl_Interp *interp, char *name, \ + Tcl_Namespace * Tcl_FindNamespace(Tcl_Interp *interp, CONST char *name, \ Tcl_Namespace *contextNsPtr, int flags) } declare 118 generic { - int Tcl_GetInterpResolvers(Tcl_Interp *interp, char *name, \ + int Tcl_GetInterpResolvers(Tcl_Interp *interp, CONST char *name, \ Tcl_ResolverInfo *resInfo) } declare 119 generic { @@ -472,7 +472,7 @@ declare 120 generic { } declare 121 generic { int Tcl_ForgetImport(Tcl_Interp *interp, Tcl_Namespace *nsPtr, \ - char *pattern) + CONST char *pattern) } declare 122 generic { Tcl_Command Tcl_GetCommandFromObj(Tcl_Interp *interp, Tcl_Obj *objPtr) @@ -493,7 +493,7 @@ declare 126 generic { } declare 127 generic { int Tcl_Import(Tcl_Interp *interp, Tcl_Namespace *nsPtr, \ - char *pattern, int allowOverwrite) + CONST char *pattern, int allowOverwrite) } declare 128 generic { void Tcl_PopCallFrame(Tcl_Interp* interp) @@ -503,7 +503,7 @@ declare 129 generic { Tcl_Namespace *nsPtr, int isProcCallFrame) } declare 130 generic { - int Tcl_RemoveInterpResolvers(Tcl_Interp *interp, char *name) + int Tcl_RemoveInterpResolvers(Tcl_Interp *interp, CONST char *name) } declare 131 generic { void Tcl_SetNamespaceResolvers(Tcl_Namespace *namespacePtr, \ |