Subversion Repositories openrisc

/* Copyright (C) 1999  Free Software Foundation

   This file is part of libgcj.

This software is copyrighted work licensed under the terms of the

Libgcj License.  Please consult the file "LIBGCJ_LICENSE" for

details.  */

#include <config.h>

#include <gcj/cni.h>

#include <gnu/gcj/convert/Output_EUCJIS.h>

/* A trie structure to map unicode values to JIS codes.

 * code == -1: the character is undefined.

 * code >= 0 && code < 128:  JIS-Roman - mostly Ascii.

 * code >= 128 && code < 256:  Half-width Katakana.

 * code >= 256 && code < 0x8000:  JIS X 0208:1997.

 * code >= 0x8000 && code < 0xFFFF:  JIX X 0212-1990.

 */

extern unsigned short Unicode_to_JIS[];

int

trie_lookup (unsigned short *trie, unsigned short key)

{

  unsigned short branch = trie[(key >> 12) & 0xf];

  if (branch == 0)

    return -1;

  branch = trie[branch + ((key >> 8) & 0xf)];

  if (branch == 0)

    return -1;

  branch = trie[branch + ((key >> 4) & 0xf)];

  if (branch == 0)

    return -1;

  return trie[branch + (key & 0xf)];

}

static jint

convert_TO_EUCJIS (gnu::gcj::convert::Output_EUCJIS *encoder,

                          jchar *ptr, jint inlength)

{

  int orig_inlength = inlength;

  jint outbuf_length = encoder->buf->length;

  for (;;)

    {

      if (encoder->count >= outbuf_length)

        break;

      if (encoder->pending1 >= 0)

        {

          elements(encoder->buf)[encoder->count++] = encoder->pending1;

          encoder->pending1 = encoder->pending2;

          encoder->pending2 = -1;

          continue;

        }

      if (inlength == 0)

        break;

      jchar ch = *ptr++;

      inlength--;

      unsigned short val = trie_lookup(Unicode_to_JIS, ch);

      if (val < 0x80)

        {

          if (val == 0xffff)

            val = '?';

        }

      else if (val <= 0xFF)

        {

          encoder->pending1 = val;

          encoder->pending2 = -1;

          val = 0x8e;

        }

      else if (val < 0x8000)

        {

          val |= 0x8080;

          encoder->pending1 = val & 0xff;

          val = val >> 8;

          encoder->pending2 = -1;

        }

      else

        {

          val |= 0x8080;

          encoder->pending1 = val >> 8;

          encoder->pending2 = val & 0xff;

          val = 0x8f;

        }

      elements(encoder->buf)[encoder->count++] = val;

    }

  return orig_inlength - inlength;

}

jint

gnu::gcj::convert::Output_EUCJIS::write (jcharArray inbuffer,

                                         jint inpos, jint inlength)

{

  return convert_TO_EUCJIS(this, &elements(inbuffer)[inpos], inlength);

}

jint

gnu::gcj::convert::Output_EUCJIS::write (jstring str, jint inpos,

                                         jint inlength, jcharArray)

{

  return convert_TO_EUCJIS(this, _Jv_GetStringChars(str)+inpos, inlength);

}