Mercurial > freewnn

/*
 * $Id: rk_bltinfn.c,v 1.2 2001/06/14 18:16:09 ura 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
 *
 * Author: OMRON SOFTWARE Co., Ltd. <freewnn@rd.kyoto.omronsoft.co.jp>
 *
 * This program is free software; you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation; either version 2, or (at your option)
 * any later version.
 *
 * This program 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 General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with GNU Emacs; see the file COPYING.  If not, write to the
 * Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 *
 * Commentary:
 *
 * Change log:
 *
 * Last modified date: 8,Feb.1999
 *
 * Code:
 *
 */
/***********************************************************************
                        rk_bltinfn.c
                                                87.12. 6  柠 输

        恃垂脱の寥み哈み簇眶のうち剩花なものを年盗してある。
        链逞ⅹ染逞の恃垂が肩挛。
***********************************************************************/
/*      Version 3.1     88/06/14        H.HASHIMOTO
 */
#ifndef OMRON_LIB
#include "rk_header.h"
#endif
#include "rext.h"

 /* 染逞矢机のコ〖ドのdefine */
#define HKCHOU  (SS2 * 0x100 + 0xB0)    /* ò */
#define HKDKTN  (SS2 * 0x100 + 0xDE)    /* ㄞ */
#define HKHNDK  (SS2 * 0x100 + 0xDF)    /* ㄟ */
#define HKMARU  (SS2 * 0x100 + 0xA1)    /* ā */
#define HKHRKG  (SS2 * 0x100 + 0xA2)    /* á */
#define HKTJKG  (SS2 * 0x100 + 0xA3)    /* ǎ */
#define HKTTEN  (SS2 * 0x100 + 0xA4)    /* à */
#define HKNKPT  (SS2 * 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)        /* ˇ */


 /** ASCII矢机ⅹ链逞 */
#ifdef OMRON_LIB
static
#endif
  letter
to_zenalpha (l)
     fast letter l;             /* V3.1 */
{
  fast letter retval;           /* V3.1 */

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

  if (' ' <= l && l <= '~')
    {
      l = (l - ' ') << 1;
      retval = data[l] << 8;
      retval += data[++l];
      return (retval);
/* } else return(l); *//* V3.1 */
    }
  return (l);
}

static char *hankdata[] = {
  "帶", "幈", "帹", "幉", "帺", "幊", "帾", "幋", "帿", "幍",
  "幎", "幎庌", "幏", "幏庌", "幐", "幐庌", "幑", "幑庌", "幒", "幒庌",
  "幓", "幓庌", "幖", "幖庌", "幗", "幗庌", "幘", "幘庌", "幙", "幙庌",
  "幚", "幚庌", "幜", "幜庌", "幆", "幝", "幝庌", "幟", "幟庌", "幠", "幠庌",
  "幣", "幤", "幥", "幦", "幧",
  "幨", "幨庌", "幨庍", "幩", "幩庌", "幩庍", "幪", "幪庌", "幪庍",
  "幫", "幫庌", "幫庍", "幬", "幬庌", "幬庍",
  "幭", "幮", "幯", "幰", "幱",
  "幀", "幵", "幁", "幷", "幃", "幹",
  "幾", "庁", "庂", "広", "庅",
  "ヮ", "庈", "ヰ", "ヱ", "帵", "庉",
  "幊庌", "ヵ", "ヶ"
};                              /* 链逞が寒じってるので庙罢 */
/*
static  char    *hankdata[] = {
        "ě","ū","è","ú","ī","ǔ","í","ù","ǐ","ǖ",
        "ǘ","ǘㄞ","ǚ","ǚㄞ","ǜ","ǜㄞ","ü","üㄞ","ê","êㄞ",
        "ɑ","ɑㄞ","ḿ","ḿㄞ","ń","ńㄞ","ň","ňㄞ","ǹ","ǹㄞ",
        "ɡ","ɡㄞ","","ㄞ","ǒ","","ㄞ","","ㄞ","","ㄞ",
        "ㄅ","ㄆ","ㄇ","ㄈ","ㄉ",
        "ㄊ","ㄊㄞ","ㄊㄟ","ㄋ","ㄋㄞ","ㄋㄟ","ㄌ","ㄌㄞ","ㄌㄟ",
         "ㄍ","ㄍㄞ","ㄍㄟ","ㄎ","ㄎㄞ","ㄎㄟ",
        "ㄏ","ㄐ","ㄑ","ㄒ","ㄓ",
        "ì","ㄔ","ō","ㄕ","ó","ㄖ",
        "ㄗ","ㄘ","ㄙ","ㄚ","ㄛ",
        "ヮ","ㄜ","ヰ","ヱ","é","ㄝ",
        "ǔㄞ","ヵ","ヶ"
};*//* 链逞が寒じってるので庙罢 */

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

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

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

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

  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;
}

 /**    染逞カタカナⅹひらがな。芒し、蛮爬を积つ矢机を办つにまとめては
        くれないので庙罢。*/
#ifdef OMRON_LIB
static
#endif
  letter
to_zenhira (l)
     fast letter l;             /* V3.1 */
{
  fast letter retval;           /* V3.1 */

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

  if (is_hankata (l))
    {
      l = (l - HKKBGN) << 1;
      retval = data[l] << 8;
      retval += data[++l];
      return (retval);
    }
  else
    return (l);
}

 /**    染逞カタカナⅹ链逞。芒し、蛮爬を积つ矢机を办つにまとめては
        くれないので庙罢。*/
#ifdef OMRON_LIB
static
#endif
  letter
to_zenkata (l)
     fast letter l;             /* V3.1 */
{
  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          /* ハ */

 /**    稿ろに染蛮爬をくっつける。冯蔡は办唆は企矢机。*/
#ifdef OMRON_LIB
static
#endif
  void
handakuadd (in, outp)
     fast letter in, **outp;    /* V3.1 */
{
  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;
}

 /**    稿ろに蛮爬をくっつける。冯蔡は办唆は企矢机。*/
#ifdef OMRON_LIB
static
#endif
  void
dakuadd (in, outp)
     fast letter in, **outp;    /* V3.1 */
{
  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)     /* ほ */
  };
  fast letter c;                /* V3.1 */

  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に掐れる。*/
#ifdef OMRON_LIB
static
#endif
  void
to_digit (in, base, outp)
     fast letter in, base, **outp;      /* V3.1 */
{
  fast letter c;                /* V3.1 */
  extern letter vtol ();        /* V3.1 */

  if (c = in, c /= base)
    to_digit (c, base, outp);
  *(*outp)++ = vtol (in % base);
  **outp = EOLTTR;
}
author	Yoshiki Yazawa <yaz@cc.rim.or.jp>
date	Mon, 14 Apr 2008 17:01:14 +0900
parents	bbc77ca4def5
children