diff Xwnmo/xwnmo/wnnrc_op.c @ 0:bbc77ca4def5

initial import

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/Xwnmo/xwnmo/wnnrc_op.c	Thu Dec 13 04:30:14 2007 +0900
@@ -0,0 +1,629 @@
+/*
+ * $Id: wnnrc_op.c,v 1.2 2001/06/14 18:16:18 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
+ * Copyright 1991, 1992 by Massachusetts Institute of Technology
+ *
+ * Author: OMRON SOFTWARE Co., Ltd. <[e-mail]>
+ *
+ * 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:
+ *
+ */
+/*      Version 4.0
+ */
+/* uumrc operations */
+
+#include "stdio.h"
+#include <pwd.h>
+#include "commonhd.h"
+#include "config.h"
+#include "sdefine.h"
+#include "xim.h"
+#include "sheader.h"
+#include "ext.h"
+#include "rk_spclval.h"
+#include "rk_fundecl.h"
+
+extern char *getenv ();
+extern FILE *fopen ();
+
+static char open_uumrc_filenm[1024];
+
+static void
+err_expand (f, s)
+     char *f, *s;
+{
+  print_out2 ("In uumrc file \"%s\", I could not expand %s.", f, s);
+}
+
+static int
+change_ascii_to_int (st, dp)
+     char *st;
+     int *dp;
+{
+  register int total, flag;
+
+  total = 0;
+  flag = 0;
+  while (*st != '\0')
+    {
+      if (isdigit (*st))
+        {
+          total = total * 10 + (*st - '0');
+        }
+      else if (*st == '+')
+        {
+          if (flag != 0)
+            {
+              return (-1);
+            }
+          flag = 1;
+        }
+      else if (*st == '-')
+        {
+          if (flag != 0)
+            {
+              return (-1);
+            }
+          flag = -1;
+        }
+      else
+        {
+          return (-1);
+        }
+      st++;
+    }
+  if (flag == 0)
+    {
+      flag = 1;
+    }
+  *dp = total * flag;
+  return (1);
+}
+
+/*
+ * set parameter
+ */
+static int
+uumrc_set_entry (data, ld, rk_pre_load, root)
+     char *data;
+     XIMLangDataBase *ld;
+     int rk_pre_load, root;
+{
+  int num, d1;
+  char code[256];
+  char s[7][EXPAND_PATH_LENGTH];
+  char tmp[1024];
+  FILE *fp;
+  char *s0or1;
+  register char **dst1, **dst2, *src1, *src2;
+  register int copy = 0;
+
+  /*
+   * get one list
+   */
+  if (comment_char (*data) || (num = sscanf (data, "%s %s %s %s %s %s %s %s", code, s[0], s[1], s[2], s[3], s[4], s[5], s[6])) <= 0)
+    return (0);
+
+  if (strcmp (code, "include") == 0)
+    {
+      if (expand_expr (s[0], ld->lang) != 0)
+        {
+          err_expand (open_uumrc_filenm, s[0]);
+        }
+      if ((fp = fopen (s[0], "r")) != NULL)
+        {
+          while (fgets (tmp, 1024, fp) != NULL)
+            {
+              if (uumrc_set_entry (tmp, ld, rk_pre_load, root) == -1)
+                {
+                  fclose (fp);
+                  return (-1);
+                }
+            }
+          fclose (fp);
+        }
+      else
+        {
+          print_out2 ("Could not open uumrc \"%s\" included in \"%s\".", s[0], open_uumrc_filenm);
+        }
+    }
+  else if (strcmp (code, "setrkfile") == 0)
+    {
+      if (!(rkfile_defined_by_option && (rk_pre_load || root) && ld == cur_lang) && (num > 1))
+        {
+          if (expand_expr (s[0], ld->lang) != 0)
+            {
+              err_expand (open_uumrc_filenm, s[0]);
+            }
+          copy++;
+          dst1 = &ld->rkfile_name;
+          src1 = s[0];
+        }
+    }
+  else if (rk_pre_load == 0)
+    {
+      if (strcmp (code, "setuumkey") == 0)
+        {
+          if (num > 1)
+            {
+              if (ld->uumkey_name)
+                Free (ld->uumkey_name);
+              ld->uumkey_name = NULL;
+              if (expand_expr (s[0], ld->lang) != 0)
+                {
+                  err_expand (open_uumrc_filenm, s[0]);
+                }
+              copy++;
+              dst1 = &ld->uumkey_name;
+              src1 = s[0];
+            }
+        }
+      else if (strcmp (code, "setconvenv") == 0)
+        {
+          if (num > 1)
+            {
+              if (get_new_env (NULL, ld, 0) < 0)
+                goto ERROR_RET;
+              if (num > 2)
+                {
+                  if (!(strcmp (s[num - 2], "sticky")))
+                    {
+                      ld->normal_env->sticky = 1;
+                      num--;
+                    }
+                }
+              if (num == 2)
+                s0or1 = s[0];
+              else
+                {
+                  s0or1 = s[1];
+                  if (def_servername && *def_servername)
+                    src2 = def_servername;
+                  else
+                    src2 = s[0];
+                  copy++;
+                  dst2 = &ld->normal_env->host_name;
+                }
+              if (expand_expr (s0or1, ld->lang) != 0)
+                {
+                  err_expand (open_uumrc_filenm, s0or1);
+                }
+              copy++;
+              dst1 = &ld->normal_env->envrc_name;
+              src1 = s0or1;
+            }
+        }
+      else if (strcmp (code, "setkankanaenv") == 0)
+        {
+          if (num > 1)
+            {
+              if (get_new_env (NULL, ld, 1) < 0)
+                goto ERROR_RET;
+              if (num > 2)
+                {
+                  if (!(strcmp (s[num - 2], "sticky")))
+                    {
+                      ld->reverse_env->sticky = 1;
+                      num--;
+                    }
+                }
+              if (num == 2)
+                s0or1 = s[0];
+              else
+                {
+                  s0or1 = s[1];
+                  if (def_reverse_servername && *def_reverse_servername)
+                    src2 = def_reverse_servername;
+                  else
+                    src2 = s[0];
+                  copy++;
+                  dst2 = &ld->reverse_env->host_name;
+                }
+              if (expand_expr (s0or1, ld->lang) != 0)
+                {
+                  err_expand (open_uumrc_filenm, s0or1);
+                }
+              copy++;
+              dst1 = &ld->reverse_env->envrc_name;
+              src1 = s0or1;
+            }
+        }
+      else if (strcmp (code, "setenv") == 0)
+        {
+          if (num > 2)
+            {
+              if (get_new_env (NULL, ld, 0) < 0)
+                goto ERROR_RET;
+              if (!(strcmp (s[num - 3], "sticky")))
+                {
+                  ld->normal_env->sticky = 1;
+                  num--;
+                }
+              if (num == 3)
+                s0or1 = s[1];
+              else
+                {
+                  s0or1 = s[2];
+                  if (def_servername && *def_servername)
+                    src2 = def_servername;
+                  else
+                    src2 = s[1];
+                  copy++;
+                  dst2 = &ld->normal_env->host_name;
+                }
+              if (expand_expr (s0or1, ld->lang) != 0)
+                {
+                  err_expand (open_uumrc_filenm, s0or1);
+                }
+              copy++;
+              dst1 = &ld->normal_env->envrc_name;
+              src1 = s0or1;
+              strcpy (ld->normal_env->env_name_str, s[0]);
+            }
+        }
+      else if (strcmp (code, "setenv_R") == 0)
+        {
+          if (num > 2)
+            {
+              if (get_new_env (NULL, ld, 1) < 0)
+                goto ERROR_RET;
+              if (!(strcmp (s[num - 3], "sticky")))
+                {
+                  ld->reverse_env->sticky = 1;
+                  num--;
+                }
+              if (num == 3)
+                s0or1 = s[1];
+              else
+                {
+                  s0or1 = s[2];
+                  if (def_reverse_servername && *def_reverse_servername)
+                    src2 = def_reverse_servername;
+                  else
+                    src2 = s[1];
+                  copy++;
+                  dst2 = &ld->reverse_env->host_name;
+                }
+              if (expand_expr (s0or1, ld->lang) != 0)
+                {
+                  err_expand (open_uumrc_filenm, s0or1);
+                }
+              copy++;
+              dst1 = &ld->reverse_env->envrc_name;
+              src1 = s0or1;
+              strcpy (ld->reverse_env->env_name_str, s[0]);
+            }
+        }
+      else if (strcmp (code, "waking_up_in_henkan_mode") == 0)
+        {
+          if (!(defined_by_option & OPT_WAKING_UP_MODE))
+            {
+              henkan_off_def = 0;
+            }
+        }
+      else if (strcmp (code, "waking_up_no_henkan_mode") == 0)
+        {
+          if (!(defined_by_option & OPT_WAKING_UP_MODE))
+            {
+              henkan_off_def = 1;
+            }
+        }
+      else if (strcmp (code, "simple_delete") == 0)
+        {
+          excellent_delete = 0;
+        }
+      else if (strcmp (code, "excellent_delete") == 0)
+        {
+          excellent_delete = 1;
+        }
+      else if (strcmp (code, "send_ascii_char") == 0)
+        {
+          send_ascii_char_def = 1;
+        }
+      else if (strcmp (code, "not_send_ascii_char") == 0)
+        {
+          send_ascii_char_def = 0;
+        }
+      else if (strcmp (code, "setmaxchg") == 0)
+        {
+          if (change_ascii_to_int (s[0], &d1) != -1)
+            {
+              maxchg = (d1 <= 0) ? maxchg : d1;
+            }
+        }
+      else if (strcmp (code, "setmaxbunsetsu") == 0)
+        {
+          if (num >= 2)
+            {
+              if (change_ascii_to_int (s[0], &d1) != -1)
+                {
+                  maxbunsetsu = (d1 <= 0) ? maxbunsetsu : d1;
+                }
+            }
+        }
+      else if (strcmp (code, "setmaxhistory") == 0)
+        {
+          if (num >= 2)
+            {
+              if (change_ascii_to_int (s[0], &d1) != -1)
+                {
+                  max_history = (d1 <= 0) ? max_history : d1 + 1;
+                }
+            }
+        }
+      else if (strcmp (code, "setjishopath") == 0)
+        {
+          if (num > 1)
+            {
+              if (expand_expr (s[0], ld->lang) != 0)
+                {
+                  err_expand (open_uumrc_filenm, s[0]);
+                }
+              copy++;
+              dst1 = &ld->jishopath;
+              src1 = s[0];
+            }
+        }
+      else if (strcmp (code, "sethindopath") == 0)
+        {
+          if (num > 1)
+            {
+              if (expand_expr (s[0], ld->lang) != 0)
+                {
+                  err_expand (open_uumrc_filenm, s[0]);
+                }
+              copy++;
+              dst1 = &ld->hindopath;
+              src1 = s[0];
+            }
+        }
+      else if (strcmp (code, "setfuzokugopath") == 0)
+        {
+          if (num > 1)
+            {
+              if (expand_expr (s[0], ld->lang) != 0)
+                {
+                  err_expand (open_uumrc_filenm, s[0]);
+                }
+              copy++;
+              dst1 = &ld->fuzokugopath;
+              src1 = s[0];
+            }
+        }
+      else if (strcmp (code, "touroku_comment") == 0)
+        {
+          touroku_comment = 1;
+        }
+      else if (strcmp (code, "touroku_no_comment") == 0)
+        {
+          touroku_comment = 0;
+        }
+      else if (strcmp (code, "henkan_on_kuten") == 0)
+        {
+          henkan_on_kuten = 1;
+        }
+      else if (strcmp (code, "henkan_off_kuten") == 0)
+        {
+          henkan_on_kuten = 0;
+          /*
+           * unnessesary in xim
+           } else if(strcmp(code , "setkanaromenv") == 0) {
+           } else if(strcmp(code , "flow_control_on") == 0) {
+           } else if(strcmp(code , "flow_control_off") == 0) {
+           } else if(strcmp(code , "convkey_always_on") == 0) {
+           } else if(strcmp(code , "convkey_not_always_on") == 0) {
+           } else if (strcmp(code, "setmaxichirankosu") == 0) {
+           } else if(strcmp(code, "remove_cs") == 0) {
+           } else if(strcmp(code, "not_remove_cs") == 0) {
+           */
+        }
+      else
+        {
+        }
+    }
+  if (copy)
+    {
+      if (copy > 1)
+        {
+          if (!(*dst2 = alloc_and_copy (src2)))
+            return (-1);
+        }
+      if (!(*dst1 = alloc_and_copy (src1)))
+        return (-1);
+    }
+  return (0);
+ERROR_RET:
+  free_env (ld->normal_env);
+  free_env (ld->reverse_env);
+#define check_and_free(s) if (s) {Free(s); s = NULL;}
+  check_and_free (ld->uumkey_name);
+  check_and_free (ld->jishopath);
+  check_and_free (ld->hindopath);
+  check_and_free (ld->fuzokugopath);
+#undef check_and_free
+  return (-1);
+}
+
+static int
+copy_wnn_env (src, dst)
+     register WnnEnv *src, *dst;
+{
+  if (src->host_name && !(dst->host_name = alloc_and_copy (src->host_name)))
+    return (-1);
+  dst->envrc_name = src->envrc_name;
+  strcpy (dst->env_name_str, src->env_name_str);
+  dst->sticky = src->sticky;
+  return (0);
+}
+
+static int
+copy_lang_db (ld)
+     register XIMLangDataBase *ld;
+{
+  register WnnEnv *p, *pp;
+
+  for (p = ld->normal_env; p; p = p->next)
+    {
+      if (get_new_env (c_c, NULL, 0) < 0)
+        goto ERROR_RET;
+      pp = c_c->cur_normal_env;
+      if (copy_wnn_env (p, pp) < 0)
+        goto ERROR_RET;
+    }
+  for (p = ld->reverse_env; p; p = p->next)
+    {
+      if (get_new_env (c_c, NULL, 1) < 0)
+        goto ERROR_RET;
+      pp = c_c->cur_reverse_env;
+      if (copy_wnn_env (p, pp) < 0)
+        goto ERROR_RET;
+    }
+  send_ascii_char = send_ascii_char_def;
+  return (0);
+ERROR_RET:
+  free_env (c_c->normal_env);
+  free_env (c_c->reverse_env);
+  return (-1);
+}
+
+/*
+ * read uumrc file 
+ */
+int
+uumrc_get_entries (ld, rk_pre_load, root)
+     XIMLangDataBase *ld;
+     int rk_pre_load, root;
+{
+  FILE *fp = NULL;
+  char data[1024];
+  int err = 0;
+
+  if (ld->read)
+    {
+      if (copy_lang_db (ld) < 0)
+        return (-1);
+      return (0);
+    }
+  /*
+   * default setting
+   */
+  ld->m_chg = MAXCHG;
+  ld->m_bunsetsu = MAXBUNSETSU;
+  ld->m_history = MAX_HISTORY + 1;
+
+  if (ld->uumrc_name && *ld->uumrc_name)
+    {
+      strcpy (open_uumrc_filenm, ld->uumrc_name);
+      if ((fp = fopen (open_uumrc_filenm, "r")) == NULL)
+        {
+          print_out2 ("I could not open specified uumrc file \"%s\" for lang \"%s\".", open_uumrc_filenm, ld->lang);
+          err = 1;
+        }
+    }
+  if (fp == NULL)
+    {                           /* Open default uumrc */
+      if (strcpy (open_uumrc_filenm, LIBDIR), strcat (open_uumrc_filenm, "/"), strcat (open_uumrc_filenm, ld->lang), strcat (open_uumrc_filenm, RCFILE), (fp = fopen (open_uumrc_filenm, "r")) != NULL)
+        {
+          if (err)
+            {
+              Free (ld->uumrc_name);
+            }
+          if (rkfile_defined_by_option && (rk_pre_load || root) && ld == cur_lang)
+            {
+              if (!(ld->rkfile_name = alloc_and_copy (root_rkfilename)))
+                return (-1);
+            }
+          if (!(ld->uumrc_name = alloc_and_copy (open_uumrc_filenm)))
+            return (-1);
+        }
+      else
+        {
+          print_out1 ("I could not open a default uumrc file \"%s\".", open_uumrc_filenm);
+          return (-1);
+        }
+    }
+
+  while (fgets (data, 1024, fp) != NULL)
+    {
+      if (uumrc_set_entry (data, ld, rk_pre_load, root) == -1)
+        {
+          fclose (fp);
+          return (-1);
+        }
+    }
+  fclose (fp);
+  if (!rk_pre_load)
+    {
+      ld->read = 1;
+      if (copy_lang_db (ld) < 0)
+        return (-1);
+    }
+  set_cswidth (ld->cswidth_id);
+  if (ld->rk_table == NULL)
+    {
+      if ((ld->rk_table = romkan_table_init (NULL, ld->rkfile_name, NULL, bytcntfn, NULL, 0))
+/*
+                                              bytcntfn, letterpickfn, NULL, 0))
+*/
+          == NULL)
+        {
+          return (-1);
+        }
+    }
+  return (0);
+}
+
+int
+read_default_rk ()
+{
+  register ReadRkfileRec *rr;
+  register XIMLangDataBase *ld;
+
+  for (rr = read_rkfile_list; rr != NULL; rr = rr->next)
+    {
+      for (ld = language_db; ld; ld = ld->next)
+        {
+          if (!strcmp (ld->lang, rr->name))
+            break;
+        }
+      if (!ld)
+        {
+          print_out1 ("In ximrc, I don't support such language \"%s\".", rr->name);
+          return (-1);
+        }
+      if (uumrc_get_entries (ld, 1, 0) == -1)
+        {
+          return (-1);
+        }
+    }
+  return (0);
+}