File Coverage

eucjp.c

Criterion	Covered	Total	%
statement	47	93	50.5
branch	38	130	29.2
condition			n/a
subroutine			n/a
pod			n/a
total	85	223	38.1

#include "Japanese.h"
#include "sjis.h"

#ifdef TEST
#define DISP_E2S 0
#define DISP_S2E 0
#endif

/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
/* sjis=>eucjpÊÑ´¹ */
EXTERN_C
SV*
xs_sjis_eucjp(SV* sv_str)
{
  unsigned char* src;
  STRLEN len;
  SV_Buf result;
  const unsigned char* src_end;

  if( sv_str==&PL_sv_undef )
  {
    return newSVsv(&PL_sv_undef);
  }
  if( SvGMAGICAL(sv_str) )
  {
    mg_get(sv_str);
  }
  if( !SvOK(sv_str) )
  {
    return newSVsv(&PL_sv_undef);
  }

  src = (unsigned char*)SvPV(sv_str, len);
  /*fprintf(stderr,"Unicode::Japanese::(xs)sjis_eucjp\n",len); */
  /*bin_dump("in ",src,len); */
  if( len == 0 )
  {
    return newSVsv(&PL_sv_undef);
  }
  SV_Buf_init(&result,len);
  src_end = src+len;

  while( src
  {
    switch(chk_sjis[*src])
    {
    case CHK_SJIS_THROUGH:
      {
	const unsigned char* start = src;
	while( ++src
	SV_Buf_append_mem(&result,start,src-start);
	continue;
      }
    case CHK_SJIS_C:
      {
	if( src+2-1
	{
	  union {
	    UJ_UINT16 u16_val;
	    UJ_UINT8  u8_val[2];
	  } tmp;
	  if( 0x9f <= src[1] )
	  {
	    tmp.u8_val[0] = src[0]*2 - (src[0]>=0xe0 ? 0xe0 : 0x60);
	    tmp.u8_val[1] = src[1] + 2;
	  }else
	  {
	    tmp.u8_val[0] = src[0]*2 - (src[0]>=0xe0 ? 0xe1 : 0x61);
	    tmp.u8_val[1] = src[1] + 0x60 + (src[1] < 0x7f);
	  }
	  SV_Buf_append_ch2(&result, tmp.u16_val);
	  src += 2;
	  continue;
	}
	break;
      }
    case CHK_SJIS_KANA:
      {
	union {
	  UJ_UINT16 u16_val;
	  UJ_UINT8  u8_val[2];
	} tmp;
	tmp.u8_val[0] = 0x8e;
	tmp.u8_val[1] = src[0];
	SV_Buf_append_ch2(&result, tmp.u16_val);
	++src;
	continue;
      }
    default:
      {
#ifdef TEST
    fprintf(stderr,"xs_sjis_eucjp: invalid value [%02x] at chk_sjis[%05x]\n",chk_sjis[*src],*src);
#endif
	SV_Buf_append_ch(&result,*src);
	++src;
      }
    } /*switch */

    /* invalid char */
    SV_Buf_append_ch(&result,*src);
    ++src;

  } /*while */

  /*bin_dump("out",result.getBegin(),result.getLength()); */
  SV_Buf_setLength(&result);

  return SV_Buf_getSv(&result);
}

/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
/* eucjp=>sjisÊÑ´¹Ê¸»úȽÄê */
/* 1:EUCJP:0212, 3:EUCJP:C 4:EUCJP:KANA */
#define CHK_EUCJP_THROUGH 0
#define CHK_EUCJP_0212    1
#define CHK_EUCJP_C       3
#define CHK_EUCJP_KANA    4
static const unsigned char chk_eucjp[256] =
{
     0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0, /* 0 */
     0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0, /* 1 */
     0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0, /* 2 */
     0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0, /* 3 */
     0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0, /* 4 */
     0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0, /* 5 */
     0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0, /* 6 */
     0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0, /* 7 */
     0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  4,  1, /* 8 */
     0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0, /* 9 */
     0,  3,  3,  3,  3,  3,  3,  3,  3,  3,  3,  3,  3,  3,  3,  3, /* a */
     3,  3,  3,  3,  3,  3,  3,  3,  3,  3,  3,  3,  3,  3,  3,  3, /* b */
     3,  3,  3,  3,  3,  3,  3,  3,  3,  3,  3,  3,  3,  3,  3,  3, /* c */
     3,  3,  3,  3,  3,  3,  3,  3,  3,  3,  3,  3,  3,  3,  3,  3, /* d */
     3,  3,  3,  3,  3,  3,  3,  3,  3,  3,  3,  3,  3,  3,  3,  3, /* e */
     3,  3,  3,  3,  3,  3,  3,  3,  3,  3,  3,  3,  3,  3,  3,  0, /* f */
};

/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
/* eucjp=>sjisÊÑ´¹ */
EXTERN_C
SV*
xs_eucjp_sjis(SV* sv_str)
{
  unsigned char* src;
  STRLEN len;
  SV_Buf result;
  const unsigned char* src_end;

  if( sv_str==&PL_sv_undef )
  {
    return newSVsv(&PL_sv_undef);
  }
  if( SvGMAGICAL(sv_str) )
  {
    mg_get(sv_str);
  }
  if( !SvOK(sv_str) )
  {
    return newSVsv(&PL_sv_undef);
  }

  src = (unsigned char*)SvPV(sv_str, len);
#if DISP_E2S
  fprintf(stderr,"Unicode::Japanese::(xs)eucjp_sjis\n",len);
  bin_dump("in ",src,len);
#endif
  SV_Buf_init(&result,len);
  src_end = src+len;

  while( src
  {
    switch(chk_eucjp[*src])
    {
    case CHK_EUCJP_THROUGH:
      {
	const unsigned char* start = src;
	while( ++src
	SV_Buf_append_mem(&result,start,src-start);
	continue;
      }
    case CHK_EUCJP_0212:
      {
	if( src+3-1
	{
	  SV_Buf_append_mem(&result,UNDEF_SJIS,UNDEF_SJIS_LEN);
	  src += 3;
	  continue;
	}
	break;
      }
    case CHK_EUCJP_C:
      {
	if( src+2-1
	{
	  union {
	    UJ_UINT16 u16_val;
	    UJ_UINT8  u8_val[2];
	  } tmp;
	  if( src[0]%2 )
	  {
	    tmp.u8_val[0] = (src[0]>>1) + (src[0] < 0xdf ? 0x31 : 0x71);
	    tmp.u8_val[1] = src[1] - ( 0x60 + (src[1] < 0xe0) );
	  }else
	  {
	    tmp.u8_val[0] = (src[0]>>1) + (src[0] < 0xdf ? 0x30 : 0x70);
	    tmp.u8_val[1] = src[1] - 2;
	  }
	  SV_Buf_append_ch2(&result, tmp.u16_val);
	  src += 2;
	  continue;
	}
	break;
      }
    case CHK_EUCJP_KANA:
      {
	if( src+2-1
	{
	  SV_Buf_append_ch(&result,src[1]);
	  src += 2;
	  continue;
	}
	break;
      }
    default:
      {
#ifdef TEST
	fprintf(stderr,"xs_eucjp_sjis, invalid value [%02x] at chk_sjis[%05x]\n",chk_sjis[*src],*src);
#endif
      }
    } /*switch */

    /* invalid char */
    SV_Buf_append_ch(&result,*src);
    ++src;
  } /*while */

#if DISP_E2S
  bin_dump("out",result.getBegin(),result.getLength());
#endif

  SV_Buf_setLength(&result);

  return SV_Buf_getSv(&result);
}