Annotation of embedaddon/libiconv/lib/iso2022_jp.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
! 23: */
! 24:
! 25: /* Specification: RFC 1468 */
! 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:
! 36: static int
! 37: iso2022_jp_mbtowc (conv_t conv, ucs4_t *pwc, const unsigned char *s, int n)
! 38: {
! 39: state_t state = conv->istate;
! 40: int count = 0;
! 41: unsigned char c;
! 42: for (;;) {
! 43: c = *s;
! 44: if (c == ESC) {
! 45: if (n < count+3)
! 46: goto none;
! 47: if (s[1] == '(') {
! 48: if (s[2] == 'B') {
! 49: state = STATE_ASCII;
! 50: s += 3; count += 3;
! 51: if (n < count+1)
! 52: goto none;
! 53: continue;
! 54: }
! 55: if (s[2] == 'J') {
! 56: state = STATE_JISX0201ROMAN;
! 57: s += 3; count += 3;
! 58: if (n < count+1)
! 59: goto none;
! 60: continue;
! 61: }
! 62: goto ilseq;
! 63: }
! 64: if (s[1] == '$') {
! 65: if (s[2] == '@' || s[2] == 'B') {
! 66: /* We don't distinguish JIS X 0208-1978 and JIS X 0208-1983. */
! 67: state = STATE_JISX0208;
! 68: s += 3; count += 3;
! 69: if (n < count+1)
! 70: goto none;
! 71: continue;
! 72: }
! 73: goto ilseq;
! 74: }
! 75: goto ilseq;
! 76: }
! 77: break;
! 78: }
! 79: switch (state) {
! 80: case STATE_ASCII:
! 81: if (c < 0x80) {
! 82: int ret = ascii_mbtowc(conv,pwc,s,1);
! 83: if (ret == RET_ILSEQ)
! 84: goto ilseq;
! 85: if (ret != 1) abort();
! 86: conv->istate = state;
! 87: return count+1;
! 88: } else
! 89: goto ilseq;
! 90: case STATE_JISX0201ROMAN:
! 91: if (c < 0x80) {
! 92: int ret = jisx0201_mbtowc(conv,pwc,s,1);
! 93: if (ret == RET_ILSEQ)
! 94: goto ilseq;
! 95: if (ret != 1) abort();
! 96: conv->istate = state;
! 97: return count+1;
! 98: } else
! 99: goto ilseq;
! 100: case STATE_JISX0208:
! 101: if (n < count+2)
! 102: goto none;
! 103: if (s[0] < 0x80 && s[1] < 0x80) {
! 104: int ret = jisx0208_mbtowc(conv,pwc,s,2);
! 105: if (ret == RET_ILSEQ)
! 106: goto ilseq;
! 107: if (ret != 2) abort();
! 108: conv->istate = state;
! 109: return count+2;
! 110: } else
! 111: goto ilseq;
! 112: default: abort();
! 113: }
! 114:
! 115: none:
! 116: conv->istate = state;
! 117: return RET_TOOFEW(count);
! 118:
! 119: ilseq:
! 120: conv->istate = state;
! 121: return RET_SHIFT_ILSEQ(count);
! 122: }
! 123:
! 124: static int
! 125: iso2022_jp_wctomb (conv_t conv, unsigned char *r, ucs4_t wc, int n)
! 126: {
! 127: state_t state = conv->ostate;
! 128: unsigned char buf[2];
! 129: int ret;
! 130:
! 131: /* Try ASCII. */
! 132: ret = ascii_wctomb(conv,buf,wc,1);
! 133: if (ret != RET_ILUNI) {
! 134: if (ret != 1) abort();
! 135: if (buf[0] < 0x80) {
! 136: int count = (state == STATE_ASCII ? 1 : 4);
! 137: if (n < count)
! 138: return RET_TOOSMALL;
! 139: if (state != STATE_ASCII) {
! 140: r[0] = ESC;
! 141: r[1] = '(';
! 142: r[2] = 'B';
! 143: r += 3;
! 144: state = STATE_ASCII;
! 145: }
! 146: r[0] = buf[0];
! 147: conv->ostate = state;
! 148: return count;
! 149: }
! 150: }
! 151:
! 152: /* Try JIS X 0201-1976 Roman. */
! 153: ret = jisx0201_wctomb(conv,buf,wc,1);
! 154: if (ret != RET_ILUNI) {
! 155: if (ret != 1) abort();
! 156: if (buf[0] < 0x80) {
! 157: int count = (state == STATE_JISX0201ROMAN ? 1 : 4);
! 158: if (n < count)
! 159: return RET_TOOSMALL;
! 160: if (state != STATE_JISX0201ROMAN) {
! 161: r[0] = ESC;
! 162: r[1] = '(';
! 163: r[2] = 'J';
! 164: r += 3;
! 165: state = STATE_JISX0201ROMAN;
! 166: }
! 167: r[0] = buf[0];
! 168: conv->ostate = state;
! 169: return count;
! 170: }
! 171: }
! 172:
! 173: /* Try JIS X 0208-1990 in place of JIS X 0208-1978 and JIS X 0208-1983. */
! 174: ret = jisx0208_wctomb(conv,buf,wc,2);
! 175: if (ret != RET_ILUNI) {
! 176: if (ret != 2) abort();
! 177: if (buf[0] < 0x80 && buf[1] < 0x80) {
! 178: int count = (state == STATE_JISX0208 ? 2 : 5);
! 179: if (n < count)
! 180: return RET_TOOSMALL;
! 181: if (state != STATE_JISX0208) {
! 182: r[0] = ESC;
! 183: r[1] = '$';
! 184: r[2] = 'B';
! 185: r += 3;
! 186: state = STATE_JISX0208;
! 187: }
! 188: r[0] = buf[0];
! 189: r[1] = buf[1];
! 190: conv->ostate = state;
! 191: return count;
! 192: }
! 193: }
! 194:
! 195: return RET_ILUNI;
! 196: }
! 197:
! 198: static int
! 199: iso2022_jp_reset (conv_t conv, unsigned char *r, int n)
! 200: {
! 201: state_t state = conv->ostate;
! 202: if (state != STATE_ASCII) {
! 203: if (n < 3)
! 204: return RET_TOOSMALL;
! 205: r[0] = ESC;
! 206: r[1] = '(';
! 207: r[2] = 'B';
! 208: /* conv->ostate = 0; will be done by the caller */
! 209: return 3;
! 210: } else
! 211: return 0;
! 212: }
! 213:
! 214: #undef STATE_JISX0208
! 215: #undef STATE_JISX0201ROMAN
! 216: #undef STATE_ASCII
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to iso2022_jp.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