diff options
author | dkf <donal.k.fellows@manchester.ac.uk> | 2006-11-02 16:14:20 (GMT) |
---|---|---|
committer | dkf <donal.k.fellows@manchester.ac.uk> | 2006-11-02 16:14:20 (GMT) |
commit | c438b1a196e9545330feb36e822df13636b2d150 (patch) | |
tree | 0e85525fc8fe5c2ec1c5447acbd191d1817b785e /generic/tclEncoding.c | |
parent | c35468e1cedfb102415aff618d0be65dd4c1d819 (diff) | |
download | tcl-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.c | 20 |
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; |