diff options
| author | dgp <dgp@users.sourceforge.net> | 2001-09-25 16:23:55 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2001-09-25 16:23:55 (GMT) |
| commit | a6c26a069d4a7aa7cd5420cabb2a7614de09f299 (patch) | |
| tree | f40b58c1e7b96d42ea434c52d0a455b5f0b98fe5 /generic/tclGet.c | |
| parent | fd249dfdc3e190e696aaf52a71f88090dd7fe935 (diff) | |
| download | tcl-a6c26a069d4a7aa7cd5420cabb2a7614de09f299.zip tcl-a6c26a069d4a7aa7cd5420cabb2a7614de09f299.tar.gz tcl-a6c26a069d4a7aa7cd5420cabb2a7614de09f299.tar.bz2 | |
* Updated APIs in generic/tclGet.c
according to the guidelines of TIP 27. [Patch 464674]
Diffstat (limited to 'generic/tclGet.c')
| -rw-r--r-- | generic/tclGet.c | 16 |
1 files changed, 9 insertions, 7 deletions
diff --git a/generic/tclGet.c b/generic/tclGet.c index aa60799..a42a3f1 100644 --- a/generic/tclGet.c +++ b/generic/tclGet.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: tclGet.c,v 1.6 2000/03/31 19:39:42 ericm Exp $ + * RCS: @(#) $Id: tclGet.c,v 1.7 2001/09/25 16:23:56 dgp Exp $ */ #include "tclInt.h" @@ -41,11 +41,12 @@ int Tcl_GetInt(interp, string, intPtr) Tcl_Interp *interp; /* Interpreter to use for error reporting. */ - char *string; /* String containing a (possibly signed) + CONST char *string; /* String containing a (possibly signed) * integer in a form acceptable to strtol. */ int *intPtr; /* Place to store converted result. */ { - char *end, *p; + char *end; + CONST char *p; long i; /* @@ -128,12 +129,13 @@ int TclGetLong(interp, string, longPtr) Tcl_Interp *interp; /* Interpreter used for error reporting * if not NULL. */ - char *string; /* String containing a (possibly signed) + CONST char *string; /* String containing a (possibly signed) * long integer in a form acceptable to * strtoul. */ long *longPtr; /* Place to store converted long result. */ { - char *end, *p; + char *end; + CONST char *p; long i; /* @@ -205,7 +207,7 @@ TclGetLong(interp, string, longPtr) int Tcl_GetDouble(interp, string, doublePtr) Tcl_Interp *interp; /* Interpreter used for error reporting. */ - char *string; /* String containing a floating-point number + CONST char *string; /* String containing a floating-point number * in a form acceptable to strtod. */ double *doublePtr; /* Place to store converted result. */ { @@ -262,7 +264,7 @@ Tcl_GetDouble(interp, string, doublePtr) int Tcl_GetBoolean(interp, string, boolPtr) Tcl_Interp *interp; /* Interpreter used for error reporting. */ - char *string; /* String containing a boolean number + CONST char *string; /* String containing a boolean number * specified either as 1/0 or true/false or * yes/no. */ int *boolPtr; /* Place to store converted result, which |