diff options
-rw-r--r-- | ChangeLog | 15 | ||||
-rw-r--r-- | generic/regc_locale.c | 10 | ||||
-rw-r--r-- | tools/uniClass.tcl | 8 |
3 files changed, 15 insertions, 18 deletions
@@ -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 } |