ports//japanese/FreeWnn-server/work/FreeWnn-1.1.1-a021/kWnn/romkan/rk

/*
 *  $Id: rk_bltinfn.c,v 1.6 2005/04/10 15:26:38 aonoto Exp $
 */

/*
 * FreeWnn is a network-extensible Kana-to-Kanji conversion system.
 * This file is part of FreeWnn.
 * 
 * Copyright Kyoto University Research Institute for Mathematical Sciences
 *                 1987, 1988, 1989, 1990, 1991, 1992
 * Copyright OMRON Corporation. 1987, 1988, 1989, 1990, 1991, 1992, 1999
 * Copyright ASTEC, Inc. 1987, 1988, 1989, 1990, 1991, 1992
 * Copyright FreeWnn Project 1999, 2000, 2002
 *
 * Maintainer:  FreeWnn Project   <freewnn@tomo.gr.jp>
 *
 * This library is free software; you can redistribute it and/or
 * modify it under the terms of the GNU Lesser General Public
 * License as published by the Free Software Foundation; either
 * version 2 of the License, or (at your option) any later version.
 *
 * This library is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
 * Lesser General Public License for more details.
 *
 * You should have received a copy of the GNU Lesser General Public
 * License along with this library; if not, write to the
 * Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 * Boston, MA 02111-1307, USA.
 */

/***********************************************************************
                        rk_bltinfn.c
                                                87.12. 6  柠 输

        恃垂脱の寥み哈み簇眶のうち剩花なものを年盗してある。
        链逞ⅹ染逞の恃垂が肩挛。
***********************************************************************/
/*  Version 3.0  */

#ifdef HAVE_CONFIG_H
#  include <config.h>
#endif

#if STDC_HEADERS
#  include <string.h>
#elif HAVE_STRINGS_H
#  include <strings.h>
#endif /* STDC_HEADERS */

#include "commonhd.h"
#include "wnn_config.h"
#include "rk_header.h"

 /* 染逞矢机のコ〖ドのdefine */
#define HKCHOU  (HNKAK1 * 0x100 + 0xB0) /* 幇 */
#define HKDKTN  (HNKAK1 * 0x100 + 0xDE) /* 庌 */
#define HKHNDK  (HNKAK1 * 0x100 + 0xDF) /* 庍 */
#define HKMARU  (HNKAK1 * 0x100 + 0xA1) /* 帯 */
#define HKHRKG  (HNKAK1 * 0x100 + 0xA2) /* 帰 */
#define HKTJKG  (HNKAK1 * 0x100 + 0xA3) /* 帲 */
#define HKTTEN  (HNKAK1 * 0x100 + 0xA4) /* 帳 */
#define HKNKPT  (HNKAK1 * 0x100 + 0xA5) /* 帴 */

 /* 链逞矢机のコ〖ドのdefine */
#define CHOUON  (0xA1BC)        /* 〖 */
#define DAKUTN  (0xA1AB)        /* ～ */
#define HNDAKU  (0xA1AC)        /* ‖ */
#define MNMARU  (0xA1A3) /* 。 */       /* 叹涟は MaNMARU∈まんまる∷の维 */
#define HRKKAG  (0xA1D6)        /* ≈ */
#define TJIKAG  (0xA1D7)        /* ∽ */
#define TOUTEN  (0xA1A2)        /* 、 */
#define NKPOTU  (0xA1A6)        /* ˇ */

static char _lang[6];

void
romkan_set_lang (lang)
     char *lang;
{
  strncpy (_lang, lang, 5);
  _lang[5] = 0;
}

 /** ASCII矢机ⅹ链逞 */
/* *INDENT-OFF* */
letter
to_zenalpha (l)
    letter l;
/* *INDENT-ON* */
{
  letter retval;

  static uns_chr *data = (uns_chr *) "　—∩◆○◇□∏∈∷■≤·≥ˉ】０１２３４５６７８９¨〃°♂′々\
△ＡＢＣＤＥＦＧＨＩＪＫＬＭＮＯＰＱＲＳＴＵＶＷＸＹＺ∥★∠“〔‘ａｂｃｄｅ\
ｆｇｈｉｊｋｌｍｎｏｐｑｒｓｔｕｖｗｘｙｚ⌒∶⊙”";

#ifdef  CHINESE
  static uns_chr *data_cn = (uns_chr *) "　！”＃＄％＆＇（）※＋，—．／０１２３４５６７８９：；〈＝〉？\
＠ＡＢＣＤＥＦＧＨＩＪＫＬＭＮＯＰＱＲＳＴＵＶＷＸＹＺ［￥］＾＿｀ａｂｃｄｅ\
ｆｇｈｉｊｋｌｍｎｏｐｑｒｓｔｕｖｗｘｙｚ｛｜｝￣";
#endif /* CHINESE */
#ifdef  KOREAN
  static uns_chr *data_ko = (uns_chr *) "　！＂＃￥％＆＇（）＊＋，－．／０１２３４５６７８９：；＜＝＞？\
＠ＡＢＣＤＥＦＧＨＩＪＫＬＭＮＯＰＱＲＳＴＵＶＷＸＹＺ［＼］＾＿｀ａｂｃｄｅ\
ｆｇｈｉｊｋｌｍｎｏｐｑｒｓｔｕｖｗｘｙｚ｛｜｝￣";
#endif /* KOREAN */

  if (' ' <= l && l <= '~')
    {
      l = (l - ' ') << 1;
#ifdef  CHINESE
      if (!strcmp (_lang, WNN_C_LANG) || !strcmp (_lang, WNN_T_LANG))
        {
          retval = data_cn[l] << 8;
          retval += data_cn[++l];
        }
      else
#endif
#ifdef  KOREAN
      if (!strcmp (_lang, WNN_K_LANG))
        {
          retval = data_ko[l] << 8;
          retval += data_ko[++l];
        }
      else
#endif /* KOREAN */
        {
          retval = data[l] << 8;
          retval += data[++l];
        }
      return (retval);
    }
  else
    return (l);
}

static char *hankdata[] = {
  "帶", "幈", "帹", "幉", "帺", "幊", "帾", "幋", "帿", "幍",
  "幎", "幎庌", "幏", "幏庌", "幐", "幐庌", "幑", "幑庌", "幒", "幒庌",
  "幓", "幓庌", "幖", "幖庌", "幗", "幗庌", "幘", "幘庌", "幙", "幙庌",
  "幚", "幚庌", "幜", "幜庌", "幆", "幝", "幝庌", "幟", "幟庌", "幠", "幠庌",
  "幣", "幤", "幥", "幦", "幧",
  "幨", "幨庌", "幨庍", "幩", "幩庌", "幩庍", "幪", "幪庌", "幪庍",
  "幫", "幫庌", "幫庍", "幬", "幬庌", "幬庍",
  "幭", "幮", "幯", "幰", "幱",
  "幀", "幵", "幁", "幷", "幃", "幹",
  "幾", "庁", "庂", "広", "庅",
  "ヮ", "庈", "ヰ", "ヱ", "帵", "庉",
  "幊庌", "ヵ", "ヶ"
};                              /* 链逞が寒じってるので庙罢 */

 /**    惧のhankdataが、悸狠に蝗う染逞コ〖ドを山していないとき、悸狠のものに
        饯赖する。介袋肋年箕に办搀だけ钙ぶ */
void
hank_setup ()
{
  int i;
  char *s, orig_hnkak1;

  orig_hnkak1 = *hankdata[0];
  /*     *hankdata[] での染逞矢机の１バイトめ。染逞矢机の１バイトめだけが佰なる
     ような戮怠硷に败竣するときは、HNKAK1のdefineを恃えればOK。芒しromkanの
     ソ〖ス面の染逞矢机∈このファイルにのみ赂哼∷もコンバ〖トして、その怠硷
     に圭わせるほうが司ましい。しかし、エディタでこのファイルを饯赖したり
     する眷圭に、染逞矢机の胺いがうまくいかない眷圭があるので、泼に
     コンバ〖トをしなくとも瓢侯するように借弥はしてある。それが、この
     hank_setup()である。hankdataは、介袋肋年箕に hank_setup()によって
     悸狠の染逞コ〖ドに木される。 */

  if (orig_hnkak1 == (char) HNKAK1)
    return;
  for (i = 0; i < numberof (hankdata); i++)
    {
      for (s = hankdata[i]; *s; s += 2)
        if (*s == orig_hnkak1)
          *s = HNKAK1;
    }
}

 /** かなⅹ染逞カタカナ。冯蔡が企矢机になることもある。*/
void
to_hankata (in, outp)
     letter in, **outp;
{
  uns_chr *p, c;
  letter *out;

  out = *outp;
  switch (in)
    {
    case CHOUON:
      *out++ = HKCHOU;
      break;
    case DAKUTN:
      *out++ = HKDKTN;
      break;
    case HNDAKU:
      *out++ = HKHNDK;
      break;
    case MNMARU:
      *out++ = HKMARU;
      break;
    case HRKKAG:
      *out++ = HKHRKG;
      break;
    case TJIKAG:
      *out++ = HKTJKG;
      break;
    case TOUTEN:
      *out++ = HKTTEN;
      break;
    case NKPOTU:
      *out++ = HKNKPT;
      break;
    default:
      if (is_kata (in))
        {
          for (p = (uns_chr *) hankdata[in - KATBGN]; c = *p; p++)
            *out++ = (c << 8) + *++p;
        }
      else if (is_hira (in))
        {
          for (p = (uns_chr *) hankdata[in - HIRBGN]; c = *p; p++)
            *out++ = (c << 8) + *++p;
        }
      else
        {
          *out++ = in;
        }
    }
  *out = EOLTTR;
  *outp = out;
}

 /**    染逞カタカナⅹひらがな。芒し、蛮爬を积つ矢机を办つにまとめては
        くれないので庙罢。*/
/* *INDENT-OFF* */
letter
to_zenhira (l)
    letter l;
/* *INDENT-ON* */
{
  letter retval;

  static uns_chr *data = (uns_chr *) "。≈∽、ˇをぁぃぅぇぉゃゅょっ〖あいうえおかきくけこさしすせそた\
ちつてとなにぬねのはひふへほまみむめもやゆよらりるれろわん～‖";

#ifdef  CHINESE
  static uns_chr *data_cn = (uns_chr *) "。「」、·をぁぃぅぇぉゃゅょっ〖あいうえお吗きくけこ度しすせそた\
ちつてとなにぬね的はひふへほまみむめ也やゆよらりるれろわん″°";
#endif /* CHINESE */

  if (is_hankata (l))
    {
      l = (l - HKKBGN) << 1;
#ifdef  CHINESE
      if (!strcmp (_lang, WNN_C_LANG) || !strcmp (_lang, WNN_T_LANG))
        {
          retval = data_cn[l] << 8;
          retval += data_cn[++l];
        }
      else
#endif
        {
          retval = data[l] << 8;
          retval += data[++l];
        }
      return (retval);
    }
  else
    return (l);
}

 /**    染逞カタカナⅹ链逞。芒し、蛮爬を积つ矢机を办つにまとめては
        くれないので庙罢。*/
/* *INDENT-OFF* */
letter
to_zenkata (l)
   letter l;
/* *INDENT-ON* */
{
  return (is_hankata (l) ? (l = to_zenhira (l), to_kata (l)) : l);
}

 /* ビットベクタの菇喇 */
#define bitvec(b0, b1, b2, b3, b4, b5, b6, b7) (                         \
        (char)b0 | ((char)b1 << 1) | ((char)b2 << 2) | ((char)b3 << 3) | ((char)b4 << 4) | ((char)b5 << 5) | \
        ((char)b6 << 6) | ((char)b7 << 7)                                                \
)

 /** charの芹误 h をビットベクタと斧てその妈iビットをチェックする */
#define bitlook(h, i) (h[(i) >> 3] & (1 << ((i) & 7)))

#define KATRPT  0xA1B3          /* 〕 */
#define HIRRPT  0xA1B5          /* 〉 */
#define KATA_U  0xA5A6          /* ウ */
#define KAT_VU  0xA5F4          /* ヴ */
#define HIR_KA  0xA4AB          /* か */
#define HIR_HO  0xA4DB          /* ほ */
#define KAT_KA  0xA5AB          /* カ */
#define KAT_HO  0xA5DB          /* ホ */
#define HIR_HA  0xA4CF          /* は */
#define KAT_HA  0xA5CF          /* ハ */

 /**    稿ろに染蛮爬をくっつける。冯蔡は办唆は企矢机。*/
void
handakuadd (in, outp)
     letter in, **outp;
{
  if ((HIR_HA <= in && in <= HIR_HO) ? 0 == (in - HIR_HA) % 3 : (KAT_HA <= in && in <= KAT_HO && 0 == (in - KAT_HA) % 3))
    {
      *(*outp)++ = in + 2;
    }
  else
    {
      *(*outp)++ = in;
      *(*outp)++ = HNDAKU;
    }
  **outp = EOLTTR;
}

 /**    稿ろに蛮爬をくっつける。冯蔡は办唆は企矢机。*/
void
dakuadd (in, outp)
     letter in, **outp;
{
  static char flgbit[] = {
    bitvec (1, 0, 1, 0, 1, 0, 1, 0),    /* かがきぎくぐけげ */
    bitvec (1, 0, 1, 0, 1, 0, 1, 0),    /* こごさざしじすず */
    bitvec (1, 0, 1, 0, 1, 0, 1, 0),    /* せぜそぞただちぢ */
    bitvec (0, 1, 0, 1, 0, 1, 0, 0),    /* っつづてでとどな */
    bitvec (0, 0, 0, 0, 1, 0, 0, 1),    /* にぬねのはばぱひ */
    bitvec (0, 0, 1, 0, 0, 1, 0, 0),    /* びぴふぶぷへべぺ */
    bitvec (1, 0, 0, 0, 0, 0, 0, 0)     /* ほ */
  };
  letter c;

  if ((HIR_KA <= in && in <= HIR_HO) ? (c = in - HIR_KA, 1) : (KAT_KA <= in && in <= KAT_HO && (c = in - KAT_KA, 1)))
    {
      if (bitlook (flgbit, c))
        {
          *(*outp)++ = in + 1;
        }
      else
        {
          *(*outp)++ = in;
          *(*outp)++ = DAKUTN;
        }
    }
  else
    switch (in)
      {
      case KATRPT:
      case HIRRPT:
        *(*outp)++ = in + 1;
        break;
      case KATA_U:
        *(*outp)++ = KAT_VU;
        break;
      default:
        *(*outp)++ = in;
        *(*outp)++ = DAKUTN;
      }
  **outp = EOLTTR;
}

 /** inで涂えられたコ〖ドをbase渴の眶机にしてoutpに掐れる。*/
void
to_digit (in, base, outp)
     letter in, base, **outp;
{
  letter c, vtol ();

  if (c = in, c /= base)
    to_digit (c, base, outp);
  *(*outp)++ = vtol (in % base);
  **outp = EOLTTR;
}
syntax highlighted by Code2HTML, v. 0.9.1