Mercurial > freewnn

diff Wnn/romkan/rk_bltinfn.c @ 0:bbc77ca4def5
initial import
author: Yoshiki Yazawa <yaz@cc.rim.or.jp>
date: Thu, 13 Dec 2007 04:30:14 +0900
children: a7ccf412ba02
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/Wnn/romkan/rk_bltinfn.c	Thu Dec 13 04:30:14 2007 +0900
@@ -0,0 +1,380 @@
+/*
+ *  $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;
+}
author	Yoshiki Yazawa <yaz@cc.rim.or.jp>
date	Thu, 13 Dec 2007 04:30:14 +0900
parents
children	a7ccf412ba02