comparison src/coding.c @ 17320:9d15bec5f47e

(detect_coding_iso2022, detect_coding_mask): Ignore invalid ESC sequence for ISO 2022. (Fencode_sjis_char, Fencode_big5_char): Adjusted for the change of SPLIT_CHAR.

17319:a58d6ceeb370

int
detect_coding_iso2022 (src, src_end)
     unsigned char *src, *src_end;
{
  unsigned char c, g1 = 0;
  int mask = (CODING_CATEGORY_MASK_ISO_7
	      | CODING_CATEGORY_MASK_ISO_8_1
	      | CODING_CATEGORY_MASK_ISO_8_2);
  /* We may look ahead at most 4 bytes.  */
  unsigned char *adjusted_src_end = src_end - 4;
  int i;

  while (src < src_end)
    {
      c = *src++;
      switch (c)
	{
	case ISO_CODE_ESC:
	  if (src >= src_end)
	    break;
	  c = *src++;
	  if (src + 2 >= src_end
	      && ((c >= '(' && c <= '/')
		  || c == '$' && ((*src >= '(' && *src <= '/')
				  || (*src >= '@' && *src <= 'B'))))
	    {
	      /* Valid designation sequence.  */
	      if (c == ')' || (c == '$' && *src == ')'))
		g1 = 1;
	      src++;
	      break;
	    }
	  else if (c == 'N' || c == 'O' || c == 'n' || c == 'o')
	    return CODING_CATEGORY_MASK_ISO_ELSE;

  unsigned char *src_end = src + src_bytes;
  int mask;

  /* At first, skip all ASCII characters and control characters except
     for three ISO2022 specific control characters.  */
  while (src < src_end)
    {
      c = *src;
      if (c >= 0x80
	  || (c == ISO_CODE_ESC || c == ISO_CODE_SI || c == ISO_CODE_SO))

    return CODING_CATEGORY_MASK_ANY;

  /* The text seems to be encoded in some multilingual coding system.
     Now, try to find in which coding system the text is encoded.  */
  if (c < 0x80)
    /* i.e. (c == ISO_CODE_ESC || c == ISO_CODE_SI || c == ISO_CODE_SO) */
    /* C is an ISO2022 specific control code of C0.  */
    mask = detect_coding_iso2022 (src, src_end);

  else if (c == ISO_CODE_SS2 || c == ISO_CODE_SS3 || c == ISO_CODE_CSI)
    /* C is an ISO2022 specific control code of C1,
       or the first byte of SJIS's 2-byte character code,
       or a leading code of Emacs.  */
    mask = (detect_coding_iso2022 (src, src_end)

  "Encode a JISX0208 character CHAR to SJIS coding-system.\n\
Return the corresponding character code in SJIS.")
  (ch)
     Lisp_Object ch;
{
  int charset;
  unsigned char c1, c2, s1, s2;
  Lisp_Object val;

  CHECK_NUMBER (ch, 0);
  SPLIT_CHAR (XFASTINT (ch), charset, c1, c2);
  if (charset == charset_jisx0208)
    {
      ENCODE_SJIS (c1, c2, s1, s2);
      XSETFASTINT (val, ((int)s1 << 8) | s2);
    }
  else
    XSETFASTINT (val, 0);
  return val;
}

  "Encode the Big5 character CHAR to BIG5 coding-system.\n\
Return the corresponding character code in Big5.")
  (ch)
     Lisp_Object ch;
{
  int charset;
  unsigned char c1, c2, b1, b2;
  Lisp_Object val;

  CHECK_NUMBER (ch, 0);
  SPLIT_CHAR (XFASTINT (ch), charset, c1, c2);
  if (charset == charset_big5_1 || charset == charset_big5_2)
    {
      ENCODE_BIG5 (charset, c1, c2, b1, b2);
      XSETFASTINT (val, ((int)b1 << 8) | b2);
    }
  else
    XSETFASTINT (val, 0);
  return val;
}

17320:9d15bec5f47e

int
detect_coding_iso2022 (src, src_end)
     unsigned char *src, *src_end;
{
  int mask = CODING_CATEGORY_MASK_ANY;
  int g1 = 0;			/* 1 iff designating to G1.  */
  int c, i;

  while (src < src_end)
    {
      c = *src++;
      switch (c)
	{
	case ISO_CODE_ESC:
	  if (src >= src_end)
	    break;
	  c = *src++;
	  if (src < src_end
	      && ((c >= '(' && c <= '/')
		  || c == '$' && ((*src >= '(' && *src <= '/')
				  || (*src >= '@' && *src <= 'B'))))
	    {
	      /* Valid designation sequence.  */
	      mask &= (CODING_CATEGORY_MASK_ISO_7
		       | CODING_CATEGORY_MASK_ISO_8_1
		       | CODING_CATEGORY_MASK_ISO_8_2
		       | CODING_CATEGORY_MASK_ISO_ELSE);
	      if (c == ')' || (c == '$' && *src == ')'))
		{
		  g1 = 1;
		  mask &= ~CODING_CATEGORY_MASK_ISO_7;
		}
	      src++;
	      break;
	    }
	  else if (c == 'N' || c == 'O' || c == 'n' || c == 'o')
	    return CODING_CATEGORY_MASK_ISO_ELSE;

  unsigned char *src_end = src + src_bytes;
  int mask;

  /* At first, skip all ASCII characters and control characters except
     for three ISO2022 specific control characters.  */
 label_loop_detect_coding:
  while (src < src_end)
    {
      c = *src;
      if (c >= 0x80
	  || (c == ISO_CODE_ESC || c == ISO_CODE_SI || c == ISO_CODE_SO))

    return CODING_CATEGORY_MASK_ANY;

  /* The text seems to be encoded in some multilingual coding system.
     Now, try to find in which coding system the text is encoded.  */
  if (c < 0x80)
    {
      /* i.e. (c == ISO_CODE_ESC || c == ISO_CODE_SI || c == ISO_CODE_SO) */
      /* C is an ISO2022 specific control code of C0.  */
      mask = detect_coding_iso2022 (src, src_end);
      src++;
      if (mask == CODING_CATEGORY_MASK_ANY)
	/* No valid ISO2022 code follows C.  Try again.  */
	goto label_loop_detect_coding;
    }
  else if (c == ISO_CODE_SS2 || c == ISO_CODE_SS3 || c == ISO_CODE_CSI)
    /* C is an ISO2022 specific control code of C1,
       or the first byte of SJIS's 2-byte character code,
       or a leading code of Emacs.  */
    mask = (detect_coding_iso2022 (src, src_end)

  "Encode a JISX0208 character CHAR to SJIS coding-system.\n\
Return the corresponding character code in SJIS.")
  (ch)
     Lisp_Object ch;
{
  int charset, c1, c2, s1, s2;
  Lisp_Object val;

  CHECK_NUMBER (ch, 0);
  SPLIT_CHAR (XFASTINT (ch), charset, c1, c2);
  if (charset == charset_jisx0208)
    {
      ENCODE_SJIS (c1, c2, s1, s2);
      XSETFASTINT (val, (s1 << 8) | s2);
    }
  else
    XSETFASTINT (val, 0);
  return val;
}

  "Encode the Big5 character CHAR to BIG5 coding-system.\n\
Return the corresponding character code in Big5.")
  (ch)
     Lisp_Object ch;
{
  int charset, c1, c2, b1, b2;
  Lisp_Object val;

  CHECK_NUMBER (ch, 0);
  SPLIT_CHAR (XFASTINT (ch), charset, c1, c2);
  if (charset == charset_big5_1 || charset == charset_big5_2)
    {
      ENCODE_BIG5 (charset, c1, c2, b1, b2);
      XSETFASTINT (val, (b1 << 8) | b2);
    }
  else
    XSETFASTINT (val, 0);
  return val;
}