File Coverage

Japanese.xs

Criterion	Covered	Total	%
statement	25	26	96.1
branch	2	2	100.0
condition			n/a
subroutine			n/a
pod			n/a
total	27	28	96.4

line	stmt	bran	code
1
2			/* $Id: Japanese.xs 41491 2008-02-15 07:21:13Z hio $ */
3
4			#include "Japanese.h"
5
6			EXTERN_C SV* test(SV* str);
7
8
9			MODULE = Unicode::Japanese PACKAGE = Unicode::Japanese
10			PROTOTYPES: DISABLE
11
12			int
13			__SvOK(sv)
14			SV* sv;
15			CODE:
16	3	100	RETVAL = SvOK(sv);
17			OUTPUT:
18			RETVAL
19
20			#========================#
21			# SJIS <=> utf8 #
22			#========================#
23
24			SV*
25			_s2u(this_,str)
26			SV* str;
27			CODE:
28	24		RETVAL = xs_sjis_utf8(str);
29			OUTPUT:
30			RETVAL
31
32			SV*
33			_u2s(this_,str)
34			SV* str;
35			CODE:
36	117		RETVAL = xs_utf8_sjis(str);
37			OUTPUT:
38			RETVAL
39
40			#========================#
41			# getcode #
42			#========================#
43
44			SV*
45			getcode(this_,str)
46			SV* str;
47			CODE:
48	100		RETVAL = xs_getcode(str);
49			OUTPUT:
50			RETVAL
51
52			#========================#
53			# getcode_list #
54			#========================#
55
56			void
57			getcode_list(this_,str)
58			SV* str;
59			CODE:
60	0		XSRETURN(xs_getcode_list(str));
61
62			#=======================#
63			# utf-8 validation #
64			#=======================#
65
66			SV*
67			_validate_utf8(this_,str)
68			SV* str;
69			CODE:
70	2676		RETVAL = xs_validate_utf8(str);
71			OUTPUT:
72			RETVAL
73
74			#========================#
75			# SJIS <=> EUCJP #
76			#========================#
77
78			SV*
79			_s2e(this_,str)
80			SV* str;
81			CODE:
82	2		RETVAL = xs_sjis_eucjp(str);
83			OUTPUT:
84			RETVAL
85
86			SV*
87			_e2s(this_,str)
88			SV* str;
89			CODE:
90	1		RETVAL = xs_eucjp_sjis(str);
91			OUTPUT:
92			RETVAL
93
94			#========================#
95			# SJIS <=> JIS #
96			#========================#
97
98			SV*
99			_s2j(this_,str)
100			SV* str;
101			CODE:
102	64		RETVAL = xs_sjis_jis(str);
103			OUTPUT:
104			RETVAL
105
106			SV*
107			_j2s(this_,str)
108			SV* str;
109			CODE:
110	29		RETVAL = xs_jis_sjis(str);
111			OUTPUT:
112			RETVAL
113
114
115			#========================#
116			# SJIS(i-mode) <=> UTF8 #
117			#========================#
118
119			SV*
120			_si2u1(this_,str)
121			SV* str;
122			CODE:
123	257		RETVAL = xs_sjis_imode1_utf8(str);
124			OUTPUT:
125			RETVAL
126
127			SV*
128			_si2u2(this_,str)
129			SV* str;
130			CODE:
131	262		RETVAL = xs_sjis_imode2_utf8(str);
132			OUTPUT:
133			RETVAL
134
135			SV*
136			_u2si1(this_,str)
137			SV* str;
138			CODE:
139	28		RETVAL = xs_utf8_sjis_imode1(str);
140			OUTPUT:
141			RETVAL
142
143			SV*
144			_u2si2(this_,str)
145			SV* str;
146			CODE:
147	35		RETVAL = xs_utf8_sjis_imode2(str);
148			OUTPUT:
149			RETVAL
150
151			#========================#
152			# SJIS(j-sky) <=> UTF8 #
153			#========================#
154
155			SV*
156			_sj2u1(this_,str)
157			SV* str;
158			CODE:
159	7		RETVAL = xs_sjis_jsky1_utf8(str);
160			OUTPUT:
161			RETVAL
162
163			SV*
164			_sj2u2(this_,str)
165			SV* str;
166			CODE:
167	40		RETVAL = xs_sjis_jsky2_utf8(str);
168			OUTPUT:
169			RETVAL
170
171			SV*
172			_u2sj1(this_,str)
173			SV* str;
174			CODE:
175	29		RETVAL = xs_utf8_sjis_jsky1(str);
176			OUTPUT:
177			RETVAL
178
179			SV*
180			_u2sj2(this_,str)
181			SV* str;
182			CODE:
183	37		RETVAL = xs_utf8_sjis_jsky2(str);
184			OUTPUT:
185			RETVAL
186
187			#========================#
188			# SJIS(dot-i) <=> UTF8 #
189			#========================#
190
191			SV*
192			_sd2u(this_,str)
193			SV* str;
194			CODE:
195	8		RETVAL = xs_sjis_doti_utf8(str);
196			OUTPUT:
197			RETVAL
198
199			SV*
200			_u2sd(this_,str)
201			SV* str;
202			CODE:
203	30		RETVAL = xs_utf8_sjis_doti(str);
204			OUTPUT:
205			RETVAL
206
207			#========================#
208			# ucs2 <=> utf8 #
209			#========================#
210
211			SV*
212			_ucs2_utf8(this_,str)
213			SV* str;
214			CODE:
215	541		RETVAL = xs_ucs2_utf8(str);
216			OUTPUT:
217			RETVAL
218
219			SV*
220			_utf8_ucs2(this_,str)
221			SV* str;
222			CODE:
223	35		RETVAL = xs_utf8_ucs2(str);
224			OUTPUT:
225			RETVAL
226
227			#========================#
228			# ucs4 <=> utf8 #
229			#========================#
230
231			SV*
232			_ucs4_utf8(this_,str)
233			SV* str;
234			CODE:
235	4		RETVAL = xs_ucs4_utf8(str);
236			OUTPUT:
237			RETVAL
238
239			SV*
240			_utf8_ucs4(this_,str)
241			SV* str;
242			CODE:
243	41		RETVAL = xs_utf8_ucs4(str);
244			OUTPUT:
245			RETVAL
246
247			#========================#
248			# utf-16 <=> utf-8 #
249			#========================#
250
251			SV*
252			_utf16_utf8(this_,str)
253			SV* str;
254			CODE:
255	5		RETVAL = xs_utf16_utf8(str);
256			OUTPUT:
257			RETVAL
258
259			SV*
260			_utf8_utf16(this_,str)
261			SV* str;
262			CODE:
263	6		RETVAL = xs_utf8_utf16(str);
264			OUTPUT:
265			RETVAL
266
267			#=======================#
268			# memory mapped file #
269			#=======================#
270
271			void
272			do_memmap()
273
274			void
275			do_memunmap()