1/* 2 * Copyright (C) 1999-2001 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., 59 Temple Place - 18 * Suite 330, Boston, MA 02111-1307, USA. 19 */ 20 21/* 22 * CP949 is EUC-KR, extended with UHC (Unified Hangul Code). 23 */ 24 25#include "uhc_1.h" 26#include "uhc_2.h" 27 28static int 29cp949_mbtowc (conv_t conv, ucs4_t *pwc, const unsigned char *s, int n) 30{ 31 unsigned char c = *s; 32 /* Code set 0 (ASCII) */ 33 if (c < 0x80) 34 return ascii_mbtowc(conv,pwc,s,n); 35 /* UHC part 1 */ 36 if (c >= 0x81 && c <= 0xa0) 37 return uhc_1_mbtowc(conv,pwc,s,n); 38 if (c >= 0xa1 && c < 0xff) { 39 if (n < 2) 40 return RET_TOOFEW(0); 41 { 42 unsigned char c2 = s[1]; 43 if (c2 < 0xa1) 44 /* UHC part 2 */ 45 return uhc_2_mbtowc(conv,pwc,s,n); 46 else if (c2 < 0xff) { 47 /* Code set 1 (KS C 5601-1992) */ 48 unsigned char buf[2]; 49 buf[0] = c-0x80; buf[1] = c2-0x80; 50 return ksc5601_mbtowc(conv,pwc,buf,2); 51 } 52 } 53 } 54 return RET_ILSEQ; 55} 56 57static int 58cp949_wctomb (conv_t conv, unsigned char *r, ucs4_t wc, int n) 59{ 60 unsigned char buf[2]; 61 int ret; 62 63 /* Code set 0 (ASCII) */ 64 ret = ascii_wctomb(conv,r,wc,n); 65 if (ret != RET_ILUNI) 66 return ret; 67 68 /* Code set 1 (KS C 5601-1992) */ 69 ret = ksc5601_wctomb(conv,buf,wc,2); 70 if (ret != RET_ILUNI) { 71 if (ret != 2) abort(); 72 if (n < 2) 73 return RET_TOOSMALL; 74 r[0] = buf[0]+0x80; 75 r[1] = buf[1]+0x80; 76 return 2; 77 } 78 79 /* UHC */ 80 if (wc >= 0xac00 && wc < 0xd7a4) { 81 if (wc < 0xc8a5) 82 return uhc_1_wctomb(conv,r,wc,n); 83 else 84 return uhc_2_wctomb(conv,r,wc,n); 85 } 86 87 return RET_ILUNI; 88} 89