libatalk/unicode/charsets/mac_korean.c

   1 /*
   2  * MacKorean
   3  * Copyright (C) TSUBAKIMOTO Hiroya <zorac@4000do.co.jp> 2004
   4  *
   5  * This program is free software; you can redistribute it and/or modify
   6  * it under the terms of the GNU General Public License as published by
   7  * the Free Software Foundation; either version 2 of the License, or
   8  * (at your option) any later version.
   9  *
  10  * This program is distributed in the hope that it will be useful,
  11  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  12  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  13  * GNU General Public License for more details.
  14  *
  15  * You should have received a copy of the GNU General Public License
  16  * along with this program; if not, write to the Free Software
  17  * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  18  *
  19  * Reference
  20  * http://www.unicode.org/Public/MAPPINGS/VENDORS/APPLE/
  21  */
  22
  23 #ifdef HAVE_CONFIG_H
  24 #include "config.h"
  25 #endif /* HAVE_CONFIG_H */
  26 #include <stdlib.h>
  27
  28 #if HAVE_USABLE_ICONV
  29
  30 #include "generic_cjk.h"
  31 #include "mac_korean.h"
  32
  33 static size_t mac_korean_pull(void *,char **, size_t *, char **, size_t *);
  34 static size_t mac_korean_push(void *,char **, size_t *, char **, size_t *);
  35
  36 struct charset_functions charset_mac_korean = {
  37   "MAC_KOREAN",
  38   3,
  39   mac_korean_pull,
  40   mac_korean_push,
  41   CHARSET_ICONV | CHARSET_MULTIBYTE | CHARSET_PRECOMPOSED | CHARSET_CLIENT,
  42   "EUC-KR",
  43   NULL, NULL
  44 };
  45
  46 static size_t mac_korean_char_push(u_int8_t* out, const ucs2_t* in, size_t* size)
  47 {
  48   ucs2_t wc = in[0];
  49
  50   if ((wc & ~7) == 0xf860) {
  51     wc = cjk_compose_seq(in, size, mac_korean_compose,
  52                          sizeof(mac_korean_compose) / sizeof(u_int32_t));
  53     if (!wc) return (size_t)-1;
  54   } else if ((wc & 0xf000) == 0xe000) {
  55     *size = 1;
  56     return 0;
  57   } else if (*size >= 2) {
  58     ucs2_t comb = in[1];
  59     size_t n = 1;
  60
  61     while ((comb & ~15) == 0xf870 ||
  62            (comb >= 0x0300 && comb <= 0x036f) ||
  63            (comb >= 0x20d0 && comb <= 0x20ea)) {
  64       ucs2_t comp = cjk_compose(wc, comb, mac_korean_compose,
  65                                 sizeof(mac_korean_compose) / sizeof(u_int32_t));
  66       if (!comp) break;
  67       wc = comp;
  68       if (++n == *size) break;
  69       comb = in[n];
  70     }
  71     *size = n;
  72   } else {
  73     *size = 1;
  74   }
  75   if (wc <= 0x7f) {
  76     out[0] = (u_int8_t)wc;
  77     return 1;
  78   }
  79   return cjk_char_push(cjk_lookup(wc, mac_korean_uni2_index,
  80                                   mac_korean_uni2_charset), out);
  81 }
  82
  83 static size_t mac_korean_push(void *cd, char **inbuf, size_t *inbytesleft,
  84                                     char **outbuf, size_t *outbytesleft)
  85 {
  86   return cjk_generic_push(mac_korean_char_push,
  87                           cd, inbuf, inbytesleft, outbuf, outbytesleft);
  88 }
  89
  90 static size_t mac_korean_char_pull(ucs2_t* out, const u_int8_t* in, size_t* size)
  91 {
  92   u_int16_t c = in[0];
  93
  94   if (c <= 0x7f) {
  95     *size = 1;
  96     *out = c;
  97     return 1;
  98   } else if (c >= 0xa1 && c <= 0xfe) {
  99     if (*size >= 2) {
 100       u_int8_t c2 = in[1];
 101       if ((c2 >= 0x41 && c2 <= 0x7d) || (c2 >= 0x81 && c2 <= 0xfe)) {
 102         *size = 2;
 103         c = (c << 8) + c2;
 104       } else {
 105         errno = EILSEQ;
 106         return (size_t)-1;
 107       }
 108     } else {
 109       errno = EINVAL;
 110       return (size_t)-1;
 111     }
 112   } else {
 113     *size = 1;
 114   }
 115   return cjk_char_pull(cjk_lookup(c, mac_korean_2uni_index,
 116                                   mac_korean_2uni_charset),
 117                        out, mac_korean_compose);
 118 }
 119
 120 static size_t mac_korean_pull(void *cd, char **inbuf, size_t *inbytesleft,
 121                                     char **outbuf, size_t *outbytesleft)
 122 {
 123   return cjk_generic_pull(mac_korean_char_pull,
 124                           cd, inbuf, inbytesleft, outbuf, outbytesleft);
 125 }
 126 #endif