diff options
Diffstat (limited to 'generic/tclGet.c')
| -rw-r--r-- | generic/tclGet.c | 35 |
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; |