diff options
| author | dgp <dgp@users.sourceforge.net> | 2008-07-08 17:53:14 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2008-07-08 17:53:14 (GMT) |
| commit | d88ab4d4e3fee06039e0467e46b7805dafdf9140 (patch) | |
| tree | 5ccab9986892961e42d9ec66f9fe18a781eb825d /generic | |
| parent | ae0cb213667adc6b1311ce40f90e82eb14673082 (diff) | |
| download | tcl-d88ab4d4e3fee06039e0467e46b7805dafdf9140.zip tcl-d88ab4d4e3fee06039e0467e46b7805dafdf9140.tar.gz tcl-d88ab4d4e3fee06039e0467e46b7805dafdf9140.tar.bz2 | |
* generic/tclGet.c: Corrected out of date comments.
Diffstat (limited to 'generic')
| -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 ca93466..969a7bd 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.20 2007/12/13 15:23:17 dgp Exp $ + * RCS: @(#) $Id: tclGet.c,v 1.20.2.1 2008/07/08 17:53:14 dgp Exp $ */ #include "tclInt.h" @@ -39,7 +39,8 @@ int Tcl_GetInt( Tcl_Interp *interp, /* Interpreter to use for error reporting. */ CONST char *src, /* String containing a (possibly signed) - * integer in a form acceptable to strtoul. */ + * integer in a form acceptable to + * Tcl_GetIntFromObj(). */ int *intPtr) /* Place to store converted result. */ { Tcl_Obj obj; @@ -83,7 +84,8 @@ TclGetLong( Tcl_Interp *interp, /* Interpreter used for error reporting if not * NULL. */ CONST char *src, /* String containing a (possibly signed) long - * integer in a form acceptable to strtoul. */ + * integer in a form acceptable to + * Tcl_GetLongFromObj(). */ long *longPtr) /* Place to store converted long result. */ { Tcl_Obj obj; @@ -125,7 +127,8 @@ int Tcl_GetDouble( Tcl_Interp *interp, /* Interpreter used for error reporting. */ CONST char *src, /* String containing a floating-point number - * in a form acceptable to strtod. */ + * in a form acceptable to + * Tcl_GetDoubleFromObj(). */ double *doublePtr) /* Place to store converted result. */ { Tcl_Obj obj; @@ -166,9 +169,8 @@ Tcl_GetDouble( int Tcl_GetBoolean( Tcl_Interp *interp, /* Interpreter used for error reporting. */ - CONST char *src, /* String containing a boolean number - * specified either as 1/0 or true/false or - * yes/no. */ + CONST char *src, /* String containing one of the boolean values + * 1, 0, true, false, yes, no, on off. */ int *boolPtr) /* Place to store converted result, which will * be 0 or 1. */ { |