comparison src/coding.c @ 24344:8b7ef7fb9e2e

(Fdecode_sjis_char): In case of error, use %x for formatting error message. (Fdecode_big5_char): Likewise.
author Kenichi Handa <handa@m17n.org>
date Thu, 18 Feb 1999 12:52:07 +0000
parents 2eec590faf26
children 61c6b3be1d51
comparison
equal deleted inserted replaced
24343:d00b069a7d17 24344:8b7ef7fb9e2e
5038 XSETFASTINT (val, s2); 5038 XSETFASTINT (val, s2);
5039 else if (s2 >= 0xA0 || s2 <= 0xDF) 5039 else if (s2 >= 0xA0 || s2 <= 0xDF)
5040 XSETFASTINT (val, 5040 XSETFASTINT (val,
5041 MAKE_NON_ASCII_CHAR (charset_katakana_jisx0201, s2, 0)); 5041 MAKE_NON_ASCII_CHAR (charset_katakana_jisx0201, s2, 0));
5042 else 5042 else
5043 error ("Invalid Shift JIS code: %d", XFASTINT (code)); 5043 error ("Invalid Shift JIS code: %x", XFASTINT (code));
5044 } 5044 }
5045 else 5045 else
5046 { 5046 {
5047 if ((s1 < 0x80 || s1 > 0x9F && s1 < 0xE0 || s1 > 0xEF) 5047 if ((s1 < 0x80 || s1 > 0x9F && s1 < 0xE0 || s1 > 0xEF)
5048 || (s2 < 0x40 || s2 == 0x7F || s2 > 0xFC)) 5048 || (s2 < 0x40 || s2 == 0x7F || s2 > 0xFC))
5049 error ("Invalid Shift JIS code: %d", XFASTINT (code)); 5049 error ("Invalid Shift JIS code: %x", XFASTINT (code));
5050 DECODE_SJIS (s1, s2, c1, c2); 5050 DECODE_SJIS (s1, s2, c1, c2);
5051 XSETFASTINT (val, MAKE_NON_ASCII_CHAR (charset_jisx0208, c1, c2)); 5051 XSETFASTINT (val, MAKE_NON_ASCII_CHAR (charset_jisx0208, c1, c2));
5052 } 5052 }
5053 return val; 5053 return val;
5054 } 5054 }
5097 CHECK_NUMBER (code, 0); 5097 CHECK_NUMBER (code, 0);
5098 b1 = (XFASTINT (code)) >> 8, b2 = (XFASTINT (code)) & 0xFF; 5098 b1 = (XFASTINT (code)) >> 8, b2 = (XFASTINT (code)) & 0xFF;
5099 if (b1 == 0) 5099 if (b1 == 0)
5100 { 5100 {
5101 if (b2 >= 0x80) 5101 if (b2 >= 0x80)
5102 error ("Invalid BIG5 code: %d", XFASTINT (code)); 5102 error ("Invalid BIG5 code: %x", XFASTINT (code));
5103 val = code; 5103 val = code;
5104 } 5104 }
5105 else 5105 else
5106 { 5106 {
5107 if ((b1 < 0xA1 || b1 > 0xFE) 5107 if ((b1 < 0xA1 || b1 > 0xFE)
5108 || (b2 < 0x40 || (b2 > 0x7E && b2 < 0xA1) || b2 > 0xFE)) 5108 || (b2 < 0x40 || (b2 > 0x7E && b2 < 0xA1) || b2 > 0xFE))
5109 error ("Invalid BIG5 code: %d", XFASTINT (code)); 5109 error ("Invalid BIG5 code: %x", XFASTINT (code));
5110 DECODE_BIG5 (b1, b2, charset, c1, c2); 5110 DECODE_BIG5 (b1, b2, charset, c1, c2);
5111 XSETFASTINT (val, MAKE_NON_ASCII_CHAR (charset, c1, c2)); 5111 XSETFASTINT (val, MAKE_NON_ASCII_CHAR (charset, c1, c2));
5112 } 5112 }
5113 return val; 5113 return val;
5114 } 5114 }