/****************************************************************************

**

** Copyright (C) 2009 Nokia Corporation and/or its subsidiary(-ies).

** All rights reserved.

** Contact: Nokia Corporation (qt-info@nokia.com)

**

** This file is part of the plugins of the Qt Toolkit.

**

** $QT_BEGIN_LICENSE:LGPL$

** No Commercial Usage

** This file contains pre-release code and may not be distributed.

** You may use this file in accordance with the terms and conditions

** contained in the Technology Preview License Agreement accompanying

** this package.

**

** GNU Lesser General Public License Usage

** Alternatively, this file may be used under the terms of the GNU Lesser

** General Public License version 2.1 as published by the Free Software

** Foundation and appearing in the file LICENSE.LGPL included in the

** packaging of this file.  Please review the following information to

** ensure the GNU Lesser General Public License version 2.1 requirements

** will be met: http://www.gnu.org/licenses/old-licenses/lgpl-2.1.html.

**

** In addition, as a special exception, Nokia gives you certain additional

** rights.  These rights are described in the Nokia Qt LGPL Exception

** version 1.1, included in the file LGPL_EXCEPTION.txt in this package.

**

** If you have questions regarding the use of this file, please contact

** Nokia at qt-info@nokia.com.

**

**

**

**

**

**

**

**

** $QT_END_LICENSE$

**

****************************************************************************/

/*! \class QJpUnicodeConv

    \reentrant

    \internal

*/

#include "qjpunicode.h"

#include "qbytearray.h"

#include <stdlib.h>

QT_BEGIN_NAMESPACE

#define        USE_JISX0212

#define        Q_STRICT

#define        IsLatin(c)        (/*((c) >= 0x00) &&*/ ((c) <= 0x7f))

#define        IsKana(c)        (((c) >= 0xa1) && ((c) <= 0xdf))

#define        IsJisChar(c)        (((c) >= 0x21) && ((c) <= 0x7e))

#define        IsSjisChar1(c)        ((((c) >= 0x81) && ((c) <= 0x9f)) ||        \

                         (((c) >= 0xe0) && ((c) <= 0xfc)))

#define        IsSjisUDC1(c)        (((c) >= 0xf0) && ((c) <= 0xfc))

#define        IsSjisChar2(c)        (((c) >= 0x40) && ((c) != 0x7f) && ((c) <= 0xfc))

#define        IsSjisIBMVDCChar1(c)        (((c) >= 0xfa) && ((c) <= 0xfc))

static uint jisx0208ToSjis(uint h, uint l);

static

inline uint jisx0208ToSjis(uint jis)

{

    return jisx0208ToSjis((jis & 0xff00) >> 8, (jis & 0x00ff));

}

static uint sjisToJisx0208(uint h, uint l);

#if 0

static

inline uint sjisToJisx0208(uint sjis)

{

    return sjisToJisx0208((sjis & 0xff00) >> 8, (sjis & 0x00ff));

}

#endif

static uint jisx0201ToUnicode11(uint h, uint l);

static uint jisx0208ToUnicode11(uint h, uint l);

static uint jisx0212ToUnicode11(uint h, uint l);

static uint unicode11ToJisx0201(uint h, uint l);

static uint unicode11ToJisx0208(uint h, uint l);

static uint unicode11ToJisx0212(uint h, uint l);

/*

 * Unicode 1.1 conversion.

 */

/*!

  \fn QJpUnicodeConv::QJpUnicodeConv (int r)

  \internal

*/

/*! \internal */

uint QJpUnicodeConv::asciiToUnicode(uint h, uint l) const

{

    if ((h == 0) && (l < 0x80)) {

        return l;

    }

    return 0x0000;

}

/*! \internal */

uint QJpUnicodeConv::jisx0201ToUnicode(uint h, uint l) const

{

    if (h == 0) {

        if (IsLatin(l)) {

            return jisx0201LatinToUnicode(h, l);

        } else if (IsKana(l)) {

            return jisx0201KanaToUnicode(h, l);

        }

    }

    return 0x0000;

}

/*! \internal */

uint QJpUnicodeConv::jisx0201LatinToUnicode(uint h, uint l) const

{

    if ((h == 0) && IsLatin(l)) {

        return jisx0201ToUnicode11(h, l);

    }

    return 0x0000;

}

/*! \internal */

uint QJpUnicodeConv::jisx0201KanaToUnicode(uint h, uint l) const

{

    if ((h == 0) && IsKana(l)) {

        return jisx0201ToUnicode11(h, l);

    }

    return 0x0000;

}

/*! \internal */

uint QJpUnicodeConv::jisx0208ToUnicode(uint h, uint l) const

{

    if (rule & UDC){

        if ((0x75 <= h) && (h <= 0x7e) && IsJisChar(l)/*0x21 - 0x7e*/) {

            // User Defined Char (mapped to Private Use Area)

            return 0xe000 + (h - 0x75) * 0x5e + (l - 0x21);

        }

    }

    if ((rule & NEC_VDC) == 0) {

        if ((h == 0x2d) && (IsJisChar(l)/*0x21 - 0x7c*/)) {

            // NEC Vendor Defined Char

            return 0x0000;

        }

    }

    return jisx0208ToUnicode11(h, l);

}

/*! \internal */

uint QJpUnicodeConv::jisx0212ToUnicode(uint h, uint l) const

{

    if (rule & UDC){

        if ((0x75 <= h) && (h <= 0x7e) && IsJisChar(l)/*0x21 - 0x7e*/) {

            // User Defined Char (mapped to Private Use Area)

            return 0xe3ac + (h - 0x75) * 0x5e + (l - 0x21);

        }

    }

    if ((rule & IBM_VDC) == 0){

        if (((h == 0x73) && (0x73 <= l) && (l <= 0x7e)) ||

            ((h == 0x74) && (IsJisChar(l)/*0x21 - 0x7e*/))) {

            // IBM Vendor Defined Char

            return 0x0000;

        }

    }

    return jisx0212ToUnicode11(h, l);

}

/*! \internal */

uint QJpUnicodeConv::unicodeToAscii(uint h, uint l) const

{

    if ((h == 0) && (l < 0x80)) {

        return l;

    }

    return 0x0000;

}

/*! \internal */

uint QJpUnicodeConv::unicodeToJisx0201(uint h, uint l) const

{

    uint jis;

    if ((jis = unicodeToJisx0201Latin(h, l)) != 0) {

        return jis;

    } else if ((jis = unicodeToJisx0201Kana(h, l)) != 0) {

        return jis;

    }

    return 0x0000;

}

/*! \internal */

uint QJpUnicodeConv::unicodeToJisx0201Latin(uint h, uint l) const

{

    uint jis = unicode11ToJisx0201(h, l);

    if (IsLatin(jis)) {

        return jis;

    }

    return 0x0000;

}

/*! \internal */

uint QJpUnicodeConv::unicodeToJisx0201Kana(uint h, uint l) const

{

    uint jis = unicode11ToJisx0201(h, l);

    if (IsKana(jis)) {

        return jis;

    }

    return 0x0000;

}

/*! \internal */

uint QJpUnicodeConv::unicodeToJisx0208(uint h, uint l) const

{

    if (rule & UDC){

        uint unicode = (h << 8) | l;

        if ((0xe000 <= unicode) && (unicode <= 0xe3ab)) {

            // User Defined Char (mapped to Private Use Area)

            unicode -= 0xe000;

            return ((0x75 + unicode / 0x5e) << 8) | (0x21 + unicode % 0x5e);

        }

    }

    uint jis = unicode11ToJisx0208(h, l);

    if ((rule & NEC_VDC) == 0) {

        if ((0x2d21 <= jis) && (jis <= 0x2d7c)) {

            // NEC Vendor Defined Char

            return 0x0000;

        }

    }

    return jis;

}

/*! \internal */

uint QJpUnicodeConv::unicodeToJisx0212(uint h, uint l) const

{

    if (rule & UDC){

        uint unicode = (h << 8) | l;

        if ((0xe3ac <= unicode) && (unicode <= 0xe757)) {

            // User Defined Char (mapped to Private Use Area)

            unicode -= 0xe3ac;

            return ((0x75 + unicode / 0x5e) << 8) | (0x21 + unicode % 0x5e);

        }

    }

    uint jis = unicode11ToJisx0212(h, l);

    if ((rule & IBM_VDC) == 0){

        if (((0x7373 <= jis) && (jis <= 0x737e)) ||

            ((0x7421 <= jis) && (jis <= 0x747e))) {

            // IBM Vendor Defined Char

            return 0x0000;

        }

    }

    return jis;

}

/*! \internal */

uint QJpUnicodeConv::sjisToUnicode(uint h, uint l) const

{

    if (h == 0) {

        return jisx0201ToUnicode(h, l);

    } else if (IsSjisChar1(h) && IsSjisChar2(l)) {

        return jisx0208ToUnicode(sjisToJisx0208(h, l));

    }

    return 0x0000;

}

/*! \internal */

uint QJpUnicodeConv::unicodeToSjis(uint h, uint l) const

{

    uint jis;

    if ((jis = unicodeToJisx0201(h, l)) != 0x0000) {

        return jis;

    } else if ((jis = unicodeToJisx0208(h, l)) != 0x0000) {

        return jisx0208ToSjis(jis);

    } else if ((jis = unicodeToJisx0212(h, l)) != 0x0000) {

        return 0x0000;

    }

    return 0x0000;

}

/*

 * Unicode 1.1 with JISX0201 conversion.

 */

class QJpUnicodeConv_Unicode_JISX0201 : public QJpUnicodeConv {

public:

    QJpUnicodeConv_Unicode_JISX0201(int r) : QJpUnicodeConv(r) {}

//    uint AsciiToUnicode(uint h, uint l) const;

//    uint Jisx0201ToUnicode(uint h, uint l) const;

//    uint Jisx0201LatinToUnicode(uint h, uint l) const;

//    uint Jisx0201KanaToUnicode(uint h, uint l) const;

//    uint Jisx0208ToUnicode(uint h, uint l) const;

//    uint Jisx0212ToUnicode(uint h, uint l) const;

//    uint UnicodeToAscii(uint h, uint l) const;

//    uint UnicodeToJisx0201(uint h, uint l) const;

//    uint UnicodeToJisx0201Latin(uint h, uint l) const;

//    uint UnicodeToJisx0201Kana(uint h, uint l) const;

//    uint UnicodeToJisx0208(uint h, uint l) const;

//    uint UnicodeToJisx0212(uint h, uint l) const;

};

/*

 * Unicode 1.1 with ASCII conversion.

 */

class QJpUnicodeConv_Unicode_ASCII : public QJpUnicodeConv {

public:

    QJpUnicodeConv_Unicode_ASCII(int r) : QJpUnicodeConv(r) {}

//    uint AsciiToUnicode(uint h, uint l) const;

//    uint Jisx0201ToUnicode(uint h, uint l) const;

//    uint Jisx0201LatinToUnicode(uint h, uint l) const;

//    uint Jisx0201KanaToUnicode(uint h, uint l) const;

    uint jisx0208ToUnicode(uint h, uint l) const;

    uint jisx0212ToUnicode(uint h, uint l) const;

//    uint UnicodeToAscii(uint h, uint l) const;

//    uint UnicodeToJisx0201(uint h, uint l) const;

//    uint UnicodeToJisx0201Latin(uint h, uint l) const;

//    uint UnicodeToJisx0201Kana(uint h, uint l) const;

    uint unicodeToJisx0208(uint h, uint l) const;

    uint unicodeToJisx0212(uint h, uint l) const;

};

uint QJpUnicodeConv_Unicode_ASCII::jisx0208ToUnicode(uint h, uint l) const

{

    if ((h == 0x21) && (l == 0x40)) {

        return 0xff3c;

    }

    return QJpUnicodeConv::jisx0208ToUnicode(h, l);

}

uint QJpUnicodeConv_Unicode_ASCII::jisx0212ToUnicode(uint h, uint l) const

{

    if ((h == 0x22) && (l == 0x37)) {

        return 0xff5e;

    }

    return QJpUnicodeConv::jisx0212ToUnicode(h, l);

}

uint QJpUnicodeConv_Unicode_ASCII::unicodeToJisx0208(uint h, uint l) const

{

    if ((h == 0x00) && (l == 0x5c)) {

        return 0x0000;

    }

    return QJpUnicodeConv::unicodeToJisx0208(h, l);

}

/*! \internal */

uint QJpUnicodeConv_Unicode_ASCII::unicodeToJisx0212(uint h, uint l) const

{

    if ((h == 0x00) && (l == 0x7e)) {

        return 0x0000;

    }

    if ((h == 0xff) && (l == 0x5e)) {

        return 0x2237;

    }

    return QJpUnicodeConv::unicodeToJisx0208(h, l);

}

/*

 * JISX0221 with JISX0201 conversion.

 */

class QJpUnicodeConv_JISX0221_JISX0201 : public QJpUnicodeConv {

public:

    QJpUnicodeConv_JISX0221_JISX0201(int r) : QJpUnicodeConv(r) {}

    uint asciiToUnicode(uint h, uint l) const;

//    uint Jisx0201ToUnicode(uint h, uint l) const;

//    uint Jisx0201LatinToUnicode(uint h, uint l) const;

//    uint Jisx0201KanaToUnicode(uint h, uint l) const;

    uint jisx0208ToUnicode(uint h, uint l) const;

//    uint Jisx0212ToUnicode(uint h, uint l) const;

    uint unicodeToAscii(uint h, uint l) const;

//    uint UnicodeToJisx0201(uint h, uint l) const;

//    uint UnicodeToJisx0201Latin(uint h, uint l) const;

//    uint UnicodeToJisx0201Kana(uint h, uint l) const;

    uint unicodeToJisx0208(uint h, uint l) const;

//    uint UnicodeToJisx0212(uint h, uint l) const;

};

uint QJpUnicodeConv_JISX0221_JISX0201::asciiToUnicode(uint h, uint l) const

{

    return jisx0201LatinToUnicode(h, l);

}

uint QJpUnicodeConv_JISX0221_JISX0201::jisx0208ToUnicode(uint h, uint l) const

{

    if ((h == 0x21) && (l == 0x3d)) {

        return 0x2014;

    }

    return QJpUnicodeConv::jisx0208ToUnicode(h, l);

}

uint QJpUnicodeConv_JISX0221_JISX0201::unicodeToAscii(uint h, uint l) const

{

    return unicodeToJisx0201Latin(h, l);

}

uint QJpUnicodeConv_JISX0221_JISX0201::unicodeToJisx0208(uint h, uint l) const

{

#ifdef Q_STRICT

    if ((h == 0x20) && (l == 0x15)) {

        return 0x0000;

    }

#endif

    if ((h == 0x20) && (l == 0x14)) {

        return 0x213d;

    }

    return QJpUnicodeConv::unicodeToJisx0208(h, l);

}

/*

 * JISX0221 with ASCII conversion.

 */

class QJpUnicodeConv_JISX0221_ASCII : public QJpUnicodeConv {

public:

    QJpUnicodeConv_JISX0221_ASCII(int r) : QJpUnicodeConv(r) {}

//    uint AsciiToUnicode(uint h, uint l) const;

//    uint Jisx0201ToUnicode(uint h, uint l) const;

    uint jisx0201LatinToUnicode(uint h, uint l) const;

//    uint Jisx0201KanaToUnicode(uint h, uint l) const;

    uint jisx0208ToUnicode(uint h, uint l) const;

    uint jisx0212ToUnicode(uint h, uint l) const;

//    uint UnicodeToAscii(uint h, uint l) const;

//    uint UnicodeToJisx0201(uint h, uint l) const;

    uint unicodeToJisx0201Latin(uint h, uint l) const;

//    uint UnicodeToJisx0201Kana(uint h, uint l) const;

    uint unicodeToJisx0208(uint h, uint l) const;

    uint unicodeToJisx0212(uint h, uint l) const;

};

uint QJpUnicodeConv_JISX0221_ASCII::jisx0201LatinToUnicode(uint h, uint l) const

{

    return asciiToUnicode(h, l);

}

uint QJpUnicodeConv_JISX0221_ASCII::jisx0208ToUnicode(uint h, uint l) const

{

    if (h == 0x21) {

        if (l == 0x31) {

            return 0x203e;

        } else if (l == 0x3d) {

            return 0x02014;

        } else if (l == 0x40) {

            return 0xff3c;

        } else if (l == 0x6f) {

            return 0x00a5;

        }

    }

    return QJpUnicodeConv::jisx0208ToUnicode(h, l);

}

uint QJpUnicodeConv_JISX0221_ASCII::jisx0212ToUnicode(uint h, uint l) const

{

    if ((h == 0x22) && (l == 0x37)) {

        return 0xff5e;

    }

    return QJpUnicodeConv::jisx0212ToUnicode(h, l);

}

uint QJpUnicodeConv_JISX0221_ASCII::unicodeToJisx0201Latin(uint h, uint l) const

{

    return QJpUnicodeConv::unicodeToAscii(h, l);

}

uint QJpUnicodeConv_JISX0221_ASCII::unicodeToJisx0208(uint h, uint l) const

{

#ifdef Q_STRICT

    if (((h == 0x00) && (l == 0x5c)) ||

        ((h == 0x20) && (l == 0x15)) ||

        ((h == 0xff) && ((l == 0xe3) || (l == 0xe5)))) {

        return 0x0000;

    }

#else

    if ((h == 0x00) && (l == 0x5c)) {

        return 0x0000;

    }

#endif

    if ((h == 0x00) && (l == 0xa5)) {

        return 0x216f;

    } else if (h == 0x20) {

        if (l == 0x14) {

            return 0x213d;

        } else if (l == 0x3e) {

            return 0x2131;

        }

    }

    return QJpUnicodeConv::unicodeToJisx0208(h, l);

}

/*! \internal */

uint QJpUnicodeConv_JISX0221_ASCII::unicodeToJisx0212(uint h, uint l) const

{

    if ((h == 0x00) && (l == 0x7e)) {

        return 0x0000;

    }

    if ((h == 0xff) && (l == 0x5e)) {

        return 0x2237;

    }

    return QJpUnicodeConv::unicodeToJisx0212(h, l);

}

/*

 * Sun Microsystems conversion.

 */

class QJpUnicodeConv_Sun : public QJpUnicodeConv {

public:

    QJpUnicodeConv_Sun(int r) : QJpUnicodeConv(r) {}

//    uint AsciiToUnicode(uint h, uint l) const;

//    uint Jisx0201ToUnicode(uint h, uint l) const;

    uint jisx0201LatinToUnicode(uint h, uint l) const;