diff options
| author | Alexey Shchepin <alexey@process-one.net> | 2003-10-09 18:09:05 +0000 |
|---|---|---|
| committer | Alexey Shchepin <alexey@process-one.net> | 2003-10-09 18:09:05 +0000 |
| commit | 7df146166a7229a66e5d7d4fe8476a5a4c646e0b (patch) | |
| tree | 4160eed36b115426b948f3944476ce41a1cf9fa6 /src/stringprep/uni_parse2.tcl | |
| parent | * src/ejabberd_c2s.erl: Added support for "jid-malformed" error (diff) | |
* src/ejabberd_c2s.erl: Added authentification logging
* src/ejabberd_listener.erl: Added logging of accepted connections
* src/stringprep/stringprep_drv.c: Cleanup
* src/jd2ejd.erl: Added support for iq:private importing
* src/mod_configure.erl: Fixed user removal
* src/mod_private.erl: Added remove_user/1
* doc/guide.tex: Updated
* src/mod_disco.erl: Added "extra_domains" option
SVN Revision: 146
Diffstat (limited to '')
| -rw-r--r-- | src/stringprep/uni_parse2.tcl | 21 |
1 files changed, 11 insertions, 10 deletions
diff --git a/src/stringprep/uni_parse2.tcl b/src/stringprep/uni_parse2.tcl index 2f3ef7ecd..968f262b7 100644 --- a/src/stringprep/uni_parse2.tcl +++ b/src/stringprep/uni_parse2.tcl @@ -423,9 +423,8 @@ static unsigned char cclassPageMap\[\] = {" puts $f "}; /* - * The groupMap is indexed by combining the alternate page number with - * the page offset and returns a group number that identifies a unique - * set of character attributes. + * The cclassGroupMap is indexed by combining the alternate page number with + * the page offset and returns a combining class number. */ static unsigned char cclassGroupMap\[\] = {" @@ -476,9 +475,9 @@ static unsigned char decompPageMap\[\] = {" puts $f "}; /* - * The groupMap is indexed by combining the alternate page number with - * the page offset and returns a group number that identifies a unique - * set of character attributes. + * The decompGroupMap is indexed by combining the alternate page number with + * the page offset and returns a group number that identifies a length and + * shift of decomposition sequence in decompList */ static int decompGroupMap\[\] = {" @@ -502,7 +501,7 @@ static int decompGroupMap\[\] = {" puts $f "}; /* - * Each group represents a unique set of character attributes. The attributes... + * List of decomposition sequences */ static int decompList\[\] = {" @@ -529,8 +528,6 @@ static int decompList\[\] = {" * Unicode character tables. */ -//#define GetUniCharInfo(ch) (groups\[groupMap\[(pageMap\[(((int)(ch)) & 0xffff) >> CCLASS_OFFSET_BITS\] << CCLASS_OFFSET_BITS) | ((ch) & ((1 << CCLASS_OFFSET_BITS)-1))\]\]) - #define GetUniCharDecompInfo(ch) (decompGroupMap\[(decompPageMap\[(((int)(ch)) & 0xffff) >> DECOMP_OFFSET_BITS\] << DECOMP_OFFSET_BITS) | ((ch) & ((1 << DECOMP_OFFSET_BITS)-1))\]) #define GetDecompShift(info) ((info) & 0xffff) @@ -588,7 +585,7 @@ static int compGroupMap\[\] = {" puts $f "}; /* - * ... + * Lists of compositions for characters that appears only in one composition */ static int compFirstList\[\]\[2\] = {" @@ -627,6 +624,10 @@ static int compSecondList\[\]\[2\] = {" puts $f $line puts $f "}; +/* + * Compositions matrix + */ + static int compBothList\[[llength $comp_x_list]\]\[[llength $comp_y_list]\] = {" set lastx [expr {[llength $comp_x_list] - 1}] set lasty [expr {[llength $comp_y_list] - 1}] |