/*-
 * Copyright (c)2003 Citrus Project,
 * All rights reserved.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted provided that the following conditions
 * are met:
 * 1. Redistributions of source code must retain the above copyright
 *    notice, this list of conditions and the following disclaimer.
 * 2. Redistributions in binary form must reproduce the above copyright
 *    notice, this list of conditions and the following disclaimer in the
 *    documentation and/or other materials provided with the distribution.
 *
 * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
 * ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
 * SUCH DAMAGE.
 */

#include "dcmtk/config/osconfig.h"
#include "citrus_gbk2k.h"

#ifdef HAVE_SYS_TYPES_H
#include <sys/types.h>
#endif


#include <errno.h>
#include <limits.h>
#include <stdbool.h>
#include <stddef.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <wchar.h>

#include "citrus_bcs.h"
#include "citrus_types.h"
#include "citrus_module.h"
#include "citrus_stdenc.h"


/* ----------------------------------------------------------------------
 * private stuffs used by templates
 */

typedef struct _GBK2KState {
    int  chlen;
    char     ch[4];
} _GBK2KState;

typedef struct {
    int  mb_cur_max;
} _GBK2KEncodingInfo;

#define _CEI_TO_EI(_cei_)       (&(_cei_)->ei)
#define _CEI_TO_STATE(_cei_, _func_)    (_cei_)->states.s_##_func_

#define _FUNCNAME(m)            _citrus_GBK2K_##m
#define _ENCODING_INFO          _GBK2KEncodingInfo
#define _ENCODING_STATE         _GBK2KState
#define _ENCODING_MB_CUR_MAX(_ei_)  (_ei_)->mb_cur_max
#define _ENCODING_IS_STATE_DEPENDENT    0
#define _STATE_NEEDS_EXPLICIT_INIT(_ps_)    0

static __inline void
/*ARGSUSED*/
_citrus_GBK2K_init_state(_GBK2KEncodingInfo * ei ,
    _GBK2KState * s)
{
    (void) ei;
    memset(s, 0, sizeof(*s));
}

static  __inline bool
_mb_singlebyte(int c)
{

    return ((c & 0xff) <= 0x7f);
}

static __inline bool
_mb_leadbyte(int c)
{

    c &= 0xff;
    return (0x81 <= c && c <= 0xfe);
}

static __inline bool
_mb_trailbyte(int c)
{

    c &= 0xff;
    return ((0x40 <= c && c <= 0x7e) || (0x80 <= c && c <= 0xfe));
}

static __inline bool
_mb_surrogate(int c)
{

    c &= 0xff;
    return (0x30 <= c && c <= 0x39);
}

static __inline int
_mb_count(_citrus_wc_t v)
{
    uint32_t c;

    c = (uint32_t)v; /* XXX */
    if (!(c & 0xffffff00))
        return (1);
    if (!(c & 0xffff0000))
        return (2);
    return (4);
}

#define _PSENC      (psenc->ch[psenc->chlen - 1])
#define _PUSH_PSENC(c)  (psenc->ch[psenc->chlen++] = (char)(c))

static int
_citrus_GBK2K_mbrtowc_priv(_GBK2KEncodingInfo * ei,
    _citrus_wc_t * pwc, char ** s, size_t n,
    _GBK2KState * psenc, size_t * nresult)
{
    char *s0, *s1;
    _citrus_wc_t wc;
    int chlenbak, len;

    s0 = *s;

    if (s0 == NULL) {
        /* _citrus_GBK2K_init_state(ei, psenc); */
        psenc->chlen = 0;
        *nresult = 0;
        return (0);
    }

    chlenbak = psenc->chlen;

    switch (psenc->chlen) {
    case 3:
        if (!_mb_leadbyte (_PSENC))
            goto invalid;
    /* FALLTHROUGH */
    case 2:
        if (!_mb_surrogate(_PSENC) || _mb_trailbyte(_PSENC))
            goto invalid;
    /* FALLTHROUGH */
    case 1:
        if (!_mb_leadbyte (_PSENC))
            goto invalid;
    /* FALLTHOROUGH */
    case 0:
        break;
    default:
        goto invalid;
    }

    for (;;) {
        if (n-- < 1)
            goto restart;

        _PUSH_PSENC(*s0++);

        switch (psenc->chlen) {
        case 1:
            if (_mb_singlebyte(_PSENC))
                goto convert;
            if (_mb_leadbyte  (_PSENC))
                continue;
            goto ilseq;
        case 2:
            if (_mb_trailbyte (_PSENC))
                goto convert;
            if (ei->mb_cur_max == 4 &&
                _mb_surrogate (_PSENC))
                continue;
            goto ilseq;
        case 3:
            if (_mb_leadbyte  (_PSENC))
                continue;
            goto ilseq;
        case 4:
            if (_mb_surrogate (_PSENC))
                goto convert;
            goto ilseq;
        }
    }

convert:
    len = psenc->chlen;
    s1  = &psenc->ch[0];
    wc  = 0;
    while (len-- > 0)
        wc = (wc << 8) | (*s1++ & 0xff);

    if (pwc != NULL)
        *pwc = wc;
    *s = s0;
    *nresult = (wc == 0) ? 0 : psenc->chlen - chlenbak;
    /* _citrus_GBK2K_init_state(ei, psenc); */
    psenc->chlen = 0;

    return (0);

restart:
    *s = s0;
    *nresult = (size_t)-2;

    return (0);

invalid:
    return (EINVAL);

ilseq:
    *nresult = (size_t)-1;
    return (EILSEQ);
}

static int
_citrus_GBK2K_wcrtomb_priv(_GBK2KEncodingInfo * ei,
    char * s, size_t n, _citrus_wc_t wc, _GBK2KState * psenc,
    size_t * nresult)
{
    size_t len;
    int ret;

    if (psenc->chlen != 0) {
        ret = EINVAL;
        goto err;
    }

    len = _mb_count(wc);
    if (n < len) {
        ret = E2BIG;
        goto err;
    }

    switch (len) {
    case 1:
        if (!_mb_singlebyte(_PUSH_PSENC(wc     ))) {
            ret = EILSEQ;
            goto err;
        }
        break;
    case 2:
        if (!_mb_leadbyte  (_PUSH_PSENC(wc >> 8)) ||
            !_mb_trailbyte (_PUSH_PSENC(wc))) {
            ret = EILSEQ;
            goto err;
        }
        break;
    case 4:
        if (ei->mb_cur_max != 4 ||
            !_mb_leadbyte  (_PUSH_PSENC(wc >> 24)) ||
            !_mb_surrogate (_PUSH_PSENC(wc >> 16)) ||
            !_mb_leadbyte  (_PUSH_PSENC(wc >>  8)) ||
            !_mb_surrogate (_PUSH_PSENC(wc))) {
            ret = EILSEQ;
            goto err;
        }
        break;
    }

    memcpy(s, psenc->ch, psenc->chlen);
    *nresult = psenc->chlen;
    /* _citrus_GBK2K_init_state(ei, psenc); */
    psenc->chlen = 0;

    return (0);

err:
    *nresult = (size_t)-1;
    return (ret);
}

static __inline int
/*ARGSUSED*/
_citrus_GBK2K_stdenc_wctocs(_GBK2KEncodingInfo * ei ,
    _citrus_csid_t * csid, _citrus_index_t * idx, _citrus_wc_t wc)
{
    uint8_t ch, cl;
    (void) ei;

    if ((uint32_t)wc < 0x80) {
        /* ISO646 */
        *csid = 0;
        *idx = (_citrus_index_t)wc;
    } else if ((uint32_t)wc >= 0x10000) {
        /* GBKUCS : XXX */
        *csid = 3;
        *idx = (_citrus_index_t)wc;
    } else {
        ch = (uint8_t)(wc >> 8);
        cl = (uint8_t)wc;
        if (ch >= 0xA1 && cl >= 0xA1) {
            /* EUC G1 */
            *csid = 1;
            *idx = (_citrus_index_t)wc & 0x7F7FU;
        } else {
            /* extended area (0x8140-) */
            *csid = 2;
            *idx = (_citrus_index_t)wc;
        }
    }

    return (0);
}

static __inline int
/*ARGSUSED*/
_citrus_GBK2K_stdenc_cstowc(_GBK2KEncodingInfo * ei,
    _citrus_wc_t * wc, _citrus_csid_t csid, _citrus_index_t idx)
{

    switch (csid) {
    case 0:
        /* ISO646 */
        *wc = (_citrus_wc_t)idx;
        break;
    case 1:
        /* EUC G1 */
        *wc = (_citrus_wc_t)idx | 0x8080U;
        break;
    case 2:
        /* extended area */
        *wc = (_citrus_wc_t)idx;
        break;
    case 3:
        /* GBKUCS : XXX */
        if (ei->mb_cur_max != 4)
            return (EINVAL);
        *wc = (_citrus_wc_t)idx;
        break;
    default:
        return (EILSEQ);
    }

    return (0);
}

static __inline int
/*ARGSUSED*/
_citrus_GBK2K_stdenc_get_state_desc_generic(_GBK2KEncodingInfo * ei ,
    _GBK2KState * psenc, int * rstate)
{
    (void) ei;
    *rstate = (psenc->chlen == 0) ? _CITRUS_STDENC_SDGEN_INITIAL :
        _CITRUS_STDENC_SDGEN_INCOMPLETE_CHAR;
    return (0);
}

static int
/*ARGSUSED*/
_citrus_GBK2K_encoding_module_init(_GBK2KEncodingInfo * ei,
    const void * var, size_t lenvar)
{
    const char *p;

    p = var;
    memset((void *)ei, 0, sizeof(*ei));
    ei->mb_cur_max = 4;
    while (lenvar > 0) {
        switch (_citrus_bcs_tolower(*p)) {
        case '2':
            MATCH("2byte", ei->mb_cur_max = 2);
            break;
        }
        p++;
        lenvar--;
    }

    return (0);
}

static void
/*ARGSUSED*/
_citrus_GBK2K_encoding_module_uninit(_GBK2KEncodingInfo *ei )
{
    (void) ei;
}

/* ----------------------------------------------------------------------
 * public interface for stdenc
 */

_CITRUS_STDENC_DECLS(GBK2K);
_CITRUS_STDENC_DEF_OPS(GBK2K);

#include "citrus_stdenc_template.h"