Spacing and comments: let uniClass.tcl generation match better the current (hand-modified) regc_locale.c

3 files changed, 15 insertions, 18 deletions

diff --git a/ChangeLog b/ChangeLog
index c840c29..a7900aa 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,18 +1,13 @@
+2010-10-12  Jan Nijtmans  <nijtmans@users.sf.net>
+
+	* tools/uniClass.tcl    Spacing and comments: let uniClass.tcl generation match
+	* generic/regc_locale.c better the current (hand-modified) regc_locale.c
+
 2010-10-12  Reinhard Max  <max@suse.de>
 
 	* unix/tclUnixSock.c (CreateClientSocket): Fix a memleak and
 	refactor the calls to freeaddrinfo() [Bug #3084338].
 
-2010-10-12  Jan Nijtmans  <nijtmans@users.sf.net>
-
-	* win/tclWin32Dll.c:  Eliminate many tclWinProcs-> indirect calls, which  
-	* win/tclWinFCmd.c:   are no longer needed.
-	* win/tclWinFile.c:
-	* win/tclWinInt.h:
-	* win/tclWinPipe.c:
-	* win/tclWinTest.c:
-	* win/tclWinSock.c:   Fix some MSVC 6.0 warnings (thanks to Pat Thoyts!)
-
 2010-10-11  Jan Nijtmans  <nijtmans@users.sf.net>
 
 	* win/tclWinDde.c:    [FRQ 2965056]: Windows build with -DUNICODE
diff --git a/generic/regc_locale.c b/generic/regc_locale.c
index 98df798..f5ff118 100644
--- a/generic/regc_locale.c
+++ b/generic/regc_locale.c
@@ -9,7 +9,7 @@
  * See the file "license.terms" for information on usage and redistribution of
  * this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * RCS: @(#) $Id: regc_locale.c,v 1.21 2008/10/16 22:34:18 nijtmans Exp $
+ * RCS: @(#) $Id: regc_locale.c,v 1.22 2010/10/12 14:55:33 nijtmans Exp $
  */
 
 /* ASCII character-name table */
@@ -131,7 +131,9 @@ typedef struct crange {
  *	and used in generic/regc_locale.c.  Do not modify by hand.
  */
 
-/* Unicode: alphabetic characters */
+/*
+ * Unicode: alphabetic characters.
+ */
 
 static const crange alphaRangeTable[] = {
     {0x0041, 0x005a}, {0x0061, 0x007a}, {0x00c0, 0x00d6}, {0x00d8, 0x00f6},
@@ -200,7 +202,7 @@ static const chr alphaCharTable[] = {
 #define NUM_ALPHA_CHAR (sizeof(alphaCharTable)/sizeof(chr))
 
 /*
- * Unicode: decimal digit characters
+ * Unicode: decimal digit characters.
  */
 
 static const crange digitRangeTable[] = {
@@ -262,7 +264,7 @@ static const chr spaceCharTable[] = {
 #define NUM_SPACE_CHAR (sizeof(spaceCharTable)/sizeof(chr))
 
 /*
- * Unicode: lowercase characters
+ * Unicode: lowercase characters.
  */
 
 static const crange lowerRangeTable[] = {
diff --git a/tools/uniClass.tcl b/tools/uniClass.tcl
index 1840851..9a1bf13 100644
--- a/tools/uniClass.tcl
+++ b/tools/uniClass.tcl
@@ -65,16 +65,16 @@ proc genTable {type} {
     set ranges [string trimright $ranges "\t\n ,"]
     set chars  [string trimright $chars "\t\n ,"]
     if {$ranges ne ""} {
-	puts "static crange ${type}RangeTable\[\] = {\n$ranges\n};\n"
+	puts "static const crange ${type}RangeTable\[\] = {\n$ranges\n};\n"
 	puts "#define NUM_[string toupper $type]_RANGE (sizeof(${type}RangeTable)/sizeof(crange))\n"
     } else {
 	puts "/* no contiguous ranges of $type characters */\n"
     }
     if {$chars ne ""} {
-	puts "static chr ${type}CharTable\[\] = {\n$chars\n};\n"
+	puts "static const chr ${type}CharTable\[\] = {\n$chars\n};\n"
 	puts "#define NUM_[string toupper $type]_CHAR (sizeof(${type}CharTable)/sizeof(chr))\n"
     } else {
-	puts "/* no singletons of $type characters */\n"
+	puts "/*\n * no singletons of $type characters.\n */\n"
     }
 }
 
@@ -94,7 +94,7 @@ foreach {type desc} {
     upper "uppercase characters"
     graph "unicode print characters excluding space"
 } {
-    puts "/* Unicode: $desc */\n"
+    puts "/*\n * Unicode: $desc.\n */\n"
     genTable $type
 }