Annotation of embedaddon/php/ext/mbstring/libmbfl/filters/mbfilter_iso2022jp_2004.c, revision 1.1.1.1
1.1 misho 1: /*
2: * "streamable kanji code filter and converter"
3: * Copyright (c) 1998-2002 HappySize, Inc. All rights reserved.
4: *
5: * LICENSE NOTICES
6: *
7: * This file is part of "streamable kanji code filter and converter",
8: * which is distributed under the terms of GNU Lesser General Public
9: * License (version 2) as published by the Free Software Foundation.
10: *
11: * This software is distributed in the hope that it will be useful,
12: * but WITHOUT ANY WARRANTY; without even the implied warranty of
13: * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14: * GNU Lesser General Public License for more details.
15: *
16: * You should have received a copy of the GNU Lesser General Public
17: * License along with "streamable kanji code filter and converter";
18: * if not, write to the Free Software Foundation, Inc., 59 Temple Place,
19: * Suite 330, Boston, MA 02111-1307 USA
20: *
21: * The author of this file:
22: *
23: */
24: /*
25: * The source code included in this files was separated from mbfilter_jis.c
26: * by rui hirokawa <hirokawa@php.net> on 18 aug 2011.
27: *
28: */
29:
30: #ifdef HAVE_CONFIG_H
31: #include "config.h"
32: #endif
33:
34: #include "mbfilter.h"
35: #include "mbfilter_iso2022jp_2004.h"
36: #include "mbfilter_sjis_2004.h"
37:
38: #include "unicode_table_jis2004.h"
39: #include "unicode_table_jis.h"
40:
41: extern int mbfl_filt_conv_any_jis_flush(mbfl_convert_filter *filter);
42: static int mbfl_filt_ident_2022jp_2004(int c, mbfl_identify_filter *filter);
43:
44: const mbfl_encoding mbfl_encoding_2022jp_2004 = {
45: mbfl_no_encoding_2022jp_2004,
46: "ISO-2022-JP-2004",
47: "ISO-2022-JP-2004",
48: NULL,
49: NULL,
50: MBFL_ENCTYPE_MBCS | MBFL_ENCTYPE_SHFTCODE | MBFL_ENCTYPE_GL_UNSAFE
51: };
52:
53: const struct mbfl_identify_vtbl vtbl_identify_2022jp_2004 = {
54: mbfl_no_encoding_2022jp_2004,
55: mbfl_filt_ident_common_ctor,
56: mbfl_filt_ident_common_dtor,
57: mbfl_filt_ident_2022jp_2004
58: };
59:
60: const struct mbfl_convert_vtbl vtbl_2022jp_2004_wchar = {
61: mbfl_no_encoding_2022jp_2004,
62: mbfl_no_encoding_wchar,
63: mbfl_filt_conv_common_ctor,
64: mbfl_filt_conv_common_dtor,
65: mbfl_filt_conv_jis2004_wchar,
66: mbfl_filt_conv_common_flush
67: };
68:
69: const struct mbfl_convert_vtbl vtbl_wchar_2022jp_2004 = {
70: mbfl_no_encoding_wchar,
71: mbfl_no_encoding_2022jp_2004,
72: mbfl_filt_conv_common_ctor,
73: mbfl_filt_conv_common_dtor,
74: mbfl_filt_conv_wchar_jis2004,
75: mbfl_filt_conv_jis2004_flush
76: };
77:
78: static int mbfl_filt_ident_2022jp_2004(int c, mbfl_identify_filter *filter)
79: {
80: retry:
81: switch (filter->status & 0xf) {
82: /* case 0x00: ASCII */
83: /* case 0x80: X 0212 */
84: /* case 0x90: X 0213 plane 1 */
85: /* case 0xa0: X 0213 plane 2 */
86: case 0:
87: if (c == 0x1b) {
88: filter->status += 2;
89: } else if (filter->status == 0x80 && c > 0x20 && c < 0x7f) { /* kanji first char */
90: filter->status += 1;
91: } else if (c >= 0 && c < 0x80) { /* latin, CTLs */
92: ;
93: } else {
94: filter->flag = 1; /* bad */
95: }
96: break;
97:
98: /* case 0x81: X 0208 second char */
99: case 1:
100: if (c == 0x1b) {
101: filter->status++;
102: } else {
103: filter->status &= ~0xf;
104: if (c < 0x21 || c > 0x7e) { /* bad */
105: filter->flag = 1;
106: }
107: }
108: break;
109:
110: /* ESC */
111: case 2:
112: if (c == 0x24) { /* '$' */
113: filter->status++;
114: } else if (c == 0x28) { /* '(' */
115: filter->status += 3;
116: } else {
117: filter->flag = 1; /* bad */
118: filter->status &= ~0xf;
119: goto retry;
120: }
121: break;
122:
123: /* ESC $ */
124: case 3:
125: if (c == 0x42) { /* 'B' */
126: filter->status = 0x80;
127: } else if (c == 0x28) { /* '(' */
128: filter->status++;
129: } else {
130: filter->flag = 1; /* bad */
131: filter->status &= ~0xf;
132: goto retry;
133: }
134: break;
135:
136: /* ESC $ ( */
137: case 4:
138: if (c == 0x51) { /* JIS X 0213 plane 1 */
139: filter->status = 0x90;
140: } else if (c == 0x50) { /* JIS X 0213 plane 2 */
141: filter->status = 0xa0;
142: } else {
143: filter->flag = 1; /* bad */
144: filter->status &= ~0xf;
145: goto retry;
146: }
147: break;
148:
149: /* ESC ( */
150: case 5:
151: if (c == 0x42) { /* 'B' */
152: filter->status = 0;
153: } else {
154: filter->flag = 1; /* bad */
155: filter->status &= ~0xf;
156: goto retry;
157: }
158: break;
159:
160: default:
161: filter->status = 0;
162: break;
163: }
164:
165: return c;
166: }
167:
168:
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>