98 lines
2.2 KiB
Plaintext
98 lines
2.2 KiB
Plaintext
#include "transcode_data.h"
|
|
|
|
<%
|
|
map = {}
|
|
map["{00-7f}"] = :nomap
|
|
map["{a1-fe}{a1-fe}"] = :func_so
|
|
map["8e{a1-df}"] = :func_so
|
|
map["8e{e0-fe}"] = :undef
|
|
map["8f{a1-fe}{a1-fe}"] = :undef
|
|
transcode_generate_node(ActionMap.parse(map), "eucjp2sjis")
|
|
|
|
map = {}
|
|
map["{00-7f}"] = :nomap
|
|
map["{81-9f,e0-ef}{40-7e,80-fc}"] = :func_so
|
|
map["{f0-fc}{40-7e,80-fc}"] = :undef
|
|
map["{a1-df}"] = :func_so
|
|
transcode_generate_node(ActionMap.parse(map), "sjis2eucjp")
|
|
%>
|
|
|
|
<%= transcode_generated_code %>
|
|
|
|
static ssize_t
|
|
fun_so_eucjp2sjis(void *statep, const unsigned char *s, size_t l, unsigned char *o, size_t osize)
|
|
{
|
|
if (s[0] == 0x8e) {
|
|
o[0] = s[1];
|
|
return 1;
|
|
}
|
|
else {
|
|
int h, m, l;
|
|
m = s[0] & 1;
|
|
h = (s[0]+m) >> 1;
|
|
h += s[0] < 0xdf ? 0x30 : 0x70;
|
|
l = s[1] - m * 94 - 3;
|
|
if (0x7f <= l)
|
|
l++;
|
|
o[0] = h;
|
|
o[1] = l;
|
|
return 2;
|
|
}
|
|
}
|
|
|
|
static ssize_t
|
|
fun_so_sjis2eucjp(void *statep, const unsigned char *s, size_t l, unsigned char *o, size_t osize)
|
|
{
|
|
if (l == 1) {
|
|
o[0] = '\x8e';
|
|
o[1] = s[0];
|
|
return 2;
|
|
}
|
|
else {
|
|
int h, l;
|
|
h = s[0];
|
|
l = s[1];
|
|
if (0xe0 <= h)
|
|
h -= 64;
|
|
l += l < 0x80 ? 0x61 : 0x60;
|
|
h = h * 2 - 0x61;
|
|
if (0xfe < l) {
|
|
l -= 94;
|
|
h += 1;
|
|
}
|
|
o[0] = h;
|
|
o[1] = l;
|
|
return 2;
|
|
}
|
|
}
|
|
|
|
static const rb_transcoder
|
|
rb_eucjp2sjis = {
|
|
"EUC-JP", "Shift_JIS", eucjp2sjis,
|
|
TRANSCODE_TABLE_INFO,
|
|
1, /* input_unit_length */
|
|
3, /* max_input */
|
|
2, /* max_output */
|
|
asciicompat_converter, /* asciicompat_type */
|
|
0, NULL, NULL, /* state_size, state_init, state_fini */
|
|
NULL, NULL, NULL, fun_so_eucjp2sjis
|
|
};
|
|
|
|
static const rb_transcoder
|
|
rb_sjis2eucjp = {
|
|
"Shift_JIS", "EUC-JP", sjis2eucjp,
|
|
TRANSCODE_TABLE_INFO,
|
|
1, /* input_unit_length */
|
|
2, /* max_input */
|
|
2, /* max_output */
|
|
asciicompat_converter, /* asciicompat_type */
|
|
0, NULL, NULL, /* state_size, state_init, state_fini */
|
|
NULL, NULL, NULL, fun_so_sjis2eucjp
|
|
};
|
|
|
|
TRANS_INIT(japanese)
|
|
{
|
|
rb_register_transcoder(&rb_eucjp2sjis);
|
|
rb_register_transcoder(&rb_sjis2eucjp);
|
|
}
|