diff options
| author | hobbs <hobbs> | 2001-05-28 04:37:57 (GMT) |
|---|---|---|
| committer | hobbs <hobbs> | 2001-05-28 04:37:57 (GMT) |
| commit | 10183c5e6c370680dca338ab2b5232626e501c0b (patch) | |
| tree | 8df6501dbcea728ac431c40409dc5df693ba2a1c /tools/uniParse.tcl | |
| parent | 08871cd59928d97b02d2821ef9dfa5024bf79806 (diff) | |
| download | tcl-10183c5e6c370680dca338ab2b5232626e501c0b.zip tcl-10183c5e6c370680dca338ab2b5232626e501c0b.tar.gz tcl-10183c5e6c370680dca338ab2b5232626e501c0b.tar.bz2 | |
* tools/uniClass.tcl: added comments to output format and the
script for clarification.
* tools/uniParse.tcl: corrected filename output and GetDelta macro
to use 'info' as param (was 'infO')
Diffstat (limited to 'tools/uniParse.tcl')
| -rw-r--r-- | tools/uniParse.tcl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/tools/uniParse.tcl b/tools/uniParse.tcl index cd22762..3fe38d2 100644 --- a/tools/uniParse.tcl +++ b/tools/uniParse.tcl @@ -9,7 +9,7 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: uniParse.tcl,v 1.3 1999/06/24 03:27:58 stanton Exp $ +# RCS: @(#) $Id: uniParse.tcl,v 1.4 2001/05/28 04:37:57 hobbs Exp $ namespace eval uni { @@ -183,7 +183,7 @@ proc uni::main {} { set f [open [file join [lindex $argv 1] tclUniData.c] w] fconfigure $f -translation lf puts $f "/* - * tclUtfData.c -- + * tclUniData.c -- * * Declarations of Unicode character information tables. This file is * automatically generated by the tools/uniParse.tcl script. Do not @@ -368,7 +368,7 @@ enum { #define GetCaseType(info) (((info) & 0xE0) >> 5) #define GetCategory(info) ((info) & 0x1F) -#define GetDelta(infO) (((info) > 0) ? ((info) >> 22) : (~(~((info)) >> 22))) +#define GetDelta(info) (((info) > 0) ? ((info) >> 22) : (~(~((info)) >> 22))) /* * This macro extracts the information about a character from the |