Annotation of embedaddon/libiconv/lib/iso2022_jp1.h, revision 1.1
1.1 ! misho 1: /*
! 2: * Copyright (C) 1999-2001, 2008 Free Software Foundation, Inc.
! 3: * This file is part of the GNU LIBICONV Library.
! 4: *
! 5: * The GNU LIBICONV Library is free software; you can redistribute it
! 6: * and/or modify it under the terms of the GNU Library General Public
! 7: * License as published by the Free Software Foundation; either version 2
! 8: * of the License, or (at your option) any later version.
! 9: *
! 10: * The GNU LIBICONV Library is distributed in the hope that it will be
! 11: * useful, but WITHOUT ANY WARRANTY; without even the implied warranty of
! 12: * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
! 13: * Library General Public License for more details.
! 14: *
! 15: * You should have received a copy of the GNU Library General Public
! 16: * License along with the GNU LIBICONV Library; see the file COPYING.LIB.
! 17: * If not, write to the Free Software Foundation, Inc., 51 Franklin Street,
! 18: * Fifth Floor, Boston, MA 02110-1301, USA.
! 19: */
! 20:
! 21: /*
! 22: * ISO-2022-JP-1
! 23: */
! 24:
! 25: /* Specification: RFC 2237 */
! 26:
! 27: #define ESC 0x1b
! 28:
! 29: /*
! 30: * The state can be one of the following values.
! 31: */
! 32: #define STATE_ASCII 0
! 33: #define STATE_JISX0201ROMAN 1
! 34: #define STATE_JISX0208 2
! 35: #define STATE_JISX0212 3
! 36:
! 37: static int
! 38: iso2022_jp1_mbtowc (conv_t conv, ucs4_t *pwc, const unsigned char *s, int n)
! 39: {
! 40: state_t state = conv->istate;
! 41: int count = 0;
! 42: unsigned char c;
! 43: for (;;) {
! 44: c = *s;
! 45: if (c == ESC) {
! 46: if (n < count+3)
! 47: goto none;
! 48: if (s[1] == '(') {
! 49: if (s[2] == 'B') {
! 50: state = STATE_ASCII;
! 51: s += 3; count += 3;
! 52: if (n < count+1)
! 53: goto none;
! 54: continue;
! 55: }
! 56: if (s[2] == 'J') {
! 57: state = STATE_JISX0201ROMAN;
! 58: s += 3; count += 3;
! 59: if (n < count+1)
! 60: goto none;
! 61: continue;
! 62: }
! 63: goto ilseq;
! 64: }
! 65: if (s[1] == '$') {
! 66: if (s[2] == '@' || s[2] == 'B') {
! 67: /* We don't distinguish JIS X 0208-1978 and JIS X 0208-1983. */
! 68: state = STATE_JISX0208;
! 69: s += 3; count += 3;
! 70: if (n < count+1)
! 71: goto none;
! 72: continue;
! 73: }
! 74: if (s[2] == '(') {
! 75: if (n < count+4)
! 76: goto none;
! 77: if (s[3] == 'D') {
! 78: state = STATE_JISX0212;
! 79: s += 4; count += 4;
! 80: if (n < count+1)
! 81: goto none;
! 82: continue;
! 83: }
! 84: }
! 85: goto ilseq;
! 86: }
! 87: goto ilseq;
! 88: }
! 89: break;
! 90: }
! 91: switch (state) {
! 92: case STATE_ASCII:
! 93: if (c < 0x80) {
! 94: int ret = ascii_mbtowc(conv,pwc,s,1);
! 95: if (ret == RET_ILSEQ)
! 96: goto ilseq;
! 97: if (ret != 1) abort();
! 98: conv->istate = state;
! 99: return count+1;
! 100: } else
! 101: goto ilseq;
! 102: case STATE_JISX0201ROMAN:
! 103: if (c < 0x80) {
! 104: int ret = jisx0201_mbtowc(conv,pwc,s,1);
! 105: if (ret == RET_ILSEQ)
! 106: goto ilseq;
! 107: if (ret != 1) abort();
! 108: conv->istate = state;
! 109: return count+1;
! 110: } else
! 111: goto ilseq;
! 112: case STATE_JISX0208:
! 113: if (n < count+2)
! 114: goto none;
! 115: if (s[0] < 0x80 && s[1] < 0x80) {
! 116: int ret = jisx0208_mbtowc(conv,pwc,s,2);
! 117: if (ret == RET_ILSEQ)
! 118: goto ilseq;
! 119: if (ret != 2) abort();
! 120: conv->istate = state;
! 121: return count+2;
! 122: } else
! 123: goto ilseq;
! 124: case STATE_JISX0212:
! 125: if (n < count+2)
! 126: goto none;
! 127: if (s[0] < 0x80 && s[1] < 0x80) {
! 128: int ret = jisx0212_mbtowc(conv,pwc,s,2);
! 129: if (ret == RET_ILSEQ)
! 130: goto ilseq;
! 131: if (ret != 2) abort();
! 132: conv->istate = state;
! 133: return count+2;
! 134: } else
! 135: goto ilseq;
! 136: default: abort();
! 137: }
! 138:
! 139: none:
! 140: conv->istate = state;
! 141: return RET_TOOFEW(count);
! 142:
! 143: ilseq:
! 144: conv->istate = state;
! 145: return RET_SHIFT_ILSEQ(count);
! 146: }
! 147:
! 148: static int
! 149: iso2022_jp1_wctomb (conv_t conv, unsigned char *r, ucs4_t wc, int n)
! 150: {
! 151: state_t state = conv->ostate;
! 152: unsigned char buf[2];
! 153: int ret;
! 154:
! 155: /* Try ASCII. */
! 156: ret = ascii_wctomb(conv,buf,wc,1);
! 157: if (ret != RET_ILUNI) {
! 158: if (ret != 1) abort();
! 159: if (buf[0] < 0x80) {
! 160: int count = (state == STATE_ASCII ? 1 : 4);
! 161: if (n < count)
! 162: return RET_TOOSMALL;
! 163: if (state != STATE_ASCII) {
! 164: r[0] = ESC;
! 165: r[1] = '(';
! 166: r[2] = 'B';
! 167: r += 3;
! 168: state = STATE_ASCII;
! 169: }
! 170: r[0] = buf[0];
! 171: conv->ostate = state;
! 172: return count;
! 173: }
! 174: }
! 175:
! 176: /* Try JIS X 0201-1976 Roman. */
! 177: ret = jisx0201_wctomb(conv,buf,wc,1);
! 178: if (ret != RET_ILUNI) {
! 179: if (ret != 1) abort();
! 180: if (buf[0] < 0x80) {
! 181: int count = (state == STATE_JISX0201ROMAN ? 1 : 4);
! 182: if (n < count)
! 183: return RET_TOOSMALL;
! 184: if (state != STATE_JISX0201ROMAN) {
! 185: r[0] = ESC;
! 186: r[1] = '(';
! 187: r[2] = 'J';
! 188: r += 3;
! 189: state = STATE_JISX0201ROMAN;
! 190: }
! 191: r[0] = buf[0];
! 192: conv->ostate = state;
! 193: return count;
! 194: }
! 195: }
! 196:
! 197: /* Try JIS X 0208-1990 in place of JIS X 0208-1978 and JIS X 0208-1983. */
! 198: ret = jisx0208_wctomb(conv,buf,wc,2);
! 199: if (ret != RET_ILUNI) {
! 200: if (ret != 2) abort();
! 201: if (buf[0] < 0x80 && buf[1] < 0x80) {
! 202: int count = (state == STATE_JISX0208 ? 2 : 5);
! 203: if (n < count)
! 204: return RET_TOOSMALL;
! 205: if (state != STATE_JISX0208) {
! 206: r[0] = ESC;
! 207: r[1] = '$';
! 208: r[2] = 'B';
! 209: r += 3;
! 210: state = STATE_JISX0208;
! 211: }
! 212: r[0] = buf[0];
! 213: r[1] = buf[1];
! 214: conv->ostate = state;
! 215: return count;
! 216: }
! 217: }
! 218:
! 219: /* Try JIS X 0212-1990. */
! 220: ret = jisx0212_wctomb(conv,buf,wc,2);
! 221: if (ret != RET_ILUNI) {
! 222: if (ret != 2) abort();
! 223: if (buf[0] < 0x80 && buf[1] < 0x80) {
! 224: int count = (state == STATE_JISX0212 ? 2 : 6);
! 225: if (n < count)
! 226: return RET_TOOSMALL;
! 227: if (state != STATE_JISX0212) {
! 228: r[0] = ESC;
! 229: r[1] = '$';
! 230: r[2] = '(';
! 231: r[3] = 'D';
! 232: r += 4;
! 233: state = STATE_JISX0212;
! 234: }
! 235: r[0] = buf[0];
! 236: r[1] = buf[1];
! 237: conv->ostate = state;
! 238: return count;
! 239: }
! 240: }
! 241:
! 242: return RET_ILUNI;
! 243: }
! 244:
! 245: static int
! 246: iso2022_jp1_reset (conv_t conv, unsigned char *r, int n)
! 247: {
! 248: state_t state = conv->ostate;
! 249: if (state != STATE_ASCII) {
! 250: if (n < 3)
! 251: return RET_TOOSMALL;
! 252: r[0] = ESC;
! 253: r[1] = '(';
! 254: r[2] = 'B';
! 255: /* conv->ostate = 0; will be done by the caller */
! 256: return 3;
! 257: } else
! 258: return 0;
! 259: }
! 260:
! 261: #undef STATE_JISX0212
! 262: #undef STATE_JISX0208
! 263: #undef STATE_JISX0201ROMAN
! 264: #undef STATE_ASCII
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to iso2022_jp1.h CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [ELWIX - Embedded LightWeight unIX -] / embedaddon / libiconv / lib