summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authornijtmans <nijtmans>2010-10-12 14:55:33 (GMT)
committernijtmans <nijtmans>2010-10-12 14:55:33 (GMT)
commitcfcfa7c32e49d6a3e3613f260e715ac9f4dba79a (patch)
treeeb0a25e529624327f7f95ec4736871d354b6d929
parent92e0bb7cedfa98e6c502bd81e5ae4f9f0a62cfea (diff)
downloadtcl-cfcfa7c32e49d6a3e3613f260e715ac9f4dba79a.zip
tcl-cfcfa7c32e49d6a3e3613f260e715ac9f4dba79a.tar.gz
tcl-cfcfa7c32e49d6a3e3613f260e715ac9f4dba79a.tar.bz2
Spacing and comments: let uniClass.tcl generation match better the current (hand-modified) regc_locale.c
-rw-r--r--ChangeLog15
-rw-r--r--generic/regc_locale.c10
-rw-r--r--tools/uniClass.tcl8
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
}