/*
* Implementation of the Unicode bidirectional and Arabic shaping
* algorithms for PuTTY.
*
* Original version written and kindly contributed to this code base
* by Ahmad Khalifa of Arabeyes. The bidi part was almost completely
* rewritten in 2021 by Simon Tatham to bring it up to date, but the
* shaping part is still the one by the original authors.
*
* Implementation notes:
*
* Algorithm version
* -----------------
*
* This algorithm is up to date with Unicode Standard Annex #9
* revision 44:
*
* https://www.unicode.org/reports/tr9/tr9-44.html
*
* and passes the full conformance test suite in Unicode 14.0.0.
*
* Paragraph and line handling
* ---------------------------
*
* The full Unicode bidi algorithm expects to receive text containing
* multiple paragraphs, together with a decision about how those
* paragraphs are broken up into lines. It calculates embedding levels
* a whole paragraph at a time without considering the line breaks,
* but then the final reordering of the text for display is done to
* each _line_ independently based on the levels computed for the text
* in that line.
*
* This algorithm omits all of that, because it's intended for use as
* a display-time transformation of a text terminal, which doesn't
* preserve enough semantic information to decide what's a paragraph
* break and what is not. So a piece of input text provided to this
* algorithm is always expected to consist of exactly one paragraph
* *and* exactly one line.
*
* Embeddings, overrides and isolates
* ----------------------------------
*
* This implementation has full support for all the Unicode special
* control characters that modify bidi behaviour, such as
*
* U+202A LEFT-TO-RIGHT EMBEDDING
* U+202B RIGHT-TO-LEFT EMBEDDING
* U+202D LEFT-TO-RIGHT OVERRIDE
* U+202E RIGHT-TO-LEFT OVERRIDE
* U+202C POP DIRECTIONAL FORMATTING
* U+2068 FIRST STRONG ISOLATE
* U+2066 LEFT-TO-RIGHT ISOLATE
* U+2067 RIGHT-TO-LEFT ISOLATE
* U+2069 POP DIRECTIONAL ISOLATE
*
* However, at present, the terminal emulator that is a client of this
* code has no way to pass those in (because they're dropped during
* escape sequence processing and don't get stored in the terminal
* state). Nonetheless, the code is all here, so if the terminal
* emulator becomes able to record those characters at some later
* point, we'll be all set to take account of them during bidi.
*
* But the _main_ purpose of supporting the full bidi algorithm is
* simply that that's the easiest way to be sure it's correct, because
* if you support the whole thing, you can run the full conformance
* test suite. (And I don't 100% believe that restricting to the
* subset of _tests_ valid with a reduced character set will test the
* full set of _functionality_ relevant to the reduced set.)
*
* Retained formatting characters
* ------------------------------
*
* The standard bidi algorithm, in step X9, deletes assorted
* formatting characters from the text: all the embedding and override
* section initiator characters, the Pop Directional Formatting
* character that closes one of those sections again, and any
* character labelled as Boundary Neutral. So the characters it
* returns are not a _full_ reordering of the input; some input
* characters vanish completely.
*
* This would be fine, if it were not for the fact that - as far as I
* can see - _exactly one_ Unicode code point in the discarded
* category has a wcwidth() of more than 0, namely U+00AD SOFT HYPHEN
* which is a printing character for terminal purposes but has a bidi
* class of BN.
*
* Therefore, we must implement a modified version of the algorithm,
* as described in section 5.2 of TR9, which retains those formatting
* characters so that a client can find out where they ended up in the
* reordering.
*
* Section 5.2 describes a set of modifications to the algorithm that
* are _intended_ to achieve this without changing the rest of the
* behaviour: that is, if you take the output of the modified
* algorithm and delete all the characters that the standard algorithm
* would have removed, you should end up with the remaining characters
* in the same order that the standard algorithm would have delivered.
* However, section 5.2 admits the possibility of error, and says "in
* case of any deviation the explicit algorithm is the normative
* statement for conformance". And indeed, in one or two places I
* found I had to make my own tweaks to the section 5.2 description in
* order to get the whole test suite to pass, because I think the 5.2
* modifications if taken literally don't quite achieve that. My
* justification is that sentence of 5.2: in case of doubt, the right
* thing is to make the code behave the same as the official
* algorithm.
*
* It's possible that there might still be some undiscovered
* discrepancies between the behaviour of the standard and modified
* algorithms. So, just in case, I've kept in this code the ability to
* implement the _standard_ algorithm too! If you compile with
* -DREMOVE_FORMATTING_CHARS, this code should go back to implementing
* the literal UAX#9 bidi algorithm - so you can run your suspect
* input through both versions, making it much easier to figure out
* why they differ, and in which of the many stages of the algorithm
* the difference was introduced.
*
* However, beware that when compiling in this mode, the do_bidi
* interface to the terminal will stop working, and just abort() when
* called! The only useful thing you can do with this mode is to run
* the companion program bidi_test.c.
*/
#include <stdlib.h> /* definition of wchar_t */
#include "putty.h"
#include "misc.h"
#include "bidi.h"
typedef struct {
char type;
wchar_t form_b;
} shape_node;
/* Kept near the actual table, for verification. */
#define SHAPE_FIRST 0x621
#define SHAPE_LAST (SHAPE_FIRST + lenof(shapetypes) - 1)
static const shape_node shapetypes[] = {
/* index, Typ, Iso, Ligature Index*/
/* 621 */ {SU, 0xFE80},
/* 622 */ {SR, 0xFE81},
/* 623 */ {SR, 0xFE83},
/* 624 */ {SR, 0xFE85},
/* 625 */ {SR, 0xFE87},
/* 626 */ {SD, 0xFE89},
/* 627 */ {SR, 0xFE8D},
/* 628 */ {SD, 0xFE8F},
/* 629 */ {SR, 0xFE93},
/* 62A */ {SD, 0xFE95},
/* 62B */ {SD, 0xFE99},
/* 62C */ {SD, 0xFE9D},
/* 62D */ {SD, 0xFEA1},
/* 62E */ {SD, 0xFEA5},
/* 62F */ {SR, 0xFEA9},
/* 630 */ {SR, 0xFEAB},
/* 631 */ {SR, 0xFEAD},
/* 632 */ {SR, 0xFEAF},
/* 633 */ {SD, 0xFEB1},
/* 634 */ {SD, 0xFEB5},
/* 635 */ {SD, 0xFEB9},
/* 636 */ {SD, 0xFEBD},
/* 637 */ {SD, 0xFEC1},
/* 638 */ {SD, 0xFEC5},
/* 639 */ {SD, 0xFEC9},
/* 63A */ {SD, 0xFECD},
/* 63B */ {SU, 0x0},
/* 63C */ {SU, 0x0},
/* 63D */ {SU, 0x0},
/* 63E */ {SU, 0x0},
/* 63F */ {SU, 0x0},
/* 640 */ {SC, 0x0},
/* 641 */ {SD, 0xFED1},
/* 642 */ {SD, 0xFED5},
/* 643 */ {SD, 0xFED9},
/* 644 */ {SD, 0xFEDD},
/* 645 */ {SD, 0xFEE1},
/* 646 */ {SD, 0xFEE5},
/* 647 */ {SD, 0xFEE9},
/* 648 */ {SR, 0xFEED},
/* 649 */ {SR, 0xFEEF}, /* SD */
/* 64A */ {SD, 0xFEF1},
/* 64B */ {SU, 0x0},
/* 64C */ {SU, 0x0},
/* 64D */ {SU, 0x0},
/* 64E */ {SU, 0x0},
/* 64F */ {SU, 0x0},
/* 650 */ {SU, 0x0},
/* 651 */ {SU, 0x0},
/* 652 */ {SU, 0x0},
/* 653 */ {SU, 0x0},
/* 654 */ {SU, 0x0},
/* 655 */ {SU, 0x0},
/* 656 */ {SU, 0x0},
/* 657 */ {SU, 0x0},
/* 658 */ {SU, 0x0},
/* 659 */ {SU, 0x0},
/* 65A */ {SU, 0x0},
/* 65B */ {SU, 0x0},
/* 65C */ {SU, 0x0},
/* 65D */ {SU, 0x0},
/* 65E */ {SU, 0x0},
/* 65F */ {SU, 0x0},
/* 660 */ {SU, 0x0},
/* 661 */ {SU, 0x0},
/* 662 */ {SU, 0x0},
/* 663 */ {SU, 0x0},
/* 664 */ {SU, 0x0},
/* 665 */ {SU, 0x0},
/* 666 */ {SU, 0x0},
/* 667 */ {SU, 0x0},
/* 668 */ {SU, 0x0},
/* 669 */ {SU, 0x0},
/* 66A */ {SU, 0x0},
/* 66B */ {SU, 0x0},
/* 66C */ {SU, 0x0},
/* 66D */ {SU, 0x0},
/* 66E */ {SU, 0x0},
/* 66F */ {SU, 0x0},
/* 670 */ {SU, 0x0},
/* 671 */ {SR, 0xFB50},
/* 672 */ {SU, 0x0},
/* 673 */ {SU, 0x0},
/* 674 */ {SU, 0x0},
/* 675 */ {SU, 0x0},
/* 676 */ {SU, 0x0},
/* 677 */ {SU, 0x0},
/* 678 */ {SU, 0x0},
/* 679 */ {SD, 0xFB66},
/* 67A */ {SD, 0xFB5E},
/* 67B */ {SD, 0xFB52},
/* 67C */ {SU, 0x0},
/* 67D */ {SU, 0x0},
/* 67E */ {SD, 0xFB56},
/* 67F */ {SD, 0xFB62},
/* 680 */ {SD, 0xFB5A},
/* 681 */ {SU, 0x0},
/* 682 */ {SU, 0x0},
/* 683 */ {SD, 0xFB76},
/* 684 */ {SD, 0xFB72},
/* 685 */ {SU, 0x0},
/* 686 */ {SD, 0xFB7A},
/* 687 */ {SD, 0xFB7E},
/* 688 */ {SR, 0xFB88},
/* 689 */ {SU, 0x0},
/* 68A */ {SU, 0x0},
/* 68B */ {SU, 0x0},
/* 68C */ {SR, 0xFB84},
/* 68D */ {SR, 0xFB82},
/* 68E */ {SR, 0xFB86},
/* 68F */ {SU, 0x0},
/* 690 */ {SU, 0x0},
/* 691 */ {SR, 0xFB8C},
/* 692 */ {SU, 0x0},
/* 693 */ {SU, 0x0},
/* 694 */ {SU, 0x0},
/* 695 */ {SU, 0x0},
/* 696 */ {SU, 0x0},
/* 697 */ {SU, 0x0},
/* 698 */ {SR, 0xFB8A},
/* 699 */ {SU, 0x0},
/* 69A */ {SU, 0x0},
/* 69B */ {SU, 0x0},
/* 69C */ {SU, 0x0},
/* 69D */ {SU, 0x0},
/* 69E */ {SU, 0x0},
/* 69F */ {SU, 0x0},
/* 6A0 */ {SU, 0x0},
/* 6A1 */ {SU, 0x0},
/* 6A2 */ {SU, 0x0},
/* 6A3 */ {SU, 0x0},
/* 6A4 */ {SD, 0xFB6A},
/* 6A5 */ {SU, 0x0},
/* 6A6 */ {SD, 0xFB6E},
/* 6A7 */ {SU, 0x0},
/* 6A8 */ {SU, 0x0},
/* 6A9 */ {SD, 0xFB8E},
/* 6AA */ {SU, 0x0},
/* 6AB */ {SU, 0x0},
/* 6AC */ {SU, 0x0},
/* 6AD */ {SD, 0xFBD3},
/* 6AE */ {SU, 0x0},
/* 6AF */ {SD, 0xFB92},
/* 6B0 */ {SU, 0x0},
/* 6B1 */ {SD, 0xFB9A},
/* 6B2 */ {SU, 0x0},
/* 6B3 */ {SD, 0xFB96},
/* 6B4 */ {SU, 0x0},
/* 6B5 */ {SU, 0x0},
/* 6B6 */ {SU, 0x0},
/* 6B7 */ {SU, 0x0},
/* 6B8 */ {SU, 0x0},
/* 6B9 */ {SU, 0x0},
/* 6BA */ {SR, 0xFB9E},
/* 6BB */ {SD, 0xFBA0},
/* 6BC */ {SU, 0x0},
/* 6BD */ {SU, 0x0},
/* 6BE */ {SD, 0xFBAA},
/* 6BF */ {SU, 0x0},
/* 6C0 */ {SR, 0xFBA4},
/* 6C1 */ {SD, 0xFBA6},
/* 6C2 */ {SU, 0x0},
/* 6C3 */ {SU, 0x0},
/* 6C4 */ {SU, 0x0},
/* 6C5 */ {SR, 0xFBE0},
/* 6C6 */ {SR, 0xFBD9},
/* 6C7 */ {SR, 0xFBD7},
/* 6C8 */ {SR, 0xFBDB},
/* 6C9 */ {SR, 0xFBE2},
/* 6CA */ {SU, 0x0},
/* 6CB */ {SR, 0xFBDE},
/* 6CC */ {SD, 0xFBFC},
/* 6CD */ {SU, 0x0},
/* 6CE */ {SU, 0x0},
/* 6CF */ {SU, 0x0},
/* 6D0 */ {SU, 0x0},
/* 6D1 */ {SU, 0x0},
/* 6D2 */ {SR, 0xFBAE},
};
/*
* Returns the bidi character type of ch.
*
* The data table in this function is constructed from the Unicode
* Character Database version 14.0.0, downloadable from unicode.org at
* the URL
*
* https://www.unicode.org/Public/14.0.0/ucd/
*
* by the following fragment of Perl:
perl -ne '@_=split ";"; $num = hex $_[0]; $type = $_[4];' \
-e '$fl = ($_[1] =~ /First/ ? 1 : $_[1] =~ /Last/ ? 2 : 0);' \
-e 'if ($type eq $runtype and ($runend == $num-1 or ' \
-e ' ($fl==2 and $pfl==1))) {$runend = $num;} else { &reset; }' \
-e '$pfl=$fl; END { &reset }; sub reset {' \
-e 'printf" {0x%04x, 0x%04x, %s},\n",$runstart,$runend,$runtype' \
-e ' if defined $runstart and $runtype ne "ON";' \
-e '$runstart=$runend=$num; $runtype=$type;}' \
UnicodeData.txt
*/
unsigned char bidi_getType(int ch)
{
static const struct {
int first, last, type;
} lookup[] = {
{0x0000, 0x0008, BN},
{0x0009, 0x0009, S},
{0x000a, 0x000a, B},
{0x000b, 0x000b, S},
{0x000c, 0x000c, WS},
{0x000d, 0x000d, B},
{0x000e, 0x001b, BN},
{0x001c, 0x001e, B},
{0x001f, 0x001f, S},
{0x0020, 0x0020, WS},
{0x0023, 0x0025, ET},
{0x002b, 0x002b, ES},
{0x002c, 0x002c, CS},
{0x002d, 0x002d, ES},
{0x002e, 0x002f, CS},
{0x0030, 0x0039, EN},
{0x003a, 0x003a, CS},
{0x0041, 0x005a, L},
{0x0061, 0x007a, L},
{0x007f, 0x0084, BN},
{0x0085, 0x0085, B},
{0x0086, 0x009f, BN},
{0x00a0, 0x00a0, CS},
{0x00a2, 0x00a5, ET},
{0x00aa, 0x00aa, L},
{0x00ad, 0x00ad, BN},
{0x00b0, 0x00b1, ET},
{0x00b2, 0x00b3, EN},
{0x00b5, 0x00b5, L},
{0x00b9, 0x00b9, EN},
{0x00ba, 0x00ba, L},
{0x00c0, 0x00d6, L},
{0x00d8, 0x00f6, L},
{0x00f8, 0x02b8, L},
{0x02bb, 0x02c1, L},
{0x02d0, 0x02d1, L},
{0x02e0, 0x02e4, L},
{0x02ee, 0x02ee, L},
{0x0300, 0x036f, NSM},
{0x0370, 0x0373, L},
{0x0376, 0x0377, L},
{0x037a, 0x037d, L},
{0x037f, 0x037f, L},
{0x0386, 0x0386, L},
{0x0388, 0x038a, L},
{0x038c, 0x038c, L},
{0x038e, 0x03a1, L},
{0x03a3, 0x03f5, L},
{0x03f7, 0x0482, L},
{0x0483, 0x0489, NSM},
{0x048a, 0x052f, L},
{0x0531, 0x0556, L},
{0x0559, 0x0589, L},
{0x058f, 0x058f, ET},
{0x0591, 0x05bd, NSM},
{0x05be, 0x05be, R},
{0x05bf, 0x05bf, NSM},
{0x05c0, 0x05c0, R},
{0x05c1, 0x05c2, NSM},
{0x05c3, 0x05c3, R},
{0x05c4, 0x05c5, NSM},
{0x05c6, 0x05c6, R},
{0x05c7, 0x05c7, NSM},
{0x05d0, 0x05ea, R},
{0x05ef, 0x05f4, R},
{0x0600, 0x0605, AN},
{0x0608, 0x0608, AL},
{0x0609, 0x060a, ET},
{0x060b, 0x060b, AL},
{0x060c, 0x060c, CS},
{0x060d, 0x060d, AL},
{0x0610, 0x061a, NSM},
{0x061b, 0x064a, AL},
{0x064b, 0x065f, NSM},
{0x0660, 0x0669, AN},
{0x066a, 0x066a, ET},
{0x066b, 0x066c, AN},
{0x066d, 0x066f, AL},
{0x0670, 0x0670, NSM},
{0x0671, 0x06d5, AL},
{0x06d6, 0x06dc, NSM},
{0x06dd, 0x06dd, AN},
{0x06df, 0x06e4, NSM},
{0x06e5, 0x06e6, AL},
{0x06e7, 0x06e8, NSM},
{0x06ea, 0x06ed, NSM},
{0x06ee, 0x06ef, AL},
{0x06f0, 0x06f9, EN},
{0x06fa, 0x070d, AL},
{0x070f, 0x0710, AL},
{0x0711, 0x0711, NSM},
{0x0712, 0x072f, AL},
{0x0730, 0x074a, NSM},
{0x074d, 0x07a5, AL},
{0x07a6, 0x07b0, NSM},
{0x07b1, 0x07b1, AL},
{0x07c0, 0x07ea, R},
{0x07eb, 0x07f3, NSM},
{0x07f4, 0x07f5, R},
{0x07fa, 0x07fa, R},
{0x07fd, 0x07fd, NSM},
{0x07fe, 0x0815, R},
{0x0816, 0x0819, NSM},
{0x081a, 0x081a, R},
{0x081b, 0x0823, NSM},
{0x0824, 0x0824, R},
{0x0825, 0x0827, NSM},
{0x0828, 0x0828, R},
{0x0829, 0x082d, NSM},
{0x0830, 0x083e, R},
{0x0840, 0x0858, R},
{0x0859, 0x085b, NSM},
{0x085e, 0x085e, R},
{0x0860, 0x086a, AL},
{0x0870, 0x088e, AL},
{0x0890, 0x0891, AN},
{0x0898, 0x089f, NSM},
{0x08a0, 0x08c9, AL},
{0x08ca, 0x08e1, NSM},
{0x08e2, 0x08e2, AN},
{0x08e3, 0x0902, NSM},
{0x0903, 0x0939, L},
{0x093a, 0x093a, NSM},
{0x093b, 0x093b, L},
{0x093c, 0x093c, NSM},
{0x093d, 0x0940, L},
{0x0941, 0x0948, NSM},
{0x0949, 0x094c, L},
{0x094d, 0x094d, NSM},
{0x094e, 0x0950, L},
{0x0951, 0x0957, NSM},
{0x0958, 0x0961, L},
{0x0962, 0x0963, NSM},
{0x0964, 0x0980, L},
{0x0981, 0x0981, NSM},
{0x0982, 0x0983, L},
{0x0985, 0x098c, L},
{0x098f, 0x0990, L},
{0x0993, 0x09a8, L},
{0x09aa, 0x09b0, L},
{0x09b2, 0x09b2, L},
{0x09b6, 0x09b9, L},
{0x09bc, 0x09bc, NSM},
{0x09bd, 0x09c0, L},
{0x09c1, 0x09c4, NSM},
{0x09c7, 0x09c8, L},
{0x09cb, 0x09cc, L},
{0x09cd, 0x09cd, NSM},
{0x09ce, 0x09ce, L},
{0x09d7, 0x09d7, L},
{0x09dc, 0x09dd, L},
{0x09df, 0x09e1, L},
{0x09e2, 0x09e3, NSM},
{0x09e6, 0x09f1, L},
{0x09f2, 0x09f3, ET},
{0x09f4, 0x09fa, L},
{0x09fb, 0x09fb, ET},
{0x09fc, 0x09fd, L},
{0x09fe, 0x09fe, NSM},
{0x0a01, 0x0a02, NSM},
{0x0a03, 0x0a03, L},
{0x0a05, 0x0a0a, L},
{0x0a0f, 0x0a10, L},
{0x0a13, 0x0a28, L},
{0x0a2a, 0x0a30, L},
{0x0a32, 0x0a33, L},
{0x0a35, 0x0a36, L},
{0x0a38, 0x0a39, L},
{0x0a3c, 0x0a3c, NSM},
{0x0a3e, 0x0a40, L},
{0x0a41, 0x0a42, NSM},
{0x0a47, 0x0a48, NSM},
{0x0a4b, 0x0a4d, NSM},
{0x0a51, 0x0a51, NSM},
{0x0a59, 0x0a5c, L},
{0x0a5e, 0x0a5e, L},
{0x0a66, 0x0a6f, L},
{0x0a70, 0x0a71, NSM},
{0x0a72, 0x0a74, L},
{0x0a75, 0x0a75, NSM},
{0x0a76, 0x0a76, L},
{0x0a81, 0x0a82, NSM},
{0x0a83, 0x0a83, L},
{0x0a85, 0x0a8d, L},
{0x0a8f, 0x0a91, L},
{0x0a93, 0x0aa8, L},
{0x0aaa, 0x0ab0, L},
{0x0ab2, 0x0ab3, L},
{0x0ab5, 0x0ab9, L},
{0x0abc, 0x0abc, NSM},
{0x0abd, 0x0ac0, L},
{0x0ac1, 0x0ac5, NSM},
{0x0ac7, 0x0ac8, NSM},
{0x0ac9, 0x0ac9, L},
{0x0acb, 0x0acc, L},
{0x0acd, 0x0acd, NSM},
{0x0ad0, 0x0ad0, L},
{0x0ae0, 0x0ae1, L},
{0x0ae2, 0x0ae3, NSM},
{0x0ae6, 0x0af0, L},
{0x0af1, 0x0af1, ET},
{0x0af9, 0x0af9, L},
{0x0afa, 0x0aff, NSM},
{0x0b01, 0x0b01, NSM},
{0x0b02, 0x0b03, L},
{0x0b05, 0x0b0c, L},
{0x0b0f, 0x0b10, L},
{0x0b13, 0x0b28, L},
{0x0b2a, 0x0b30, L},
{0x0b32, 0x0b33, L},
{0x0b35, 0x0b39, L},
{0x0b3c, 0x0b3c, NSM},
{0x0b3d, 0x0b3e, L},
{0x0b3f, 0x0b3f, NSM},
{0x0b40, 0x0b40, L},
{0x0b41, 0x0b44, NSM},
{0x0b47, 0x0b48, L},
{0x0b4b, 0x0b4c, L},
{0x0b4d, 0x0b4d, NSM},
{0x0b55, 0x0b56, NSM},
{0x0b57, 0x0b57, L},
{0x0b5c, 0x0b5d, L},
{0x0b5f, 0x0b61, L},
{0x0b62, 0x0b63, NSM},
{0x0b66, 0x0b77, L},
{0x0b82, 0x0b82, NSM},
{0x0b83, 0x0b83, L},
{0x0b85, 0x0b8a, L},
{0x0b8e, 0x0b90, L},
{0x0b92, 0x0b95, L},
{0x0b99, 0x0b9a, L},
{0x0b9c, 0x0b9c, L},
{0x0b9e, 0x0b9f, L},
{0x0ba3, 0x0ba4, L},
{0x0ba8, 0x0baa, L},
{0x0bae, 0x0bb9, L},
{0x0bbe, 0x0bbf, L},
{0x0bc0, 0x0bc0, NSM},
{0x0bc1, 0x0bc2, L},
{0x0bc6, 0x0bc8, L},
{0x0bca, 0x0bcc, L},
{0x0bcd, 0x0bcd, NSM},
{0x0bd0, 0x0bd0, L},
{0x0bd7, 0x0bd7, L},
{0x0be6, 0x0bf2, L},
{0x0bf9, 0x0bf9, ET},
{0x0c00, 0x0c00, NSM},
{0x0c01, 0x0c03, L},
{0x0c04, 0x0c04, NSM},
{0x0c05, 0x0c0c, L},
{0x0c0e, 0x0c10, L},
{0x0c12, 0x0c28, L},
{0x0c2a, 0x0c39, L},
{0x0c3c, 0x0c3c, NSM},
{0x0c3d, 0x0c3d, L},
{0x0c3e, 0x0c40, NSM},
{0x0c41, 0x0c44, L},
{0x0c46, 0x0c48, NSM},
{0x0c4a, 0x0c4d, NSM},
{0x0c55, 0x0c56, NSM},
{0x0c58, 0x0c5a, L},
{0x0c5d, 0x0c5d, L},
{0x0c60, 0x0c61, L},
{0x0c62, 0x0c63, NSM},
{0x0c66, 0x0c6f, L},
{0x0c77, 0x0c77, L},
{0x0c7f, 0x0c80, L},
{0x0c81, 0x0c81, NSM},
{0x0c82, 0x0c8c, L},
{0x0c8e, 0x0c90, L},
{0x0c92, 0x0ca8, L},
{0x0caa, 0x0cb3, L},
{0x0cb5, 0x0cb9, L},
{0x0cbc, 0x0cbc, NSM},
{0x0cbd, 0x0cc4, L},
{0x0cc6, 0x0cc8, L},
{0x0cca, 0x0ccb, L},
{0x0ccc, 0x0ccd, NSM},
{0x0cd5, 0x0cd6, L},
{0x0cdd, 0x0cde, L},
{0x0ce0, 0x0ce1, L},
{0x0ce2, 0x0ce3, NSM},
{0x0ce6, 0x0cef, L},
{0x0cf1, 0x0cf2, L},
{0x0d00, 0x0d01, NSM},
{0x0d02, 0x0d0c, L},
{0x0d0e, 0x0d10, L},
{0x0d12, 0x0d3a, L},
{0x0d3b, 0x0d3c, NSM},
{0x0d3d, 0x0d40, L},
{0x0d41, 0x0d44, NSM},
{0x0d46, 0x0d48, L},
{0x0d4a, 0x0d4c, L},
{0x0d4d, 0x0d4d, NSM},
{0x0d4e, 0x0d4f, L},
{0x0d54, 0x0d61, L},
{0x0d62, 0x0d63, NSM},
{0x0d66, 0x0d7f, L},
{0x0d81, 0x0d81, NSM},
{0x0d82, 0x0d83, L},
{0x0d85, 0x0d96, L},
{0x0d9a, 0x0db1, L},
{0x0db3, 0x0dbb, L},
{0x0dbd, 0x0dbd, L},
{0x0dc0, 0x0dc6, L},
{0x0dca, 0x0dca, NSM},
{0x0dcf, 0x0dd1, L},
{0x0dd2, 0x0dd4, NSM},
{0x0dd6, 0x0dd6, NSM},
{0x0dd8, 0x0ddf, L},
{0x0de6, 0x0def, L},
{0x0df2, 0x0df4, L},
{0x0e01, 0x0e30, L},
{0x0e31, 0x0e31, NSM},
{0x0e32, 0x0e33, L},
{0x0e34, 0x0e3a, NSM},
{0x0e3f, 0x0e3f, ET},
{0x0e40, 0x0e46, L},
{0x0e47, 0x0e4e, NSM},
{0x0e4f, 0x0e5b, L},
{0x0e81, 0x0e82, L},
{0x0e84, 0x0e84, L},
{0x0e86, 0x0e8a, L},
{0x0e8c, 0x0ea3, L},
{0x0ea5, 0x0ea5, L},
{0x0ea7, 0x0eb0, L},
{0x0eb1, 0x0eb1, NSM},
{0x0eb2, 0x0eb3, L},
{0x0eb4, 0x0ebc, NSM},
{0x0ebd, 0x0ebd, L},
{0x0ec0, 0x0ec4, L},
{0x0ec6, 0x0ec6, L},
{0x0ec8, 0x0ecd, NSM},
{0x0ed0, 0x0ed9, L},
{0x0edc, 0x0edf, L},
{0x0f00, 0x0f17, L},
{0x0f18, 0x0f19, NSM},
{0x0f1a, 0x0f34, L},
{0x0f35, 0x0f35, NSM},
{0x0f36, 0x0f36, L},
{0x0f37, 0x0f37, NSM},
{0x0f38, 0x0f38, L},
{0x0f39, 0x0f39, NSM},
{0x0f3e, 0x0f47, L},
{0x0f49, 0x0f6c, L},
{0x0f71, 0x0f7e, NSM},
{0x0f7f, 0x0f7f, L},
{0x0f80, 0x0f84, NSM},
{0x0f85, 0x0f85, L},
{0x0f86, 0x0f87, NSM},
{0x0f88, 0x0f8c, L},
{0x0f8d, 0x0f97, NSM},
{0x0f99, 0x0fbc, NSM},
{0x0fbe, 0x0fc5, L},
{0x0fc6, 0x0fc6, NSM},
{0x0fc7, 0x0fcc, L},
{0x0fce, 0x0fda, L},
{0x1000, 0x102c, L},
{0x102d, 0x1030, NSM},
{0x1031, 0x1031, L},
{0x1032, 0x1037, NSM},
{0x1038, 0x1038, L},
{0x1039, 0x103a, NSM},
{0x103b, 0x103c, L},
{0x103d, 0x103e, NSM},
{0x103f, 0x1057, L},
{0x1058, 0x1059, NSM},
{0x105a, 0x105d, L},
{0x105e, 0x1060, NSM},
{0x1061, 0x1070, L},
{0x1071, 0x1074, NSM},
{0x1075, 0x1081, L},
{0x1082, 0x1082, NSM},
{0x1083, 0x1084, L},
{0x1085, 0x1086, NSM},
{0x1087, 0x108c, L},
{0x108d, 0x108d, NSM},
{0x108e, 0x109c, L},
{0x109d, 0x109d, NSM},
{0x109e, 0x10c5, L},
{0x10c7, 0x10c7, L},
{0x10cd, 0x10cd, L},
{0x10d0, 0x1248, L},
{0x124a, 0x124d, L},
{0x1250, 0x1256, L},
{0x1258, 0x1258, L},
{0x125a, 0x125d, L},
{0x1260, 0x1288, L},
{0x128a, 0x128d, L},
{0x1290, 0x12b0, L},
{0x12b2, 0x12b5, L},
{0x12b8, 0x12be, L},
{0x12c0, 0x12c0, L},
{0x12c2, 0x12c5, L},
{0x12c8, 0x12d6, L},
{0x12d8, 0x1310, L},
{0x1312, 0x1315, L},
{0x1318, 0x135a, L},
{0x135d, 0x135f, NSM},
{0x1360, 0x137c, L},
{0x1380, 0x138f, L},
{0x13a0, 0x13f5, L},
{0x13f8, 0x13fd, L},
{0x1401, 0x167f, L},
{0x1680, 0x1680, WS},
{0x1681, 0x169a, L},
{0x16a0, 0x16f8, L},
{0x1700, 0x1711, L},
{0x1712, 0x1714, NSM},
{0x1715, 0x1715, L},
{0x171f, 0x1731, L},
{0x1732, 0x1733, NSM},
{0x1734, 0x1736, L},
{0x1740, 0x1751, L},
{0x1752, 0x1753, NSM},
{0x1760, 0x176c, L},
{0x176e, 0x1770, L},
{0x1772, 0x1773, NSM},
{0x1780, 0x17b3, L},
{0x17b4, 0x17b5, NSM},
{0x17b6, 0x17b6, L},
{0x17b7, 0x17bd, NSM},
{0x17be, 0x17c5, L},
{0x17c6, 0x17c6, NSM},
{0x17c7, 0x17c8, L},
{0x17c9, 0x17d3, NSM},
{0x17d4, 0x17da, L},
{0x17db, 0x17db, ET},
{0x17dc, 0x17dc, L},
{0x17dd, 0x17dd, NSM},
{0x17e0, 0x17e9, L},
{0x180b, 0x180d, NSM},
{0x180e, 0x180e, BN},
{0x180f, 0x180f, NSM},
{0x1810, 0x1819, L},
{0x1820, 0x1878, L},
{0x1880, 0x1884, L},
{0x1885, 0x1886, NSM},
{0x1887, 0x18a8, L},
{0x18a9, 0x18a9, NSM},
{0x18aa, 0x18aa, L},
{0x18b0, 0x18f5, L},
{0x1900, 0x191e, L},
{0x1920, 0x1922, NSM},
{0x1923, 0x1926, L},
{0x1927, 0x1928, NSM},
{0x1929, 0x192b, L},
{0x1930, 0x1931, L},
{0x1932, 0x1932, NSM},
{0x1933, 0x1938, L},
{0x1939, 0x193b, NSM},
{0x1946, 0x196d, L},
{0x1970, 0x1974, L},
{0x1980, 0x19ab, L},
{0x19b0, 0x19c9, L},
{0x19d0, 0x19da, L},
{0x1a00, 0x1a16, L},
{0x1a17, 0x1a18, NSM},
{0x1a19, 0x1a1a, L},
{0x1a1b, 0x1a1b, NSM},
{0x1a1e, 0x1a55, L},
{0x1a56, 0x1a56, NSM},
{0x1a57, 0x1a57, L},
{0x1a58, 0x1a5e, NSM},
{0x1a60, 0x1a60, NSM},
{0x1a61, 0x1a61, L},
{0x1a62, 0x1a62, NSM},
{0x1a63, 0x1a64, L},
{0x1a65, 0x1a6c, NSM},
{0x1a6d, 0x1a72, L},
{0x1a73, 0x1a7c, NSM},
{0x1a7f, 0x1a7f, NSM},
{0x1a80, 0x1a89, L},
{0x1a90, 0x1a99, L},
{0x1aa0, 0x1aad, L},
{0x1ab0, 0x1ace, NSM},
{0x1b00, 0x1b03, NSM},
{0x1b04, 0x1b33, L},
{0x1b34, 0x1b34, NSM},
{0x1b35, 0x1b35, L},
{0x1b36, 0x1b3a, NSM},
{0x1b3b, 0x1b3b, L},
{0x1b3c, 0x1b3c, NSM},
{0x1b3d, 0x1b41, L},
{0x1b42, 0x1b42, NSM},
{0x1b43, 0x1b4c, L},
{0x1b50, 0x1b6a, L},
{0x1b6b, 0x1b73, NSM},
{0x1b74, 0x1b7e, L},
{0x1b80, 0x1b81, NSM},
{0x1b82, 0x1ba1, L},
{0x1ba2, 0x1ba5, NSM},
{0x1ba6, 0x1ba7, L},
{0x1ba8, 0x1ba9, NSM},
{0x1baa, 0x1baa, L},
{0x1bab, 0x1bad, NSM},
{0x1bae, 0x1be5, L},
{0x1be6, 0x1be6, NSM},
{0x1be7, 0x1be7, L},
{0x1be8, 0x1be9, NSM},
{0x1bea, 0x1bec, L},
{0x1bed, 0x1bed, NSM},
{0x1bee, 0x1bee, L},
{0x1bef, 0x1bf1, NSM},
{0x1bf2, 0x1bf3, L},
{0x1bfc, 0x1c2b, L},
{0x1c2c, 0x1c33, NSM},
{0x1c34, 0x1c35, L},
{0x1c36, 0x1c37, NSM},
{0x1c3b, 0x1c49, L},
{0x1c4d, 0x1c88, L},
{0x1c90, 0x1cba, L},
{0x1cbd, 0x1cc7, L},
{0x1cd0, 0x1cd2, NSM},
{0x1cd3, 0x1cd3, L},
{0x1cd4, 0x1ce0, NSM},
{0x1ce1, 0x1ce1, L},
{0x1ce2, 0x1ce8, NSM},
{0x1ce9, 0x1cec, L},
{0x1ced, 0x1ced, NSM},
{0x1cee, 0x1cf3, L},
{0x1cf4, 0x1cf4, NSM},
{0x1cf5, 0x1cf7, L},
{0x1cf8, 0x1cf9, NSM},
{0x1cfa, 0x1cfa, L},
{0x1d00, 0x1dbf, L},
{0x1dc0, 0x1dff, NSM},
{0x1e00, 0x1f15, L},
{0x1f18, 0x1f1d, L},
{0x1f20, 0x1f45, L},
{0x1f48, 0x1f4d, L},
{0x1f50, 0x1f57, L},
{0x1f59, 0x1f59, L},
{0x1f5b, 0x1f5b, L},
{0x1f5d, 0x1f5d, L},
{0x1f5f, 0x1f7d, L},
{0x1f80, 0x1fb4, L},
{0x1fb6, 0x1fbc, L},
{0x1fbe, 0x1fbe, L},
{0x1fc2, 0x1fc4, L},
{0x1fc6, 0x1fcc, L},
{0x1fd0, 0x1fd3, L},
{0x1fd6, 0x1fdb, L},
{0x1fe0, 0x1fec, L},
{0x1ff2, 0x1ff4, L},
{0x1ff6, 0x1ffc, L},
{0x2000, 0x200a, WS},
{0x200b, 0x200d, BN},
{0x200e, 0x200e, L},
{0x200f, 0x200f, R},
{0x2028, 0x2028, WS},
{0x2029, 0x2029, B},
{0x202a, 0x202a, LRE},
{0x202b, 0x202b, RLE},
{0x202c, 0x202c, PDF},
{0x202d, 0x202d, LRO},
{0x202e, 0x202e, RLO},
{0x202f, 0x202f, CS},
{0x2030, 0x2034, ET},
{0x2044, 0x2044, CS},
{0x205f, 0x205f, WS},
{0x2060, 0x2064, BN},
{0x2066, 0x2066, LRI},
{0x2067, 0x2067, RLI},
{0x2068, 0x2068, FSI},
{0x2069, 0x2069, PDI},
{0x206a, 0x206f, BN},
{0x2070, 0x2070, EN},
{0x2071, 0x2071, L},
{0x2074, 0x2079, EN},
{0x207a, 0x207b, ES},
{0x207f, 0x207f, L},
{0x2080, 0x2089, EN},
{0x208a, 0x208b, ES},
{0x2090, 0x209c, L},
{0x20a0, 0x20c0, ET},
{0x20d0, 0x20f0, NSM},
{0x2102, 0x2102, L},
{0x2107, 0x2107, L},
{0x210a, 0x2113, L},
{0x2115, 0x2115, L},
{0x2119, 0x211d, L},
{0x2124, 0x2124, L},
{0x2126, 0x2126, L},
{0x2128, 0x2128, L},
{0x212a, 0x212d, L},
{0x212e, 0x212e, ET},
{0x212f, 0x2139, L},
{0x213c, 0x213f, L},
{0x2145, 0x2149, L},
{0x214e, 0x214f, L},
{0x2160, 0x2188, L},
{0x2212, 0x2212, ES},
{0x2213, 0x2213, ET},
{0x2336, 0x237a, L},
{0x2395, 0x2395, L},
{0x2488, 0x249b, EN},
{0x249c, 0x24e9, L},
{0x26ac, 0x26ac, L},
{0x2800, 0x28ff, L},
{0x2c00, 0x2ce4, L},
{0x2ceb, 0x2cee, L},
{0x2cef, 0x2cf1, NSM},
{0x2cf2, 0x2cf3, L},
{0x2d00, 0x2d25, L},
{0x2d27, 0x2d27, L},
{0x2d2d, 0x2d2d, L},
{0x2d30, 0x2d67, L},
{0x2d6f, 0x2d70, L},
{0x2d7f, 0x2d7f, NSM},
{0x2d80, 0x2d96, L},
{0x2da0, 0x2da6, L},
{0x2da8, 0x2dae, L},
{0x2db0, 0x2db6, L},
{0x2db8, 0x2dbe, L},
{0x2dc0, 0x2dc6, L},
{0x2dc8, 0x2dce, L},
{0x2dd0, 0x2dd6, L},
{0x2dd8, 0x2dde, L},
{0x2de0, 0x2dff, NSM},
{0x3000, 0x3000, WS},
{0x3005, 0x3007, L},
{0x3021, 0x3029, L},
{0x302a, 0x302d, NSM},
{0x302e, 0x302f, L},
{0x3031, 0x3035, L},
{0x3038, 0x303c, L},
{0x3041, 0x3096, L},
{0x3099, 0x309a, NSM},
{0x309d, 0x309f, L},
{0x30a1, 0x30fa, L},
{0x30fc, 0x30ff, L},
{0x3105, 0x312f, L},
{0x3131, 0x318e, L},
{0x3190, 0x31bf, L},
{0x31f0, 0x321c, L},
{0x3220, 0x324f, L},
{0x3260, 0x327b, L},
{0x327f, 0x32b0, L},
{0x32c0, 0x32cb, L},
{0x32d0, 0x3376, L},
{0x337b, 0x33dd, L},
{0x33e0, 0x33fe, L},
{0x3400, 0x4dbf, L},
{0x4e00, 0xa48c, L},
{0xa4d0, 0xa60c, L},
{0xa610, 0xa62b, L},
{0xa640, 0xa66e, L},
{0xa66f, 0xa672, NSM},
{0xa674, 0xa67d, NSM},
{0xa680, 0xa69d, L},
{0xa69e, 0xa69f, NSM},
{0xa6a0, 0xa6ef, L},
{0xa6f0, 0xa6f1, NSM},
{0xa6f2, 0xa6f7, L},
{0xa722, 0xa787, L},
{0xa789, 0xa7ca, L},
{0xa7d0, 0xa7d1, L},
{0xa7d3, 0xa7d3, L},
{0xa7d5, 0xa7d9, L},
{0xa7f2, 0xa801, L},
{0xa802, 0xa802, NSM},
{0xa803, 0xa805, L},
{0xa806, 0xa806, NSM},
{0xa807, 0xa80a, L},
{0xa80b, 0xa80b, NSM},
{0xa80c, 0xa824, L},
{0xa825, 0xa826, NSM},
{0xa827, 0xa827, L},
{0xa82c, 0xa82c, NSM},
{0xa830, 0xa837, L},
{0xa838, 0xa839, ET},
{0xa840, 0xa873, L},
{0xa880, 0xa8c3, L},
{0xa8c4, 0xa8c5, NSM},
{0xa8ce, 0xa8d9, L},
{0xa8e0, 0xa8f1, NSM},
{0xa8f2, 0xa8fe, L},
{0xa8ff, 0xa8ff, NSM},
{0xa900, 0xa925, L},
{0xa926, 0xa92d, NSM},
{0xa92e, 0xa946, L},
{0xa947, 0xa951, NSM},
{0xa952, 0xa953, L},
{0xa95f, 0xa97c, L},
{0xa980, 0xa982, NSM},
{0xa983, 0xa9b2, L},
{0xa9b3, 0xa9b3, NSM},
{0xa9b4, 0xa9b5, L},
{0xa9b6, 0xa9b9, NSM},
{0xa9ba, 0xa9bb, L},
{0xa9bc, 0xa9bd, NSM},
{0xa9be, 0xa9cd, L},
{0xa9cf, 0xa9d9, L},
{0xa9de, 0xa9e4, L},
{0xa9e5, 0xa9e5, NSM},
{0xa9e6, 0xa9fe, L},
{0xaa00, 0xaa28, L},
{0xaa29, 0xaa2e, NSM},
{0xaa2f, 0xaa30, L},
{0xaa31, 0xaa32, NSM},
{0xaa33, 0xaa34, L},
{0xaa35, 0xaa36, NSM},
{0xaa40, 0xaa42, L},
{0xaa43, 0xaa43, NSM},
{0xaa44, 0xaa4b, L},
{0xaa4c, 0xaa4c, NSM},
{0xaa4d, 0xaa4d, L},
{0xaa50, 0xaa59, L},
{0xaa5c, 0xaa7b, L},
{0xaa7c, 0xaa7c, NSM},
{0xaa7d, 0xaaaf, L},
{0xaab0, 0xaab0, NSM},
{0xaab1, 0xaab1, L},
{0xaab2, 0xaab4, NSM},
{0xaab5, 0xaab6, L},
{0xaab7, 0xaab8, NSM},
{0xaab9, 0xaabd, L},
{0xaabe, 0xaabf, NSM},
{0xaac0, 0xaac0, L},
{0xaac1, 0xaac1, NSM},
{0xaac2, 0xaac2, L},
{0xaadb, 0xaaeb, L},
{0xaaec, 0xaaed, NSM},
{0xaaee, 0xaaf5, L},
{0xaaf6, 0xaaf6, NSM},
{0xab01, 0xab06, L},
{0xab09, 0xab0e, L},
{0xab11, 0xab16, L},
{0xab20, 0xab26, L},
{0xab28, 0xab2e, L},
{0xab30, 0xab69, L},
{0xab70, 0xabe4, L},
{0xabe5, 0xabe5, NSM},
{0xabe6, 0xabe7, L},
{0xabe8, 0xabe8, NSM},
{0xabe9, 0xabec, L},
{0xabed, 0xabed, NSM},
{0xabf0, 0xabf9, L},
{0xac00, 0xd7a3, L},
{0xd7b0, 0xd7c6, L},
{0xd7cb, 0xd7fb, L},
{0xd800, 0xfa6d, L},
{0xfa70, 0xfad9, L},
{0xfb00, 0xfb06, L},
{0xfb13, 0xfb17, L},
{0xfb1d, 0xfb1d, R},
{0xfb1e, 0xfb1e, NSM},
{0xfb1f, 0xfb28, R},
{0xfb29, 0xfb29, ES},
{0xfb2a, 0xfb36, R},
{0xfb38, 0xfb3c, R},
{0xfb3e, 0xfb3e, R},
{0xfb40, 0xfb41, R},
{0xfb43, 0xfb44, R},
{0xfb46, 0xfb4f, R},
{0xfb50, 0xfbc2, AL},
{0xfbd3, 0xfd3d, AL},
{0xfd50, 0xfd8f, AL},
{0xfd92, 0xfdc7, AL},
{0xfdf0, 0xfdfc, AL},
{0xfe00, 0xfe0f, NSM},
{0xfe20, 0xfe2f, NSM},
{0xfe50, 0xfe50, CS},
{0xfe52, 0xfe52, CS},
{0xfe55, 0xfe55, CS},
{0xfe5f, 0xfe5f, ET},
{0xfe62, 0xfe63, ES},
{0xfe69, 0xfe6a, ET},
{0xfe70, 0xfe74, AL},
{0xfe76, 0xfefc, AL},
{0xfeff, 0xfeff, BN},
{0xff03, 0xff05, ET},
{0xff0b, 0xff0b, ES},
{0xff0c, 0xff0c, CS},
{0xff0d, 0xff0d, ES},
{0xff0e, 0xff0f, CS},
{0xff10, 0xff19, EN},
{0xff1a, 0xff1a, CS},
{0xff21, 0xff3a, L},
{0xff41, 0xff5a, L},
{0xff66, 0xffbe, L},
{0xffc2, 0xffc7, L},
{0xffca, 0xffcf, L},
{0xffd2, 0xffd7, L},
{0xffda, 0xffdc, L},
{0xffe0, 0xffe1, ET},
{0xffe5, 0xffe6, ET},
{0x10000, 0x1000b, L},
{0x1000d, 0x10026, L},
{0x10028, 0x1003a, L},
{0x1003c, 0x1003d, L},
{0x1003f, 0x1004d, L},
{0x10050, 0x1005d, L},
{0x10080, 0x100fa, L},
{0x10100, 0x10100, L},
{0x10102, 0x10102, L},
{0x10107, 0x10133, L},
{0x10137, 0x1013f, L},
{0x1018d, 0x1018e, L},
{0x101d0, 0x101fc, L},
{0x101fd, 0x101fd, NSM},
{0x10280, 0x1029c, L},
{0x102a0, 0x102d0, L},
{0x102e0, 0x102e0, NSM},
{0x102e1, 0x102fb, EN},
{0x10300, 0x10323, L},
{0x1032d, 0x1034a, L},
{0x10350, 0x10375, L},
{0x10376, 0x1037a, NSM},
{0x10380, 0x1039d, L},
{0x1039f, 0x103c3, L},
{0x103c8, 0x103d5, L},
{0x10400, 0x1049d, L},
{0x104a0, 0x104a9, L},
{0x104b0, 0x104d3, L},
{0x104d8, 0x104fb, L},
{0x10500, 0x10527, L},
{0x10530, 0x10563, L},
{0x1056f, 0x1057a, L},
{0x1057c, 0x1058a, L},
{0x1058c, 0x10592, L},
{0x10594, 0x10595, L},
{0x10597, 0x105a1, L},
{0x105a3, 0x105b1, L},
{0x105b3, 0x105b9, L},
{0x105bb, 0x105bc, L},
{0x10600, 0x10736, L},
{0x10740, 0x10755, L},
{0x10760, 0x10767, L},
{0x10780, 0x10785, L},
{0x10787, 0x107b0, L},
{0x107b2, 0x107ba, L},
{0x10800, 0x10805, R},
{0x10808, 0x10808, R},
{0x1080a, 0x10835, R},
{0x10837, 0x10838, R},
{0x1083c, 0x1083c, R},
{0x1083f, 0x10855, R},
{0x10857, 0x1089e, R},
{0x108a7, 0x108af, R},
{0x108e0, 0x108f2, R},
{0x108f4, 0x108f5, R},
{0x108fb, 0x1091b, R},
{0x10920, 0x10939, R},
{0x1093f, 0x1093f, R},
{0x10980, 0x109b7, R},
{0x109bc, 0x109cf, R},
{0x109d2, 0x10a00, R},
{0x10a01, 0x10a03, NSM},
{0x10a05, 0x10a06, NSM},
{0x10a0c, 0x10a0f, NSM},
{0x10a10, 0x10a13, R},
{0x10a15, 0x10a17, R},
{0x10a19, 0x10a35, R},
{0x10a38, 0x10a3a, NSM},
{0x10a3f, 0x10a3f, NSM},
{0x10a40, 0x10a48, R},
{0x10a50, 0x10a58, R},
{0x10a60, 0x10a9f, R},
{0x10ac0, 0x10ae4, R},
{0x10ae5, 0x10ae6, NSM},
{0x10aeb, 0x10af6, R},
{0x10b00, 0x10b35, R},
{0x10b40, 0x10b55, R},
{0x10b58, 0x10b72, R},
{0x10b78, 0x10b91, R},
{0x10b99, 0x10b9c, R},
{0x10ba9, 0x10baf, R},
{0x10c00, 0x10c48, R},
{0x10c80, 0x10cb2, R},
{0x10cc0, 0x10cf2, R},
{0x10cfa, 0x10cff, R},
{0x10d00, 0x10d23, AL},
{0x10d24, 0x10d27, NSM},
{0x10d30, 0x10d39, AN},
{0x10e60, 0x10e7e, AN},
{0x10e80, 0x10ea9, R},
{0x10eab, 0x10eac, NSM},
{0x10ead, 0x10ead, R},
{0x10eb0, 0x10eb1, R},
{0x10f00, 0x10f27, R},
{0x10f30, 0x10f45, AL},
{0x10f46, 0x10f50, NSM},
{0x10f51, 0x10f59, AL},
{0x10f70, 0x10f81, R},
{0x10f82, 0x10f85, NSM},
{0x10f86, 0x10f89, R},
{0x10fb0, 0x10fcb, R},
{0x10fe0, 0x10ff6, R},
{0x11000, 0x11000, L},
{0x11001, 0x11001, NSM},
{0x11002, 0x11037, L},
{0x11038, 0x11046, NSM},
{0x11047, 0x1104d, L},
{0x11066, 0x1106f, L},
{0x11070, 0x11070, NSM},
{0x11071, 0x11072, L},
{0x11073, 0x11074, NSM},
{0x11075, 0x11075, L},
{0x1107f, 0x11081, NSM},
{0x11082, 0x110b2, L},
{0x110b3, 0x110b6, NSM},
{0x110b7, 0x110b8, L},
{0x110b9, 0x110ba, NSM},
{0x110bb, 0x110c1, L},
{0x110c2, 0x110c2, NSM},
{0x110cd, 0x110cd, L},
{0x110d0, 0x110e8, L},
{0x110f0, 0x110f9, L},
{0x11100, 0x11102, NSM},
{0x11103, 0x11126, L},
{0x11127, 0x1112b, NSM},
{0x1112c, 0x1112c, L},
{0x1112d, 0x11134, NSM},
{0x11136, 0x11147, L},
{0x11150, 0x11172, L},
{0x11173, 0x11173, NSM},
{0x11174, 0x11176, L},
{0x11180, 0x11181, NSM},
{0x11182, 0x111b5, L},
{0x111b6, 0x111be, NSM},
{0x111bf, 0x111c8, L},
{0x111c9, 0x111cc, NSM},
{0x111cd, 0x111ce, L},
{0x111cf, 0x111cf, NSM},
{0x111d0, 0x111df, L},
{0x111e1, 0x111f4, L},
{0x11200, 0x11211, L},
{0x11213, 0x1122e, L},
{0x1122f, 0x11231, NSM},
{0x11232, 0x11233, L},
{0x11234, 0x11234, NSM},
{0x11235, 0x11235, L},
{0x11236, 0x11237, NSM},
{0x11238, 0x1123d, L},
{0x1123e, 0x1123e, NSM},
{0x11280, 0x11286, L},
{0x11288, 0x11288, L},
{0x1128a, 0x1128d, L},
{0x1128f, 0x1129d, L},
{0x1129f, 0x112a9, L},
{0x112b0, 0x112de, L},
{0x112df, 0x112df, NSM},
{0x112e0, 0x112e2, L},
{0x112e3, 0x112ea, NSM},
{0x112f0, 0x112f9, L},
{0x11300, 0x11301, NSM},
{0x11302, 0x11303, L},
{0x11305, 0x1130c, L},
{0x1130f, 0x11310, L},
{0x11313, 0x11328, L},
{0x1132a, 0x11330, L},
{0x11332, 0x11333, L},
{0x11335, 0x11339, L},
{0x1133b, 0x1133c, NSM},
{0x1133d, 0x1133f, L},
{0x11340, 0x11340, NSM},
{0x11341, 0x11344, L},
{0x11347, 0x11348, L},
{0x1134b, 0x1134d, L},
{0x11350, 0x11350, L},
{0x11357, 0x11357, L},
{0x1135d, 0x11363, L},
{0x11366, 0x1136c, NSM},
{0x11370, 0x11374, NSM},
{0x11400, 0x11437, L},
{0x11438, 0x1143f, NSM},
{0x11440, 0x11441, L},
{0x11442, 0x11444, NSM},
{0x11445, 0x11445, L},
{0x11446, 0x11446, NSM},
{0x11447, 0x1145b, L},
{0x1145d, 0x1145d, L},
{0x1145e, 0x1145e, NSM},
{0x1145f, 0x11461, L},
{0x11480, 0x114b2, L},
{0x114b3, 0x114b8, NSM},
{0x114b9, 0x114b9, L},
{0x114ba, 0x114ba, NSM},
{0x114bb, 0x114be, L},
{0x114bf, 0x114c0, NSM},
{0x114c1, 0x114c1, L},
{0x114c2, 0x114c3, NSM},
{0x114c4, 0x114c7, L},
{0x114d0, 0x114d9, L},
{0x11580, 0x115b1, L},
{0x115b2, 0x115b5, NSM},
{0x115b8, 0x115bb, L},
{0x115bc, 0x115bd, NSM},
{0x115be, 0x115be, L},
{0x115bf, 0x115c0, NSM},
{0x115c1, 0x115db, L},
{0x115dc, 0x115dd, NSM},
{0x11600, 0x11632, L},
{0x11633, 0x1163a, NSM},
{0x1163b, 0x1163c, L},
{0x1163d, 0x1163d, NSM},
{0x1163e, 0x1163e, L},
{0x1163f, 0x11640, NSM},
{0x11641, 0x11644, L},
{0x11650, 0x11659, L},
{0x11680, 0x116aa, L},
{0x116ab, 0x116ab, NSM},
{0x116ac, 0x116ac, L},
{0x116ad, 0x116ad, NSM},
{0x116ae, 0x116af, L},
{0x116b0, 0x116b5, NSM},
{0x116b6, 0x116b6, L},
{0x116b7, 0x116b7, NSM},
{0x116b8, 0x116b9, L},
{0x116c0, 0x116c9, L},
{0x11700, 0x1171a, L},
{0x1171d, 0x1171f, NSM},
{0x11720, 0x11721, L},
{0x11722, 0x11725, NSM},
{0x11726, 0x11726, L},
{0x11727, 0x1172b, NSM},
{0x11730, 0x11746, L},
{0x11800, 0x1182e, L},
{0x1182f, 0x11837, NSM},
{0x11838, 0x11838, L},
{0x11839, 0x1183a, NSM},
{0x1183b, 0x1183b, L},
{0x118a0, 0x118f2, L},
{0x118ff, 0x11906, L},
{0x11909, 0x11909, L},
{0x1190c, 0x11913, L},
{0x11915, 0x11916, L},
{0x11918, 0x11935, L},
{0x11937, 0x11938, L},
{0x1193b, 0x1193c, NSM},
{0x1193d, 0x1193d, L},
{0x1193e, 0x1193e, NSM},
{0x1193f, 0x11942, L},
{0x11943, 0x11943, NSM},
{0x11944, 0x11946, L},
{0x11950, 0x11959, L},
{0x119a0, 0x119a7, L},
{0x119aa, 0x119d3, L},
{0x119d4, 0x119d7, NSM},
{0x119da, 0x119db, NSM},
{0x119dc, 0x119df, L},
{0x119e0, 0x119e0, NSM},
{0x119e1, 0x119e4, L},
{0x11a00, 0x11a00, L},
{0x11a01, 0x11a06, NSM},
{0x11a07, 0x11a08, L},
{0x11a09, 0x11a0a, NSM},
{0x11a0b, 0x11a32, L},
{0x11a33, 0x11a38, NSM},
{0x11a39, 0x11a3a, L},
{0x11a3b, 0x11a3e, NSM},
{0x11a3f, 0x11a46, L},
{0x11a47, 0x11a47, NSM},
{0x11a50, 0x11a50, L},
{0x11a51, 0x11a56, NSM},
{0x11a57, 0x11a58, L},
{0x11a59, 0x11a5b, NSM},
{0x11a5c, 0x11a89, L},
{0x11a8a, 0x11a96, NSM},
{0x11a97, 0x11a97, L},
{0x11a98, 0x11a99, NSM},
{0x11a9a, 0x11aa2, L},
{0x11ab0, 0x11af8, L},
{0x11c00, 0x11c08, L},
{0x11c0a, 0x11c2f, L},
{0x11c30, 0x11c36, NSM},
{0x11c38, 0x11c3d, NSM},
{0x11c3e, 0x11c45, L},
{0x11c50, 0x11c6c, L},
{0x11c70, 0x11c8f, L},
{0x11c92, 0x11ca7, NSM},
{0x11ca9, 0x11ca9, L},
{0x11caa, 0x11cb0, NSM},
{0x11cb1, 0x11cb1, L},
{0x11cb2, 0x11cb3, NSM},
{0x11cb4, 0x11cb4, L},
{0x11cb5, 0x11cb6, NSM},
{0x11d00, 0x11d06, L},
{0x11d08, 0x11d09, L},
{0x11d0b, 0x11d30, L},
{0x11d31, 0x11d36, NSM},
{0x11d3a, 0x11d3a, NSM},
{0x11d3c, 0x11d3d, NSM},
{0x11d3f, 0x11d45, NSM},
{0x11d46, 0x11d46, L},
{0x11d47, 0x11d47, NSM},
{0x11d50, 0x11d59, L},
{0x11d60, 0x11d65, L},
{0x11d67, 0x11d68, L},
{0x11d6a, 0x11d8e, L},
{0x11d90, 0x11d91, NSM},
{0x11d93, 0x11d94, L},
{0x11d95, 0x11d95, NSM},
{0x11d96, 0x11d96, L},
{0x11d97, 0x11d97, NSM},
{0x11d98, 0x11d98, L},
{0x11da0, 0x11da9, L},
{0x11ee0, 0x11ef2, L},
{0x11ef3, 0x11ef4, NSM},
{0x11ef5, 0x11ef8, L},
{0x11fb0, 0x11fb0, L},
{0x11fc0, 0x11fd4, L},
{0x11fdd, 0x11fe0, ET},
{0x11fff, 0x12399, L},
{0x12400, 0x1246e, L},
{0x12470, 0x12474, L},
{0x12480, 0x12543, L},
{0x12f90, 0x12ff2, L},
{0x13000, 0x1342e, L},
{0x13430, 0x13438, L},
{0x14400, 0x14646, L},
{0x16800, 0x16a38, L},
{0x16a40, 0x16a5e, L},
{0x16a60, 0x16a69, L},
{0x16a6e, 0x16abe, L},
{0x16ac0, 0x16ac9, L},
{0x16ad0, 0x16aed, L},
{0x16af0, 0x16af4, NSM},
{0x16af5, 0x16af5, L},
{0x16b00, 0x16b2f, L},
{0x16b30, 0x16b36, NSM},
{0x16b37, 0x16b45, L},
{0x16b50, 0x16b59, L},
{0x16b5b, 0x16b61, L},
{0x16b63, 0x16b77, L},
{0x16b7d, 0x16b8f, L},
{0x16e40, 0x16e9a, L},
{0x16f00, 0x16f4a, L},
{0x16f4f, 0x16f4f, NSM},
{0x16f50, 0x16f87, L},
{0x16f8f, 0x16f92, NSM},
{0x16f93, 0x16f9f, L},
{0x16fe0, 0x16fe1, L},
{0x16fe3, 0x16fe3, L},
{0x16fe4, 0x16fe4, NSM},
{0x16ff0, 0x16ff1, L},
{0x17000, 0x187f7, L},
{0x18800, 0x18cd5, L},
{0x18d00, 0x18d08, L},
{0x1aff0, 0x1aff3, L},
{0x1aff5, 0x1affb, L},
{0x1affd, 0x1affe, L},
{0x1b000, 0x1b122, L},
{0x1b150, 0x1b152, L},
{0x1b164, 0x1b167, L},
{0x1b170, 0x1b2fb, L},
{0x1bc00, 0x1bc6a, L},
{0x1bc70, 0x1bc7c, L},
{0x1bc80, 0x1bc88, L},
{0x1bc90, 0x1bc99, L},
{0x1bc9c, 0x1bc9c, L},
{0x1bc9d, 0x1bc9e, NSM},
{0x1bc9f, 0x1bc9f, L},
{0x1bca0, 0x1bca3, BN},
{0x1cf00, 0x1cf2d, NSM},
{0x1cf30, 0x1cf46, NSM},
{0x1cf50, 0x1cfc3, L},
{0x1d000, 0x1d0f5, L},
{0x1d100, 0x1d126, L},
{0x1d129, 0x1d166, L},
{0x1d167, 0x1d169, NSM},
{0x1d16a, 0x1d172, L},
{0x1d173, 0x1d17a, BN},
{0x1d17b, 0x1d182, NSM},
{0x1d183, 0x1d184, L},
{0x1d185, 0x1d18b, NSM},
{0x1d18c, 0x1d1a9, L},
{0x1d1aa, 0x1d1ad, NSM},
{0x1d1ae, 0x1d1e8, L},
{0x1d242, 0x1d244, NSM},
{0x1d2e0, 0x1d2f3, L},
{0x1d360, 0x1d378, L},
{0x1d400, 0x1d454, L},
{0x1d456, 0x1d49c, L},
{0x1d49e, 0x1d49f, L},
{0x1d4a2, 0x1d4a2, L},
{0x1d4a5, 0x1d4a6, L},
{0x1d4a9, 0x1d4ac, L},
{0x1d4ae, 0x1d4b9, L},
{0x1d4bb, 0x1d4bb, L},
{0x1d4bd, 0x1d4c3, L},
{0x1d4c5, 0x1d505, L},
{0x1d507, 0x1d50a, L},
{0x1d50d, 0x1d514, L},
{0x1d516, 0x1d51c, L},
{0x1d51e, 0x1d539, L},
{0x1d53b, 0x1d53e, L},
{0x1d540, 0x1d544, L},
{0x1d546, 0x1d546, L},
{0x1d54a, 0x1d550, L},
{0x1d552, 0x1d6a5, L},
{0x1d6a8, 0x1d6da, L},
{0x1d6dc, 0x1d714, L},
{0x1d716, 0x1d74e, L},
{0x1d750, 0x1d788, L},
{0x1d78a, 0x1d7c2, L},
{0x1d7c4, 0x1d7cb, L},
{0x1d7ce, 0x1d7ff, EN},
{0x1d800, 0x1d9ff, L},
{0x1da00, 0x1da36, NSM},
{0x1da37, 0x1da3a, L},
{0x1da3b, 0x1da6c, NSM},
{0x1da6d, 0x1da74, L},
{0x1da75, 0x1da75, NSM},
{0x1da76, 0x1da83, L},
{0x1da84, 0x1da84, NSM},
{0x1da85, 0x1da8b, L},
{0x1da9b, 0x1da9f, NSM},
{0x1daa1, 0x1daaf, NSM},
{0x1df00, 0x1df1e, L},
{0x1e000, 0x1e006, NSM},
{0x1e008, 0x1e018, NSM},
{0x1e01b, 0x1e021, NSM},
{0x1e023, 0x1e024, NSM},
{0x1e026, 0x1e02a, NSM},
{0x1e100, 0x1e12c, L},
{0x1e130, 0x1e136, NSM},
{0x1e137, 0x1e13d, L},
{0x1e140, 0x1e149, L},
{0x1e14e, 0x1e14f, L},
{0x1e290, 0x1e2ad, L},
{0x1e2ae, 0x1e2ae, NSM},
{0x1e2c0, 0x1e2eb, L},
{0x1e2ec, 0x1e2ef, NSM},
{0x1e2f0, 0x1e2f9, L},
{0x1e2ff, 0x1e2ff, ET},
{0x1e7e0, 0x1e7e6, L},
{0x1e7e8, 0x1e7eb, L},
{0x1e7ed, 0x1e7ee, L},
{0x1e7f0, 0x1e7fe, L},
{0x1e800, 0x1e8c4, R},
{0x1e8c7, 0x1e8cf, R},
{0x1e8d0, 0x1e8d6, NSM},
{0x1e900, 0x1e943, R},
{0x1e944, 0x1e94a, NSM},
{0x1e94b, 0x1e94b, R},
{0x1e950, 0x1e959, R},
{0x1e95e, 0x1e95f, R},
{0x1ec71, 0x1ecb4, AL},
{0x1ed01, 0x1ed3d, AL},
{0x1ee00, 0x1ee03, AL},
{0x1ee05, 0x1ee1f, AL},
{0x1ee21, 0x1ee22, AL},
{0x1ee24, 0x1ee24, AL},
{0x1ee27, 0x1ee27, AL},
{0x1ee29, 0x1ee32, AL},
{0x1ee34, 0x1ee37, AL},
{0x1ee39, 0x1ee39, AL},
{0x1ee3b, 0x1ee3b, AL},
{0x1ee42, 0x1ee42, AL},
{0x1ee47, 0x1ee47, AL},
{0x1ee49, 0x1ee49, AL},
{0x1ee4b, 0x1ee4b, AL},
{0x1ee4d, 0x1ee4f, AL},
{0x1ee51, 0x1ee52, AL},
{0x1ee54, 0x1ee54, AL},
{0x1ee57, 0x1ee57, AL},
{0x1ee59, 0x1ee59, AL},
{0x1ee5b, 0x1ee5b, AL},
{0x1ee5d, 0x1ee5d, AL},
{0x1ee5f, 0x1ee5f, AL},
{0x1ee61, 0x1ee62, AL},
{0x1ee64, 0x1ee64, AL},
{0x1ee67, 0x1ee6a, AL},
{0x1ee6c, 0x1ee72, AL},
{0x1ee74, 0x1ee77, AL},
{0x1ee79, 0x1ee7c, AL},
{0x1ee7e, 0x1ee7e, AL},
{0x1ee80, 0x1ee89, AL},
{0x1ee8b, 0x1ee9b, AL},
{0x1eea1, 0x1eea3, AL},
{0x1eea5, 0x1eea9, AL},
{0x1eeab, 0x1eebb, AL},
{0x1f100, 0x1f10a, EN},
{0x1f110, 0x1f12e, L},
{0x1f130, 0x1f169, L},
{0x1f170, 0x1f1ac, L},
{0x1f1e6, 0x1f202, L},
{0x1f210, 0x1f23b, L},
{0x1f240, 0x1f248, L},
{0x1f250, 0x1f251, L},
{0x1fbf0, 0x1fbf9, EN},
{0x20000, 0x2a6df, L},
{0x2a700, 0x2b738, L},
{0x2b740, 0x2b81d, L},
{0x2b820, 0x2cea1, L},
{0x2ceb0, 0x2ebe0, L},
{0x2f800, 0x2fa1d, L},
{0x30000, 0x3134a, L},
{0xe0001, 0xe0001, BN},
{0xe0020, 0xe007f, BN},
{0xe0100, 0xe01ef, NSM},
{0xf0000, 0xffffd, L},
{0x100000, 0x10fffd, L},
};
int i, j, k;
i = -1;
j = lenof(lookup);
while (j - i > 1) {
k = (i + j) / 2;
if (ch < lookup[k].first)
j = k;
else if (ch > lookup[k].last)
i = k;
else
return lookup[k].type;
}
/*
* If we reach here, the character was not in any of the
* intervals listed in the lookup table. This means we return
* ON (`Other Neutrals'). This is the appropriate code for any
* character genuinely not listed in the Unicode table, and
* also the table above has deliberately left out any
* characters _explicitly_ listed as ON (to save space!).
*/
return ON;
}
/*
* Return the mirrored version of a glyph.
* The data table in this function is constructed from the Unicode
* Character Database version 14.0.0, downloadable from unicode.org at
* the URL
*
* https://www.unicode.org/Public/14.0.0/ucd/
*
* by the following fragment of Perl:
perl -e '
while (<<>>) {
chomp; s{\s}{}g; s{#.*$}{}; next unless /./;
@_ = split /;/, $_;
$src = hex $_[0]; $dst = hex $_[1];
$m{$src}=$dst; $m{$dst}=$src;
}
for $src (sort {$a <=> $b} keys %m) {
printf " {0x%04x, 0x%04x},\n", $src, $m{$src};
}
' BidiMirroring.txt
*
* FIXME: there are also glyphs which the text rendering engine is
* supposed to display left-right reflected, since no mirrored glyph
* exists in Unicode itself to indicate the reflected form. Those are
* listed in comments in BidiMirroring.txt. Many of them are
* mathematical, e.g. the square root sign, or set difference
* operator, or integral sign. No API currently exists here to
* communicate the need for that reflected display back to the client.
*/
static unsigned mirror_glyph(unsigned int ch)
{
static const struct {
unsigned src, dst;
} mirror_pairs[] = {
{0x0028, 0x0029},
{0x0029, 0x0028},
{0x003c, 0x003e},
{0x003e, 0x003c},
{0x005b, 0x005d},
{0x005d, 0x005b},
{0x007b, 0x007d},
{0x007d, 0x007b},
{0x00ab, 0x00bb},
{0x00bb, 0x00ab},
{0x0f3a, 0x0f3b},
{0x0f3b, 0x0f3a},
{0x0f3c, 0x0f3d},
{0x0f3d, 0x0f3c},
{0x169b, 0x169c},
{0x169c, 0x169b},
{0x2039, 0x203a},
{0x203a, 0x2039},
{0x2045, 0x2046},
{0x2046, 0x2045},
{0x207d, 0x207e},
{0x207e, 0x207d},
{0x208d, 0x208e},
{0x208e, 0x208d},
{0x2208, 0x220b},
{0x2209, 0x220c},
{0x220a, 0x220d},
{0x220b, 0x2208},
{0x220c, 0x2209},
{0x220d, 0x220a},
{0x2215, 0x29f5},
{0x221f, 0x2bfe},
{0x2220, 0x29a3},
{0x2221, 0x299b},
{0x2222, 0x29a0},
{0x2224, 0x2aee},
{0x223c, 0x223d},
{0x223d, 0x223c},
{0x2243, 0x22cd},
{0x2245, 0x224c},
{0x224c, 0x2245},
{0x2252, 0x2253},
{0x2253, 0x2252},
{0x2254, 0x2255},
{0x2255, 0x2254},
{0x2264, 0x2265},
{0x2265, 0x2264},
{0x2266, 0x2267},
{0x2267, 0x2266},
{0x2268, 0x2269},
{0x2269, 0x2268},
{0x226a, 0x226b},
{0x226b, 0x226a},
{0x226e, 0x226f},
{0x226f, 0x226e},
{0x2270, 0x2271},
{0x2271, 0x2270},
{0x2272, 0x2273},
{0x2273, 0x2272},
{0x2274, 0x2275},
{0x2275, 0x2274},
{0x2276, 0x2277},
{0x2277, 0x2276},
{0x2278, 0x2279},
{0x2279, 0x2278},
{0x227a, 0x227b},
{0x227b, 0x227a},
{0x227c, 0x227d},
{0x227d, 0x227c},
{0x227e, 0x227f},
{0x227f, 0x227e},
{0x2280, 0x2281},
{0x2281, 0x2280},
{0x2282, 0x2283},
{0x2283, 0x2282},
{0x2284, 0x2285},
{0x2285, 0x2284},
{0x2286, 0x2287},
{0x2287, 0x2286},
{0x2288, 0x2289},
{0x2289, 0x2288},
{0x228a, 0x228b},
{0x228b, 0x228a},
{0x228f, 0x2290},
{0x2290, 0x228f},
{0x2291, 0x2292},
{0x2292, 0x2291},
{0x2298, 0x29b8},
{0x22a2, 0x22a3},
{0x22a3, 0x22a2},
{0x22a6, 0x2ade},
{0x22a8, 0x2ae4},
{0x22a9, 0x2ae3},
{0x22ab, 0x2ae5},
{0x22b0, 0x22b1},
{0x22b1, 0x22b0},
{0x22b2, 0x22b3},
{0x22b3, 0x22b2},
{0x22b4, 0x22b5},
{0x22b5, 0x22b4},
{0x22b6, 0x22b7},
{0x22b7, 0x22b6},
{0x22b8, 0x27dc},
{0x22c9, 0x22ca},
{0x22ca, 0x22c9},
{0x22cb, 0x22cc},
{0x22cc, 0x22cb},
{0x22cd, 0x2243},
{0x22d0, 0x22d1},
{0x22d1, 0x22d0},
{0x22d6, 0x22d7},
{0x22d7, 0x22d6},
{0x22d8, 0x22d9},
{0x22d9, 0x22d8},
{0x22da, 0x22db},
{0x22db, 0x22da},
{0x22dc, 0x22dd},
{0x22dd, 0x22dc},
{0x22de, 0x22df},
{0x22df, 0x22de},
{0x22e0, 0x22e1},
{0x22e1, 0x22e0},
{0x22e2, 0x22e3},
{0x22e3, 0x22e2},
{0x22e4, 0x22e5},
{0x22e5, 0x22e4},
{0x22e6, 0x22e7},
{0x22e7, 0x22e6},
{0x22e8, 0x22e9},
{0x22e9, 0x22e8},
{0x22ea, 0x22eb},
{0x22eb, 0x22ea},
{0x22ec, 0x22ed},
{0x22ed, 0x22ec},
{0x22f0, 0x22f1},
{0x22f1, 0x22f0},
{0x22f2, 0x22fa},
{0x22f3, 0x22fb},
{0x22f4, 0x22fc},
{0x22f6, 0x22fd},
{0x22f7, 0x22fe},
{0x22fa, 0x22f2},
{0x22fb, 0x22f3},
{0x22fc, 0x22f4},
{0x22fd, 0x22f6},
{0x22fe, 0x22f7},
{0x2308, 0x2309},
{0x2309, 0x2308},
{0x230a, 0x230b},
{0x230b, 0x230a},
{0x2329, 0x232a},
{0x232a, 0x2329},
{0x2768, 0x2769},
{0x2769, 0x2768},
{0x276a, 0x276b},
{0x276b, 0x276a},
{0x276c, 0x276d},
{0x276d, 0x276c},
{0x276e, 0x276f},
{0x276f, 0x276e},
{0x2770, 0x2771},
{0x2771, 0x2770},
{0x2772, 0x2773},
{0x2773, 0x2772},
{0x2774, 0x2775},
{0x2775, 0x2774},
{0x27c3, 0x27c4},
{0x27c4, 0x27c3},
{0x27c5, 0x27c6},
{0x27c6, 0x27c5},
{0x27c8, 0x27c9},
{0x27c9, 0x27c8},
{0x27cb, 0x27cd},
{0x27cd, 0x27cb},
{0x27d5, 0x27d6},
{0x27d6, 0x27d5},
{0x27dc, 0x22b8},
{0x27dd, 0x27de},
{0x27de, 0x27dd},
{0x27e2, 0x27e3},
{0x27e3, 0x27e2},
{0x27e4, 0x27e5},
{0x27e5, 0x27e4},
{0x27e6, 0x27e7},
{0x27e7, 0x27e6},
{0x27e8, 0x27e9},
{0x27e9, 0x27e8},
{0x27ea, 0x27eb},
{0x27eb, 0x27ea},
{0x27ec, 0x27ed},
{0x27ed, 0x27ec},
{0x27ee, 0x27ef},
{0x27ef, 0x27ee},
{0x2983, 0x2984},
{0x2984, 0x2983},
{0x2985, 0x2986},
{0x2986, 0x2985},
{0x2987, 0x2988},
{0x2988, 0x2987},
{0x2989, 0x298a},
{0x298a, 0x2989},
{0x298b, 0x298c},
{0x298c, 0x298b},
{0x298d, 0x2990},
{0x298e, 0x298f},
{0x298f, 0x298e},
{0x2990, 0x298d},
{0x2991, 0x2992},
{0x2992, 0x2991},
{0x2993, 0x2994},
{0x2994, 0x2993},
{0x2995, 0x2996},
{0x2996, 0x2995},
{0x2997, 0x2998},
{0x2998, 0x2997},
{0x299b, 0x2221},
{0x29a0, 0x2222},
{0x29a3, 0x2220},
{0x29a4, 0x29a5},
{0x29a5, 0x29a4},
{0x29a8, 0x29a9},
{0x29a9, 0x29a8},
{0x29aa, 0x29ab},
{0x29ab, 0x29aa},
{0x29ac, 0x29ad},
{0x29ad, 0x29ac},
{0x29ae, 0x29af},
{0x29af, 0x29ae},
{0x29b8, 0x2298},
{0x29c0, 0x29c1},
{0x29c1, 0x29c0},
{0x29c4, 0x29c5},
{0x29c5, 0x29c4},
{0x29cf, 0x29d0},
{0x29d0, 0x29cf},
{0x29d1, 0x29d2},
{0x29d2, 0x29d1},
{0x29d4, 0x29d5},
{0x29d5, 0x29d4},
{0x29d8, 0x29d9},
{0x29d9, 0x29d8},
{0x29da, 0x29db},
{0x29db, 0x29da},
{0x29e8, 0x29e9},
{0x29e9, 0x29e8},
{0x29f5, 0x2215},
{0x29f8, 0x29f9},
{0x29f9, 0x29f8},
{0x29fc, 0x29fd},
{0x29fd, 0x29fc},
{0x2a2b, 0x2a2c},
{0x2a2c, 0x2a2b},
{0x2a2d, 0x2a2e},
{0x2a2e, 0x2a2d},
{0x2a34, 0x2a35},
{0x2a35, 0x2a34},
{0x2a3c, 0x2a3d},
{0x2a3d, 0x2a3c},
{0x2a64, 0x2a65},
{0x2a65, 0x2a64},
{0x2a79, 0x2a7a},
{0x2a7a, 0x2a79},
{0x2a7b, 0x2a7c},
{0x2a7c, 0x2a7b},
{0x2a7d, 0x2a7e},
{0x2a7e, 0x2a7d},
{0x2a7f, 0x2a80},
{0x2a80, 0x2a7f},
{0x2a81, 0x2a82},
{0x2a82, 0x2a81},
{0x2a83, 0x2a84},
{0x2a84, 0x2a83},
{0x2a85, 0x2a86},
{0x2a86, 0x2a85},
{0x2a87, 0x2a88},
{0x2a88, 0x2a87},
{0x2a89, 0x2a8a},
{0x2a8a, 0x2a89},
{0x2a8b, 0x2a8c},
{0x2a8c, 0x2a8b},
{0x2a8d, 0x2a8e},
{0x2a8e, 0x2a8d},
{0x2a8f, 0x2a90},
{0x2a90, 0x2a8f},
{0x2a91, 0x2a92},
{0x2a92, 0x2a91},
{0x2a93, 0x2a94},
{0x2a94, 0x2a93},
{0x2a95, 0x2a96},
{0x2a96, 0x2a95},
{0x2a97, 0x2a98},
{0x2a98, 0x2a97},
{0x2a99, 0x2a9a},
{0x2a9a, 0x2a99},
{0x2a9b, 0x2a9c},
{0x2a9c, 0x2a9b},
{0x2a9d, 0x2a9e},
{0x2a9e, 0x2a9d},
{0x2a9f, 0x2aa0},
{0x2aa0, 0x2a9f},
{0x2aa1, 0x2aa2},
{0x2aa2, 0x2aa1},
{0x2aa6, 0x2aa7},
{0x2aa7, 0x2aa6},
{0x2aa8, 0x2aa9},
{0x2aa9, 0x2aa8},
{0x2aaa, 0x2aab},
{0x2aab, 0x2aaa},
{0x2aac, 0x2aad},
{0x2aad, 0x2aac},
{0x2aaf, 0x2ab0},
{0x2ab0, 0x2aaf},
{0x2ab1, 0x2ab2},
{0x2ab2, 0x2ab1},
{0x2ab3, 0x2ab4},
{0x2ab4, 0x2ab3},
{0x2ab5, 0x2ab6},
{0x2ab6, 0x2ab5},
{0x2ab7, 0x2ab8},
{0x2ab8, 0x2ab7},
{0x2ab9, 0x2aba},
{0x2aba, 0x2ab9},
{0x2abb, 0x2abc},
{0x2abc, 0x2abb},
{0x2abd, 0x2abe},
{0x2abe, 0x2abd},
{0x2abf, 0x2ac0},
{0x2ac0, 0x2abf},
{0x2ac1, 0x2ac2},
{0x2ac2, 0x2ac1},
{0x2ac3, 0x2ac4},
{0x2ac4, 0x2ac3},
{0x2ac5, 0x2ac6},
{0x2ac6, 0x2ac5},
{0x2ac7, 0x2ac8},
{0x2ac8, 0x2ac7},
{0x2ac9, 0x2aca},
{0x2aca, 0x2ac9},
{0x2acb, 0x2acc},
{0x2acc, 0x2acb},
{0x2acd, 0x2ace},
{0x2ace, 0x2acd},
{0x2acf, 0x2ad0},
{0x2ad0, 0x2acf},
{0x2ad1, 0x2ad2},
{0x2ad2, 0x2ad1},
{0x2ad3, 0x2ad4},
{0x2ad4, 0x2ad3},
{0x2ad5, 0x2ad6},
{0x2ad6, 0x2ad5},
{0x2ade, 0x22a6},
{0x2ae3, 0x22a9},
{0x2ae4, 0x22a8},
{0x2ae5, 0x22ab},
{0x2aec, 0x2aed},
{0x2aed, 0x2aec},
{0x2aee, 0x2224},
{0x2af7, 0x2af8},
{0x2af8, 0x2af7},
{0x2af9, 0x2afa},
{0x2afa, 0x2af9},
{0x2bfe, 0x221f},
{0x2e02, 0x2e03},
{0x2e03, 0x2e02},
{0x2e04, 0x2e05},
{0x2e05, 0x2e04},
{0x2e09, 0x2e0a},
{0x2e0a, 0x2e09},
{0x2e0c, 0x2e0d},
{0x2e0d, 0x2e0c},
{0x2e1c, 0x2e1d},
{0x2e1d, 0x2e1c},
{0x2e20, 0x2e21},
{0x2e21, 0x2e20},
{0x2e22, 0x2e23},
{0x2e23, 0x2e22},
{0x2e24, 0x2e25},
{0x2e25, 0x2e24},
{0x2e26, 0x2e27},
{0x2e27, 0x2e26},
{0x2e28, 0x2e29},
{0x2e29, 0x2e28},
{0x2e55, 0x2e56},
{0x2e56, 0x2e55},
{0x2e57, 0x2e58},
{0x2e58, 0x2e57},
{0x2e59, 0x2e5a},
{0x2e5a, 0x2e59},
{0x2e5b, 0x2e5c},
{0x2e5c, 0x2e5b},
{0x3008, 0x3009},
{0x3009, 0x3008},
{0x300a, 0x300b},
{0x300b, 0x300a},
{0x300c, 0x300d},
{0x300d, 0x300c},
{0x300e, 0x300f},
{0x300f, 0x300e},
{0x3010, 0x3011},
{0x3011, 0x3010},
{0x3014, 0x3015},
{0x3015, 0x3014},
{0x3016, 0x3017},
{0x3017, 0x3016},
{0x3018, 0x3019},
{0x3019, 0x3018},
{0x301a, 0x301b},
{0x301b, 0x301a},
{0xfe59, 0xfe5a},
{0xfe5a, 0xfe59},
{0xfe5b, 0xfe5c},
{0xfe5c, 0xfe5b},
{0xfe5d, 0xfe5e},
{0xfe5e, 0xfe5d},
{0xfe64, 0xfe65},
{0xfe65, 0xfe64},
{0xff08, 0xff09},
{0xff09, 0xff08},
{0xff1c, 0xff1e},
{0xff1e, 0xff1c},
{0xff3b, 0xff3d},
{0xff3d, 0xff3b},
{0xff5b, 0xff5d},
{0xff5d, 0xff5b},
{0xff5f, 0xff60},
{0xff60, 0xff5f},
{0xff62, 0xff63},
{0xff63, 0xff62},
};
int i, j, k;
i = -1;
j = lenof(mirror_pairs);
while (j - i > 1) {
k = (i + j) / 2;
if (ch < mirror_pairs[k].src)
j = k;
else if (ch > mirror_pairs[k].src)
i = k;
else
return mirror_pairs[k].dst;
}
return ch;
}
/*
* Identify the bracket characters treated specially by bidi rule
* BD19, and return their paired character(s).
*
* The data table in this function is constructed from the Unicode
* Character Database version 14.0.0, downloadable from unicode.org at
* the URL
*
* https://www.unicode.org/Public/14.0.0/ucd/
*
* by the following fragment of Perl:
perl -e '
open BIDIBRACKETS, "<", $ARGV[0] or die;
while (<BIDIBRACKETS>) {
chomp; s{\s}{}g; s{#.*$}{}; next unless /./;
@_ = split /;/, $_;
$src = hex $_[0]; $dst = hex $_[1]; $kind = $_[2];
$m{$src}=[$kind, $dst];
}
open UNICODEDATA, "<", $ARGV[1] or die;
while (<UNICODEDATA>) {
chomp; @_ = split /;/, $_;
$src = hex $_[0]; next unless defined $m{$src};
if ($_[5] =~ /^[0-9a-f]+$/i) {
$equiv = hex $_[5];
$e{$src} = $equiv;
$e{$equiv} = $src;
}
}
for $src (sort {$a <=> $b} keys %m) {
($kind, $dst) = @{$m{$src}};
$equiv = 0 + $e{$dst};
printf " {0x%04x, {0x%04x, 0x%04x, %s}},\n", $src, $dst, $equiv,
$kind eq "c" ? "BT_CLOSE" : "BT_OPEN";
}
' BidiBrackets.txt UnicodeData.txt
*/
typedef enum { BT_NONE, BT_OPEN, BT_CLOSE } BracketType;
typedef struct BracketTypeData {
unsigned partner, equiv_partner;
BracketType type;
} BracketTypeData;
static BracketTypeData bracket_type(unsigned int ch)
{
static const struct {
unsigned src;
BracketTypeData payload;
} bracket_pairs[] = {
{0x0028, {0x0029, 0x0000, BT_OPEN}},
{0x0029, {0x0028, 0x0000, BT_CLOSE}},
{0x005b, {0x005d, 0x0000, BT_OPEN}},
{0x005d, {0x005b, 0x0000, BT_CLOSE}},
{0x007b, {0x007d, 0x0000, BT_OPEN}},
{0x007d, {0x007b, 0x0000, BT_CLOSE}},
{0x0f3a, {0x0f3b, 0x0000, BT_OPEN}},
{0x0f3b, {0x0f3a, 0x0000, BT_CLOSE}},
{0x0f3c, {0x0f3d, 0x0000, BT_OPEN}},
{0x0f3d, {0x0f3c, 0x0000, BT_CLOSE}},
{0x169b, {0x169c, 0x0000, BT_OPEN}},
{0x169c, {0x169b, 0x0000, BT_CLOSE}},
{0x2045, {0x2046, 0x0000, BT_OPEN}},
{0x2046, {0x2045, 0x0000, BT_CLOSE}},
{0x207d, {0x207e, 0x0000, BT_OPEN}},
{0x207e, {0x207d, 0x0000, BT_CLOSE}},
{0x208d, {0x208e, 0x0000, BT_OPEN}},
{0x208e, {0x208d, 0x0000, BT_CLOSE}},
{0x2308, {0x2309, 0x0000, BT_OPEN}},
{0x2309, {0x2308, 0x0000, BT_CLOSE}},
{0x230a, {0x230b, 0x0000, BT_OPEN}},
{0x230b, {0x230a, 0x0000, BT_CLOSE}},
{0x2329, {0x232a, 0x3009, BT_OPEN}},
{0x232a, {0x2329, 0x3008, BT_CLOSE}},
{0x2768, {0x2769, 0x0000, BT_OPEN}},
{0x2769, {0x2768, 0x0000, BT_CLOSE}},
{0x276a, {0x276b, 0x0000, BT_OPEN}},
{0x276b, {0x276a, 0x0000, BT_CLOSE}},
{0x276c, {0x276d, 0x0000, BT_OPEN}},
{0x276d, {0x276c, 0x0000, BT_CLOSE}},
{0x276e, {0x276f, 0x0000, BT_OPEN}},
{0x276f, {0x276e, 0x0000, BT_CLOSE}},
{0x2770, {0x2771, 0x0000, BT_OPEN}},
{0x2771, {0x2770, 0x0000, BT_CLOSE}},
{0x2772, {0x2773, 0x0000, BT_OPEN}},
{0x2773, {0x2772, 0x0000, BT_CLOSE}},
{0x2774, {0x2775, 0x0000, BT_OPEN}},
{0x2775, {0x2774, 0x0000, BT_CLOSE}},
{0x27c5, {0x27c6, 0x0000, BT_OPEN}},
{0x27c6, {0x27c5, 0x0000, BT_CLOSE}},
{0x27e6, {0x27e7, 0x0000, BT_OPEN}},
{0x27e7, {0x27e6, 0x0000, BT_CLOSE}},
{0x27e8, {0x27e9, 0x0000, BT_OPEN}},
{0x27e9, {0x27e8, 0x0000, BT_CLOSE}},
{0x27ea, {0x27eb, 0x0000, BT_OPEN}},
{0x27eb, {0x27ea, 0x0000, BT_CLOSE}},
{0x27ec, {0x27ed, 0x0000, BT_OPEN}},
{0x27ed, {0x27ec, 0x0000, BT_CLOSE}},
{0x27ee, {0x27ef, 0x0000, BT_OPEN}},
{0x27ef, {0x27ee, 0x0000, BT_CLOSE}},
{0x2983, {0x2984, 0x0000, BT_OPEN}},
{0x2984, {0x2983, 0x0000, BT_CLOSE}},
{0x2985, {0x2986, 0x0000, BT_OPEN}},
{0x2986, {0x2985, 0x0000, BT_CLOSE}},
{0x2987, {0x2988, 0x0000, BT_OPEN}},
{0x2988, {0x2987, 0x0000, BT_CLOSE}},
{0x2989, {0x298a, 0x0000, BT_OPEN}},
{0x298a, {0x2989, 0x0000, BT_CLOSE}},
{0x298b, {0x298c, 0x0000, BT_OPEN}},
{0x298c, {0x298b, 0x0000, BT_CLOSE}},
{0x298d, {0x2990, 0x0000, BT_OPEN}},
{0x298e, {0x298f, 0x0000, BT_CLOSE}},
{0x298f, {0x298e, 0x0000, BT_OPEN}},
{0x2990, {0x298d, 0x0000, BT_CLOSE}},
{0x2991, {0x2992, 0x0000, BT_OPEN}},
{0x2992, {0x2991, 0x0000, BT_CLOSE}},
{0x2993, {0x2994, 0x0000, BT_OPEN}},
{0x2994, {0x2993, 0x0000, BT_CLOSE}},
{0x2995, {0x2996, 0x0000, BT_OPEN}},
{0x2996, {0x2995, 0x0000, BT_CLOSE}},
{0x2997, {0x2998, 0x0000, BT_OPEN}},
{0x2998, {0x2997, 0x0000, BT_CLOSE}},
{0x29d8, {0x29d9, 0x0000, BT_OPEN}},
{0x29d9, {0x29d8, 0x0000, BT_CLOSE}},
{0x29da, {0x29db, 0x0000, BT_OPEN}},
{0x29db, {0x29da, 0x0000, BT_CLOSE}},
{0x29fc, {0x29fd, 0x0000, BT_OPEN}},
{0x29fd, {0x29fc, 0x0000, BT_CLOSE}},
{0x2e22, {0x2e23, 0x0000, BT_OPEN}},
{0x2e23, {0x2e22, 0x0000, BT_CLOSE}},
{0x2e24, {0x2e25, 0x0000, BT_OPEN}},
{0x2e25, {0x2e24, 0x0000, BT_CLOSE}},
{0x2e26, {0x2e27, 0x0000, BT_OPEN}},
{0x2e27, {0x2e26, 0x0000, BT_CLOSE}},
{0x2e28, {0x2e29, 0x0000, BT_OPEN}},
{0x2e29, {0x2e28, 0x0000, BT_CLOSE}},
{0x2e55, {0x2e56, 0x0000, BT_OPEN}},
{0x2e56, {0x2e55, 0x0000, BT_CLOSE}},
{0x2e57, {0x2e58, 0x0000, BT_OPEN}},
{0x2e58, {0x2e57, 0x0000, BT_CLOSE}},
{0x2e59, {0x2e5a, 0x0000, BT_OPEN}},
{0x2e5a, {0x2e59, 0x0000, BT_CLOSE}},
{0x2e5b, {0x2e5c, 0x0000, BT_OPEN}},
{0x2e5c, {0x2e5b, 0x0000, BT_CLOSE}},
{0x3008, {0x3009, 0x232a, BT_OPEN}},
{0x3009, {0x3008, 0x2329, BT_CLOSE}},
{0x300a, {0x300b, 0x0000, BT_OPEN}},
{0x300b, {0x300a, 0x0000, BT_CLOSE}},
{0x300c, {0x300d, 0x0000, BT_OPEN}},
{0x300d, {0x300c, 0x0000, BT_CLOSE}},
{0x300e, {0x300f, 0x0000, BT_OPEN}},
{0x300f, {0x300e, 0x0000, BT_CLOSE}},
{0x3010, {0x3011, 0x0000, BT_OPEN}},
{0x3011, {0x3010, 0x0000, BT_CLOSE}},
{0x3014, {0x3015, 0x0000, BT_OPEN}},
{0x3015, {0x3014, 0x0000, BT_CLOSE}},
{0x3016, {0x3017, 0x0000, BT_OPEN}},
{0x3017, {0x3016, 0x0000, BT_CLOSE}},
{0x3018, {0x3019, 0x0000, BT_OPEN}},
{0x3019, {0x3018, 0x0000, BT_CLOSE}},
{0x301a, {0x301b, 0x0000, BT_OPEN}},
{0x301b, {0x301a, 0x0000, BT_CLOSE}},
{0xfe59, {0xfe5a, 0x0000, BT_OPEN}},
{0xfe5a, {0xfe59, 0x0000, BT_CLOSE}},
{0xfe5b, {0xfe5c, 0x0000, BT_OPEN}},
{0xfe5c, {0xfe5b, 0x0000, BT_CLOSE}},
{0xfe5d, {0xfe5e, 0x0000, BT_OPEN}},
{0xfe5e, {0xfe5d, 0x0000, BT_CLOSE}},
{0xff08, {0xff09, 0x0000, BT_OPEN}},
{0xff09, {0xff08, 0x0000, BT_CLOSE}},
{0xff3b, {0xff3d, 0x0000, BT_OPEN}},
{0xff3d, {0xff3b, 0x0000, BT_CLOSE}},
{0xff5b, {0xff5d, 0x0000, BT_OPEN}},
{0xff5d, {0xff5b, 0x0000, BT_CLOSE}},
{0xff5f, {0xff60, 0x0000, BT_OPEN}},
{0xff60, {0xff5f, 0x0000, BT_CLOSE}},
{0xff62, {0xff63, 0x0000, BT_OPEN}},
{0xff63, {0xff62, 0x0000, BT_CLOSE}},
};
int i, j, k;
i = -1;
j = lenof(bracket_pairs);
while (j - i > 1) {
k = (i + j) / 2;
if (ch < bracket_pairs[k].src) {
j = k;
} else if (ch > bracket_pairs[k].src) {
i = k;
} else {
return bracket_pairs[k].payload;
}
}
static const BracketTypeData null = { 0, 0, BT_NONE };
return null;
}
/*
* Function exported to front ends to allow them to identify
* bidi-active characters (in case, for example, the platform's
* text display function can't conveniently be prevented from doing
* its own bidi and so special treatment is required for characters
* that would cause the bidi algorithm to activate).
*
* This function is passed a single Unicode code point, and returns
* nonzero if the presence of this code point can possibly cause
* the bidi algorithm to do any reordering. Thus, any string
* composed entirely of characters for which is_rtl() returns zero
* should be safe to pass to a bidi-active platform display
* function without fear.
*
* (is_rtl() must therefore also return true for any character
* which would be affected by Arabic shaping, but this isn't
* important because all such characters are right-to-left so it
* would have flagged them anyway.)
*/
bool is_rtl(int c)
{
return typeIsBidiActive(bidi_getType(c));
}
/* The Main shaping function, and the only one to be used
* by the outside world.
*
* line: buffer to apply shaping to. this must be passed by doBidi() first
* to: output buffer for the shaped data
* count: number of characters in line
*/
int do_shape(bidi_char *line, bidi_char *to, int count)
{
int i, tempShape;
bool ligFlag = false;
for (i=0; i<count; i++) {
to[i] = line[i];
tempShape = STYPE(line[i].wc);
switch (tempShape) {
case SC:
break;
case SU:
break;
case SR:
tempShape = (i+1 < count ? STYPE(line[i+1].wc) : SU);
if ((tempShape == SL) || (tempShape == SD) || (tempShape == SC))
to[i].wc = SFINAL((SISOLATED(line[i].wc)));
else
to[i].wc = SISOLATED(line[i].wc);
break;
case SD:
/* Make Ligatures */
tempShape = (i+1 < count ? STYPE(line[i+1].wc) : SU);
if (line[i].wc == 0x644) {
if (i > 0) switch (line[i-1].wc) {
case 0x622:
ligFlag = true;
if ((tempShape == SL) || (tempShape == SD) || (tempShape == SC))
to[i].wc = 0xFEF6;
else
to[i].wc = 0xFEF5;
break;
case 0x623:
ligFlag = true;
if ((tempShape == SL) || (tempShape == SD) || (tempShape == SC))
to[i].wc = 0xFEF8;
else
to[i].wc = 0xFEF7;
break;
case 0x625:
ligFlag = true;
if ((tempShape == SL) || (tempShape == SD) || (tempShape == SC))
to[i].wc = 0xFEFA;
else
to[i].wc = 0xFEF9;
break;
case 0x627:
ligFlag = true;
if ((tempShape == SL) || (tempShape == SD) || (tempShape == SC))
to[i].wc = 0xFEFC;
else
to[i].wc = 0xFEFB;
break;
}
if (ligFlag) {
to[i-1].wc = 0x20;
ligFlag = false;
break;
}
}
if ((tempShape == SL) || (tempShape == SD) || (tempShape == SC)) {
tempShape = (i > 0 ? STYPE(line[i-1].wc) : SU);
if ((tempShape == SR) || (tempShape == SD) || (tempShape == SC))
to[i].wc = SMEDIAL((SISOLATED(line[i].wc)));
else
to[i].wc = SFINAL((SISOLATED(line[i].wc)));
break;
}
tempShape = (i > 0 ? STYPE(line[i-1].wc) : SU);
if ((tempShape == SR) || (tempShape == SD) || (tempShape == SC))
to[i].wc = SINITIAL((SISOLATED(line[i].wc)));
else
to[i].wc = SISOLATED(line[i].wc);
break;
}
}
return 1;
}
typedef enum { DO_NEUTRAL, DO_LTR, DO_RTL } DirectionalOverride;
typedef struct DSStackEntry {
/*
* An entry in the directional status stack (rule section X).
*/
unsigned char level;
bool isolate;
DirectionalOverride override;
} DSStackEntry;
typedef struct BracketStackEntry {
/*
* An entry in the bracket-pair-tracking stack (rule BD16).
*/
unsigned ch;
size_t c;
} BracketStackEntry;
typedef struct IsolatingRunSequence {
size_t start, end;
BidiType sos, eos, embeddingDirection;
} IsolatingRunSequence;
#define MAX_DEPTH 125 /* specified in the standard */
struct BidiContext {
/*
* Storage space preserved between runs, all allocated to the same
* length (internal_array_sizes).
*/
size_t internal_array_sizes;
BidiType *types, *origTypes;
unsigned char *levels;
size_t *irsindices, *bracketpos;
bool *irsdone;
/*
* Separately allocated with its own size field
*/
IsolatingRunSequence *irslist;
size_t irslistsize;
/*
* Rewritten to point to the input to the currently active run of
* the bidi algorithm
*/
bidi_char *text;
size_t textlen;
/*
* State within a run of the algorithm
*/
BidiType paragraphOverride;
DSStackEntry dsstack[MAX_DEPTH + 2];
size_t ds_sp;
size_t overflowIsolateCount, overflowEmbeddingCount, validIsolateCount;
unsigned char paragraphLevel;
size_t *irs;
size_t irslen;
BidiType sos, eos, embeddingDirection;
BracketStackEntry bstack[63]; /* constant size specified in rule BD16 */
};
BidiContext *bidi_new_context(void)
{
BidiContext *ctx = snew(BidiContext);
memset(ctx, 0, sizeof(BidiContext));
return ctx;
}
void bidi_free_context(BidiContext *ctx)
{
sfree(ctx->types);
sfree(ctx->origTypes);
sfree(ctx->levels);
sfree(ctx->irsindices);
sfree(ctx->irsdone);
sfree(ctx->bracketpos);
sfree(ctx->irslist);
sfree(ctx);
}
static void ensure_arrays(BidiContext *ctx, size_t textlen)
{
if (textlen <= ctx->internal_array_sizes)
return;
ctx->internal_array_sizes = textlen;
ctx->types = sresize(ctx->types, ctx->internal_array_sizes, BidiType);
ctx->origTypes = sresize(ctx->origTypes, ctx->internal_array_sizes,
BidiType);
ctx->levels = sresize(ctx->levels, ctx->internal_array_sizes,
unsigned char);
ctx->irsindices = sresize(ctx->irsindices, ctx->internal_array_sizes,
size_t);
ctx->irsdone = sresize(ctx->irsdone, ctx->internal_array_sizes, bool);
ctx->bracketpos = sresize(ctx->bracketpos, ctx->internal_array_sizes,
size_t);
}
static void setup_types(BidiContext *ctx)
{
for (size_t i = 0; i < ctx->textlen; i++)
ctx->types[i] = ctx->origTypes[i] = bidi_getType(ctx->text[i].wc);
}
static bool text_needs_bidi(BidiContext *ctx)
{
/*
* Initial optimisation: check for any bidi-active character at
* all in an input line. If there aren't any, we can skip the
* whole algorithm.
*
* Also include the paragraph override in this check!
*/
for (size_t i = 0; i < ctx->textlen; i++)
if (typeIsBidiActive(ctx->types[i]))
return true;
return typeIsBidiActive(ctx->paragraphOverride);
}
static size_t find_matching_pdi(const BidiType *types, size_t i, size_t size)
{
/* Assuming that types[i] is an isolate initiator, find its
* matching PDI by rule BD9. */
unsigned counter = 1;
i++;
for (; i < size; i++) {
BidiType t = types[i];
if (typeIsIsolateInitiator(t)) {
counter++;
} else if (t == PDI) {
counter--;
if (counter == 0)
return i;
}
}
/* If no PDI was found, return the length of the array. */
return size;
}
static unsigned char rule_p2_p3(const BidiType *types, size_t size)
{
/*
* Rule P2. Find the first strong type (L, R or AL), ignoring
* anything inside an isolated segment.
*
* Rule P3. If that type is R or AL, choose a paragraph embeddding
* level of 1, otherwise 0.
*/
for (size_t i = 0; i < size; i++) {
BidiType t = types[i];
if (typeIsIsolateInitiator(t))
i = find_matching_pdi(types, i, size);
else if (typeIsStrong(t))
return (t == L ? 0 : 1);
}
return 0; /* default if no strong type found */
}
static void set_paragraph_level(BidiContext *ctx)
{
if (ctx->paragraphOverride == L)
ctx->paragraphLevel = 0;
else if (ctx->paragraphOverride == R)
ctx->paragraphLevel = 1;
else
ctx->paragraphLevel = rule_p2_p3(ctx->types, ctx->textlen);
}
static inline unsigned char nextOddLevel(unsigned char x) { return (x+1)|1; }
static inline unsigned char nextEvenLevel(unsigned char x) { return (x|1)+1; }
static inline void push(BidiContext *ctx, unsigned char level,
DirectionalOverride override, bool isolate)
{
ctx->ds_sp++;
assert(ctx->ds_sp < lenof(ctx->dsstack));
ctx->dsstack[ctx->ds_sp].level = level;
ctx->dsstack[ctx->ds_sp].override = override;
ctx->dsstack[ctx->ds_sp].isolate = isolate;
}
static inline void pop(BidiContext *ctx)
{
assert(ctx->ds_sp > 0);
ctx->ds_sp--;
}
static void process_explicit_embeddings(BidiContext *ctx)
{
/*
* Rule X1 initialisation.
*/
ctx->ds_sp = (size_t)-1;
push(ctx, ctx->paragraphLevel, DO_NEUTRAL, false);
ctx->overflowIsolateCount = 0;
ctx->overflowEmbeddingCount = 0;
ctx->validIsolateCount = 0;
#define stk (&ctx->dsstack[ctx->ds_sp])
for (size_t i = 0; i < ctx->textlen; i++) {
BidiType t = ctx->types[i];
switch (t) {
case RLE: case LRE: case RLO: case LRO: {
/* Rules X2-X5 */
unsigned char newLevel;
DirectionalOverride override;
#ifndef REMOVE_FORMATTING_CHARS
ctx->levels[i] = stk->level;
#endif
switch (t) {
case RLE: /* rule X2 */
newLevel = nextOddLevel(stk->level);
override = DO_NEUTRAL;
break;
case LRE: /* rule X3 */
newLevel = nextEvenLevel(stk->level);
override = DO_NEUTRAL;
break;
case RLO: /* rule X4 */
newLevel = nextOddLevel(stk->level);
override = DO_RTL;
break;
case LRO: /* rule X5 */
newLevel = nextEvenLevel(stk->level);
override = DO_LTR;
break;
default:
unreachable("how did this get past the outer switch?");
}
if (newLevel <= MAX_DEPTH &&
ctx->overflowIsolateCount == 0 &&
ctx->overflowEmbeddingCount == 0) {
/* Embedding code is valid. Push a stack entry. */
push(ctx, newLevel, override, false);
} else {
/* Embedding code is an overflow one. */
if (ctx->overflowIsolateCount == 0)
ctx->overflowEmbeddingCount++;
}
break;
}
case RLI: case LRI: case FSI: {
/* Rules X5a, X5b, X5c */
if (t == FSI) {
/* Rule X5c: decide whether this should be treated
* like RLI or LRI */
size_t pdi = find_matching_pdi(ctx->types, i, ctx->textlen);
unsigned char level = rule_p2_p3(ctx->types + (i + 1),
pdi - (i + 1));
t = (level == 1 ? RLI : LRI);
}
ctx->levels[i] = stk->level;
if (stk->override != DO_NEUTRAL)
ctx->types[i] = (stk->override == DO_LTR ? L :
stk->override == DO_RTL ? R : t);
unsigned char newLevel = (t == RLI ? nextOddLevel(stk->level) :
nextEvenLevel(stk->level));
if (newLevel <= MAX_DEPTH &&
ctx->overflowIsolateCount == 0 &&
ctx->overflowEmbeddingCount == 0) {
/* Isolate code is valid. Push a stack entry. */
push(ctx, newLevel, DO_NEUTRAL, true);
ctx->validIsolateCount++;
} else {
/* Isolate code is an overflow one. */
ctx->overflowIsolateCount++;
}
break;
}
case PDI: {
/* Rule X6a */
if (ctx->overflowIsolateCount > 0) {
ctx->overflowIsolateCount--;
} else if (ctx->validIsolateCount == 0) {
/* Do nothing: spurious isolate-pop */
} else {
/* Valid isolate-pop. We expect that the stack must
* therefore contain at least one isolate==true entry,
* so pop everything up to and including it. */
ctx->overflowEmbeddingCount = 0;
while (!stk->isolate)
pop(ctx);
pop(ctx);
ctx->validIsolateCount--;
}
ctx->levels[i] = stk->level;
if (stk->override != DO_NEUTRAL)
ctx->types[i] = (stk->override == DO_LTR ? L : R);
break;
}
case PDF: {
/* Rule X7 */
if (ctx->overflowIsolateCount > 0) {
/* Do nothing if we've overflowed on isolates */
} else if (ctx->overflowEmbeddingCount > 0) {
ctx->overflowEmbeddingCount--;
} else if (ctx->ds_sp > 0 && !stk->isolate) {
pop(ctx);
} else {
/* Do nothing: spurious embedding-pop */
}
#ifndef REMOVE_FORMATTING_CHARS
ctx->levels[i] = stk->level;
#endif
break;
}
case B: {
/* Rule X8: if an explicit paragraph separator appears in
* this text at all then it does not participate in any of
* the above, and just gets assigned the paragraph level.
*
* PS, it had better be right at the end of the text,
* because we have not implemented rule P1 in this code. */
assert(i == ctx->textlen - 1);
ctx->levels[i] = ctx->paragraphLevel;
break;
}
case BN: {
/*
* The section 5.2 adjustment to rule X6 says that we
* apply it to BN just like any other class. But I think
* this can't possibly give the same results as the
* unmodified algorithm.
*
* Proof: adding RLO BN or LRO BN at the end of a
* paragraph should not change the output of the standard
* algorithm, because the override doesn't affect the BN
* in rule X6, and then rule X9 removes both. But with the
* modified rule X6, the BN is changed into R or L, and
* then rule X9 doesn't remove it, and then you've added a
* strong type that will set eos for the level run just
* before the override. And whatever the standard
* algorithm set eos to, _one_ of these override sequences
* will disagree with it.
*
* So I think we just set the BN's level, and don't change
* its type.
*/
ctx->levels[i] = stk->level;
break;
}
default: {
/* Rule X6. */
ctx->levels[i] = stk->level;
if (stk->override != DO_NEUTRAL)
ctx->types[i] = (stk->override == DO_LTR ? L : R);
break;
}
}
}
#undef stk
}
static void remove_embedding_characters(BidiContext *ctx)
{
#ifndef REMOVE_FORMATTING_CHARS
/*
* Rule X9, as modified by section 5.2: turn embedding (but not
* isolate) characters into BN.
*/
for (size_t i = 0; i < ctx->textlen; i++) {
BidiType t = ctx->types[i];
if (typeIsRemovedDuringProcessing(t)) {
ctx->types[i] = BN;
/*
* My own adjustment to the section 5.2 mods: a sequence
* of contiguous BN generated by this setup should never
* be at different levels from each other.
*
* An example where this goes wrong is if you open two
* LREs in sequence, then close them again:
*
* ... LRE LRE PDF PDF ...
*
* The initial level assignment gives level 0 to the outer
* LRE/PDF pair, and level 2 to the inner one. The
* standard algorithm would remove all four, so this
* doesn't matter, and you end up with no break in the
* surrounding level run. But if you just rewrite the
* types of all those characters to BN and leave the
* levels in that state, then the modified algorithm will
* leave the middle two BN at level 2, dividing what
* should have been a long level run at level 0 into two
* separate ones.
*/
if (i > 0 && ctx->types[i-1] == BN)
ctx->levels[i] = ctx->levels[i-1];
}
}
#else
/*
* Rule X9, original version: completely remove embedding
* start/end characters and also boundary neutrals.
*/
size_t outpos = 0;
for (size_t i = 0; i < ctx->textlen; i++) {
BidiType t = ctx->types[i];
if (!typeIsRemovedDuringProcessing(t)) {
ctx->text[outpos] = ctx->text[i];
ctx->levels[outpos] = ctx->levels[i];
ctx->types[outpos] = ctx->types[i];
ctx->origTypes[outpos] = ctx->origTypes[i];
outpos++;
}
}
ctx->textlen = outpos;
#endif
}
typedef void (*irs_fn_t)(BidiContext *ctx);
static void find_isolating_run_sequences(BidiContext *ctx, irs_fn_t process)
{
/*
* Rule X10 / BD13. Now that we've assigned an embedding level to
* each character in the text, we have to divide the text into
* subsequences on which to do the next stage of processing.
*
* In earlier issues of the bidi algorithm, these subsequences
* were contiguous in the original text, and each one was a 'level
* run': a maximal contiguous subsequence of characters all at the
* same embedding level.
*
* But now we have isolates, and the point of an (isolate
* initiator ... PDI) sequence is that the whole sequence should
* be treated like a single BN for the purposes of formatting
* everything outside it. As a result, we now have to recombine
* our level runs into longer sequences, on the principle that if
* a level run ends with an isolate initiator, then we bring it
* together with whatever later level run starts with the matching
* PDI.
*
* These subsequences are no longer contiguous (the whole point is
* that between the isolate initiator and the PDI is some other
* text that we've skipped over). They're called 'isolating run
* sequences'.
*/
memset(ctx->irsdone, 0, ctx->textlen);
size_t i = 0;
size_t n_irs = 0;
size_t indexpos = 0;
while (i < ctx->textlen) {
if (ctx->irsdone[i]) {
i++;
continue;
}
/*
* Found a character not already processed. Start a new
* sequence here.
*/
sgrowarray(ctx->irslist, ctx->irslistsize, n_irs);
IsolatingRunSequence *irs = &ctx->irslist[n_irs++];
irs->start = indexpos;
size_t j = i;
size_t irslevel = ctx->levels[i];
while (j < ctx->textlen) {
/*
* We expect that all level runs in this sequence will be
* at the same level as each other, by construction of how
* we set up the levels from the isolates in the first
* place.
*/
assert(ctx->levels[j] == irslevel);
do {
ctx->irsdone[j] = true;
ctx->irsindices[indexpos++] = j++;
} while (j < ctx->textlen && ctx->levels[j] == irslevel);
if (!typeIsIsolateInitiator(ctx->types[j-1]))
break; /* this IRS is ended */
j = find_matching_pdi(ctx->types, j-1, ctx->textlen);
}
irs->end = indexpos;
/*
* Determine the start-of-sequence and end-of-sequence types
* for this sequence.
*
* These depend on the embedding levels of surrounding text.
* But processing each run can change those levels. That's why
* we have to use a two-pass strategy here, first identifying
* all the isolating run sequences using the input level data,
* and not processing any of them until we know where they all
* are.
*/
size_t p;
unsigned char level_inside, level_outside, level_max;
p = i;
level_inside = ctx->levels[p];
level_outside = ctx->paragraphLevel;
while (p > 0) {
p--;
if (ctx->types[p] != BN) {
level_outside = ctx->levels[p];
break;
}
}
level_max = max(level_inside, level_outside);
irs->sos = (level_max % 2 ? R : L);
p = ctx->irsindices[irs->end - 1];
level_inside = ctx->levels[p];
level_outside = ctx->paragraphLevel;
if (typeIsIsolateInitiator(ctx->types[p])) {
/* Special case: if an isolating run sequence ends in an
* unmatched isolate initiator, then level_outside is
* taken to be the paragraph embedding level and the
* loop below is skipped. */
} else {
while (p+1 < ctx->textlen) {
p++;
if (ctx->types[p] != BN) {
level_outside = ctx->levels[p];
break;
}
}
}
level_max = max(level_inside, level_outside);
irs->eos = (level_max % 2 ? R : L);
irs->embeddingDirection = (irslevel % 2 ? R : L);
/*
* Now we've listed in ctx->irsindices[] the index of every
* character that's part of this isolating run sequence, and
* recorded an entry in irslist containing the interval of
* indices relevant to this IRS, plus its assorted metadata.
* We've also marked those locations in the input text as done
* in ctx->irsdone, so that we'll skip over them when the
* outer iteration reaches them later.
*/
}
for (size_t k = 0; k < n_irs; k++) {
IsolatingRunSequence *irs = &ctx->irslist[k];
ctx->irs = ctx->irsindices + irs->start;
ctx->irslen = irs->end - irs->start;
ctx->sos = irs->sos;
ctx->eos = irs->eos;
ctx->embeddingDirection = irs->embeddingDirection;
process(ctx);
}
/* Reset irslen to 0 when we've finished. This means any other
* functions that absentmindedly try to use irslen at all will end
* up doing nothing at all, which should be easier to detect and
* debug than if they run on subtly the wrong subset of the
* text. */
ctx->irslen = 0;
}
static void remove_nsm(BidiContext *ctx)
{
/* Rule W1: NSM gains the type of the previous character, or sos
* at the start of the run, with the exception that isolation
* boundaries turn into ON. */
BidiType prevType = ctx->sos;
for (size_t c = 0; c < ctx->irslen; c++) {
size_t i = ctx->irs[c];
BidiType t = ctx->types[i];
if (t == NSM) {
ctx->types[i] = prevType;
} else if (typeIsIsolateInitiatorOrPDI(t)) {
prevType = ON;
#ifndef REMOVE_FORMATTING_CHARS
} else if (t == BN) {
/* section 5.2 adjustment: these don't affect prevType */
#endif
} else {
prevType = t;
}
}
}
static void change_en_to_an(BidiContext *ctx)
{
/* Rule W2: EN becomes AN if the previous strong type is AL. (The
* spec says that the 'previous strong type' is counted as sos at
* the start of the run, although it hardly matters, since sos
* can't be AL.) */
BidiType prevStrongType = ctx->sos;
for (size_t c = 0; c < ctx->irslen; c++) {
size_t i = ctx->irs[c];
BidiType t = ctx->types[i];
if (t == EN && prevStrongType == AL) {
ctx->types[i] = AN;
} else if (typeIsStrong(t)) {
prevStrongType = t;
}
}
}
static void change_al_to_r(BidiContext *ctx)
{
/* Rule W3: AL becomes R unconditionally. (The only difference
* between the two types was their effect on nearby numbers, which
* was dealt with in rule W2, so now we're done with the
* distinction.) */
for (size_t c = 0; c < ctx->irslen; c++) {
size_t i = ctx->irs[c];
if (ctx->types[i] == AL)
ctx->types[i] = R;
}
}
static void eliminate_separators_between_numbers(BidiContext *ctx)
{
/* Rule W4: a single numeric separator between two numbers of the
* same type compatible with that separator takes the type of the
* number. ES is a separator type compatible only with EN; CS is a
* separator type compatible with either EN or AN.
*
* Section 5.2 adjustment: intervening BNs do not break this, so
* instead of simply looking at types[irs[c-1]] and types[irs[c+1]],
* we must track the last three indices we saw that were not BN. */
size_t i1 = 0, i2 = 0;
BidiType t0 = ON, t1 = ON, t2 = ON;
for (size_t c = 0; c < ctx->irslen; c++) {
size_t i = ctx->irs[c];
BidiType t = ctx->types[i];
#ifndef REMOVE_FORMATTING_CHARS
if (t == BN)
continue;
#endif
i1 = i2; i2 = i;
t0 = t1; t1 = t2; t2 = t;
if (t0 == t2 && ((t1 == ES && t0 == EN) ||
(t1 == CS && (t0 == EN || t0 == AN)))) {
ctx->types[i1] = t0;
}
}
}
static void eliminate_et_next_to_en(BidiContext *ctx)
{
/* Rule W5: a sequence of ET adjacent to an EN take the type EN.
* This is easiest to implement with one loop in each direction.
*
* Section 5.2 adjustment: include BN with ET. (We don't need to
* #ifdef that out, because in the standard algorithm, we won't
* have any BN left in any case.) */
bool modifying = false;
for (size_t c = 0; c < ctx->irslen; c++) {
size_t i = ctx->irs[c];
BidiType t = ctx->types[i];
if (t == EN) {
modifying = true;
} else if (modifying && typeIsETOrBN(t)) {
ctx->types[i] = EN;
} else {
modifying = false;
}
}
for (size_t c = ctx->irslen; c-- > 0 ;) {
size_t i = ctx->irs[c];
BidiType t = ctx->types[i];
if (t == EN) {
modifying = true;
} else if (modifying && typeIsETOrBN(t)) {
ctx->types[i] = EN;
} else {
modifying = false;
}
}
}
static void eliminate_separators_and_terminators(BidiContext *ctx)
{
/* Rule W6: all separators and terminators change to ON.
*
* (The spec is not quite clear on which bidi types are included
* in this; one assumes ES, ET and CS, but what about S? I _think_
* the answer is that this is a rule in the W section, so it's
* implicitly supposed to only apply to types designated as weakly
* directional, so not S.) */
#ifndef REMOVE_FORMATTING_CHARS
/*
* Section 5.2 adjustment: this also applies to any BN adjacent on
* either side to one of these types, which is easiest to
* implement with a separate double-loop converting those to an
* arbitrary one of the affected types, say CS.
*
* This double loop can be completely skipped in the standard
* algorithm.
*/
bool modifying = false;
for (size_t c = 0; c < ctx->irslen; c++) {
size_t i = ctx->irs[c];
BidiType t = ctx->types[i];
if (typeIsWeakSeparatorOrTerminator(t)) {
modifying = true;
} else if (modifying && t == BN) {
ctx->types[i] = CS;
} else {
modifying = false;
}
}
for (size_t c = ctx->irslen; c-- > 0 ;) {
size_t i = ctx->irs[c];
BidiType t = ctx->types[i];
if (typeIsWeakSeparatorOrTerminator(t)) {
modifying = true;
} else if (modifying && t == BN) {
ctx->types[i] = CS;
} else {
modifying = false;
}
}
#endif
/* Now the main part of rule W6 */
for (size_t c = 0; c < ctx->irslen; c++) {
size_t i = ctx->irs[c];
BidiType t = ctx->types[i];
if (typeIsWeakSeparatorOrTerminator(t))
ctx->types[i] = ON;
}
}
static void change_en_to_l(BidiContext *ctx)
{
/* Rule W7: EN becomes L if the previous strong type (or sos) is L. */
BidiType prevStrongType = ctx->sos;
for (size_t c = 0; c < ctx->irslen; c++) {
size_t i = ctx->irs[c];
BidiType t = ctx->types[i];
if (t == EN && prevStrongType == L) {
ctx->types[i] = L;
} else if (typeIsStrong(t)) {
prevStrongType = t;
}
}
}
typedef void (*bracket_pair_fn)(BidiContext *ctx, size_t copen, size_t cclose);
static void find_bracket_pairs(BidiContext *ctx, bracket_pair_fn process)
{
const size_t NO_BRACKET = ~(size_t)0;
/*
* Rule BD16.
*/
size_t sp = 0;
for (size_t c = 0; c < ctx->irslen; c++)
ctx->bracketpos[c] = NO_BRACKET;
for (size_t c = 0; c < ctx->irslen; c++) {
size_t i = ctx->irs[c];
unsigned wc = ctx->text[i].wc;
BracketTypeData bt = bracket_type(wc);
if (bt.type == BT_OPEN) {
if (sp >= lenof(ctx->bstack)) {
/*
* Stack overflow. The spec says we simply give up at
* this point.
*/
goto found_all_pairs;
}
ctx->bstack[sp].ch = wc;
ctx->bstack[sp].c = c;
sp++;
} else if (bt.type == BT_CLOSE) {
size_t new_sp = sp;
/*
* Search up the stack for an entry containing a matching
* open bracket. If we find it, pop that entry and
* everything deeper, and record a matching pair. If we
* reach the bottom of the stack without finding anything,
* leave sp where it started.
*/
while (new_sp-- > 0) {
if (ctx->bstack[new_sp].ch == bt.partner ||
ctx->bstack[new_sp].ch == bt.equiv_partner) {
/* Found a stack element matching this one */
size_t cstart = ctx->bstack[new_sp].c;
ctx->bracketpos[cstart] = c;
sp = new_sp;
break;
}
}
}
}
found_all_pairs:
for (size_t c = 0; c < ctx->irslen; c++) {
if (ctx->bracketpos[c] != NO_BRACKET) {
process(ctx, c, ctx->bracketpos[c]);
}
}
}
static BidiType get_bracket_type(BidiContext *ctx, size_t copen, size_t cclose)
{
/*
* Rule N0: a pair of matched brackets containing at least one
* strong type takes on the current embedding direction, unless
* all of these are true at once:
*
* (a) there are no strong types inside the brackets matching the
* current embedding direction
* (b) there _is_ at least one strong type inside the brackets
* that is _opposite_ to the current embedding direction
* (c) the strong type preceding the open bracket is also
* opposite to the current embedding direction
*
* in which case they take on the opposite direction.
*
* For these purposes, number types (EN and AN) count as R.
*/
bool foundOppositeTypeInside = false;
for (size_t c = copen + 1; c < cclose; c++) {
size_t i = ctx->irs[c];
BidiType t = ctx->types[i];
if (typeIsStrongOrNumber(t)) {
t = t == L ? L : R; /* numbers count as R */
if (t == ctx->embeddingDirection) {
/* Found something inside the brackets matching the
* current level, so (a) is violated. */
return ctx->embeddingDirection;
} else {
foundOppositeTypeInside = true;
}
}
}
if (!foundOppositeTypeInside) {
/* No strong types at all inside the brackets, so return ON to
* indicate that we're not messing with their type at all. */
return ON;
}
/* There was an opposite strong type in the brackets. Look
* backwards to the preceding strong type, and go with that,
* whichever it is. */
for (size_t c = copen; c-- > 0 ;) {
size_t i = ctx->irs[c];
BidiType t = ctx->types[i];
if (typeIsStrongOrNumber(t)) {
t = t == L ? L : R; /* numbers count as R */
return t;
}
}
/* Fallback: if the preceding strong type was not found, go with
* sos. */
return ctx->sos;
}
static void reset_bracket_type(BidiContext *ctx, size_t c, BidiType t)
{
/* Final bullet point of rule N0: when we change the type of a
* bracket, the same change applies to any contiguous sequence of
* characters after it whose _original_ bidi type was NSM. */
do {
ctx->types[ctx->irs[c++]] = t;
#ifndef REMOVE_FORMATTING_CHARS
while (c < ctx->irslen && ctx->origTypes[ctx->irs[c]] == BN) {
/* Section 5.2 adjustment: skip past BN in the process. */
c++;
}
#endif
} while (c < ctx->irslen && ctx->origTypes[ctx->irs[c]] == NSM);
}
static void resolve_brackets(BidiContext *ctx, size_t copen, size_t cclose)
{
if (typeIsNeutral(ctx->types[ctx->irs[copen]]) &&
typeIsNeutral(ctx->types[ctx->irs[cclose]])) {
BidiType t = get_bracket_type(ctx, copen, cclose);
if (t != ON) {
reset_bracket_type(ctx, copen, t);
reset_bracket_type(ctx, cclose, t);
}
}
}
static void remove_ni(BidiContext *ctx)
{
/*
* Rules N1 and N2 together: neutral or isolate characters take
* the direction of the surrounding strong text if the nearest
* strong characters on each side match, and otherwise, they take
* the embedding direction.
*/
const size_t NO_INDEX = ~(size_t)0;
BidiType prevStrongType = ctx->sos;
size_t c_ni_start = NO_INDEX;
for (size_t c = 0; c <= ctx->irslen; c++) {
BidiType t;
if (c < ctx->irslen) {
size_t i = ctx->irs[c];
t = ctx->types[i];
} else {
/* One extra loop iteration, using eos to resolve the
* final sequence of NI if any */
t = ctx->eos;
}
if (typeIsStrongOrNumber(t)) {
t = t == L ? L : R; /* numbers count as R */
if (c_ni_start != NO_INDEX) {
/* There are some NI we have to fix up */
BidiType ni_type = (t == prevStrongType ? t :
ctx->embeddingDirection);
for (size_t c2 = c_ni_start; c2 < c; c2++) {
size_t i2 = ctx->irs[c2];
BidiType t2 = ctx->types[i2];
if (typeIsNeutralOrIsolate(t2))
ctx->types[i2] = ni_type;
}
}
prevStrongType = t;
c_ni_start = NO_INDEX;
} else if (typeIsNeutralOrIsolate(t) && c_ni_start == NO_INDEX) {
c_ni_start = c;
}
}
}
static void resolve_implicit_levels(BidiContext *ctx)
{
/* Rules I1 and I2 */
for (size_t c = 0; c < ctx->irslen; c++) {
size_t i = ctx->irs[c];
unsigned char level = ctx->levels[i];
BidiType t = ctx->types[i];
if (level % 2 == 0) {
/* Rule I1 */
if (t == R)
ctx->levels[i] += 1;
else if (t == AN || t == EN)
ctx->levels[i] += 2;
} else {
/* Rule I2 */
if (t == L || t == AN || t == EN)
ctx->levels[i] += 1;
}
}
}
static void process_isolating_run_sequence(BidiContext *ctx)
{
/* Section W: resolve weak types */
remove_nsm(ctx);
change_en_to_an(ctx);
change_al_to_r(ctx);
eliminate_separators_between_numbers(ctx);
eliminate_et_next_to_en(ctx);
eliminate_separators_and_terminators(ctx);
change_en_to_l(ctx);
/* Section N: resolve neutral types (and isolates) */
find_bracket_pairs(ctx, resolve_brackets);
remove_ni(ctx);
/* Section I: resolve implicit levels */
resolve_implicit_levels(ctx);
}
static void reset_whitespace_and_separators(BidiContext *ctx)
{
/*
* Rule L1: segment and paragraph separators, plus whitespace
* preceding them, all reset to the paragraph embedding level.
* This also applies to whitespace at the very end.
*
* This is done using the original types, not the versions that
* the rest of this algorithm has been merrily mutating.
*/
bool modifying = true;
for (size_t i = ctx->textlen; i-- > 0 ;) {
BidiType t = ctx->origTypes[i];
if (typeIsSegmentOrParaSeparator(t)) {
ctx->levels[i] = ctx->paragraphLevel;
modifying = true;
} else if (modifying) {
if (typeIsWhitespaceOrIsolate(t)) {
ctx->levels[i] = ctx->paragraphLevel;
} else if (!typeIsRemovedDuringProcessing(t)) {
modifying = false;
}
}
}
#ifndef REMOVE_FORMATTING_CHARS
/*
* Section 5.2 adjustment: types removed by rule X9 take the level
* of the character to their left.
*/
for (size_t i = 0; i < ctx->textlen; i++) {
BidiType t = ctx->origTypes[i];
if (typeIsRemovedDuringProcessing(t)) {
/* Section 5.2 adjustment */
ctx->levels[i] = (i > 0 ? ctx->levels[i-1] : ctx->paragraphLevel);
}
}
#endif /* ! REMOVE_FORMATTING_CHARS */
}
static void reverse(BidiContext *ctx, size_t start, size_t end)
{
for (size_t i = start, j = end; i < j; i++, j--) {
bidi_char tmp = ctx->text[i];
ctx->text[i] = ctx->text[j];
ctx->text[j] = tmp;
}
}
static void mirror_glyphs(BidiContext *ctx)
{
/*
* Rule L3: any character with a mirror-image pair at an odd
* embedding level is replaced by its mirror image.
*
* This is specified in the standard as happening _after_ rule L2
* (the actual reordering of the text). But it's much easier to
* implement it before, while our levels[] array still matches up
* to the text order.
*/
for (size_t i = 0; i < ctx->textlen; i++) {
if (ctx->levels[i] % 2)
ctx->text[i].wc = mirror_glyph(ctx->text[i].wc);
}
}
static void reverse_sequences(BidiContext *ctx)
{
/*
* Rule L2: every maximal contiguous sequence of characters at a
* given level or higher is reversed.
*/
unsigned level = 0;
for (size_t i = 0; i < ctx->textlen; i++)
level = max(level, ctx->levels[i]);
for (; level >= 1; level--) {
for (size_t i = 0; i < ctx->textlen; i++) {
if (ctx->levels[i] >= level) {
size_t start = i;
while (i+1 < ctx->textlen && ctx->levels[i+1] >= level)
i++;
reverse(ctx, start, i);
}
}
}
}
/*
* The Main Bidi Function, and the only function that should be used
* by the outside world.
*
* text: a buffer of size textlen containing text to apply the
* Bidirectional algorithm to.
*/
void do_bidi_new(BidiContext *ctx, bidi_char *text, size_t textlen)
{
ensure_arrays(ctx, textlen);
ctx->text = text;
ctx->textlen = textlen;
setup_types(ctx);
/* Quick initial test: see if we need to bother with any work at all */
if (!text_needs_bidi(ctx))
return;
set_paragraph_level(ctx);
process_explicit_embeddings(ctx);
remove_embedding_characters(ctx);
find_isolating_run_sequences(ctx, process_isolating_run_sequence);
/* If this implementation distinguished paragraphs from lines,
* then this would be the point where we repeat the remainder of
* the algorithm once for each line in the paragraph. */
reset_whitespace_and_separators(ctx);
mirror_glyphs(ctx);
reverse_sequences(ctx);
}
size_t do_bidi_test(BidiContext *ctx, bidi_char *text, size_t textlen,
int override)
{
ctx->paragraphOverride = (override > 0 ? L : override < 0 ? R : ON);
do_bidi_new(ctx, text, textlen);
return ctx->textlen;
}
void do_bidi(BidiContext *ctx, bidi_char *text, size_t textlen)
{
#ifdef REMOVE_FORMATTING_CHARACTERS
abort(); /* can't use the standard algorithm in a live terminal */
#else
do_bidi_new(ctx, text, textlen);
#endif
}