Mercurial > freewnn
view Xwnmo/romkan_m/rk_main.c @ 8:76281fa7934f
fix version string.
| author | Yoshiki Yazawa <yaz@cc.rim.or.jp> |
|---|---|
| date | Fri, 21 Dec 2007 16:41:48 +0900 |
| parents | bbc77ca4def5 |
| children |
line wrap: on
line source
/* * $Id: rk_main.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_main.c 87.12. 3 改 正 ローマ字かな変換・その他、入力コードを変換するプログラム。 ASCIIコード使用を、前提としている。 このファイルは、変換のメインルーチン。 ***********************************************************************/ /* Version 3.1 88/06/14 H.HASHIMOTO */ #ifndef OMRON_LIB #include "rk_header.h" #include "rk_extvars.h" #ifdef MULTI #include "rk_multi.h" #endif /*MULTI*/ #endif #include "rext.h" #ifdef MULTI #define DISOUT ((cur_rk->flags & RK_NONISE) ? cur_rk->rk_output : cur_rk->disout) /* フラグの値はromkan_init3()の中で設定され、そのRK_NONISEのビットの値の 標準は0。従ってDISOUTの標準値はdisout。これをrk_outputに変えると、偽コード （除：LTREOF）を一切出さない（但し、キー入力があれば必ず何かを返すように してある時に限り、EOLTTRをも返す）。 */ #else /* !MULTI */ #ifdef KDSP # ifdef MVUX letter displine[DSPLIN]; /* デバッグ用 表示の一行分を記憶 */ # endif #endif /* 88/06/02 V3.1 */ static letter nil[1] = { EOLTTR }; static letter *curdis; static int codein_len; static letter *codeout, *remainkbf; static letter ungetc_buf = EOLTTR; /* romkan_ungetcが一文字退避しておくバッファ */ static letter unnext_buf = EOLTTR; /* romkan_unnextが 〃 */ static letter (*keyin_method) (); /* キーイン関数のアドレス */ static int (*bytcnt_method) (); /* バイトカウント関数のアドレス */ static int (*kbytcnt_method) (); /* キー入力解釈用バイトカウント関数のアドレス */ /* モード表名（又はそのパス名）を保存 *//* 初期設定がいい加減! */ static char prv_modfnm[REALFN] = "\0"; #define DISOUT ((flags & RK_NONISE) ? rk_output : disout) /* フラグの値はromkan_init3()の中で設定され、そのRK_NONISEのビットの値の 標準は0。従ってDISOUTの標準値はdisout。これをrk_outputに変えると、偽コード （除：LTREOF）を一切出さない（但し、キー入力があれば必ず何かを返すように してある時に限り、EOLTTRをも返す）。 */ static /* V3.1 */ char eofflg; /* romkan_next()からLTREOFが来たときに、romkan_henkan()内で1 にする。これの値が非0なら変換対応表の(error)を無視して、 本処理バッファ内の未確定コードも、強制的に変換させる。更に LTREOFが来た時に特別にある出力を出すように指定されていれば その処理も行う（但し、その処理は急ごしらえで不完全）。その 処理中はeofflgは2。 */ static letter evalbuf[2][2][OUTSIZ]; static letter delchr, delchr2 = EOLTTR, nisedl; /* DELのキャラクタは二個まで持てる */ /* 88/05/31 V3.1 */ static letter rk_input; /* 入力。3バイトまでは変更なしに対応可 */ static letter disout[OUTSIZ]; /* 本処理からの出力のバッファ */ static letter rk_output[OUTSIZ]; /* 後処理からの出力（最終出力）のバッファ */ static letter keybuf[KBFSIZ], urabuf[KBFSIZ]; /* 本処理バッファとその退避領域 */ static int lastoutlen, lastkbflen; static int hyonum; #endif /* MULTI */ static void romkan_delete (), mchevl (), add_at_eof (), free_for_all_area (), ltrevlcpy (), set_rubout (), maeato_henkan (), codeout_chg (); /* letterを返す関数の定義及び宣言（一部にはcharのものも混じっている） */ static int head_bytecount (), p_eq (), hen_ikisrc (), match (), henkan_ok (), romkan_restart (); static letter mchedsrc (); letter romkan_next (), romkan_unnext (); letter romkan_getc (), romkan_ungetc (), *romkan_henkan (); letter to_zenalpha (), to_zenhira (), to_zenkata (); /* to_zenhira;kata は濁点を持つ文字を一まとめにしない。 */ static letter * ltrcpy (lp1, lp2) fast letter *lp1, *lp2; /* V3.1 */ { fast letter *org; /* V3.1 */ org = lp1; while ((*lp1++ = *lp2++) != EOLTTR); return (org); } #ifdef nodef static letter * ltrncpy (lp1, lp2, n) /* 末尾に'EOLTTR'をセット */ letter *lp1, *lp2; int n; { fast letter *org; org = lp1; for (; n; --n) if (EOLTTR == (*lp1++ = *lp2++)) return (org); *lp1 = EOLTTR; return (org); } #endif /** letterの列の末尾に一文字つなげる */ static /* V3.1 */ letter * ltr1cat (lp, l) fast letter *lp, l; /* V3.1 */ { fast letter *org; /* V3.1 */ org = lp; totail (lp); *lp++ = l; *lp = EOLTTR; return (org); } /** 文字列の末尾に一文字つなげる。ltr1catのchar版 */ #ifdef OMRON_LIB static #endif char * chrcat (s, c) fast char *s, c; /* V3.1 */ { fast char *org; /* V3.1 */ org = s; strtail (s); *s++ = c; *s = '\0'; return (org); } static letter * ltrcat (lp1, lp2) fast letter *lp1, *lp2; /* V3.1 */ { fast letter *org; /* V3.1 */ org = lp1; totail (lp1); ltrcpy (lp1, lp2); return (org); } /** letterの列lp2の各要素の最上位ビットを立ててから、lp1の後ろにつなげる。*/ static /* V3.1 */ letter * bitup_ltrcat (lp1, lp2) fast letter *lp1, *lp2; /* V3.1 */ { fast letter *org; /* V3.1 */ org = lp1; totail (lp1); while ((*lp1 = *lp2++) != EOLTTR) *lp1++ |= HG1BIT; /** lp2 の要素全ての最上位ビットを立てる。*lp2がNISEBP(rk_spclval.h でdefine)などのときは最初から最上位が立ってるからよい */ return (org); } /** ltrcatしたあと、結果の文字列の末尾にポインタをもっていく。*/ #ifdef OMRON_LIB static #endif letter * ltrgrow (lp1, lp2) fast letter *lp1, *lp2; /* V3.1 */ { totail (lp1); while ((*lp1 = *lp2++) != EOLTTR) lp1++; return (lp1); } int ltrlen (lp) fast letter *lp; /* V3.1 */ { fast letter *org; /* V3.1 */ for (org = lp; *lp != EOLTTR; lp++); return (lp - org); } /** letterの列の最後の文字へのポインタを返す。但し空文字列に対しては そのまま返す。*/ static letter * ltrend (lp) fast letter *lp; /* V3.1 */ { return ((*lp != EOLTTR) ? (lp + ltrlen (lp) - 1) : lp); } /** 文字列の最後の文字へのポインタを返す。ltrend()のchar版。ltrend()と 同様、空文字列のときは特例がある。*/ #ifdef OMRON_LIB static #endif char * strend (s) fast char *s; /* V3.1 */ { return (*s ? (s + strlen (s) - 1) : s); } int ltrcmp (lp1, lp2) fast letter *lp1, *lp2; /* V3.1 */ { for (; *lp1 == *lp2; lp1++, lp2++) if (*lp1 == EOLTTR) return (0); return (*lp1 > *lp2 ? 1 : -1); } #ifdef nodef int ltrncmp (lp1, lp2, n) letter *lp1, *lp2; int n; { for (; n && *lp1 == *lp2; n--, lp1++, lp2++) if (*lp1 == EOLTTR) return (0); return (n == 0 ? 0 : (*lp1 > *lp2 ? 1 : -1)); } /* 88/06/14 V3.1 */ /******************************************************************************/ #ifndef OMRON letter * ltr_index (lp, l) letter l, *lp; { for (; *lp != EOLTTR; lp++) if (*lp == l) return (lp); return (NULL); } #endif /******************************************************************************/ #endif static /* V3.1 */ letter * ltr_rindex (lp, l) fast letter l, *lp; /* V3.1 */ { fast letter *lp2; /* V3.1 */ for (lp += ltrlen (lp2 = lp); lp2 != lp;) if (*--lp == l) return (lp); return (NULL); } /** 文字列の末尾一文字をカットする。*/ /*static V3.1 */ letter * ltr1cut (lp) fast letter *lp; /* V3.1 */ { fast int l; /* V3.1 */ if (0 == (l = ltrlen (lp))) BUGreport (0); /* Illegal POP */ *(lp + --l) = EOLTTR; return (lp); } /** letterの一文字を長さ１の文字列に変換する */ static /* V3.1 */ letter * ltr_to_ltrseq (lp, l) letter *lp, l; { *lp++ = l; *lp-- = EOLTTR; return (lp); } /** charの列からletterを一つ取り出す。但し'\0'はEOLTTRに変える */ #ifdef OMRON_LIB static #endif letter letterpick (lbfpptr) fast uns_chr **lbfpptr; { fast letter l = 0; fast int i; /* V3.1 */ for (i = (*(cur_rk_table->bytcnt_method)) (*lbfpptr); i; i--) l = (l << 8) + *(*lbfpptr)++; return (l == 0 ? EOLTTR : l); } /** 入力されたコードを文字単位にまとめる。但しEOFはLTREOF（rk_spclval.h にて定義）に変える。*/ /* *INDENT-OFF* */ letter romkan_next () /* *INDENT-ON* */ { letter in; int i, n; uns_chr c; /* unnextされている場合は、それを取り出す。 */ if (cur_rk->unnext_buf != EOLTTR) return (in = cur_rk->unnext_buf, cur_rk->unnext_buf = EOLTTR, in); if ((letter) EOF == (in = (*(cur_rk_table->keyin_method)) ())) return (LTREOF); c = (in &= 0xff); n = (*(cur_rk_table->kbytcnt_method)) (&c); for (i = 1; i < n; i++) in = (in << 8) + ((*(cur_rk_table->keyin_method)) () & 0xff); return (in); } /* letterの文字 l とcharの文字 c の比較。エンドマーク同士（letter列の エンドマークはEOLTTR、char列のは'\0'）も一致とみなす。 */ #define ltrchreq(l, c) ((l) == (c) && (c) != 0 || (l) == EOLTTR && (c) == 0) /** letterの文字列とcharの文字列の比較 但し大小比較は符号なしとしてやる */ #ifdef OMRON_LIB static #endif int ltrstrcmp (l, s) fast letter *l; /* V3.1 */ fast char *s; /* V3.1 */ { for (; ltrchreq (*l, *s); l++, s++) if (*s == 0) return (0); return (1); /* return((*l < (uns_chr)*s || *l == EOLTTR)? -1 : 1); */ } /** 最後にマッチした文字 つまりurabufの最後。urabufが空だとEOLTTRを返す */ static /* V3.1 */ letter lastmch () { return (*(ltrend (cur_rk->urabuf))); } /* end of 'letter' functions */ /** 変換バッファのクリア */ /* 注意！ romkan_clear()を呼ぶ時は、必ずその前に、cur_rkをセットすること */ void romkan_clear () { #ifdef KDSP # ifdef MVUX *displine = EOLTTR; # endif #endif cur_rk->ungetc_buf = *(cur_rk->keybuf) = *(cur_rk->urabuf) = *(cur_rk->disout) = *(cur_rk->rk_output) = EOLTTR; cur_rk->curdis = DISOUT; cur_rk->lastoutlen = cur_rk->lastkbflen = 0; } /** WnnV4.0マルチクライアント用のRomkan構造体を初期化する **/ Romkan * rk_buf_init () { register Romkan *p; register int i; if ((p = (Romkan *) malloc (sizeof (Romkan))) == NULL) { return (NULL); } malloc_for_henmatch (&(p->rk_henmatch), cur_rk_table->rk_hensuudef.count); malloc_for_modesw (&(p->rk_modesw), cur_rk_table->rk_modesw.max); p->rk_modesw.max = cur_rk_table->rk_modesw.max; p->rk_modesw.count = cur_rk_table->rk_modesw.count; for (i = 0; i < cur_rk_table->rk_modesw.max; i++) { p->rk_modesw.point[i] = cur_rk_table->rk_modesw.point[i]; } malloc_for_usehyo (&(p->rk_usehyo), cur_rk_table->rk_usehyo.size); p->rk_usehyo.size = cur_rk_table->rk_usehyo.size; for (i = 0; i < (cur_rk_table->rk_usehyo.size + 1); i++) { p->rk_usehyo.usemaehyo[i] = cur_rk_table->rk_usehyo.usemaehyo[i]; p->rk_usehyo.usehyo[i] = cur_rk_table->rk_usehyo.usehyo[i]; p->rk_usehyo.useatohyo[i] = cur_rk_table->rk_usehyo.useatohyo[i]; } p->rk_errstat = NULL; p->flags = 0; p->nil[0] = EOLTTR; p->ungetc_buf = EOLTTR; p->unnext_buf = EOLTTR; p->delchr2 = EOLTTR; p->ebf_sw = NULL; p->oneletter[0] = p->oneletter[1] = EOLTTR; p->keybuf[0] = p->urabuf[0] = p->disout[0] = p->rk_output[0] = EOLTTR; p->rk_table = (RomkanTable *) NULL; return (p); } RomkanTable * rk_table_buf_init () { RomkanTable *p; if ((p = (RomkanTable *) malloc (sizeof (RomkanTable))) == NULL) { return (NULL); } p->flags = 0; p->rk_usehyo.size = -1; p->prv_modfnm[0] = NULL; return (p); } void rk_close (p) Romkan *p; { /*free_for_all_area(); *//* V3.1 */ free_for_modesw (&(p->rk_modesw)); free_for_henmatch (&(p->rk_henmatch)); free_for_usehyo (&(p->rk_usehyo)); free (p); } /** 表を読み込んで変換の初期設定をする。（part 3）*/ /* WnnV4.0マルチクライアントの場合 romkan_init3は、Romkan構造体へのポインタを返します。 その後、romkanをする場合は、グローバル変数cur_rkに そのポインタを入れなければならない。 但し、romkan_init3()は、内部で一時的にcur_rkをセットし、 returnする時に元の値に戻します。 */ #ifdef nodef /* 88/06/13 V3.1 */ /** 変換表のクリア */ static /* V3.1 */ void romkan_reset () { if (cur_rk_table->rk_modenaibu.org != NULL) { cur_rk_table->rk_modenaibu.org[0] = 0; /* Terminator */ } choosehyo (); romkan_clear (); } #endif RomkanTable * romkan_table_init (p, modhyo, keyinfn, bytcntfn, kbytcntfn, flags_) RomkanTable *p; fast char *modhyo; /* モード定義表の名又はそのパス名 */ letter (*keyinfn) (); fast int (*bytcntfn) (); fast int (*kbytcntfn) (); fast int flags_; { int errcod; /* 今の所1のみ */ fast RomkanTable *tmp_cur_rk_table; fast RomkanTable *rk_table_buf; tmp_cur_rk_table = cur_rk_table; if (p == NULL) { if ((rk_table_buf = (RomkanTable *) rk_table_buf_init ()) == NULL) { return (NULL); } } else { rk_table_buf = p; } cur_rk_table = rk_table_buf; cur_rk_table->keyin_method = keyinfn; cur_rk_table->bytcnt_method = (bytcntfn == NULL ? head_bytecount : bytcntfn); cur_rk_table->kbytcnt_method = (kbytcntfn == NULL ? cur_rk_table->bytcnt_method : kbytcntfn); /* 88/05/30/ V3.1 */ if (modhyo == NULL) modhyo = ""; strcpy (cur_rk_table->prv_modfnm, modhyo); /* V3.1 */ if ((errcod = setjmp (cur_rk_table->env0)) != 0) { /* 88/06/13 V3.1 */ free_for_all_area (); /* V3.1 */ fprintf (stderr, "romkan_init failed."); } else { readdata (modhyo); /* 88/06/08 V3.1 */ } cur_rk_table = tmp_cur_rk_table; if (!errcod) { return (rk_table_buf); } else { free (rk_table_buf); return (NULL); } } /** 表を読み込んで変換の初期設定をする。（part 3）*/ Romkan * romkan_init3 (delchr_, nisedl_, delchr2_, flags_) letter delchr_; /* DELとして使うコード */ letter nisedl_; /* 偽DELとして使うコード */ letter delchr2_; /* DELとして使うコードが二つある場合そのもう一方 */ int flags_; /* 以下のフラグが利用可。これらはrk_spclval.hにて定義。 RK_CHMOUT:モードチェンジを知らせるコードを返すか？ RK_KEYACK:キーインに対し必ず何かを返すか RK_NONISE:偽コードを出さないようにするか RK_REDRAW:Wnn用特殊フラグ（redraw用のフラグを出すかどうか） RK_SIMPLD:deleteの動作を単純にするか */ { Romkan *tmp_cur_rk; Romkan *rk_buf; tmp_cur_rk = cur_rk; if (setjmp (cur_rk_table->env0) != 0) { return (NULL); } if ((rk_buf = (Romkan *) rk_buf_init ()) == NULL) { return (NULL); } cur_rk = rk_buf; /* 偽コードを出すかの設定はromkan_clearで使うので、フラグの設定を 先にやっておかないといけない。 */ cur_rk->flags = flags_; cur_rk->curdis = DISOUT; cur_rk->delchr = delchr_; cur_rk->nisedl = nisedl_; cur_rk->delchr2 = delchr2_; /** 実はDELのキャラクタを二個まで持てる。二個目：delchr2は、未設定の とき（値がEOLTTR）は無視される。それ以外は、delchr2が入力されると delchrが入力されたのと同じ振る舞いをする。*/ choosehyo (); cur_rk = tmp_cur_rk; return (rk_buf); } #define ifflg(a, b) ((a) ? (b) : 0) /** 表を読み込んで変換の初期設定をする。（part 2: キー入力に対し必ず何か 返すようにするか、キーバッファをクリアするかどうかなども指定可）*/ Romkan * romkan_init2 (delchr_, chmoutf, keyinfn, bytcntfn, keyackf, restartf, nonisecodf) char chmoutf, keyackf, restartf, nonisecodf; letter delchr_; letter (*keyinfn) (); int (*bytcntfn) (); /* 引数の詳細はromkan_init3を参照 */ { return (romkan_init3 (delchr_, toNISE (delchr_), EOLTTR, keyinfn, bytcntfn, (int (*)()) NULL, ifflg (chmoutf, RK_CHMOUT) | ifflg (keyackf, RK_KEYACK) | ifflg (nonisecodf, RK_NONISE))); } /** 表を読み込んで変換の初期設定をする。（part 1）*/ Romkan * romkan_init (delchr_, chmoutf, keyinfn, bytcntfn) char chmoutf; letter delchr_; letter (*keyinfn) (); int (*bytcntfn) (); /* 引数の詳細はromkan_init3を参照 */ { return (romkan_init2 (delchr_, chmoutf, keyinfn, bytcntfn, 0, 0, 0)); } /** バイトカウント関数のデフォルト。sの指している所に入っているのが 何バイトコードかを返す。 romkan_nextに注意。そちらでは、バイトカウント関数の値は 引数の一文字目にのみ依存すると仮定している。*/ static /* V3.1 */ int head_bytecount (s) fast uns_chr *s; { fast uns_chr c = *s; #ifdef IKIS return ((c <= 0xa0 || c == 0xff) ? 1 : 2); #else if (c == SS2) return (2); if (c == SS3) return (3); if (c <= 0xa0) return (1); else return (2); #endif } /** 変換された文字を順次返す */ /* *INDENT-OFF* */ letter romkan_getc () /* *INDENT-ON* */ { fast letter l; /* V3.1 */ /* ungetcされている場合は、それを取り出す。 */ if (cur_rk->ungetc_buf != EOLTTR) return (l = cur_rk->ungetc_buf, cur_rk->ungetc_buf = EOLTTR, l); while (*(cur_rk->curdis) == EOLTTR) { /* romkan_next()の値がLTREOFの時も、そのまま送れば良い。 */ cur_rk->curdis = romkan_henkan (romkan_next ()); /* keyackflgが非0なら、キーインがあれば必ず何か返す。その ため、返すべきものがない時はEOLTTRを返すことにする。 */ if (cur_rk->flags & RK_KEYACK) break; } if (EOLTTR != (l = *(cur_rk->curdis))) cur_rk->curdis++; return (l); /* 偽物の文字なら、HG1BITが立っている。 */ /* 特別なコード(例えば偽のBEEPとしてNISEBP)を返すときがある。それらは rk_spclval.hに定義されている。 */ } /** romkan_getcの下位関数として、入力を一文字受け取って 変換結果の文字列を出力する。*/ letter * romkan_henkan (mae_in) letter mae_in; { letter mae_out[2], *p; /* if(*(cur_rk->curdis) != EOLTTR){p = cur_rk->curdis; cur_rk->curdis = cur_rk->nil; return(p);} */ /* ↑これではmae_inが無視される */ cur_rk->curdis = cur_rk->nil; /* 前・後処理への入力は常にただ一文字 */ mae_out[0] = mae_out[1] = EOLTTR; cur_rk->eofflg = cur_rk->rk_errstat = 0; *(cur_rk->rk_output) = *(cur_rk->disout) = EOLTTR; maeato_henkan (mae_in, mae_out, cur_rk->rk_usehyo.usemaehyo); cur_rk->rk_input = *mae_out; if (cur_rk->rk_input == LTREOF) { /* LTREOFが来た場合、(error)を無視し、本処理バッファの末尾迄 強制変換する。そのためにeofflgを1にする。その後、結果の 末尾に、LTREOFが来た時の特別コード（指定されていれば）と、 LTREOFをつなぐ。 */ cur_rk->eofflg = 1; match (); cur_rk->eofflg = 2; add_at_eof (); /* codeoutに、LTREOFが来た時出すコードが入る。 */ ltr1cat (cur_rk->codeout, LTREOF); ltrcat (cur_rk->disout, cur_rk->codeout); ltrcat (cur_rk->rk_output, cur_rk->codeout); } else if (cur_rk->rk_input == EOLTTR) { /* EOLTTRが来た場合も、上と同様の処理を行うが、LTREOFは つながない。なお、これはromkan_getc()を呼んでいる時は 起こらない（romkan_next()がEOLTTRを返さないから）。 */ cur_rk->eofflg = 1; match (); } else if (cur_rk->rk_input == cur_rk->delchr || cur_rk->rk_input == cur_rk->delchr2) { /* delchr2が未設定ならその値はEOLTTRなのでrk_inputと等しくない。 */ romkan_delete (cur_rk->rk_input); /* V3.1 */ } else { ltr1cat (cur_rk->keybuf, cur_rk->rk_input); ltr1cat (cur_rk->disout, toNISE (cur_rk->rk_input)); match (); } if (!(cur_rk->flags & RK_CHMOUT)) { /* chmoutflgが0の時は、CHMSIGを出さない。 */ for (p = DISOUT;; p++) { while (*p == CHMSIG) ltrcpy (p, p + 1); if (*p == EOLTTR) break; } } if ((cur_rk->flags & RK_REDRAW) && NULL != (p = ltr_rindex (cur_rk->disout, cur_rk->nisedl))) { for (p++; *p != EOLTTR || (ltr1cat (cur_rk->disout, REDRAW), 0); p++) if (!isSPCL (*p)) break; } /* wnnのredrawのフラグが立っていて、disoutがnisedl以後特殊コードのみ で終わっていたら、REDRAWを出して、Wnnに変換行のredrawをさせる。 */ return (DISOUT); } /******************************************************************************/ /* デバッグ用関数 */ #ifdef KDSP # ifdef MVUX pridbg2 (a, b, c) char *a, *c; letter *b; { printf ("%s", a); dump_fordbg (b); printf ("%s", c); } ltr_displen (l) letter l; { while (l >= 256) l >>= 8; if (l == 0) return (0); if (l < ' ') return (0); if (168 <= l && l <= 170) return (1); return (l > 160 ? 2 : 1); } dump_fordbg (lp) letter *lp; { while (*lp != EOLTTR) printf ("%x/", *lp++); } print_fordbg (lp) letter *lp; { while (*lp != EOLTTR) putletter (*lp++ & ~HG1BIT); } print_ltrseq (lp) letter *lp; { while (*lp != EOLTTR) print_ltr (*lp++ & ~HG1BIT); } print_ltr (l) letter l; { letter *disptail; int i; if (!isSPCL (l)) l &= ~HG1BIT; if (l == CHMSIG) #ifdef CHMDSP printf ("...mode=%s\n", romkan_dispmode ()) #endif ; else #define BEEPCH '\007' #define NEWLIN '\n' if (l == BEEPCH || l == NISEBP) putchar (BEEPCH); else if (l == NEWLIN) { *(cur_rk->displine) = *(cur_rk->keybuf) = *(cur_rk->urabuf) = EOLTTR; cur_rk->lastoutlen = cur_rk->lastkbflen = 0; putchar (l); } else if (l == cur_rk->delchr || l == cur_rk->nisedl) { if (*(cur_rk->displine) == EOLTTR) putchar (BEEPCH); else { disptail = ltrend (cur_rk->displine); for (i = ltr_displen (*disptail); i; i--) printf ("\031 \031"); *disptail = EOLTTR; } } else { ltr1cat (cur_rk->displine, l); putletter (l); } } # endif /* of #ifdef MVUX */ #endif /* デバッグ用関数終わり */ /* 88/06/10 V3.1 */ /** DELが入力されたときの処理をする */ static /* V3.1 */ void romkan_delete (input_del) letter input_del; { if (ltrlen (cur_rk->keybuf) > ((cur_rk->flags & RK_SIMPLD) ? 0 : cur_rk->lastkbflen)) { ltr1cut (cur_rk->keybuf); set_rubout (cur_rk->disout, 1, cur_rk->nisedl); } else { if (*(cur_rk->urabuf) != EOLTTR && !(cur_rk->flags & RK_SIMPLD)) { ltr1cut (ltrcpy (cur_rk->keybuf, cur_rk->urabuf)); *(cur_rk->urabuf) = EOLTTR; set_rubout (cur_rk->rk_output, cur_rk->lastoutlen, input_del); set_rubout (cur_rk->disout, cur_rk->lastkbflen, cur_rk->nisedl); bitup_ltrcat (ltrcat (cur_rk->disout, cur_rk->rk_output), cur_rk->keybuf); cur_rk->lastkbflen = cur_rk->lastoutlen = 0; } else { set_rubout (cur_rk->disout, 1, input_del); set_rubout (cur_rk->rk_output, 1, input_del); } } } /** letterの列 lp1 と lp2 のマッチを試みる。返値は、lp1がlp2の頭部と 一致の時 -1、lp1またはその頭部とlp2が一致のときは一致長（lp2が 空文字列の時を含む。この場合返値は0）、それ以外は -2。 lp2側に式が含まれていたら評価をする。lp1側には式を含んではだめ */ static /* V3.1 */ int prefixp (lp1, lp2) letter *lp1, *lp2; { /* 1行マッチさせるごとに、まずmatch情報をクリアしてから。 つまり、rk_henmatch.point[0].ltrmch = EOLTTR; としておく。 */ fast int mch_len = 0, d_len; /* V3.1 */ for (;;) { if (*lp2 == EOLTTR) return (mch_len); if (*lp1 == EOLTTR) return (-1); if ((d_len = p_eq (&lp2, &lp1)) < 0) return (d_len); mch_len += d_len; } } /** num番目の変数が既にある文字とマッチしていると仮定して、その文字を返す */ static /* V3.1 */ letter mchedsrc (num) fast int num; /* V3.1 */ { fast matchpair *pairptr; /* V3.1 */ if (cur_rk->rk_henmatch.size <= 0) return (0); for (pairptr = cur_rk->rk_henmatch.point; pairptr->ltrmch != EOLTTR; pairptr++) { if (num == pairptr->hennum) return (pairptr->ltrmch); } return (BUGreport (8), 0); } /** num番目の変数が文字 l とマッチするか調べる。その変数がunboundだった 場合は l にbindする。マッチしたら(bindの時を含む)1、しないと0を返す */ static /* V3.1 */ int mchsrc (num, l) fast int num; /* V3.1 */ fast letter l; /* V3.1 */ { fast matchpair *pairptr; /* V3.1 */ if (hen_ikisrc (num, l) == 0) return (0); if (cur_rk->rk_henmatch.size <= 0) return (0); for (pairptr = cur_rk->rk_henmatch.point; pairptr->ltrmch != EOLTTR; pairptr++) { if (num == pairptr->hennum) return (pairptr->ltrmch == l); } pairptr->ltrmch = l; pairptr->hennum = num; (++pairptr)->ltrmch = EOLTTR; return (1); } /** l1pから一単位を取って評価し、文字l2と一致するかどうかを返す。評価した 結果が一文字にならなかったら、当然一致しない。*/ static /* V3.1 */ int l_eq (l1p, l2) letter *l1p, l2; { letter evlrsl[RSLMAX]; switch (SHUBET (*l1p)) { case 0: return (*l1p == l2); case 1: return (mchsrc ((int) LWRMSK (*l1p), l2)); case 2: mchevl (&l1p, evlrsl); return (evlrsl[0] == l2 && evlrsl[1] == EOLTTR); default: return (BUGreport (1), 0); } } /** prefixp内で使用 但し引数の順序は逆、すなわち式が含まれうるのはl1pp側 のみ。l1ppから一単位ぶん取って評価したものとl2ppのマッチを試みる。それ がl2ppまたはその頭部とマッチすれば一致長を返し（l1ppの評価結果が空文字 列の時を含む。この場合返値は0）、逆にl1ppの評価結果の頭部とl2ppがマッ チした時は -1を返す。マッチが失敗したら返値は -2。*/ static /* V3.1 */ int p_eq (l1pp, l2pp) fast letter **l1pp, **l2pp; /* V3.1 */ { int num; letter evlrsl[RSLMAX], *rslptr; fast int retval = -2; /* V3.1 */ /* l2pp側には式を含まない筈 */ if (!is_HON (**l2pp)) { /* if(is_HON(**l1pp)) retval = p_eq(l2pp, l1pp); else */ BUGreport (9); } else { switch (SHUBET (**l1pp)) { case 0: /* 文字同士 */ retval = (*(*l1pp)++ == *(*l2pp)++ ? 1 : -2); break; case 1: /* 変数と文字 */ num = LWRMSK (*(*l1pp)++); retval = (mchsrc (num, *(*l2pp)++) ? 1 : -2); break; case 2: /* 式と文字 */ mchevl (l1pp, rslptr = evlrsl); for (retval = 0; *rslptr != EOLTTR; retval++) { if (**l2pp == EOLTTR) { retval = -1; break; } else if (*rslptr++ != *(*l2pp)++) { retval = -2; break; } } break; default: BUGreport (2); } } return (retval); } /** l1pから一単位評価してl2pに入れる */ #ifdef MULTI #define XY2INT(X, Y) (((X) << 24) | (Y)) /* これが１回しかYを評価しないことに 依存して書いてある箇所がある 注意！ */ /** l1pから一単位評価してl2pに入れる */ static void mchevl (l1pp, l2p) letter **l1pp, *l2p; { letter *l1p, tmpevl[RSLMAX]; l1p = *l1pp; switch (SHUBET (*l1p)) { case 0: *l2p++ = *l1p++; break; case 1: *l2p++ = mchedsrc ((int) LWRMSK (*l1p++)); break; case 2: /* toupper, tolower, error, … */ switch (LWRMSK (*l1p++)) { case 2: mchevl (&l1p, tmpevl); *l2p++ = to_upper (*tmpevl); break; case 3: mchevl (&l1p, tmpevl); *l2p++ = to_lower (*tmpevl); break; case 4: *l2p++ = CHMSIG; *l2p++ = *l1p++; *l2p++ = 0; break; /* EOLではない */ case 5: *l2p++ = CHMSIG; *l2p++ = *l1p++; *l2p++ = 1; break; case 6: *l2p++ = CHMSIG; *l2p++ = *l1p++; *l2p++ = 2; break; case 7: mchevl (&l1p, tmpevl); *l2p++ = to_updown (*tmpevl); break; case 8: mchevl (&l1p, tmpevl); *l2p++ = to_zenalpha (*tmpevl); break; case 9: mchevl (&l1p, tmpevl); *l2p++ = to_hira (*tmpevl); break; case 10: mchevl (&l1p, tmpevl); *l2p++ = to_kata (*tmpevl); break; case 11: mchevl (&l1p, tmpevl); to_hankata (*tmpevl, &l2p); break; /* 特殊 */ case 12: mchevl (&l1p, tmpevl); *l2p++ = to_zenhira (*tmpevl); break; case 13: mchevl (&l1p, tmpevl); *l2p++ = to_zenkata (*tmpevl); break; case 14: mchevl (&l1p, tmpevl); *l2p = *tmpevl; mchevl (&l1p, tmpevl); *l2p += *tmpevl; LWRCUT (*l2p++); break; case 15: mchevl (&l1p, tmpevl); *l2p = *tmpevl; mchevl (&l1p, tmpevl); *l2p -= *tmpevl; LWRCUT (*l2p++); break; case 16: mchevl (&l1p, tmpevl); *l2p = *tmpevl; mchevl (&l1p, tmpevl); *l2p *= *tmpevl; LWRCUT (*l2p++); break; case 17: mchevl (&l1p, tmpevl); *l2p = *tmpevl; mchevl (&l1p, tmpevl); if (!*tmpevl) *l2p = LTRHUG; else *l2p /= *tmpevl; LWRCUT (*l2p++); break; case 18: mchevl (&l1p, tmpevl); *l2p = *tmpevl; mchevl (&l1p, tmpevl); if (!*tmpevl) *l2p = LTRHUG; else *l2p %= *tmpevl; LWRCUT (*l2p++); break; /* 19〜21・30は、条件を満たすと空文字列、 そうでないとUNUSDCを文字列として返す。 */ case 19: mchevl (&l1p, tmpevl); if (lastmch () != *tmpevl) *l2p++ = UNUSDC; break; case 20: if (!(cur_rk->rk_modesw.point)[LWRMSK (*l1p++)]) *l2p++ = UNUSDC; break; case 21: if (cur_rk->rk_modesw.point[LWRMSK (*l1p++)]) *l2p++ = UNUSDC; break; case 22: *l2p++ = REASIG; break; case 23: *l2p++ = cur_rk->delchr; break; case 24: *l2p++ = CHMSIG; *l2p++ = 0; /* これで「all」を表す */ *l2p++ = 0; break; case 25: *l2p++ = CHMSIG; *l2p++ = 0; *l2p++ = 1; break; case 26: mchevl (&l1p, tmpevl); *l2p = *tmpevl; mchevl (&l1p, tmpevl); *l2p &= *tmpevl; LWRCUT (*l2p++); break; case 27: mchevl (&l1p, tmpevl); *l2p = *tmpevl; mchevl (&l1p, tmpevl); *l2p |= *tmpevl; LWRCUT (*l2p++); break; case 28: mchevl (&l1p, tmpevl); *l2p = ~(*tmpevl); LWRCUT (*l2p++); break; case 29: *l2p++ = URBFCL; break; case 30: if (cur_rk->eofflg != 2 || *(cur_rk->keybuf) != EOLTTR) *l2p++ = UNUSDC; break; case 31: { letter code, basenum; mchevl (&l1p, tmpevl); code = *tmpevl; mchevl (&l1p, tmpevl); if ((basenum = *tmpevl) <= 1 || BASEMX < basenum) basenum = 10; to_digit (code, basenum, &l2p); } break; case 32: mchevl (&l1p, tmpevl); dakuadd (*tmpevl, &l2p); break; /* 特殊 */ case 33: mchevl (&l1p, tmpevl); handakuadd (*tmpevl, &l2p); break; /* 特殊 */ case 34: mchevl (&l1p, tmpevl); *l2p++ = ltov (*tmpevl); break; case 35: *l2p++ = ERRCOD; break; /* case 36: omitted */ case 37: *l2p++ = CHMSIG; /* *l2p++ = LWRMSK(*l1p++); */ *l2p++ = *l1p++; *l2p++ = *l1p++; break; case 38: *l2p++ = CHMSIG; *l2p++ = XY2INT (2, LWRMSK (*l1p++)); *l2p++ = *l1p++; break; case 39: *l2p++ = CHMSIG; *l2p++ = XY2INT (3, LWRMSK (*l1p++)); *l2p++ = *l1p++; break; case 40: { letter modnum; modnum = LWRMSK (*l1p++); if (cur_rk->rk_modesw.point[modnum] != *l1p++) *l2p++ = UNUSDC; break; } case 41: { letter modnum; modnum = LWRMSK (*l1p++); if (cur_rk->rk_modesw.point[modnum] == *l1p++) *l2p++ = UNUSDC; break; } case 42: { letter modnum; modnum = LWRMSK (*l1p++); if (cur_rk->rk_modesw.point[modnum] >= *l1p++) *l2p++ = UNUSDC; break; } case 43: { letter modnum; modnum = LWRMSK (*l1p++); if (cur_rk->rk_modesw.point[modnum] <= *l1p++) *l2p++ = UNUSDC; break; } case 44: mchevl (&l1p, tmpevl); *l2p++ = SENDCH; *l2p++ = *tmpevl; break; default: /* case 0及び上記以外 */ ; BUGreport (7); } } *l2p = EOLTTR; *l1pp = l1p; } #else /*!MULTI */ static /* V3.1 */ mchevl (l1pp, l2p) letter **l1pp, *l2p; { letter *l1p, tmpevl[RSLMAX]; l1p = *l1pp; switch (SHUBET (*l1p)) { case 0: *l2p++ = *l1p++; break; case 1: *l2p++ = mchedsrc ((int) LWRMSK (*l1p++)); break; case 2: /* toupper, tolower, error, … */ switch (LWRMSK (*l1p++)) { case 1: mchevl (&l1p, tmpevl); *l2p++ = to_upper (*tmpevl); break; case 2: mchevl (&l1p, tmpevl); *l2p++ = to_lower (*tmpevl); break; case 3: *l2p++ = ERRCOD; break; case 4: *l2p++ = CHMSIG; *l2p++ = *l1p++; *l2p++ = 0; break; /* EOLではない */ case 5: *l2p++ = CHMSIG; *l2p++ = *l1p++; *l2p++ = 1; break; case 6: *l2p++ = CHMSIG; *l2p++ = *l1p++; *l2p++ = 2; break; case 7: mchevl (&l1p, tmpevl); *l2p++ = to_updown (*tmpevl); break; case 8: mchevl (&l1p, tmpevl); *l2p++ = to_zenalpha (*tmpevl); break; case 9: mchevl (&l1p, tmpevl); *l2p++ = to_hira (*tmpevl); break; case 10: mchevl (&l1p, tmpevl); *l2p++ = to_kata (*tmpevl); break; case 11: mchevl (&l1p, tmpevl); to_hankata (*tmpevl, &l2p); break; /* 特殊 */ case 12: mchevl (&l1p, tmpevl); *l2p++ = to_zenhira (*tmpevl); break; case 13: mchevl (&l1p, tmpevl); *l2p++ = to_zenkata (*tmpevl); break; case 14: mchevl (&l1p, tmpevl); *l2p = *tmpevl; mchevl (&l1p, tmpevl); *l2p += *tmpevl; LWRCUT (*l2p++); break; case 15: mchevl (&l1p, tmpevl); *l2p = *tmpevl; mchevl (&l1p, tmpevl); *l2p -= *tmpevl; LWRCUT (*l2p++); break; case 16: mchevl (&l1p, tmpevl); *l2p = *tmpevl; mchevl (&l1p, tmpevl); *l2p *= *tmpevl; LWRCUT (*l2p++); break; case 17: mchevl (&l1p, tmpevl); *l2p = *tmpevl; mchevl (&l1p, tmpevl); if (!*tmpevl) *l2p = LTRHUG; else *l2p /= *tmpevl; LWRCUT (*l2p++); break; case 18: mchevl (&l1p, tmpevl); *l2p++ = ltov (*tmpevl); break; /* 19〜21・30は、条件を満たすと空文字列、 そうでないとUNUSDCを文字列として返す。 */ case 19: mchevl (&l1p, tmpevl); if (lastmch () != *tmpevl) *l2p++ = UNUSDC; break; case 20: if (!(cur_rk->rk_modesw.point)[LWRMSK (*l1p++)]) *l2p++ = UNUSDC; break; case 21: if (cur_rk->rk_modesw.point[LWRMSK (*l1p++)]) *l2p++ = UNUSDC; break; case 22: *l2p++ = REASIG; break; case 23: *l2p++ = cur_rk->delchr; break; case 24: *l2p++ = CHMSIG; *l2p++ = 0; /* これで「all」を表す */ *l2p++ = 0; break; case 25: *l2p++ = CHMSIG; *l2p++ = 0; *l2p++ = 1; break; case 26: mchevl (&l1p, tmpevl); *l2p = *tmpevl; mchevl (&l1p, tmpevl); *l2p &= *tmpevl; LWRCUT (*l2p++); break; case 27: mchevl (&l1p, tmpevl); *l2p = *tmpevl; mchevl (&l1p, tmpevl); *l2p |= *tmpevl; LWRCUT (*l2p++); break; case 28: mchevl (&l1p, tmpevl); *l2p = ~(*tmpevl); LWRCUT (*l2p++); break; case 29: *l2p++ = URBFCL; break; case 30: if (cur_rk->eofflg != 2 || *(cur_rk->keybuf) != EOLTTR) *l2p++ = UNUSDC; break; case 31: { letter code, basenum; mchevl (&l1p, tmpevl); code = *tmpevl; mchevl (&l1p, tmpevl); if ((basenum = *tmpevl) <= 1 || BASEMX < basenum) basenum = 10; to_digit (code, basenum, &l2p); } break; case 32: mchevl (&l1p, tmpevl); dakuadd (*tmpevl, &l2p); break; /* 特殊 */ case 33: mchevl (&l1p, tmpevl); handakuadd (*tmpevl, &l2p); break; /* 特殊 */ default: /* case 0及び上記以降 */ ; BUGreport (7); } } *l2p = EOLTTR; *l1pp = l1p; } #endif /*!MULTI */ /** num番目の変数の変域が文字 l を含むかどうかを返す */ static /* V3.1 */ int hen_ikisrc (num, l) int num; letter l; { fast letter *defptr; /* V3.1 */ defptr = cur_rk_table->rk_hyo.point[cur_rk->hyonum].hensudef[num]; /* V3.1 */ if (*defptr == VARRNG) { for (defptr++; *defptr != EOLTTR;) if (*defptr++ <= l && l <= *defptr++) return (1); return (0); } for (; *defptr != EOLTTR; defptr++) { if (l == *defptr) return (1); } return (0); } /** 変換のメインルーチン。本処理を行うが、ついでに後処理もやっている。 ちなみに前処理は、romkan_getcの下位関数romkan_henkanの中で、 この関数を呼ぶ前にやっている。 この関数は、romkan_nextから一文字来る度に呼ばれる。呼び出された直後は outputは空文字列、disoutには入力コード一文字が入っている。 この関数で得られる文字の列が、romkan_henkanに渡り、 romkan_getcは、それを文字ごとに分解して返す。 (error)でエラーが引き起こされた場合は0を返し、正常終了時は1を返す */ static /* V3.1 */ int match () { int henkanflg = 0, okcode = 0, chm_exist; letter *q; /* V3.1 */ letter urabufcreate[KBFSIZ], orgkeybuf[KBFSIZ]; letter *urabufjunbi, *outcutptr, *dis_end; /* 88/03/01/ V3.1 */ letter nokoribuf[KBFSIZ]; if (*(cur_rk->keybuf) == EOLTTR) { *(cur_rk->urabuf) = EOLTTR; return (1); } ltrcpy (urabufjunbi = orgkeybuf, cur_rk->keybuf); outcutptr = cur_rk->rk_output; while ((okcode = henkan_ok ()) > 0) { henkanflg = 1; codeout_chg (); ltrcat (cur_rk->rk_output, cur_rk->codeout); /* 88/03/01/ V3.1 */ /* p = keybuf + codein_len; ltrcat(ltrcpy(keybuf, remainkbf), p); */ ltrcpy (nokoribuf, cur_rk->keybuf + cur_rk->codein_len); ltrcat (ltrcpy (cur_rk->keybuf, cur_rk->remainkbf), nokoribuf); if (okcode == 2) { ltrcpy (urabufjunbi = urabufcreate, cur_rk->keybuf); totail (outcutptr); } } if (okcode == 0) { ltr1cut (ltrcpy (cur_rk->keybuf, orgkeybuf)); ltr_to_ltrseq (cur_rk->disout, NISEBP); *(cur_rk->rk_output) = EOLTTR; return (0); } if (henkanflg) { ltrcpy (cur_rk->urabuf, urabufjunbi); set_rubout (cur_rk->disout, ltrlen (orgkeybuf) - 1, cur_rk->nisedl); dis_end = cur_rk->disout; totail (dis_end); ltrcpy (dis_end, cur_rk->rk_output); /* モードチェンジを直ちに知らせるため CHMSIGを出力 （romkan_chmack(1)をやってないと、あとで一文字ずつに 分解する時点で、CHMSIGをカット）。 但し、rk_outputからは、CHMSIGを抜く。 また、CHMSIGは末尾に１回しか出力しない （２回以上あっても、１回にまとめて、末尾に置く）。 */ for (chm_exist = 0, q = cur_rk->rk_output;; q++) { while (*q == CHMSIG) { chm_exist = 1; if (ltrcpy (q, q + 1) < outcutptr) outcutptr--; } if (*q == EOLTTR) break; } if (chm_exist) { /* CHMSIGを１つにまとめたものをdis_endにつなげ直す。 このif文をカットすれば、CHMSIGのとりまとめはやらない */ ltr1cat (ltrcpy (dis_end, cur_rk->rk_output), CHMSIG); } bitup_ltrcat (cur_rk->disout, cur_rk->keybuf); cur_rk->lastoutlen = ltrlen (outcutptr); cur_rk->lastkbflen = ltrlen (cur_rk->keybuf); } return (1); } /** LTREOFが入ったときに、何か出すように指定されているか調べて、 codeoutをその結果の文字列（指定がなかったら当然空）にポイントする。 超急ごしらえで、特殊コード等は一切無視する。*/ static /* V3.1 */ void add_at_eof () { fast dat *datptr; /* V3.1 */ fast int i; /* V3.1 */ fast int hyoseq; /* V3.1 */ letter *p; letter evlrsl[RSLMAX]; /* 88/06/14 V3.1 */ for (hyoseq = 0; cur_rk_table->rk_hyo.point != NULL && (cur_rk->hyonum = cur_rk->rk_usehyo.usehyo[hyoseq]) != -1; hyoseq++) { for (i = 0, datptr = cur_rk_table->rk_hyo.point[cur_rk->hyonum].data; (p = datptr[i].code[0]) != NULL; i++) { if (cur_rk->rk_henmatch.size > 0) { cur_rk->rk_henmatch.point[0].ltrmch = EOLTTR; } while (*p != EOLTTR) { switch (SHUBET (*p)) { case 0: /* 文字 */ case 1: /* 変数 */ /* これらがある場合は、NULLとは マッチし得ない。 */ goto Pass; case 2: /* 式 */ mchevl (&p, evlrsl); if (*evlrsl != EOLTTR) goto Pass; /* 入力コード部に、評価すると 空文字列になるものが、他にはない ことが前提。 */ } } ltrevlcpy (cur_rk->codeout = p = cur_rk->evalbuf[0][0], datptr[i].code[1]); while (*p != EOLTTR) { if (isSPCL (*p)) ltrcpy (p, p + 1); else p++; } codeout_chg (); return; Pass:; } } cur_rk->codeout = cur_rk->nil; } /* 88/06/02 V3.1 */ /** num番目のモードをチェンジし、変換表を選択し直す。引数 mod の値が0なら モードをoff、1ならon、2なら切り替える。旧modの値（0か1）を返す。*/ static int chgmod (num, mod) int num, mod; { fast int oldmod; /* V3.1 */ oldmod = cur_rk->rk_modesw.point[num]; cur_rk->rk_modesw.point[num] = (mod != 2 ? mod : !oldmod); choosehyo (); return (oldmod); } /** 全モードを、modが1ならon、0ならoffに切り換える。2ならswitchする。*/ static void allchgmod (mod) int mod; { fast int i; /* V3.1 */ /* 88/06/07 V3.1 */ for (i = 0; i < cur_rk->rk_modesw.count; i++) cur_rk->rk_modesw.point[i] = (mod != 2 ? mod : !(cur_rk->rk_modesw.point[i])); choosehyo (); } /** 一回マッチを試みる。返値は、マッチして確定した場合1（モードチェンジが 混じっている場合は2）、マッチしたが未確定の時-1、マッチしなかったら0。 実行中は、変数 l に、それまでに一致した長さの最高記録を入れており、 より長く一致するものが見つかるごとに、これを更新する。lの値は、マッチ していても0になることもある。p_eq() 及び prefixp() の注釈文を参照。*/ static /* V3.1 */ int henkan_ok () { fast dat *datptr; /* V3.1 */ fast int i, k; /* V3.1 */ fast int l, j, hyoseq; /* V3.1 */ char urabuf_clrf; /* モードチェンジなどで、urabufをクリアする必要が 生じた場合はこれが立ち、その結果、henkan_ok() が1を返すべきところで2を返す。それを見て、 match()がurabufなどの調整をする。 */ fast letter *p; /* V3.1 */ #ifndef MULTI static char ebf_sw = 0; /* V3.1 */ static letter oneletter[2] = { EOLTTR, EOLTTR }; /* V3.1 */ #endif /*!MULTI */ if (*(cur_rk->keybuf) == EOLTTR) return (-1); /* 88/06/14 V3.1 */ for (l = -1, hyoseq = 0; cur_rk_table->rk_hyo.point != NULL && cur_rk->rk_usehyo.usehyo != NULL && (cur_rk->hyonum = cur_rk->rk_usehyo.usehyo[hyoseq]) != -1; hyoseq++) { for (i = 0, datptr = cur_rk_table->rk_hyo.point[cur_rk->hyonum].data; (p = datptr[i].code[0]) != NULL; i++) { if (cur_rk->rk_henmatch.size > 0) { cur_rk->rk_henmatch.point[0].ltrmch = EOLTTR; } switch (k = prefixp (cur_rk->keybuf, p)) { case -2: break; case -1: if (cur_rk->eofflg != 0) break; /* eofflgが立っていたら、未確定の可能性は 捨てる。 */ return (-1); default: if (k > l) { cur_rk->ebf_sw = !cur_rk->ebf_sw; for (j = 1; j <= 2; j++) { ltrevlcpy (cur_rk->evalbuf[cur_rk->ebf_sw][j - 1], datptr[i].code[j]); } l = k; } } } } if (l >= 0) { cur_rk->codein_len = l; cur_rk->codeout = cur_rk->evalbuf[cur_rk->ebf_sw][0]; cur_rk->remainkbf = cur_rk->evalbuf[cur_rk->ebf_sw][1]; for (urabuf_clrf = 0, p = cur_rk->codeout; *p != EOLTTR; p++) { switch (*p) { case CHMSIG: /* codeoutの1,2バイト目に モード番号とスイッチが入ってる */ if (*(p + 1) == 0) allchgmod ((int) *(p + 2)); else chgmod ((int) LWRMSK (*(p + 1)), (int) *(p + 2)); ltrcpy (p + 1, p + 3); /* CHMSIGだけ残して1,2バイト目cut */ urabuf_clrf = 1; break; case URBFCL: /* urabufのクリアを明示的に指定する */ urabuf_clrf = 1; ltrcpy (p, p + 1); p--; /* 一文字前にずれるため、 for文の p++ を相殺して、 同じ地点をもう一度見る。 */ break; } } if (*(cur_rk->codeout) == ERRCOD) { if (cur_rk->eofflg == 0) { cur_rk->rk_errstat = 1; return (0); } /* (error)であって、しかもeofflgが立ってたら、keybuf の末尾まで、そのまま出す。 */ cur_rk->codein_len = ltrlen (cur_rk->keybuf); cur_rk->codeout = ltrcpy (cur_rk->evalbuf[cur_rk->ebf_sw][0], cur_rk->keybuf); cur_rk->remainkbf = cur_rk->nil; cur_rk->rk_errstat = 2; return (1); } /* (error)は単独でしか書けないので、エラー検出はこれで十分。 */ if (*(cur_rk->codeout) == REASIG) { *(cur_rk->codeout) = (romkan_restart () != 0 ? EOLTTR : CHMSIG); /* 再readでエラったらモードチェンジの通知はしない */ urabuf_clrf = 1; } /* 表の再read。但し、これが起こったことを外に知らせるのはCHMSIGで このコードそのものは外へ出ない。(restart)は、(error)同様、 単独でしか書けないので、検出はこれで十分。 */ return (urabuf_clrf ? 2 : 1); } /* 表に現れていないコードはそのまま返す */ cur_rk->codein_len = 1; *(cur_rk->codeout = cur_rk->oneletter) = *(cur_rk->keybuf); cur_rk->remainkbf = cur_rk->nil; return (1); } static void free_for_all_area () { fast int i; free_for_modetable_struct (&(cur_rk_table->rk_defmode)); free_for_modetable_struct (&(cur_rk_table->rk_taiouhyo)); free_for_modetable_struct (&(cur_rk_table->rk_path)); free_for_modebuf (&(cur_rk_table->rk_modebuf)); free_for_hyobuf (&(cur_rk_table->rk_hyobuf)); free_for_heniki (&(cur_rk_table->rk_heniki)); free_for_hensuu (&(cur_rk_table->rk_hensuu)); free_for_modetable_struct (&(cur_rk_table->rk_dspmode)); /* free_for_modesw(&(cur_rk_table->rk_modesw)); */ free_for_modenaibu (&(cur_rk_table->rk_modenaibu)); for (i = 0; i < cur_rk_table->rk_hyo.size; i++) { free_for_hyo_area (&(cur_rk_table->rk_hyo), i); } free_for_hyo (&(cur_rk_table->rk_hyo)); /* free_for_usehyo(&(cur_rk_table->rk_usehyo)); */ free_for_hensuudef (&(cur_rk_table->rk_hensuudef)); /* free_for_henmatch(&(cur_rk_table->rk_henmatch)); */ } /* 88/06/10 V3.1 */ /* romkan_restart内で使うマクロ */ #define taihi(X, Y) {(X) = (Y);} #define clear(X, N) {memset((char *)(&(X)), 0, (N));} #define recov(X, Y) taihi((Y), (X)) /** 表の動的再読み込みをする。現在の内部表現を全て退避し、前と同じ ディレクトリ（に、現在のところ限定）から表を読み込む。もし、 読み込み中にエラーを検出すれば、もとの内部データを復活し非0を返す。*/ static /* V3.1 */ int romkan_restart () { fast int i /*, j */ ; /* V3.1 */ RomkanTable *rk_t = cur_rk_table; modenaibutable rk_modenaibu_sv; modeswtable rk_modesw_sv; modetable rk_dspmode_sv; hyotable rk_hyo_sv; /* usehyotable rk_usehyo_sv; */ hensuudeftable rk_hensuudef_sv; /* matchtable rk_henmatch_sv; */ /* char *dspmod_sv[2][2]; */ /* 待避 */ taihi (rk_modenaibu_sv, rk_t->rk_modenaibu); taihi (rk_modesw_sv, rk_t->rk_modesw); taihi (rk_dspmode_sv, rk_t->rk_dspmode); taihi (rk_hyo_sv, rk_t->rk_hyo); /* taihi(rk_usehyo_sv, rk_t->rk_usehyo); */ taihi (rk_hensuudef_sv, rk_t->rk_hensuudef); /* taihi(rk_henmatch_sv, rk_t->rk_henmatch); for(i = 0; i < 2; i++) for(j = 0; j < 2; j++) dspmod_sv[i][j] = rk_t->dspmod[i][j]; */ /* 消去 */ clear (rk_t->rk_modenaibu, sizeof (modenaibutable)); clear (rk_t->rk_modesw, sizeof (modeswtable)); clear (rk_t->rk_dspmode, sizeof (modetable)); clear (rk_t->rk_hyo, sizeof (hyotable)); /* clear(rk_t->rk_usehyo, sizeof(usehyotable)); */ clear (rk_t->rk_hensuudef, sizeof (hensuudeftable)); /* clear(rk_t->rk_henmatch, sizeof(matchtable)); */ if (NULL != romkan_table_init (rk_t, rk_t->prv_modfnm, rk_t->keyin_method, rk_t->bytcnt_method, rk_t->kbytcnt_method, rk_t->flags)) { /* 正常終了 */ /* 88/06/10 V3.1 */ /* 不要領域の削除 */ free_for_modenaibu (&rk_modenaibu_sv); free_for_modesw (&rk_modesw_sv); free_for_modetable_struct (&rk_dspmode_sv); for (i = 0; i < rk_hyo_sv.size; i++) { free_for_hyo_area (&rk_hyo_sv, i); } free_for_hyo (&rk_hyo_sv); /* free_for_usehyo(&rk_usehyo_sv); */ free_for_hensuudef (&rk_hensuudef_sv); /* free_for_henmatch(&rk_henmatch_sv); */ return (0); } /* 異常終了 */ /* 88/06/10 V3.1 */ /* 不要領域の削除 */ free_for_modenaibu (&(rk_t->rk_modenaibu)); free_for_modesw (&(rk_t->rk_modesw)); free_for_modetable_struct (&(rk_t->rk_dspmode)); for (i = 0; i < rk_t->rk_hyo.size; i++) { free_for_hyo_area (&(rk_t->rk_hyo), i); } free_for_hyo (&(rk_t->rk_hyo)); /* free_for_usehyo(&(rk_t->rk_usehyo)); */ free_for_hensuudef (&(rk_t->rk_hensuudef)); /* free_for_henmatch(&(rk_t->rk_henmatch)); */ /* 復帰 */ recov (rk_modenaibu_sv, rk_t->rk_modenaibu); recov (rk_modesw_sv, rk_t->rk_modesw); recov (rk_dspmode_sv, rk_t->rk_dspmode); recov (rk_hyo_sv, rk_t->rk_hyo); /* recov(rk_usehyo_sv, rk_t->rk_usehyo); */ recov (rk_hensuudef_sv, rk_t->rk_hensuudef); /* recov(rk_henmatch_sv, rk_t->rk_henmatch); for(i = 0; i < 2; i++) for(j = 0; j < 2; j++) rk_t->dspmod[i][j] = dspmod_sv[i][j]; */ return (1); } /** lp2から評価して得た文字列をlp1にコピー */ static /* V3.1 */ void ltrevlcpy (lp1, lp2) letter *lp1, *lp2; { while (*lp2 != EOLTTR) { mchevl (&lp2, lp1); totail (lp1); } *lp1 = EOLTTR; } static /* V3.1 */ void set_rubout (lp, n, del) /** lpに 「del」n個の列をセットする。ここに del は 'delchr'か'nisedl' */ fast letter *lp, del; /* V3.1 */ fast int n; /* V3.1 */ { for (; n; n--) *lp++ = del; *lp = EOLTTR; } /** これが実行されたらバグ。但し実行はそのまま続く */ #ifdef OMRON_LIB static #endif void BUGreport (n) int n; { fprintf (stderr, "\r\nromkan-Bug%d!!\r\n", n); } /** 前処理(mae_in→mae_out)又は後処理(ato_in→ato_out)を行う。*/ static /* V3.1 */ void maeato_henkan (in, outp, m_a_hyo) letter in; /* 入力の一文字 */ letter *outp; /* 出力はここに入る */ int *m_a_hyo; /* どの前・後処理表が選択されているかの情報 */ { fast dat *datptr; /* V3.1 */ fast int i, hyoseq; /* V3.1 */ fast letter *curdat; /* V3.1 */ if (isSPCL (in)) { /* LTREOFやCHMSIGが来うるので、特殊コードはそのまま返すように 細工しておかないといけない。 */ ltr_to_ltrseq (outp, in); return; } /* 88/06/14 V3.1 */ for (hyoseq = 0; m_a_hyo != NULL && (cur_rk->hyonum = m_a_hyo[hyoseq]) != -1; hyoseq++) { for (i = 0, datptr = cur_rk_table->rk_hyo.point[cur_rk->hyonum].data; NULL != (curdat = datptr[i].code[0]); i++) { if (cur_rk->rk_henmatch.size > 0) { cur_rk->rk_henmatch.point[0].ltrmch = EOLTTR; } if (!l_eq (curdat, in)) continue; ltrevlcpy (outp, datptr[i].code[1]); return; } } ltr_to_ltrseq (outp, in); } /** 後処理 */ static /* V3.1 */ void codeout_chg () { fast letter *saishu_outp; /* V3.1 */ letter saishu_out[OUTSIZ]; /* V3.1 */ *(saishu_outp = saishu_out) = EOLTTR; for (; *(cur_rk->codeout) != EOLTTR; cur_rk->codeout++) { maeato_henkan (*(cur_rk->codeout), saishu_outp, cur_rk->rk_usehyo.useatohyo); totail (saishu_outp); } cur_rk->codeout = saishu_out; } /** 一文字プッシュ・バック */ /* *INDENT-OFF* */ letter romkan_ungetc (l) letter l; /* *INDENT-ON* */ { return (cur_rk->ungetc_buf = l); } /** romkan_nextに対し一文字プッシュ・バック */ /* *INDENT-OFF* */ letter romkan_unnext (l) letter l; /* *INDENT-ON* */ { return (cur_rk->unnext_buf = l); } /* 88/06/02 V3.1 */ /******************************************************************************/ #ifndef OMRON /** deleteとして使うキャラクタの設定（偽deleteも）。これを実行後は romkan_clearを実行しておかないと混乱のもとになります。（廃止予定）*/ void romkan_setdel (delchr_, nisedl_) letter delchr_, nisedl_; { cur_rk->delchr = delchr_; cur_rk->nisedl = nisedl_; } #endif /******************************************************************************/