Getting more systematic about style

1 files changed, 43 insertions, 37 deletions

diff --git a/generic/tclGet.c b/generic/tclGet.c
index be3d942..b28b3f92 100644
--- a/generic/tclGet.c
+++ b/generic/tclGet.c
@@ -1,17 +1,17 @@
-/* 
+/*
  * tclGet.c --
  *
- *	This file contains procedures to convert strings into
- *	other forms, like integers or floating-point numbers or
- *	booleans, doing syntax checking along the way.
+ *	This file contains functions to convert strings into other forms, like
+ *	integers or floating-point numbers or booleans, doing syntax checking
+ *	along the way.
  *
  * Copyright (c) 1990-1993 The Regents of the University of California.
  * Copyright (c) 1994-1997 Sun Microsystems, Inc.
  *
- * See the file "license.terms" for information on usage and redistribution
- * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+ * 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.15 2005/05/10 18:34:38 kennykb Exp $
+ * RCS: @(#) $Id: tclGet.c,v 1.16 2005/07/24 22:56:43 dkf Exp $
  */
 
 #include "tclInt.h"
@@ -25,10 +25,10 @@
  *	Given a string, produce the corresponding integer value.
  *
  * Results:
- *	The return value is normally TCL_OK;  in this case *intPtr
- *	will be set to the integer value equivalent to src.  If
- *	src is improperly formed then TCL_ERROR is returned and
- *	an error message will be left in the interp's result.
+ *	The return value is normally TCL_OK; in this case *intPtr will be set
+ *	to the integer value equivalent to src.  If src is improperly formed
+ *	then TCL_ERROR is returned and an error message will be left in the
+ *	interp's result.
  *
  * Side effects:
  *	None.
@@ -45,7 +45,7 @@ Tcl_GetInt(interp, src, intPtr)
 {
     Tcl_Obj obj;
     int code;
-   
+
     obj.refCount = 1;
     obj.bytes = (char *) src;
     obj.length = strlen(src);
@@ -63,16 +63,15 @@ Tcl_GetInt(interp, src, intPtr)
  *
  * TclGetLong --
  *
- *	Given a string, produce the corresponding long integer value.
- *	This routine is a version of Tcl_GetInt but returns a "long"
- *	instead of an "int".
+ *	Given a string, produce the corresponding long integer value. This
+ *	routine is a version of Tcl_GetInt but returns a "long" instead of an
+ *	"int" (a difference that matters on 64-bit architectures).
  *
  * Results:
- *	The return value is normally TCL_OK; in this case *longPtr
- *	will be set to the long integer value equivalent to src. If
- *	src is improperly formed then TCL_ERROR is returned and
- *	an error message will be left in the interp's result if interp
- *	is non-NULL. 
+ *	The return value is normally TCL_OK; in this case *longPtr will be set
+ *	to the long integer value equivalent to src. If src is improperly
+ *	formed then TCL_ERROR is returned and an error message will be left in
+ *	the interp's result if interp is non-NULL.
  *
  * Side effects:
  *	None.
@@ -82,11 +81,10 @@ Tcl_GetInt(interp, src, intPtr)
 
 int
 TclGetLong(interp, src, longPtr)
-    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. */
+    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. */
     long *longPtr;		/* Place to store converted long result. */
 {
     Tcl_Obj obj;
@@ -113,10 +111,10 @@ TclGetLong(interp, src, longPtr)
  *	floating-point value.
  *
  * Results:
- *	The return value is normally TCL_OK; in this case *doublePtr
- *	will be set to the double-precision value equivalent to src.
- *	If src is improperly formed then TCL_ERROR is returned and
- *	an error message will be left in the interp's result.
+ *	The return value is normally TCL_OK; in this case *doublePtr will be
+ *	set to the double-precision value equivalent to src. If src is
+ *	improperly formed then TCL_ERROR is returned and an error message will
+ *	be left in the interp's result.
  *
  * Side effects:
  *	None.
@@ -151,14 +149,14 @@ Tcl_GetDouble(interp, src, doublePtr)
  *
  * Tcl_GetBoolean --
  *
- *	Given a string, return a 0/1 boolean value corresponding
- *	to the string.
+ *	Given a string, return a 0/1 boolean value corresponding to the
+ *	string.
  *
  * Results:
- *	The return value is normally TCL_OK;  in this case *boolPtr
- *	will be set to the 0/1 value equivalent to src.  If
- *	src is improperly formed then TCL_ERROR is returned and
- *	an error message will be left in the interp's result.
+ *	The return value is normally TCL_OK; in this case *boolPtr will be set
+ *	to the 0/1 value equivalent to src. If src is improperly formed then
+ *	TCL_ERROR is returned and an error message will be left in the
+ *	interp's result.
  *
  * Side effects:
  *	None.
@@ -172,8 +170,8 @@ Tcl_GetBoolean(interp, src, boolPtr)
     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 be 0 or 1. */
+    int *boolPtr;		/* Place to store converted result, which will
+				 * be 0 or 1. */
 {
     Tcl_Obj obj;
     int code;
@@ -192,3 +190,11 @@ Tcl_GetBoolean(interp, src, boolPtr)
     }
     return code;
 }
+
+/*
+ * Local Variables:
+ * mode: c
+ * c-basic-offset: 4
+ * fill-column: 78
+ * End:
+ */