summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2008-07-08 17:53:14 (GMT)
committerdgp <dgp@users.sourceforge.net>2008-07-08 17:53:14 (GMT)
commitd88ab4d4e3fee06039e0467e46b7805dafdf9140 (patch)
tree5ccab9986892961e42d9ec66f9fe18a781eb825d /generic
parentae0cb213667adc6b1311ce40f90e82eb14673082 (diff)
downloadtcl-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.c16
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. */
{