EmbeddedPkg: Extend NvVarStoreFormattedLib LIBRARY_CLASS

[mirror_edk2.git] / AppPkg / Applications / Python / Python-2.7.10 / Modules / cjkcodecs / _codecs_iso2022.c

/*\r
 * _codecs_iso2022.c: Codecs collection for ISO-2022 encodings.\r
 *\r
 * Written by Hye-Shik Chang <perky@FreeBSD.org>\r
 */\r
\r
#define USING_IMPORTED_MAPS\r
#define USING_BINARY_PAIR_SEARCH\r
#define EXTERN_JISX0213_PAIR\r
#define EMULATE_JISX0213_2000_ENCODE_INVALID MAP_UNMAPPABLE\r
#define EMULATE_JISX0213_2000_DECODE_INVALID MAP_UNMAPPABLE\r
\r
#include "cjkcodecs.h"\r
#include "alg_jisx0201.h"\r
#include "emu_jisx0213_2000.h"\r
#include "mappings_jisx0213_pair.h"\r
\r
/* STATE\r
\r
   state->c[0-3]\r
\r
    00000000\r
    ||^^^^^|\r
    |+-----+----  G0-3 Character Set\r
    +-----------  Is G0-3 double byte?\r
\r
   state->c[4]\r
\r
    00000000\r
          ||\r
          |+----  Locked-Shift?\r
          +-----  ESC Throughout\r
*/\r
\r
#define ESC                     0x1B\r
#define SO                      0x0E\r
#define SI                      0x0F\r
#define LF                      0x0A\r
\r
#define MAX_ESCSEQLEN           16\r
\r
#define CHARSET_ISO8859_1       'A'\r
#define CHARSET_ASCII           'B'\r
#define CHARSET_ISO8859_7       'F'\r
#define CHARSET_JISX0201_K      'I'\r
#define CHARSET_JISX0201_R      'J'\r
\r
#define CHARSET_GB2312          ('A'|CHARSET_DBCS)\r
#define CHARSET_JISX0208        ('B'|CHARSET_DBCS)\r
#define CHARSET_KSX1001         ('C'|CHARSET_DBCS)\r
#define CHARSET_JISX0212        ('D'|CHARSET_DBCS)\r
#define CHARSET_GB2312_8565     ('E'|CHARSET_DBCS)\r
#define CHARSET_CNS11643_1      ('G'|CHARSET_DBCS)\r
#define CHARSET_CNS11643_2      ('H'|CHARSET_DBCS)\r
#define CHARSET_JISX0213_2000_1 ('O'|CHARSET_DBCS)\r
#define CHARSET_JISX0213_2      ('P'|CHARSET_DBCS)\r
#define CHARSET_JISX0213_2004_1 ('Q'|CHARSET_DBCS)\r
#define CHARSET_JISX0208_O      ('@'|CHARSET_DBCS)\r
\r
#define CHARSET_DBCS            0x80\r
#define ESCMARK(mark)           ((mark) & 0x7f)\r
\r
#define IS_ESCEND(c)    (((c) >= 'A' && (c) <= 'Z') || (c) == '@')\r
#define IS_ISO2022ESC(c2) \\r
        ((c2) == '(' || (c2) == ')' || (c2) == '$' || \\r
         (c2) == '.' || (c2) == '&')\r
    /* this is not a complete list of ISO-2022 escape sequence headers.\r
     * but, it's enough to implement CJK instances of iso-2022. */\r
\r
#define MAP_UNMAPPABLE          0xFFFF\r
#define MAP_MULTIPLE_AVAIL      0xFFFE /* for JIS X 0213 */\r
\r
#define F_SHIFTED               0x01\r
#define F_ESCTHROUGHOUT         0x02\r
\r
#define STATE_SETG(dn, v)       ((state)->c[dn]) = (v);\r
#define STATE_GETG(dn)          ((state)->c[dn])\r
\r
#define STATE_G0                STATE_GETG(0)\r
#define STATE_G1                STATE_GETG(1)\r
#define STATE_G2                STATE_GETG(2)\r
#define STATE_G3                STATE_GETG(3)\r
#define STATE_SETG0(v)          STATE_SETG(0, v)\r
#define STATE_SETG1(v)          STATE_SETG(1, v)\r
#define STATE_SETG2(v)          STATE_SETG(2, v)\r
#define STATE_SETG3(v)          STATE_SETG(3, v)\r
\r
#define STATE_SETFLAG(f)        ((state)->c[4]) |= (f);\r
#define STATE_GETFLAG(f)        ((state)->c[4] & (f))\r
#define STATE_CLEARFLAG(f)      ((state)->c[4]) &= ~(f);\r
#define STATE_CLEARFLAGS()      ((state)->c[4]) = 0;\r
\r
#define ISO2022_CONFIG          ((const struct iso2022_config *)config)\r
#define CONFIG_ISSET(flag)      (ISO2022_CONFIG->flags & (flag))\r
#define CONFIG_DESIGNATIONS     (ISO2022_CONFIG->designations)\r
\r
/* iso2022_config.flags */\r
#define NO_SHIFT                0x01\r
#define USE_G2                  0x02\r
#define USE_JISX0208_EXT        0x04\r
\r
/*-*- internal data structures -*-*/\r
\r
typedef int (*iso2022_init_func)(void);\r
typedef ucs4_t (*iso2022_decode_func)(const unsigned char *data);\r
typedef DBCHAR (*iso2022_encode_func)(const ucs4_t *data, Py_ssize_t *length);\r
\r
struct iso2022_designation {\r
    unsigned char mark;\r
    unsigned char plane;\r
    unsigned char width;\r
    iso2022_init_func initializer;\r
    iso2022_decode_func decoder;\r
    iso2022_encode_func encoder;\r
};\r
\r
struct iso2022_config {\r
    int flags;\r
    const struct iso2022_designation *designations; /* non-ascii desigs */\r
};\r
\r
/*-*- iso-2022 codec implementation -*-*/\r
\r
CODEC_INIT(iso2022)\r
{\r
    const struct iso2022_designation *desig = CONFIG_DESIGNATIONS;\r
    for (desig = CONFIG_DESIGNATIONS; desig->mark; desig++)\r
        if (desig->initializer != NULL && desig->initializer() != 0)\r
            return -1;\r
    return 0;\r
}\r
\r
ENCODER_INIT(iso2022)\r
{\r
    STATE_CLEARFLAGS()\r
    STATE_SETG0(CHARSET_ASCII)\r
    STATE_SETG1(CHARSET_ASCII)\r
    return 0;\r
}\r
\r
ENCODER_RESET(iso2022)\r
{\r
    if (STATE_GETFLAG(F_SHIFTED)) {\r
        WRITE1(SI)\r
        NEXT_OUT(1)\r
        STATE_CLEARFLAG(F_SHIFTED)\r
    }\r
    if (STATE_G0 != CHARSET_ASCII) {\r
        WRITE3(ESC, '(', 'B')\r
        NEXT_OUT(3)\r
        STATE_SETG0(CHARSET_ASCII)\r
    }\r
    return 0;\r
}\r
\r
ENCODER(iso2022)\r
{\r
    while (inleft > 0) {\r
        const struct iso2022_designation *dsg;\r
        DBCHAR encoded;\r
        ucs4_t c = **inbuf;\r
        Py_ssize_t insize;\r
\r
        if (c < 0x80) {\r
            if (STATE_G0 != CHARSET_ASCII) {\r
                WRITE3(ESC, '(', 'B')\r
                STATE_SETG0(CHARSET_ASCII)\r
                NEXT_OUT(3)\r
            }\r
            if (STATE_GETFLAG(F_SHIFTED)) {\r
                WRITE1(SI)\r
                STATE_CLEARFLAG(F_SHIFTED)\r
                NEXT_OUT(1)\r
            }\r
            WRITE1((unsigned char)c)\r
            NEXT(1, 1)\r
            continue;\r
        }\r
\r
        DECODE_SURROGATE(c)\r
        insize = GET_INSIZE(c);\r
\r
        encoded = MAP_UNMAPPABLE;\r
        for (dsg = CONFIG_DESIGNATIONS; dsg->mark; dsg++) {\r
            Py_ssize_t length = 1;\r
            encoded = dsg->encoder(&c, &length);\r
            if (encoded == MAP_MULTIPLE_AVAIL) {\r
                /* this implementation won't work for pair\r
                 * of non-bmp characters. */\r
                if (inleft < 2) {\r
                    if (!(flags & MBENC_FLUSH))\r
                        return MBERR_TOOFEW;\r
                    length = -1;\r
                }\r
                else\r
                    length = 2;\r
#if Py_UNICODE_SIZE == 2\r
                if (length == 2) {\r
                    ucs4_t u4in[2];\r
                    u4in[0] = (ucs4_t)IN1;\r
                    u4in[1] = (ucs4_t)IN2;\r
                    encoded = dsg->encoder(u4in, &length);\r
                } else\r
                    encoded = dsg->encoder(&c, &length);\r
#else\r
                encoded = dsg->encoder(&c, &length);\r
#endif\r
                if (encoded != MAP_UNMAPPABLE) {\r
                    insize = length;\r
                    break;\r
                }\r
            }\r
            else if (encoded != MAP_UNMAPPABLE)\r
                break;\r
        }\r
\r
        if (!dsg->mark)\r
            return 1;\r
        assert(dsg->width == 1 || dsg->width == 2);\r
\r
        switch (dsg->plane) {\r
        case 0: /* G0 */\r
            if (STATE_GETFLAG(F_SHIFTED)) {\r
                WRITE1(SI)\r
                STATE_CLEARFLAG(F_SHIFTED)\r
                NEXT_OUT(1)\r
            }\r
            if (STATE_G0 != dsg->mark) {\r
                if (dsg->width == 1) {\r
                    WRITE3(ESC, '(', ESCMARK(dsg->mark))\r
                    STATE_SETG0(dsg->mark)\r
                    NEXT_OUT(3)\r
                }\r
                else if (dsg->mark == CHARSET_JISX0208) {\r
                    WRITE3(ESC, '$', ESCMARK(dsg->mark))\r
                    STATE_SETG0(dsg->mark)\r
                    NEXT_OUT(3)\r
                }\r
                else {\r
                    WRITE4(ESC, '$', '(',\r
                        ESCMARK(dsg->mark))\r
                    STATE_SETG0(dsg->mark)\r
                    NEXT_OUT(4)\r
                }\r
            }\r
            break;\r
        case 1: /* G1 */\r
            if (STATE_G1 != dsg->mark) {\r
                if (dsg->width == 1) {\r
                    WRITE3(ESC, ')', ESCMARK(dsg->mark))\r
                    STATE_SETG1(dsg->mark)\r
                    NEXT_OUT(3)\r
                }\r
                else {\r
                    WRITE4(ESC, '$', ')',\r
                        ESCMARK(dsg->mark))\r
                    STATE_SETG1(dsg->mark)\r
                    NEXT_OUT(4)\r
                }\r
            }\r
            if (!STATE_GETFLAG(F_SHIFTED)) {\r
                WRITE1(SO)\r
                STATE_SETFLAG(F_SHIFTED)\r
                NEXT_OUT(1)\r
            }\r
            break;\r
        default: /* G2 and G3 is not supported: no encoding in\r
                  * CJKCodecs are using them yet */\r
            return MBERR_INTERNAL;\r
        }\r
\r
        if (dsg->width == 1) {\r
            WRITE1((unsigned char)encoded)\r
            NEXT_OUT(1)\r
        }\r
        else {\r
            WRITE2(encoded >> 8, encoded & 0xff)\r
            NEXT_OUT(2)\r
        }\r
        NEXT_IN(insize)\r
    }\r
\r
    return 0;\r
}\r
\r
DECODER_INIT(iso2022)\r
{\r
    STATE_CLEARFLAGS()\r
    STATE_SETG0(CHARSET_ASCII)\r
    STATE_SETG1(CHARSET_ASCII)\r
    STATE_SETG2(CHARSET_ASCII)\r
    return 0;\r
}\r
\r
DECODER_RESET(iso2022)\r
{\r
    STATE_SETG0(CHARSET_ASCII)\r
    STATE_CLEARFLAG(F_SHIFTED)\r
    return 0;\r
}\r
\r
static Py_ssize_t\r
iso2022processesc(const void *config, MultibyteCodec_State *state,\r
                  const unsigned char **inbuf, Py_ssize_t *inleft)\r
{\r
    unsigned char charset, designation;\r
    Py_ssize_t i, esclen;\r
\r
    for (i = 1;i < MAX_ESCSEQLEN;i++) {\r
        if (i >= *inleft)\r
            return MBERR_TOOFEW;\r
        if (IS_ESCEND((*inbuf)[i])) {\r
            esclen = i + 1;\r
            break;\r
        }\r
        else if (CONFIG_ISSET(USE_JISX0208_EXT) && i+1 < *inleft &&\r
                 (*inbuf)[i] == '&' && (*inbuf)[i+1] == '@')\r
            i += 2;\r
    }\r
\r
    if (i >= MAX_ESCSEQLEN)\r
        return 1; /* unterminated escape sequence */\r
\r
    switch (esclen) {\r
    case 3:\r
        if (IN2 == '$') {\r
            charset = IN3 | CHARSET_DBCS;\r
            designation = 0;\r
        }\r
        else {\r
            charset = IN3;\r
            if (IN2 == '(') designation = 0;\r
            else if (IN2 == ')') designation = 1;\r
            else if (CONFIG_ISSET(USE_G2) && IN2 == '.')\r
                designation = 2;\r
            else return 3;\r
        }\r
        break;\r
    case 4:\r
        if (IN2 != '$')\r
            return 4;\r
\r
        charset = IN4 | CHARSET_DBCS;\r
        if (IN3 == '(') designation = 0;\r
        else if (IN3 == ')') designation = 1;\r
        else return 4;\r
        break;\r
    case 6: /* designation with prefix */\r
        if (CONFIG_ISSET(USE_JISX0208_EXT) &&\r
            (*inbuf)[3] == ESC && (*inbuf)[4] == '$' &&\r
            (*inbuf)[5] == 'B') {\r
            charset = 'B' | CHARSET_DBCS;\r
            designation = 0;\r
        }\r
        else\r
            return 6;\r
        break;\r
    default:\r
        return esclen;\r
    }\r
\r
    /* raise error when the charset is not designated for this encoding */\r
    if (charset != CHARSET_ASCII) {\r
        const struct iso2022_designation *dsg;\r
\r
        for (dsg = CONFIG_DESIGNATIONS; dsg->mark; dsg++)\r
            if (dsg->mark == charset)\r
                break;\r
        if (!dsg->mark)\r
            return esclen;\r
    }\r
\r
    STATE_SETG(designation, charset)\r
    *inleft -= esclen;\r
    (*inbuf) += esclen;\r
    return 0;\r
}\r
\r
#define ISO8859_7_DECODE(c, assi)                                       \\r
    if ((c) < 0xa0) (assi) = (c);                                       \\r
    else if ((c) < 0xc0 && (0x288f3bc9L & (1L << ((c)-0xa0))))          \\r
        (assi) = (c);                                                   \\r
    else if ((c) >= 0xb4 && (c) <= 0xfe && ((c) >= 0xd4 ||              \\r
             (0xbffffd77L & (1L << ((c)-0xb4)))))                       \\r
        (assi) = 0x02d0 + (c);                                          \\r
    else if ((c) == 0xa1) (assi) = 0x2018;                              \\r
    else if ((c) == 0xa2) (assi) = 0x2019;                              \\r
    else if ((c) == 0xaf) (assi) = 0x2015;\r
\r
static Py_ssize_t\r
iso2022processg2(const void *config, MultibyteCodec_State *state,\r
                 const unsigned char **inbuf, Py_ssize_t *inleft,\r
                 Py_UNICODE **outbuf, Py_ssize_t *outleft)\r
{\r
    /* not written to use encoder, decoder functions because only few\r
     * encodings use G2 designations in CJKCodecs */\r
    if (STATE_G2 == CHARSET_ISO8859_1) {\r
        if (IN3 < 0x80)\r
            OUT1(IN3 + 0x80)\r
        else\r
            return 3;\r
    }\r
    else if (STATE_G2 == CHARSET_ISO8859_7) {\r
        ISO8859_7_DECODE(IN3 ^ 0x80, **outbuf)\r
        else return 3;\r
    }\r
    else if (STATE_G2 == CHARSET_ASCII) {\r
        if (IN3 & 0x80) return 3;\r
        else **outbuf = IN3;\r
    }\r
    else\r
        return MBERR_INTERNAL;\r
\r
    (*inbuf) += 3;\r
    *inleft -= 3;\r
    (*outbuf) += 1;\r
    *outleft -= 1;\r
    return 0;\r
}\r
\r
DECODER(iso2022)\r
{\r
    const struct iso2022_designation *dsgcache = NULL;\r
\r
    while (inleft > 0) {\r
        unsigned char c = IN1;\r
        Py_ssize_t err;\r
\r
        if (STATE_GETFLAG(F_ESCTHROUGHOUT)) {\r
            /* ESC throughout mode:\r
             * for non-iso2022 escape sequences */\r
            WRITE1(c) /* assume as ISO-8859-1 */\r
            NEXT(1, 1)\r
            if (IS_ESCEND(c)) {\r
                STATE_CLEARFLAG(F_ESCTHROUGHOUT)\r
            }\r
            continue;\r
        }\r
\r
        switch (c) {\r
        case ESC:\r
            REQUIRE_INBUF(2)\r
            if (IS_ISO2022ESC(IN2)) {\r
                err = iso2022processesc(config, state,\r
                                        inbuf, &inleft);\r
                if (err != 0)\r
                    return err;\r
            }\r
            else if (CONFIG_ISSET(USE_G2) && IN2 == 'N') {/* SS2 */\r
                REQUIRE_INBUF(3)\r
                err = iso2022processg2(config, state,\r
                    inbuf, &inleft, outbuf, &outleft);\r
                if (err != 0)\r
                    return err;\r
            }\r
            else {\r
                WRITE1(ESC)\r
                STATE_SETFLAG(F_ESCTHROUGHOUT)\r
                NEXT(1, 1)\r
            }\r
            break;\r
        case SI:\r
            if (CONFIG_ISSET(NO_SHIFT))\r
                goto bypass;\r
            STATE_CLEARFLAG(F_SHIFTED)\r
            NEXT_IN(1)\r
            break;\r
        case SO:\r
            if (CONFIG_ISSET(NO_SHIFT))\r
                goto bypass;\r
            STATE_SETFLAG(F_SHIFTED)\r
            NEXT_IN(1)\r
            break;\r
        case LF:\r
            STATE_CLEARFLAG(F_SHIFTED)\r
            WRITE1(LF)\r
            NEXT(1, 1)\r
            break;\r
        default:\r
            if (c < 0x20) /* C0 */\r
                goto bypass;\r
            else if (c >= 0x80)\r
                return 1;\r
            else {\r
                const struct iso2022_designation *dsg;\r
                unsigned char charset;\r
                ucs4_t decoded;\r
\r
                if (STATE_GETFLAG(F_SHIFTED))\r
                    charset = STATE_G1;\r
                else\r
                    charset = STATE_G0;\r
\r
                if (charset == CHARSET_ASCII) {\r
bypass:                                 WRITE1(c)\r
                                        NEXT(1, 1)\r
                                        break;\r
                                }\r
\r
                                if (dsgcache != NULL &&\r
                                    dsgcache->mark == charset)\r
                                        dsg = dsgcache;\r
                                else {\r
                                        for (dsg = CONFIG_DESIGNATIONS;\r
                                             dsg->mark != charset\r
#ifdef Py_DEBUG\r
                                                && dsg->mark != '\0'\r
#endif\r
                                             ;dsg++)\r
                                                /* noop */;\r
                                        assert(dsg->mark != '\0');\r
                                        dsgcache = dsg;\r
                                }\r
\r
                                REQUIRE_INBUF(dsg->width)\r
                                decoded = dsg->decoder(*inbuf);\r
                                if (decoded == MAP_UNMAPPABLE)\r
                                        return dsg->width;\r
\r
                                if (decoded < 0x10000) {\r
                                        WRITE1(decoded)\r
                                        NEXT_OUT(1)\r
                                }\r
                                else if (decoded < 0x30000) {\r
                                        WRITEUCS4(decoded)\r
                                }\r
                                else { /* JIS X 0213 pairs */\r
                    WRITE2(decoded >> 16, decoded & 0xffff)\r
                    NEXT_OUT(2)\r
                }\r
                NEXT_IN(dsg->width)\r
            }\r
            break;\r
        }\r
    }\r
    return 0;\r
}\r
\r
/*-*- mapping table holders -*-*/\r
\r
#define ENCMAP(enc) static const encode_map *enc##_encmap = NULL;\r
#define DECMAP(enc) static const decode_map *enc##_decmap = NULL;\r
\r
/* kr */\r
ENCMAP(cp949)\r
DECMAP(ksx1001)\r
\r
/* jp */\r
ENCMAP(jisxcommon)\r
DECMAP(jisx0208)\r
DECMAP(jisx0212)\r
ENCMAP(jisx0213_bmp)\r
DECMAP(jisx0213_1_bmp)\r
DECMAP(jisx0213_2_bmp)\r
ENCMAP(jisx0213_emp)\r
DECMAP(jisx0213_1_emp)\r
DECMAP(jisx0213_2_emp)\r
\r
/* cn */\r
ENCMAP(gbcommon)\r
DECMAP(gb2312)\r
\r
/* tw */\r
\r
/*-*- mapping access functions -*-*/\r
\r
static int\r
ksx1001_init(void)\r
{\r
    static int initialized = 0;\r
\r
    if (!initialized && (\r
                    IMPORT_MAP(kr, cp949, &cp949_encmap, NULL) ||\r
                    IMPORT_MAP(kr, ksx1001, NULL, &ksx1001_decmap)))\r
        return -1;\r
    initialized = 1;\r
    return 0;\r
}\r
\r
static ucs4_t\r
ksx1001_decoder(const unsigned char *data)\r
{\r
    ucs4_t u;\r
    TRYMAP_DEC(ksx1001, u, data[0], data[1])\r
        return u;\r
    else\r
        return MAP_UNMAPPABLE;\r
}\r
\r
static DBCHAR\r
ksx1001_encoder(const ucs4_t *data, Py_ssize_t *length)\r
{\r
    DBCHAR coded;\r
    assert(*length == 1);\r
    if (*data < 0x10000) {\r
        TRYMAP_ENC(cp949, coded, *data)\r
            if (!(coded & 0x8000))\r
                return coded;\r
    }\r
    return MAP_UNMAPPABLE;\r
}\r
\r
static int\r
jisx0208_init(void)\r
{\r
    static int initialized = 0;\r
\r
    if (!initialized && (\r
                    IMPORT_MAP(jp, jisxcommon, &jisxcommon_encmap, NULL) ||\r
                    IMPORT_MAP(jp, jisx0208, NULL, &jisx0208_decmap)))\r
        return -1;\r
    initialized = 1;\r
    return 0;\r
}\r
\r
static ucs4_t\r
jisx0208_decoder(const unsigned char *data)\r
{\r
    ucs4_t u;\r
    if (data[0] == 0x21 && data[1] == 0x40) /* F/W REVERSE SOLIDUS */\r
        return 0xff3c;\r
    else TRYMAP_DEC(jisx0208, u, data[0], data[1])\r
        return u;\r
    else\r
        return MAP_UNMAPPABLE;\r
}\r
\r
static DBCHAR\r
jisx0208_encoder(const ucs4_t *data, Py_ssize_t *length)\r
{\r
    DBCHAR coded;\r
    assert(*length == 1);\r
    if (*data < 0x10000) {\r
        if (*data == 0xff3c) /* F/W REVERSE SOLIDUS */\r
            return 0x2140;\r
        else TRYMAP_ENC(jisxcommon, coded, *data) {\r
            if (!(coded & 0x8000))\r
                return coded;\r
        }\r
    }\r
    return MAP_UNMAPPABLE;\r
}\r
\r
static int\r
jisx0212_init(void)\r
{\r
    static int initialized = 0;\r
\r
    if (!initialized && (\r
                    IMPORT_MAP(jp, jisxcommon, &jisxcommon_encmap, NULL) ||\r
                    IMPORT_MAP(jp, jisx0212, NULL, &jisx0212_decmap)))\r
        return -1;\r
    initialized = 1;\r
    return 0;\r
}\r
\r
static ucs4_t\r
jisx0212_decoder(const unsigned char *data)\r
{\r
    ucs4_t u;\r
    TRYMAP_DEC(jisx0212, u, data[0], data[1])\r
        return u;\r
    else\r
        return MAP_UNMAPPABLE;\r
}\r
\r
static DBCHAR\r
jisx0212_encoder(const ucs4_t *data, Py_ssize_t *length)\r
{\r
    DBCHAR coded;\r
    assert(*length == 1);\r
    if (*data < 0x10000) {\r
        TRYMAP_ENC(jisxcommon, coded, *data) {\r
            if (coded & 0x8000)\r
                return coded & 0x7fff;\r
        }\r
    }\r
    return MAP_UNMAPPABLE;\r
}\r
\r
static int\r
jisx0213_init(void)\r
{\r
    static int initialized = 0;\r
\r
    if (!initialized && (\r
                    jisx0208_init() ||\r
                    IMPORT_MAP(jp, jisx0213_bmp,\r
                               &jisx0213_bmp_encmap, NULL) ||\r
                    IMPORT_MAP(jp, jisx0213_1_bmp,\r
                               NULL, &jisx0213_1_bmp_decmap) ||\r
                    IMPORT_MAP(jp, jisx0213_2_bmp,\r
                               NULL, &jisx0213_2_bmp_decmap) ||\r
                    IMPORT_MAP(jp, jisx0213_emp,\r
                               &jisx0213_emp_encmap, NULL) ||\r
                    IMPORT_MAP(jp, jisx0213_1_emp,\r
                               NULL, &jisx0213_1_emp_decmap) ||\r
                    IMPORT_MAP(jp, jisx0213_2_emp,\r
                               NULL, &jisx0213_2_emp_decmap) ||\r
                    IMPORT_MAP(jp, jisx0213_pair, &jisx0213_pair_encmap,\r
                               &jisx0213_pair_decmap)))\r
        return -1;\r
    initialized = 1;\r
    return 0;\r
}\r
\r
#define config ((void *)2000)\r
static ucs4_t\r
jisx0213_2000_1_decoder(const unsigned char *data)\r
{\r
    ucs4_t u;\r
    EMULATE_JISX0213_2000_DECODE_PLANE1(u, data[0], data[1])\r
    else if (data[0] == 0x21 && data[1] == 0x40) /* F/W REVERSE SOLIDUS */\r
        return 0xff3c;\r
    else TRYMAP_DEC(jisx0208, u, data[0], data[1]);\r
    else TRYMAP_DEC(jisx0213_1_bmp, u, data[0], data[1]);\r
    else TRYMAP_DEC(jisx0213_1_emp, u, data[0], data[1])\r
        u |= 0x20000;\r
    else TRYMAP_DEC(jisx0213_pair, u, data[0], data[1]);\r
    else\r
        return MAP_UNMAPPABLE;\r
    return u;\r
}\r
\r
static ucs4_t\r
jisx0213_2000_2_decoder(const unsigned char *data)\r
{\r
    ucs4_t u;\r
    EMULATE_JISX0213_2000_DECODE_PLANE2(u, data[0], data[1])\r
    TRYMAP_DEC(jisx0213_2_bmp, u, data[0], data[1]);\r
    else TRYMAP_DEC(jisx0213_2_emp, u, data[0], data[1])\r
        u |= 0x20000;\r
    else\r
        return MAP_UNMAPPABLE;\r
    return u;\r
}\r
#undef config\r
\r
static ucs4_t\r
jisx0213_2004_1_decoder(const unsigned char *data)\r
{\r
    ucs4_t u;\r
    if (data[0] == 0x21 && data[1] == 0x40) /* F/W REVERSE SOLIDUS */\r
        return 0xff3c;\r
    else TRYMAP_DEC(jisx0208, u, data[0], data[1]);\r
    else TRYMAP_DEC(jisx0213_1_bmp, u, data[0], data[1]);\r
    else TRYMAP_DEC(jisx0213_1_emp, u, data[0], data[1])\r
        u |= 0x20000;\r
    else TRYMAP_DEC(jisx0213_pair, u, data[0], data[1]);\r
    else\r
        return MAP_UNMAPPABLE;\r
    return u;\r
}\r
\r
static ucs4_t\r
jisx0213_2004_2_decoder(const unsigned char *data)\r
{\r
    ucs4_t u;\r
    TRYMAP_DEC(jisx0213_2_bmp, u, data[0], data[1]);\r
    else TRYMAP_DEC(jisx0213_2_emp, u, data[0], data[1])\r
        u |= 0x20000;\r
    else\r
        return MAP_UNMAPPABLE;\r
    return u;\r
}\r
\r
static DBCHAR\r
jisx0213_encoder(const ucs4_t *data, Py_ssize_t *length, void *config)\r
{\r
    DBCHAR coded;\r
\r
    switch (*length) {\r
    case 1: /* first character */\r
        if (*data >= 0x10000) {\r
            if ((*data) >> 16 == 0x20000 >> 16) {\r
                EMULATE_JISX0213_2000_ENCODE_EMP(coded, *data)\r
                else TRYMAP_ENC(jisx0213_emp, coded,\r
                                (*data) & 0xffff)\r
                    return coded;\r
            }\r
            return MAP_UNMAPPABLE;\r
        }\r
\r
        EMULATE_JISX0213_2000_ENCODE_BMP(coded, *data)\r
        else TRYMAP_ENC(jisx0213_bmp, coded, *data) {\r
            if (coded == MULTIC)\r
                return MAP_MULTIPLE_AVAIL;\r
        }\r
        else TRYMAP_ENC(jisxcommon, coded, *data) {\r
            if (coded & 0x8000)\r
                return MAP_UNMAPPABLE;\r
        }\r
        else\r
            return MAP_UNMAPPABLE;\r
        return coded;\r
    case 2: /* second character of unicode pair */\r
        coded = find_pairencmap((ucs2_t)data[0], (ucs2_t)data[1],\r
                        jisx0213_pair_encmap, JISX0213_ENCPAIRS);\r
        if (coded == DBCINV) {\r
            *length = 1;\r
            coded = find_pairencmap((ucs2_t)data[0], 0,\r
                      jisx0213_pair_encmap, JISX0213_ENCPAIRS);\r
            if (coded == DBCINV)\r
                return MAP_UNMAPPABLE;\r
        }\r
        else\r
            return coded;\r
    case -1: /* flush unterminated */\r
        *length = 1;\r
        coded = find_pairencmap((ucs2_t)data[0], 0,\r
                        jisx0213_pair_encmap, JISX0213_ENCPAIRS);\r
        if (coded == DBCINV)\r
            return MAP_UNMAPPABLE;\r
        else\r
            return coded;\r
    default:\r
        return MAP_UNMAPPABLE;\r
    }\r
}\r
\r
static DBCHAR\r
jisx0213_2000_1_encoder(const ucs4_t *data, Py_ssize_t *length)\r
{\r
    DBCHAR coded = jisx0213_encoder(data, length, (void *)2000);\r
    if (coded == MAP_UNMAPPABLE || coded == MAP_MULTIPLE_AVAIL)\r
        return coded;\r
    else if (coded & 0x8000)\r
        return MAP_UNMAPPABLE;\r
    else\r
        return coded;\r
}\r
\r
static DBCHAR\r
jisx0213_2000_1_encoder_paironly(const ucs4_t *data, Py_ssize_t *length)\r
{\r
    DBCHAR coded;\r
    Py_ssize_t ilength = *length;\r
\r
    coded = jisx0213_encoder(data, length, (void *)2000);\r
    switch (ilength) {\r
    case 1:\r
        if (coded == MAP_MULTIPLE_AVAIL)\r
            return MAP_MULTIPLE_AVAIL;\r
        else\r
            return MAP_UNMAPPABLE;\r
    case 2:\r
        if (*length != 2)\r
            return MAP_UNMAPPABLE;\r
        else\r
            return coded;\r
    default:\r
        return MAP_UNMAPPABLE;\r
    }\r
}\r
\r
static DBCHAR\r
jisx0213_2000_2_encoder(const ucs4_t *data, Py_ssize_t *length)\r
{\r
    DBCHAR coded = jisx0213_encoder(data, length, (void *)2000);\r
    if (coded == MAP_UNMAPPABLE || coded == MAP_MULTIPLE_AVAIL)\r
        return coded;\r
    else if (coded & 0x8000)\r
        return coded & 0x7fff;\r
    else\r
        return MAP_UNMAPPABLE;\r
}\r
\r
static DBCHAR\r
jisx0213_2004_1_encoder(const ucs4_t *data, Py_ssize_t *length)\r
{\r
    DBCHAR coded = jisx0213_encoder(data, length, NULL);\r
    if (coded == MAP_UNMAPPABLE || coded == MAP_MULTIPLE_AVAIL)\r
        return coded;\r
    else if (coded & 0x8000)\r
        return MAP_UNMAPPABLE;\r
    else\r
        return coded;\r
}\r
\r
static DBCHAR\r
jisx0213_2004_1_encoder_paironly(const ucs4_t *data, Py_ssize_t *length)\r
{\r
    DBCHAR coded;\r
    Py_ssize_t ilength = *length;\r
\r
    coded = jisx0213_encoder(data, length, NULL);\r
    switch (ilength) {\r
    case 1:\r
        if (coded == MAP_MULTIPLE_AVAIL)\r
            return MAP_MULTIPLE_AVAIL;\r
        else\r
            return MAP_UNMAPPABLE;\r
    case 2:\r
        if (*length != 2)\r
            return MAP_UNMAPPABLE;\r
        else\r
            return coded;\r
    default:\r
        return MAP_UNMAPPABLE;\r
    }\r
}\r
\r
static DBCHAR\r
jisx0213_2004_2_encoder(const ucs4_t *data, Py_ssize_t *length)\r
{\r
    DBCHAR coded = jisx0213_encoder(data, length, NULL);\r
    if (coded == MAP_UNMAPPABLE || coded == MAP_MULTIPLE_AVAIL)\r
        return coded;\r
    else if (coded & 0x8000)\r
        return coded & 0x7fff;\r
    else\r
        return MAP_UNMAPPABLE;\r
}\r
\r
static ucs4_t\r
jisx0201_r_decoder(const unsigned char *data)\r
{\r
    ucs4_t u;\r
    JISX0201_R_DECODE(*data, u)\r
    else return MAP_UNMAPPABLE;\r
    return u;\r
}\r
\r
static DBCHAR\r
jisx0201_r_encoder(const ucs4_t *data, Py_ssize_t *length)\r
{\r
    DBCHAR coded;\r
    JISX0201_R_ENCODE(*data, coded)\r
    else return MAP_UNMAPPABLE;\r
    return coded;\r
}\r
\r
static ucs4_t\r
jisx0201_k_decoder(const unsigned char *data)\r
{\r
    ucs4_t u;\r
    JISX0201_K_DECODE(*data ^ 0x80, u)\r
    else return MAP_UNMAPPABLE;\r
    return u;\r
}\r
\r
static DBCHAR\r
jisx0201_k_encoder(const ucs4_t *data, Py_ssize_t *length)\r
{\r
    DBCHAR coded;\r
    JISX0201_K_ENCODE(*data, coded)\r
    else return MAP_UNMAPPABLE;\r
    return coded - 0x80;\r
}\r
\r
static int\r
gb2312_init(void)\r
{\r
    static int initialized = 0;\r
\r
    if (!initialized && (\r
                    IMPORT_MAP(cn, gbcommon, &gbcommon_encmap, NULL) ||\r
                    IMPORT_MAP(cn, gb2312, NULL, &gb2312_decmap)))\r
        return -1;\r
    initialized = 1;\r
    return 0;\r
}\r
\r
static ucs4_t\r
gb2312_decoder(const unsigned char *data)\r
{\r
    ucs4_t u;\r
    TRYMAP_DEC(gb2312, u, data[0], data[1])\r
        return u;\r
    else\r
        return MAP_UNMAPPABLE;\r
}\r
\r
static DBCHAR\r
gb2312_encoder(const ucs4_t *data, Py_ssize_t *length)\r
{\r
    DBCHAR coded;\r
    assert(*length == 1);\r
    if (*data < 0x10000) {\r
        TRYMAP_ENC(gbcommon, coded, *data) {\r
            if (!(coded & 0x8000))\r
                return coded;\r
        }\r
    }\r
    return MAP_UNMAPPABLE;\r
}\r
\r
\r
static ucs4_t\r
dummy_decoder(const unsigned char *data)\r
{\r
    return MAP_UNMAPPABLE;\r
}\r
\r
static DBCHAR\r
dummy_encoder(const ucs4_t *data, Py_ssize_t *length)\r
{\r
    return MAP_UNMAPPABLE;\r
}\r
\r
/*-*- registry tables -*-*/\r
\r
#define REGISTRY_KSX1001_G0     { CHARSET_KSX1001, 0, 2,                \\r
                  ksx1001_init,                                         \\r
                  ksx1001_decoder, ksx1001_encoder }\r
#define REGISTRY_KSX1001_G1     { CHARSET_KSX1001, 1, 2,                \\r
                  ksx1001_init,                                         \\r
                  ksx1001_decoder, ksx1001_encoder }\r
#define REGISTRY_JISX0201_R     { CHARSET_JISX0201_R, 0, 1,             \\r
                  NULL,                                                 \\r
                  jisx0201_r_decoder, jisx0201_r_encoder }\r
#define REGISTRY_JISX0201_K     { CHARSET_JISX0201_K, 0, 1,             \\r
                  NULL,                                                 \\r
                  jisx0201_k_decoder, jisx0201_k_encoder }\r
#define REGISTRY_JISX0208       { CHARSET_JISX0208, 0, 2,               \\r
                  jisx0208_init,                                        \\r
                  jisx0208_decoder, jisx0208_encoder }\r
#define REGISTRY_JISX0208_O     { CHARSET_JISX0208_O, 0, 2,             \\r
                  jisx0208_init,                                        \\r
                  jisx0208_decoder, jisx0208_encoder }\r
#define REGISTRY_JISX0212       { CHARSET_JISX0212, 0, 2,               \\r
                  jisx0212_init,                                        \\r
                  jisx0212_decoder, jisx0212_encoder }\r
#define REGISTRY_JISX0213_2000_1 { CHARSET_JISX0213_2000_1, 0, 2,       \\r
                  jisx0213_init,                                        \\r
                  jisx0213_2000_1_decoder,                              \\r
                  jisx0213_2000_1_encoder }\r
#define REGISTRY_JISX0213_2000_1_PAIRONLY { CHARSET_JISX0213_2000_1, 0, 2, \\r
                  jisx0213_init,                                        \\r
                  jisx0213_2000_1_decoder,                              \\r
                  jisx0213_2000_1_encoder_paironly }\r
#define REGISTRY_JISX0213_2000_2 { CHARSET_JISX0213_2, 0, 2,            \\r
                  jisx0213_init,                                        \\r
                  jisx0213_2000_2_decoder,                              \\r
                  jisx0213_2000_2_encoder }\r
#define REGISTRY_JISX0213_2004_1 { CHARSET_JISX0213_2004_1, 0, 2,       \\r
                  jisx0213_init,                                        \\r
                  jisx0213_2004_1_decoder,                              \\r
                  jisx0213_2004_1_encoder }\r
#define REGISTRY_JISX0213_2004_1_PAIRONLY { CHARSET_JISX0213_2004_1, 0, 2, \\r
                  jisx0213_init,                                        \\r
                  jisx0213_2004_1_decoder,                              \\r
                  jisx0213_2004_1_encoder_paironly }\r
#define REGISTRY_JISX0213_2004_2 { CHARSET_JISX0213_2, 0, 2,            \\r
                  jisx0213_init,                                        \\r
                  jisx0213_2004_2_decoder,                              \\r
                  jisx0213_2004_2_encoder }\r
#define REGISTRY_GB2312         { CHARSET_GB2312, 0, 2,                 \\r
                  gb2312_init,                                          \\r
                  gb2312_decoder, gb2312_encoder }\r
#define REGISTRY_CNS11643_1     { CHARSET_CNS11643_1, 1, 2,             \\r
                  cns11643_init,                                        \\r
                  cns11643_1_decoder, cns11643_1_encoder }\r
#define REGISTRY_CNS11643_2     { CHARSET_CNS11643_2, 2, 2,             \\r
                  cns11643_init,                                        \\r
                  cns11643_2_decoder, cns11643_2_encoder }\r
#define REGISTRY_ISO8859_1      { CHARSET_ISO8859_1, 2, 1,              \\r
                  NULL, dummy_decoder, dummy_encoder }\r
#define REGISTRY_ISO8859_7      { CHARSET_ISO8859_7, 2, 1,              \\r
                  NULL, dummy_decoder, dummy_encoder }\r
#define REGISTRY_SENTINEL       { 0, }\r
#define CONFIGDEF(var, attrs)                                           \\r
    static const struct iso2022_config iso2022_##var##_config = {       \\r
        attrs, iso2022_##var##_designations                             \\r
    };\r
\r
static const struct iso2022_designation iso2022_kr_designations[] = {\r
    REGISTRY_KSX1001_G1, REGISTRY_SENTINEL\r
};\r
CONFIGDEF(kr, 0)\r
\r
static const struct iso2022_designation iso2022_jp_designations[] = {\r
    REGISTRY_JISX0208, REGISTRY_JISX0201_R, REGISTRY_JISX0208_O,\r
    REGISTRY_SENTINEL\r
};\r
CONFIGDEF(jp, NO_SHIFT | USE_JISX0208_EXT)\r
\r
static const struct iso2022_designation iso2022_jp_1_designations[] = {\r
    REGISTRY_JISX0208, REGISTRY_JISX0212, REGISTRY_JISX0201_R,\r
    REGISTRY_JISX0208_O, REGISTRY_SENTINEL\r
};\r
CONFIGDEF(jp_1, NO_SHIFT | USE_JISX0208_EXT)\r
\r
static const struct iso2022_designation iso2022_jp_2_designations[] = {\r
    REGISTRY_JISX0208, REGISTRY_JISX0212, REGISTRY_KSX1001_G0,\r
    REGISTRY_GB2312, REGISTRY_JISX0201_R, REGISTRY_JISX0208_O,\r
    REGISTRY_ISO8859_1, REGISTRY_ISO8859_7, REGISTRY_SENTINEL\r
};\r
CONFIGDEF(jp_2, NO_SHIFT | USE_G2 | USE_JISX0208_EXT)\r
\r
static const struct iso2022_designation iso2022_jp_2004_designations[] = {\r
    REGISTRY_JISX0213_2004_1_PAIRONLY, REGISTRY_JISX0208,\r
    REGISTRY_JISX0213_2004_1, REGISTRY_JISX0213_2004_2, REGISTRY_SENTINEL\r
};\r
CONFIGDEF(jp_2004, NO_SHIFT | USE_JISX0208_EXT)\r
\r
static const struct iso2022_designation iso2022_jp_3_designations[] = {\r
    REGISTRY_JISX0213_2000_1_PAIRONLY, REGISTRY_JISX0208,\r
    REGISTRY_JISX0213_2000_1, REGISTRY_JISX0213_2000_2, REGISTRY_SENTINEL\r
};\r
CONFIGDEF(jp_3, NO_SHIFT | USE_JISX0208_EXT)\r
\r
static const struct iso2022_designation iso2022_jp_ext_designations[] = {\r
    REGISTRY_JISX0208, REGISTRY_JISX0212, REGISTRY_JISX0201_R,\r
    REGISTRY_JISX0201_K, REGISTRY_JISX0208_O, REGISTRY_SENTINEL\r
};\r
CONFIGDEF(jp_ext, NO_SHIFT | USE_JISX0208_EXT)\r
\r
\r
BEGIN_MAPPINGS_LIST\r
  /* no mapping table here */\r
END_MAPPINGS_LIST\r
\r
#define ISO2022_CODEC(variation) {              \\r
    "iso2022_" #variation,                      \\r
    &iso2022_##variation##_config,              \\r
    iso2022_codec_init,                         \\r
    _STATEFUL_METHODS(iso2022)                  \\r
},\r
\r
BEGIN_CODECS_LIST\r
  ISO2022_CODEC(kr)\r
  ISO2022_CODEC(jp)\r
  ISO2022_CODEC(jp_1)\r
  ISO2022_CODEC(jp_2)\r
  ISO2022_CODEC(jp_2004)\r
  ISO2022_CODEC(jp_3)\r
  ISO2022_CODEC(jp_ext)\r
END_CODECS_LIST\r
\r
I_AM_A_MODULE_FOR(iso2022)\r