/*
* $Id: rk_modread.c,v 1.9 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_modread.c
88. 6.16 改 正
モード定義表の読み込みを担当するプログラム。
***********************************************************************/
/* Version 3.0 */
#ifdef HAVE_CONFIG_H
# include <config.h>
#endif
#if STDC_HEADERS
# include <stdlib.h>
# include <string.h>
#elif HAVE_STRINGS_H
# include <strings.h>
#endif /* STDC_HEADERS */
#include <sys/types.h>
#include <pwd.h>
#if HAVE_UNISTD_H
# include <unistd.h>
#endif
#include "rk_header.h"
#include "rk_extvars.h"
#ifdef WNNDEFAULT
# include "wnn_config.h"
/* マクロLIBDIRの定義（のためだけ）。コンパイル時は、ヘッダファイルの
サーチパスに、Wnnのインクルードファイルのありかを設定しておくこと。 */
#endif
#define Terminator 0 /* intの列（naibu[]）の終止コード */
extern char *chrcat (), *strend (), *ename ();
extern void romkan_clear ();
char *modhyopath;
static void cond_evl (), mystrcpy (), rd_bcksla (), rd_ctrl (), hyouse (), look_choose ();
void choosehyo ();
static int mystrcmp (), read1tm (), mod_evl (), fnmsrc_tourk (), dspnamsrc_tourk (),
scan1tm (), modsrc_tourk (), chk_get_int (), pathsrc_tourk (), modnamchk (), ctov (), look_cond (), evlcond (), chkchar_getc ();
static char codeeval ();
extern void ERRMOD (), ERMOPN (), BUGreport ();
extern int filnamchk ();
struct kwdpair
{
/* キーワードとその内部表現の対応を与える構造体。内部表現を
持たないものに対しては0が与えられている。 */
char *name;
int code;
}
modfn[] =
{
"defmode", 0,
"if", XY2INT (2, 0), "when", XY2INT (2, 1), "path", 0, "search", 0, "on_dispmode", XY2INT (5, 0), "off_dispmode", XY2INT (5, 1), "on_unchg", XY2INT (6, 0), "off_unchg", XY2INT (6, 1), NULL}; /* 下を見よ キーワード定義表はまだあと二つあるのだ */
struct kwdpair modcond[] = {
"not", XY2INT (3, 0),
"and", XY2INT (3, 1),
"or", XY2INT (3, 2),
"true", XY2INT (3, 3),
"false", XY2INT (3, 4),
"=", XY2INT (3, 5),
"!=", XY2INT (3, 6),
"<", XY2INT (3, 7),
">", XY2INT (3, 8),
NULL
};
int condarg[] = { 1, 2, 2, 0, 0, 2, 2, 2, 2 }; /* 条件判断関数の引数個数 */
struct kwdpair swstat[] = {
"on", 0,
"off", 0,
NULL
};
/* 1×2^24代はモード名、4×2^24代はモード表示文字列、7×2^24代はモード状態定
数の内部表現に使っている */
/** キーワード（if, andなど）が正当なものかチェックし、その番号を返す */
static int
kwdsrc (hyo, wd)
struct kwdpair *hyo; /* どのキーワード表を使うか */
char *wd; /* チェックされるキーワード */
{
int i;
for (i = 0; hyo[i].name != NULL; i++)
if (!mystrcmp (hyo[i].name, wd))
return (i);
ERRMOD (9);
/*NOTREACHED*/
}
/** モード表の読み込み */
void
readmode (modfname)
char *modfname; /* モード表の名 */
{
char buf[MDHMAX], *bufp;
#ifdef RKMODPATH
char *genv, *pathenv, *pathp;
#endif
mcurread = buf; /* エラー処理用 */
#ifdef RKMODPATH
if (!fixednamep (modfname) && NULL != (pathenv = genv = getenv (RKMODPATH)) && *genv != '\0')
{
/* PATHに少なくとも一つのサーチパスがある場合 */
for (;;)
{
/* サーチパスの各々を入れる領域には、pathmeimemを借用
している。後で、サーチパスの先頭に、モード表のある
ディレクトリを設定するので、その便宜のためもある */
for (pathp = pathmeimem; *genv != ':' && *genv; genv++)
*pathp++ = *genv;
*pathp = '\0';
if (*(strend (pathmeimem)) != KUGIRI)
*pathp++ = KUGIRI;
/* pathの区切りはDG（MV）であっても'/' */
strcpy (pathp, modfname);
if (NULL != (modefile = fopen (pathmeimem, "r")))
{
/* Now Mode-hyo found */
if (flags & RK_VERBOS)
fprintf (stderr, "romkan: using Mode-hyo %s ...\r\n", pathmeimem);
curdir = pathmeimem; /* この時点ではファイル名
込みだが、あとでパス名だけになる */
curfnm = ename (modfname);
break;
}
if (*genv != ':')
{ /* Mode-hyo not found */
if (flags & RK_VERBOS)
{
fprintf (stderr, "no %s in ", modfname);
for (genv = pathenv; *genv; genv++)
{
fputc ((*genv == ':' ? ' ' : *genv), stderr);
}
fprintf (stderr, ".\n");
}
ERMOPN (0);
}
else
genv++; /* coutinues searching Mode-hyo */
}
}
else
#endif
{
if (NULL == (modefile = fopen (modfname, "r")))
ERMOPN (0);
if (flags & RK_VERBOS)
fprintf (stderr, "romkan: using Mode-hyo %s ...\r\n", modfname);
strcpy (pathmeimem, modfname);
}
/* サーチパスの先頭に、モード表のあるディレクトリを設定している。 */
*(ename (pathmeimem)) = '\0';
modhyopath = *pathmeiptr++ = pathmeimem;
*pathmeiptr = NULL;
strtail (pathmeimem);
*(pathareaorg = ++pathmeimem) = '\0';
/* pathareaorgは、pathmeimem_[]のうちモード表のあるディレクトリ名を
格納した残りの部分の先頭を指す。 */
while (bufp = buf, read1tm (&bufp, 0))
mod_evl (buf);
fclose (modefile);
}
/** 固定された（サーチパスを見る必要のない）ファイル名に対しては非0を
返す。現在のところ、 / ./ ../ のどれかで始まるものとしているが（作者の
独断）、適当に変えてよい。strchr(s,'/')!=NULL とする方が良いかも */
int
fixednamep (s)
char *s;
{
return (!strncmp ("/", s, 1) || !strncmp ("./", s, 2) || !strncmp ("../", s, 3));
}
/** モード表の一かたまり（リスト、ファイル名、モード表示文字列）を
解釈する。返す値は、defmode,search及びpathの時0、それ以外なら1。*/
static int
mod_evl (s)
char *s; /* モード表の内部表現の列へのポインタ */
{
char md1[MDT1LN], *bgn, *end;
int num, retval = 1;
if (*s != '(')
{
if (*s != '"')
{
num = fnmsrc_tourk (s);
*naibu++ = XY2INT (4, num);
}
else
{
s++;
if (*(end = strend (s)) != '"')
ERRMOD (10);
*end = '\0';
num = dspnamsrc_tourk (s);
*naibu++ = XY2INT (5, 0);
*naibu++ = num;
}
}
else
{
s++;
scan1tm (&s, md1, 1);
switch (num = kwdsrc (modfn, md1))
{
case 0: /* defmode */
retval = 0;
scan1tm (&s, md1, 1); /* modename */
num = modsrc_tourk (md1, 0);
if (scan1tm (&s, md1, 0) == 0)
{
/* 初期on-offについて何も書いてない時の
defaultはoff */
modesw[num].moderng = 2;
modesw[num].curmode = 0;
break;
}
if (*md1 == '(')
{
char tmp[MDT1LN], *s;
unsigned int i, j;
s = md1 + 1;
scan1tm (&s, tmp, 1);
if (chk_get_int (tmp, &i, 0) != 0)
ERRMOD (8);
modesw[num].moderng = i;
scan1tm (&s, tmp, 1);
if (chk_get_int (tmp, &j, modesw[num].moderng) != 0)
ERRMOD (8);
modesw[num].curmode = j;
if (
#ifdef ModeNotInt
modesw[num].moderng != i || modesw[num].curmode != j ||
#endif
i == 1 || (i != 0 && j >= i))
{
ERRMOD (8);
}
scan1tm (&s, tmp, 2);
}
else
{
switch (kwdsrc (swstat, md1))
{
case 0:
modesw[num].curmode = 1;
break;
case 1:
modesw[num].curmode = 0;
break;
}
modesw[num].moderng = 2;
}
scan1tm (&s, md1, 2); /* あればerr */
break;
case 1: /* if */
case 2: /* when */
*naibu++ = modfn[num].code;
scan1tm (&s, md1, 1); /* condition */
cond_evl (md1);
while (scan1tm (&s, md1, 0))
{
if (mod_evl (md1) == 0)
ERRMOD (17);
}
*naibu++ = Terminator;
break;
case 3: /* path */
*(pathmeimem = pathareaorg) = '\0';
*(pathmeiptr = pathmeiorg) = NULL;
case 4: /* search */
retval = 0;
if (hyomeiptr != hyomeiorg)
ERRMOD (11);
/* サーチパスの指定はファイル名の出現より
先行しなければならないとしておく。 */
while (scan1tm (&s, md1, 0))
{ /* find pathname */
pathsrc_tourk (md1);
}
break;
case 5: /* on_dispmode */
case 6: /* off_dispmode */
*naibu++ = modfn[num].code;
scan1tm (&s, md1, 1); /* dispmode string */
if (*(bgn = md1) != '"')
ERRMOD (12);
bgn++;
if (*(end = strend (bgn)) != '"')
ERRMOD (10);
*end = '\0';
*naibu++ = dspnamsrc_tourk (bgn);
scan1tm (&s, md1, 2); /* あればerr */
break;
case 7: /* on_unchg */
case 8: /* off_unchg */
*naibu++ = modfn[num].code;
scan1tm (&s, md1, 2); /* あればerr */
break;
}
}
*naibu = Terminator;
return (retval);
}
/** 条件式（モード名 又はnot,andなどの式）一つを解釈 */
static void
cond_evl (cod)
char *cod; /* 条件式の内部表現の列へのポインタ */
{
char md1[MDT1LN];
unsigned int num;
int i;
if (is_digit (*cod) || *cod == '-')
{
*naibu++ = XY2INT (7, 0);
if (0 != chk_get_int (cod, &num, 0))
ERRMOD (4);
*naibu++ = num;
}
else if (*cod != '(')
{
num = modsrc_tourk (cod, 1);
*naibu++ = XY2INT (1, num);
}
else
{
cod++;
scan1tm (&cod, md1, 1); /* not;and;or */
num = kwdsrc (modcond, md1);
*naibu++ = XY2INT (3, num);
for (i = condarg[num]; i; i--)
{
scan1tm (&cod, md1, 0);
cond_evl (md1);
}
scan1tm (&cod, md1, 2);
}
*naibu = Terminator;
}
/** sで指定されたファイル名が既登録か探し、なければ登録。但し、既登録か
どうかのチェックは厳密ではないが（例えば、同じファイルでも、
パス名付きと無しとでは、同じと見ない）、ファイル名が既登録かどうか
チェックするのは、メモリ節約のために同じ表を読み込むのを防ぐため
だけなので、それ以外には別に困る点はない。*/
static int
fnmsrc_tourk (s)
char *s;
{
int n;
for (n = 0; hyomeiorg[n] != NULL; n++)
if (!mystrcmp (hyomeiorg[n], s))
return (n);
if (hyomeiorg + n != hyomeiptr)
BUGreport (101);
*hyomeiptr++ = hyomeimem;
*hyomeiptr = NULL;
mystrcpy (hyomeimem, s);
if (!(hyoshu[n] = filnamchk (hyomeimem)))
ERRMOD (3);
strtail (hyomeimem);
*++hyomeimem = '\0';
return (n);
}
/** sで指定されたサーチパス名が既登録か探し、なければ登録。但し、fnmsrc_
tourk()同様、既登録かどうかのチェックは厳密ではないが問題ない。*/
static int
pathsrc_tourk (s)
char *s;
{
int n;
char fnm_addsla[MDT1LN];
mystrcpy (fnm_addsla, s);
if (!(*fnm_addsla == '\0' || *(strend (fnm_addsla)) == KUGIRI))
chrcat (fnm_addsla, KUGIRI);
/* パス名が'/'で終わってなければ、それを付加する。 */
for (n = 0; pathmeiorg[n] != NULL; n++)
if (!strcmp (pathmeiorg[n], fnm_addsla))
return (n);
if (pathmeiorg + n != pathmeiptr)
BUGreport (104);
*pathmeiptr++ = pathmeimem;
*pathmeiptr = NULL;
strcpy (pathmeimem, fnm_addsla);
strtail (pathmeimem);
*++pathmeimem = '\0';
return (n);
}
/** sで指定されたモード表示文字列が既登録か探し、なければ登録 */
static int
dspnamsrc_tourk (s)
char *s;
{
int n;
for (n = 0; dspnambgn[n] != NULL; n++)
if (!mystrcmp (dspnambgn[n], s))
return (n);
if (dspnambgn + n != dspnamptr)
BUGreport (103);
*dspnamptr++ = dspcod;
*dspnamptr = NULL;
mystrcpy (dspcod, s);
strtail (dspcod);
*++dspcod = '\0';
return (n);
}
/** 登録されているモード名の中から、sで指定されたモード名を探す。*np に
モード番号が入る。見つからないと現モード名の総数が入る。その場合
返値は0。*/
static int
modnam_src (s, np)
char *s;
int *np;
{
for (*np = 0; modmeibgn[*np] != NULL; (*np)++)
if (!mystrcmp (modmeibgn[*np], s))
return (1);
return (0);
}
/** sで指定されたモード名を探し、なければ登録。但し、flgが非0なら、
見つからなければエラー */
static int
modsrc_tourk (s, flg)
char *s;
int flg;
{
int n;
if (modnam_src (s, &n))
return (n);
if (flg)
ERRMOD (5);
if (modmeibgn + n != modmeiptr)
BUGreport (102);
*modmeiptr++ = modmeimem;
*modmeiptr = NULL;
mystrcpy (modmeimem, s);
if (!modnamchk (modmeimem))
ERRMOD (4);
strtail (modmeimem);
*++modmeimem = '\0';
return (n);
}
/** ファイルから一文字読む（空白文字は飛ばす）。読んだ文字がEOFなら0を返す */
static char
fspcpass ()
{
register int c;
while (EOF != (c = chkchar_getc (modefile)) && is_nulsp (c));
return (c == EOF ? '\0' : c);
}
/** モード表には空白文字以外のコントロール文字は生では混じらないものと
する。混じっていた場合はチェックしつつ、getcを行う。*/
static int
chkchar_getc (f)
FILE *f;
{
register int c;
c = getc (f);
if (is_cntrl (c) && !isspace (c))
{
sprintf (mcurread, "\\%03o", c);
ERRMOD (16);
}
return (c);
}
static int
modehyo_getc ()
{
return (chkchar_getc (modefile));
}
static int
modehyo_ungetc (c)
register int c;
{
return (ungetc (c, modefile));
}
/** socの名のユーザのログイン・ディレクトリ名をdestに入れ、*destにその
末尾を指させる。但しsocが空列なら自分のログイン・ディレクトリ名、
NULLなら自分のホーム・ディレクトリ名。いずれの場合も、不成功時は
何もしない。返値は、不成功時-1（getenv("HOME")失敗時だけは-2）。*/
static int
get_hmdir (dest, soc)
char **dest, *soc;
{
struct passwd *usr;
char *p;
if (soc == NULL)
{
if (NULL == (p = getenv ("HOME")))
return (-2);
}
else
{
if (NULL == (usr = (*soc ? getpwnam (soc) : getpwuid (getuid ()))))
return (-1);
p = usr->pw_dir;
}
strcpy (*dest, p);
strtail (*dest);
return (0);
}
/** モード表・対応表中の、ファイル名の部分の読み込み。先頭が @ 又は ~ の
時は、特殊処理を行う。引数は、一字読み込み・一字戻し・文字列取り出しの
関数と、結果を入れるエリアの番地へのポインタ、次に読まれる文字を入れる
ポインタ。返値は、正常終了時0、@HOMEでホーム・ディレクトリが取れない時
1、@のあとに変なものが来たら2、~で自分のホーム・ディレクトリが取れない
時3、~のあとに存在しないユーザ名が来たら4。*/
int
readfnm (readchar_func, unreadc_func, readstr_func, areap, lastcptr)
register int (*readchar_func) (), (*unreadc_func) (), (*readstr_func) ();
char **areap;
int *lastcptr;
{
char *head;
register int c;
c = (*readchar_func) ();
if (c == '@')
{ /* @HOME, @MODEDIR, @LIBDIR */
*(*areap)++ = c;
head = *areap;
(*readstr_func) (areap, 1);
if (mystrcmp ("HOME", head) == 0)
{
*areap = --head;
if (get_hmdir (areap, (char *) NULL) != 0)
{
*areap = head;
return (1);
}
}
else if (mystrcmp ("MODEDIR", head) == 0)
{
strcpy (*areap = --head, modhyopath);
if (KUGIRI == *(*areap = strend (*areap)))
**areap = '\0';
}
else
#ifdef WNNDEFAULT
if (mystrcmp ("LIBDIR", head) == 0)
{
strcpy (*areap = --head, LIBDIR);
strtail (*areap);
}
else
#endif
{
*areap = --head;
return (2);
}
}
else if (c == '~')
{ /* ~user */
int err;
*(*areap)++ = c;
head = *areap;
(*readstr_func) (areap, 1);
mystrcpy (head, head);
*areap = head - 1;
if ((err = get_hmdir (areap, (*head ? head : NULL))) != 0)
{
*areap = --head;
return (err == -2 ? 3 : 4);
}
}
else
{
(*unreadc_func) (c);
}
*lastcptr = (*readstr_func) (areap, 0);
return (0);
}
/** モード表から一文字分取り出す作業を、空白・括弧のどれか
又はEOFが来るまで続ける。flg & 01が非0なら、'/'が来ても
終わる。返値は、次に読まれる文字。*/
static int
rd_string (readfile, sptr, flg)
register FILE *readfile;
char **sptr;
int flg;
{
int c;
while (EOF != (c = chkchar_getc (readfile)) && !(is_nulsp (c) || c == '(' || c == ')') && !(flg & 01 && c == KUGIRI))
{
switch (c)
{
case '\\':
rd_bcksla (readfile, sptr);
break;
case '^':
rd_ctrl (readfile, sptr);
break;
default:
*(*sptr)++ = c;
}
}
**sptr = '\0';
return (ungetc (c, readfile));
}
static int
rd_str_from_modefile (sptr, flg)
char **sptr;
int flg;
{
return (rd_string (modefile, sptr, flg));
}
/** モード表からバックスラッシュ形式の一文字分を取り出し、'\（8進）;'
の形に直す。但し、先頭の'\\'は既に読まれたあと。*/
static void
rd_bcksla (readfile, sptr)
register FILE *readfile;
char **sptr;
{
int c, code = 0, digflg = 0;
switch (c = chkchar_getc (readfile))
{
case 'n':
code = '\n';
digflg = 1;
break;
case 't':
code = '\t';
digflg = 1;
break;
case 'b':
code = '\b';
digflg = 1;
break;
case 'r':
code = '\r';
digflg = 1;
break;
case 'f':
code = '\f';
digflg = 1;
break;
case 'e':
case 'E':
code = ESCCHR;
digflg = 1;
break;
case 'o':
while (c = chkchar_getc (readfile), is_octal (c))
{
code <<= 3;
code += ctov (c);
digflg = 1;
}
if (c != ';')
ungetc (c, readfile);
break;
case 'd':
while (c = chkchar_getc (readfile), is_digit (c))
{
code *= 10;
code += ctov (c);
digflg = 1;
}
if (c != ';')
ungetc (c, readfile);
break;
case 'x':
while (c = chkchar_getc (readfile), is_xdigit (c))
{
code <<= 4;
code += ctov (c);
digflg = 1;
}
if (c != ';')
ungetc (c, readfile);
break;
default:
if (is_octal (c))
{
digflg = 1;
code = ctov (c);
while (c = chkchar_getc (readfile), is_octal (c))
{
code <<= 3;
code += ctov (c);
}
if (c != ';')
ungetc (c, readfile);
}
else
{
code = c;
digflg = 1;
}
}
if (digflg == 0)
ERRMOD (7);
sprintf (*sptr, "\\%o;", code);
strtail (*sptr);
}
/** モード表からコントロールコード形式の一文字分を取り出し、
'\（8進）;' の形に直す。但し、先頭の'^'は既に読まれたあと。*/
static void
rd_ctrl (readfile, sptr)
register FILE *readfile;
char **sptr;
{
int c;
if (!(' ' <= (c = chkchar_getc (readfile)) && c < '\177'))
ERRMOD (7);
if (c == '?')
c = '\177';
else
c &= 0x1f;
sprintf (*sptr, "\\%o;", c);
strtail (*sptr);
}
/** モード表の一かたまり（リスト、ファイル名、モード表示文字列）を
切り出す。その際、特殊な表記（'^','\'による）は、'\（8進）;' の
形に直す。flgが非0なら、EOFでエラーを起こし、')'で0を返す。*/
static int
read1tm (sptr, flg)
char **sptr; /* モード表の内部表現の列へのポインタへのポインタ。
rd_bcksla()、rd_ctrl()、codeeval()でも同様 */
int flg;
{
int c, err, retval = 1;
char *s;
s = *sptr;
while ((c = fspcpass ()) == ';')
{
/* 注釈文を検出したら、行末までとばして再試行。 */
while ((c = chkchar_getc (modefile)) != '\n' && c != EOF);
}
switch (c)
{
case '\0': /* EOFを表す */
if (flg)
ERRMOD (0);
else
retval = 0;
break;
case ')':
if (flg)
retval = 0;
else
ERRMOD (1);
break;
case '(':
*s++ = c;
*s++ = ' ';
while (read1tm (&s, 1))
*s++ = ' ';
*s++ = ')';
break;
case '"':
*s++ = c;
while ((c = chkchar_getc (modefile)) != '"')
{
switch (c)
{
case EOF:
ERRMOD (0);
case '\\':
rd_bcksla (modefile, &s);
break;
case '^':
rd_ctrl (modefile, &s);
break;
default:
*s++ = c;
}
}
*s++ = '"';
break;
default:
ungetc (c, modefile);
/* 先頭が @ 又は ~ の時は、特殊処理。 */
err = readfnm (modehyo_getc, modehyo_ungetc, rd_str_from_modefile, &s, &c);
if (err)
{
mcurread = s;
switch (err)
{
case 1:
case 3:
ERRMOD (13);
case 2:
ERRMOD (14);
case 4:
ERRMOD (15);
}
}
if (c == EOF && flg)
ERRMOD (0);
if (c == ')' && !flg)
ERRMOD (1);
}
*s = '\0';
*sptr = s;
return (retval);
}
/** 8・10・16進コード用のキャラクタを実際のコードに直す。入力のチェックは
しない。*/
static int
ctov (c)
char c;
{
if (is_upper (c))
return (c - 'A' + 10);
if (is_lower (c))
return (c - 'a' + 10);
return (c - '0');
}
/** リストの中身のscanに専用。')'で0を返す。EOLは来ないはず。
flg == 1 のとき、取り出しに失敗したらエラー。
flg == 2 のとき、取り出しに成功したらエラー。
特殊なコード表記は既に全て '\（8進）;' の形に直っている筈。*/
static int
scan1tm (socp, dest, flg)
char **socp, *dest;
/* socpの指しているポインタが指している所から取り出してdestに入れる。
その後、socpが指しているポインタを進める。 */
int flg;
{
char c;
int retval = 1;
while (c = *(*socp)++, is_nulsp (c))
if (c == '\0')
ERRMOD (6);
switch (c)
{
case ')':
retval = 0;
break;
case '(':
*dest++ = c;
*dest++ = ' ';
while (scan1tm (socp, dest, 0))
{
strtail (dest);
*dest++ = ' ';
}
*dest++ = ')';
break;
case '"':
*dest++ = c;
while ((c = *dest++ = *(*socp)++) != '"')
{
if (c == '\\')
{ /* '\（8進）;'の解釈 */
while (c = *dest++ = *(*socp)++, is_octal (c));
}
}
break;
default:
*dest++ = c;
while (!is_nulsp (**socp))
*dest++ = *(*socp)++;
}
*dest = '\0';
if ((flg == 1 && retval == 0) || (flg == 2 && retval == 1))
ERRMOD (6);
return (retval);
}
/** モード名として正当かチェック。英数字からなっていればいい */
static int
modnamchk (s)
char *s;
{
if (is_digit (*s))
return (0);
for (; *s; s++)
if (!is_alnum (*s) && *s != '_')
return (0);
return (1);
}
#define modu1(a, b) ((b) ? ((a) % (b)) : (a))
#define curmod(num) (modesw[num] . curmode)
#define modrng(num) (modesw[num] . moderng)
/** num番目のモードをチェンジし、変換表を選択し直す。引数 mode の値が0なら
モードをoff、1ならonすることになる。なお、旧modeの値を返す。*/
/* *INDENT-OFF* */
modetyp
chgmod (num, mode)
int num;
modetyp mode;
/* *INDENT-ON* */
{
modetyp oldmod;
oldmod = curmod (num);
curmod (num) = modu1 (mode, modrng (num));
choosehyo ();
return (oldmod);
}
/** 全モードをまとめて切り替える */
void
allchgmod (mode)
modetyp mode;
{
int i;
for (i = 0; modmeibgn[i] != NULL; i++)
{
curmod (i) = modu1 (mode, modrng (i));
}
choosehyo ();
}
/** num番目のモードを指定した数だけインクリメントし、旧modeの値を返す。*/
/* *INDENT-OFF* */
modetyp
incmod (num, dmode)
int num;
modetyp dmode;
/* *INDENT-ON* */
{
modetyp oldmod, newmod;
newmod = oldmod = curmod (num);
newmod += dmode;
if (oldmod > newmod)
newmod -= modrng (num);
return (chgmod (num, newmod));
}
/** num番目のモードを指定した数だけデクリメントし、旧modeの値を返す。都合
により、incmodとは別に用意しなくてはならない。*/
/* *INDENT-OFF* */
modetyp
decmod (num, dmode)
int num;
modetyp dmode;
/* *INDENT-ON* */
{
modetyp oldmod, newmod;
newmod = oldmod = curmod (num);
newmod -= dmode;
if (oldmod < newmod)
newmod += modrng (num);
return (chgmod (num, newmod));
}
/** nameの名のモードがなければ非0を返し、あればそのモード番号・及びその
状態の最大値＋１と現在の状態を取ってくる */
int
romkan_getmode (name, nump, modep, moderngp)
char *name;
int *nump;
modetyp *modep, *moderngp;
{
if (!modnam_src (name, nump))
return (-1);
*modep = curmod (*nump);
*moderngp = modrng (*nump);
return (0);
}
/** nameの名のモードがなければ非0を返し、あればその状態をセットして
変換表を再選択の後、旧状態を取り込んで0を返す。*/
int
romkan_setmode (name, modep)
char *name;
modetyp *modep;
{
modetyp oldmode, moderng;
int modenum;
if (romkan_getmode (name, &modenum, &oldmode, &moderng) != 0)
return (-1);
chgmod (modenum, *modep);
*modep = oldmode;
return (0);
}
/** 変換表のクリア */
void
romkan_reset ()
{
naibu_[0] = Terminator;
choosehyo ();
romkan_clear ();
}
/** 変換対応表の選択を行う */
void
choosehyo ()
{
int *naibup, i;
naibup = naibu_;
usemaehyo[0] = usehyo[0] = useatohyo[0] = -1;
for (i = 0; i < 2; i++)
{
dspmod[1][i] = dspmod[0][i];
dspmod[0][i] = NULL;
}
look_choose (&naibup, 1);
}
/** モード表の内部形式を順次見ていき、使用表の選択及びモード表示文字列の
選択を行っていく。但しflgが0ならスキップするだけ */
static void
look_choose (naibupp, flg)
int **naibupp; /* モード表の内部表現の列へのポインタへのポインタ。
look_cond()、evlcond()でも同様 */
int flg;
{
int *naibup, naibu1, naibu2, branch, lcrsl;
naibup = *naibupp;
while ((naibu1 = *naibup++) != Terminator)
{
switch (SHUBET (naibu1))
{
case 4: /* 表名 */
if (flg)
hyouse (LWRMSK (naibu1));
break;
case 2: /* 条件式 */
branch = LWRMSK (naibu1); /* if;when */
lcrsl = look_cond (&naibup, flg);
if (branch == 0 && lcrsl)
flg = 0;
break;
case 5: /* romkanがon・off時それぞれの
モード表示文字列 */
naibu2 = *naibup++;
if (flg)
dspmod[0][LWRMSK (naibu1)] = dspnambgn[naibu2];
break;
case 6: /* romkanがそれぞれon・off時のモード表示
文字列を前のままに */
if (flg)
dspmod[0][LWRMSK (naibu1)] = dspmod[1][LWRMSK (naibu1)];
break;
default:
BUGreport (6);
}
}
*naibupp = naibup;
}
/** *naibupp が、内部表現の列で条件式を表すところを指している筈なので、
それを評価し、真ならその続きを解釈しにいく。偽なら読み飛ばす。
返値は、最初に評価した条件式の真偽値。*/
static int
look_cond (naibupp, flg)
int **naibupp, flg;
{
int *naibup, condrsl;
naibup = *naibupp;
condrsl = evlcond (&naibup); /* 必ず評価しないといけないため */
flg = flg && condrsl;
look_choose (&naibup, flg);
*naibupp = naibup;
return (flg);
}
/** 条件式の真偽値の評価 返値は0か1とは限らんぞ */
static int
evlcond (naibupp)
int **naibupp;
{
int *naibup, naibu1, retval = -1, tmpval[ARGMAX], i, imax;
naibup = *naibupp;
naibu1 = *naibup++;
switch (SHUBET (naibu1))
{
case 7: /* 数値 */
retval = *naibup++;
break;
case 1: /* モード名 */
retval = modesw[LWRMSK (naibu1)].curmode;
break;
case 3: /* andなど */
imax = condarg[LWRMSK (naibu1)];
for (i = 0; i < imax; i++)
tmpval[i] = evlcond (&naibup);
switch (LWRMSK (naibu1))
{
/* 上から順にtrue,false,not,and,or */
case 0:
retval = !tmpval[0];
break;
case 1:
retval = tmpval[0] && tmpval[1];
break;
case 2:
retval = tmpval[0] || tmpval[1];
break;
case 3:
retval = 1;
break;
case 4:
retval = 0;
break;
case 5:
retval = (tmpval[0] == tmpval[1]);
break;
case 6:
retval = (tmpval[0] != tmpval[1]);
break;
case 7:
retval = ((unsigned int) tmpval[0] < (unsigned int) tmpval[1]);
break;
case 8:
retval = ((unsigned int) tmpval[0] > (unsigned int) tmpval[1]);
break;
}
break;
}
*naibupp = naibup;
return (retval);
}
/** num番目の表を、使用するものとして登録する。前・本・後処理の区別もする */
static void
hyouse (num)
int num;
{
int *ptr;
switch (hyoshu[num])
{
case 1:
ptr = usemaehyo;
break;
case 2:
ptr = usehyo;
break;
case 3:
ptr = useatohyo;
break;
default:
BUGreport (11);
return;
}
for (; *ptr != -1; ptr++)
if (*ptr == num)
return;
*ptr = num;
*++ptr = -1;
}
/** strcmpと同等 但し、'\（8進）;'も解釈する。*/
static int
mystrcmp (s1, s2)
char *s1, *s2;
{
char c1, c2;
while ((c1 = codeeval (&s1)) == (c2 = codeeval (&s2)))
if (c1 == '\0')
return (0);
return (c1 > c2 ? 1 : -1);
}
/** strcpyと同等 但し'\（8進）;'も解釈する。s1 <= s2なら正常動作するはず */
static void
mystrcpy (s1, s2)
char *s1, *s2;
{
while (*s1++ = codeeval (&s2));
}
/** 一文字の解釈を行う。普通の文字はそのまま、'\（8進）;'は実際のコードに
直す。その後、文字列へのポインタを一文字分進めておく（少なくとも
１バイト分進むことが保証されるはず）。*/
static char
codeeval (sptr)
register char **sptr;
{
register char c;
char code = 0;
if ((c = *(*sptr)++) != '\\')
return (c);
while (c = *(*sptr)++, is_octal (c))
{
code <<= 3;
code += ctov (c);
}
if (c != ';')
BUGreport (12);
return (code);
}
/** romkanがon時のモード表示文字列を返す関数。無指定であってRK_DSPNILフラグが
立っている時は空文字列を返す。*/
char *
romkan_dispmode ()
{
return (dspmod[0][0] == NULL && (flags & RK_DSPNIL) ? nulstr : dspmod[0][0]);
}
/** romkanがoff時のモード表示文字列を返す関数。無指定であってRK_DSPNILフラグ
が立っている時は空文字列を返す。*/
char *
romkan_offmode ()
{
return (dspmod[0][1] == NULL && (flags & RK_DSPNIL) ? nulstr : dspmod[0][1]);
}
/** 文字列が10進整数ならその解釈をし、そうでなければ非0を返す */
static int
chk_get_int (p, ip, range)
char *p;
unsigned int *ip;
modetyp range;
{
int sgn = 1;
modetyp out;
if (*p == '-')
{
p++;
sgn = -1;
}
for (out = 0; *p; p++)
{
if (!is_digit (*p))
return (-1);
out *= 10;
out += ctov (*p);
}
if (range != 0)
out %= range;
if (sgn == -1 && out != 0)
out = range - out;
*ip = out;
return (0);
}
syntax highlighted by Code2HTML, v. 0.9.1