summaryrefslogtreecommitdiffstats
path: root/generic/tclEncoding.c
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2006-11-02 16:14:20 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2006-11-02 16:14:20 (GMT)
commitc438b1a196e9545330feb36e822df13636b2d150 (patch)
tree0e85525fc8fe5c2ec1c5447acbd191d1817b785e /generic/tclEncoding.c
parentc35468e1cedfb102415aff618d0be65dd4c1d819 (diff)
downloadtcl-c438b1a196e9545330feb36e822df13636b2d150.zip
tcl-c438b1a196e9545330feb36e822df13636b2d150.tar.gz
tcl-c438b1a196e9545330feb36e822df13636b2d150.tar.bz2
Fix some comments, make selected if/while bodies clearer by inserting comments.
Diffstat (limited to 'generic/tclEncoding.c')
-rw-r--r--generic/tclEncoding.c20
1 files changed, 11 insertions, 9 deletions
diff --git a/generic/tclEncoding.c b/generic/tclEncoding.c
index 9749218..1d26c34 100644
--- a/generic/tclEncoding.c
+++ b/generic/tclEncoding.c
@@ -8,7 +8,7 @@
* See the file "license.terms" for information on usage and redistribution of
* this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclEncoding.c,v 1.49 2006/11/02 15:43:51 dgp Exp $
+ * RCS: @(#) $Id: tclEncoding.c,v 1.50 2006/11/02 16:14:20 dkf Exp $
*/
#include "tclInt.h"
@@ -983,7 +983,8 @@ Tcl_SetSystemEncoding(
Tcl_Encoding
Tcl_CreateEncoding(
- const Tcl_EncodingType *typePtr) /* The encoding type. */
+ const Tcl_EncodingType *typePtr)
+ /* The encoding type. */
{
Tcl_HashEntry *hPtr;
int new;
@@ -1805,8 +1806,9 @@ LoadTableEncoding(
* Skip leading empty lines.
*/
- while ((len = Tcl_Gets(chan, &lineString)) == 0)
- ;
+ while ((len = Tcl_Gets(chan, &lineString)) == 0) {
+ /* empty body */
+ }
if (len < 0) {
break;
@@ -1906,7 +1908,7 @@ LoadEscapeEncoding(
}
if (argc >= 2) {
if (strcmp(argv[0], "name") == 0) {
- ;
+ /* do nothing */
} else if (strcmp(argv[0], "init") == 0) {
strncpy(init, argv[1], sizeof(init));
init[sizeof(init) - 1] = '\0';
@@ -2224,10 +2226,10 @@ UtfToUtfProc(
*dst++ = 0;
src += 2;
} else if (!Tcl_UtfCharComplete(src, srcEnd - src)) {
- /* Always check before using Tcl_UtfToUniChar. Not doing
- * can so cause it run beyond the endof the buffer! If we
- * * happen such an incomplete char its byts are made to *
- * represent themselves.
+ /*
+ * Always check before using Tcl_UtfToUniChar. Not doing can so
+ * cause it run beyond the endof the buffer! If we happen such an
+ * incomplete char its byts are made to represent themselves.
*/
ch = (Tcl_UniChar) *src;