summaryrefslogtreecommitdiffstats
path: root/generic/tclGet.c
diff options
context:
space:
mode:
Diffstat (limited to 'generic/tclGet.c')
-rw-r--r--generic/tclGet.c35
1 files changed, 17 insertions, 18 deletions
diff --git a/generic/tclGet.c b/generic/tclGet.c
index b28b3f92..058323d 100644
--- a/generic/tclGet.c
+++ b/generic/tclGet.c
@@ -11,11 +11,10 @@
* 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.16 2005/07/24 22:56:43 dkf Exp $
+ * RCS: @(#) $Id: tclGet.c,v 1.17 2005/11/07 15:13:36 dkf Exp $
*/
#include "tclInt.h"
-
/*
*----------------------------------------------------------------------
@@ -37,11 +36,11 @@
*/
int
-Tcl_GetInt(interp, src, intPtr)
- Tcl_Interp *interp; /* Interpreter to use for error reporting. */
- CONST char *src; /* String containing a (possibly signed)
+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. */
- int *intPtr; /* Place to store converted result. */
+ int *intPtr) /* Place to store converted result. */
{
Tcl_Obj obj;
int code;
@@ -80,12 +79,12 @@ Tcl_GetInt(interp, src, intPtr)
*/
int
-TclGetLong(interp, src, longPtr)
- Tcl_Interp *interp; /* Interpreter used for error reporting if not
+TclGetLong(
+ Tcl_Interp *interp, /* Interpreter used for error reporting if not
* NULL. */
- CONST char *src; /* String containing a (possibly signed) long
+ CONST char *src, /* String containing a (possibly signed) long
* integer in a form acceptable to strtoul. */
- long *longPtr; /* Place to store converted long result. */
+ long *longPtr) /* Place to store converted long result. */
{
Tcl_Obj obj;
int code;
@@ -123,11 +122,11 @@ TclGetLong(interp, src, longPtr)
*/
int
-Tcl_GetDouble(interp, src, doublePtr)
- Tcl_Interp *interp; /* Interpreter used for error reporting. */
- CONST char *src; /* String containing a floating-point number
+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. */
- double *doublePtr; /* Place to store converted result. */
+ double *doublePtr) /* Place to store converted result. */
{
Tcl_Obj obj;
int code;
@@ -165,12 +164,12 @@ Tcl_GetDouble(interp, src, doublePtr)
*/
int
-Tcl_GetBoolean(interp, src, boolPtr)
- Tcl_Interp *interp; /* Interpreter used for error reporting. */
- CONST char *src; /* String containing a boolean number
+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. */
- int *boolPtr; /* Place to store converted result, which will
+ int *boolPtr) /* Place to store converted result, which will
* be 0 or 1. */
{
Tcl_Obj obj;