1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
|
/* ----------------------------------------------------------------------------
* getcode.c
* ----------------------------------------------------------------------------
* Mastering programmed by YAMASHINA Hio
*
* Copyright 2008 YAMASHINA Hio
* ----------------------------------------------------------------------------
* $Id$
* ------------------------------------------------------------------------- */
#include "unijp.h"
#include "unijp_build.h"
#include "xs_compat.h"
#define map_ascii _uj_xs_map_ascii
#define map_eucjp _uj_xs_map_eucjp
#define map_sjis _uj_xs_map_sjis
#define map_utf8 _uj_xs_map_utf8
#define map_jis _uj_xs_map_jis
#define map_jis_au _uj_xs_map_jis_au
#define map_jis_jsky _uj_xs_map_jis_jsky
#define map_utf32_be _uj_xs_map_utf32_be
#define map_utf32_le _uj_xs_map_utf32_le
#define map_sjis_jsky _uj_xs_map_sjis_jsky
#define map_sjis_imode _uj_xs_map_sjis_imode
#define map_sjis_doti _uj_xs_map_sjis_doti
#define map_sjis_au _uj_xs_map_sjis_au
#define _is_acceptable_state _uj_xs__is_acceptable_state
#define cc_tmpl _uj_xs_cc_tmpl
#define getcode_list _uj_xs_getcode_list
#define NO_XSUBS
#include "../getcode.c"
/* ----------------------------------------------------------------------------
: uj_getcode(str, len).
+--------------------------------------------------------------------------- */
uj_charcode_t uj_getcode(const uj_uint8* str, uj_size_t len)
{
uj_conv_t conv;
int matches;
CodeCheck check[cc_tmpl_max];
_uj_conv_set_const(&conv, _uj_default_alloc, str, len);
matches = getcode_list(&conv, check);
if( matches>0 )
{
int index = 0;
#if TEST && GC_DISP
fprintf(stderr,"<selected>\n");
fprintf(stderr," %d of 0..%d\n",index,matches-1);
fprintf(stderr," %s\n",charcodeToStr(check[index].code));
#endif
switch(check[index].code)
{
case cc_unknown: return ujc_undefined;
case cc_ascii: return ujc_ascii;
case cc_sjis: return ujc_sjis;
case cc_eucjp: return ujc_eucjp;
case cc_jis: return ujc_jis;
// case cc_jis_au: return ujc_jis_au;
// case cc_jis_jsky: return ujc_jis_jsky;
case cc_utf8: return ujc_utf8;
// case cc_utf16: return ujc_utf16;
// case cc_utf32: return ujc_utf32;
// case cc_utf32_be: return ujc_utf32_be;
// case cc_utf32_le: return ujc_utf32_le;
// case cc_sjis_jsky: return ujc_sjis_jsky;
// case cc_sjis_imode: return ujc_sjis_imode;
// case cc_sjis_doti: return ujc_sjis_doti;
// case cc_sjis_au: return ujc_sjis_au;
default: return ujc_undefined;
}
}else
{
return ujc_undefined;
}
}
#if 0
/* getcode_list関数 */
int xs_getcode_list(SV* sv_str)
{
int matches;
CodeCheck check[cc_tmpl_max];
int i;
dSP; dMARK; dAX; /* XSARGS; - items */
if( sv_str==&PL_sv_undef )
{
return 0;
}
matches = getcode_list(sv_str, check);
if( matches<=0 )
{
return 0;
}
EXTEND(SP, matches);
for( i=0; i<matches; ++i )
{
switch(check[i].code)
{
case cc_unknown: ST(i) = sv_2mortal( new_CC_UNKNOWN() ); break;
case cc_ascii: ST(i) = sv_2mortal( new_CC_ASCII() ); break;
case cc_sjis: ST(i) = sv_2mortal( new_CC_SJIS() ); break;
case cc_eucjp: ST(i) = sv_2mortal( new_CC_EUCJP() ); break;
case cc_jis: ST(i) = sv_2mortal( new_CC_JIS() ); break;
case cc_jis_au: ST(i) = sv_2mortal( new_CC_JIS_AU() ); break;
case cc_jis_jsky: ST(i) = sv_2mortal( new_CC_JIS_JSKY() ); break;
case cc_utf8: ST(i) = sv_2mortal( new_CC_UTF8() ); break;
case cc_utf16: ST(i) = sv_2mortal( new_CC_UTF16() ); break;
case cc_utf32: ST(i) = sv_2mortal( new_CC_UTF32() ); break;
case cc_utf32_be: ST(i) = sv_2mortal( new_CC_UTF32_BE() ); break;
case cc_utf32_le: ST(i) = sv_2mortal( new_CC_UTF32_LE() ); break;
case cc_sjis_jsky: ST(i) = sv_2mortal( new_CC_SJIS_JSKY() ); break;
case cc_sjis_imode: ST(i) = sv_2mortal( new_CC_SJIS_IMODE() ); break;
case cc_sjis_doti: ST(i) = sv_2mortal( new_CC_SJIS_DOTI() ); break;
default: ST(i) = sv_2mortal( new_CC_UNKNOWN() ); break;
}
}
return matches;
}
#endif
/* ----------------------------------------------------------------------------
* End of File.
* ------------------------------------------------------------------------- */
|
