comparison Wnn/jlib/jl.c @ 11:aa17e2acfa01

add prototypes for function to jllib.h

10:fc3022f61fc7

/* 
 * File management routines.
 */

static struct wnn_jl_env *
find_jl_env (env)
     register struct wnn_env *env;
{
  register int k;
  for (k = 0; k < MAXENVS; k++)
    {
      if (envs[k].env == env)

    }
  return (NULL);
}

static char *
env_name (env)
     register struct wnn_env *env;
{
  register int k;

  for (k = 0; k < MAXENVS; k++)
    {

          break;
        }
    }
}

static int
delete_env (env)
     register struct wnn_env *env;
{
  register int k;

  for (k = 0; k < MAXENVS; k++)
    {

}


/* Routines to manipulate files */

static int
add_file_to_env (env, id, name)
     struct wnn_env *env;
     int id;
     register char *name;
{
  register struct wnn_file_name_id *f, *f1;
  if ((f = (struct wnn_file_name_id *) malloc (sizeof (struct wnn_file_name_id) + strlen (name) + 1)) == NULL)
    {
      wnn_errorno = WNN_ALLOC_FAIL;

  find_jl_env (env)->file = f;
  return (0);
}

static char *
find_file_name_from_id (env, id)
     struct wnn_env *env;
     register int id;
{
  register struct wnn_file_name_id *f;
  f = find_jl_env (env)->file;
  for (; f; f = f->next)
    {

    }
/*    wnn_errorno=WNN_FILE_NOT_READ_FROM_CLIENT; */
  return (NULL);
}

static int
delete_file_from_env (env, id)
     struct wnn_env *env;
     register int id;
{
  struct wnn_file_name_id *f;
  register struct wnn_file_name_id **prev;
  register struct wnn_jl_env *jl_env_p;

/*
 * Libraries which handle Connection To Jserver
 */

struct wnn_env *
jl_connect_lang (env_n, server_n, lang, wnnrc_n, error_handler, message_handler, timeout)
     register char *env_n, *server_n, *wnnrc_n, *lang;
     int (*error_handler) (), (*message_handler) ();
     int timeout;
{
  register WNN_JSERVER_ID *js = NULL;
  struct wnn_env *env;
  int env_exist;
  char p_lang[16];

      jl_set_env_wnnrc (env, wnnrc_n, error_handler, message_handler);
    }
  return (env);
}

void
jl_disconnect (env)
     register struct wnn_env *env;
{
  int ret;
  wnn_errorno = 0;
  if ((ret = delete_env (env)) < 0)
    {

      js_close (env->js_id);
      env->js_id = 0;
    }
}

int
jl_isconnect_e (env)
     register struct wnn_env *env;
{
  if (js_isconnect (env) == 0)
    return (1);
  else
    return (0);
}

/* JSERVER が死んだら env を disconnect して回る */
void
jl_disconnect_if_server_dead (env)
     register struct wnn_env *env;
{
  register struct wnn_env *same_env;
  int ret;

  if ((ret = delete_env (env)) < 0)

  env->js_id = 0;
}


struct wnn_buf *
jl_open_lang (env_n, server_n, lang, wnnrc_n, error_handler, message_handler, timeout)
     char *env_n, *server_n, *wnnrc_n, *lang;
     int (*error_handler) (), (*message_handler) ();
     int timeout;
{
  register int k, dmy;
  register struct wnn_buf *buf;
  struct wnn_env *env;

  buf->env = env;
  return (buf);
}


static int
alloc_heap (buf, len)
     struct wnn_buf *buf;
     register int len;
{
  char **c;
  register WNN_BUN *d;

  if ((c = (char **) malloc ((unsigned) (len * sizeof (WNN_BUN) + sizeof (char *)))) == NULL)

  d->free_next = buf->free_heap;
  buf->free_heap = (WNN_BUN *) (c + 1);
  return (0);
}

void
jl_close (buf)
     register struct wnn_buf *buf;
{
  register char *c, *next;

  wnn_errorno = 0;
  if (buf == NULL)

/*
 * Conversion Libraries 
 */

int
jl_ren_conv (buf, yomi, bun_no, bun_no2, use_maep)
     register struct wnn_buf *buf;
     register w_char *yomi;
     int bun_no, bun_no2;
     int use_maep;
{
  wnn_errorno = 0;
  if (bun_no < 0)
    return (-1);
  if (bun_no2 >= buf->bun_suu || bun_no2 < 0)

    }
  return (buf->bun_suu);
}

int
jl_tan_conv (buf, yomi, bun_no, bun_no2, use_maep, ich_shop)
     register struct wnn_buf *buf;
     w_char *yomi;
     register int bun_no, bun_no2;
     int use_maep, ich_shop;
{
  wnn_errorno = 0;
  if (bun_no < 0)
    return (-1);
  if (bun_no2 >= buf->bun_suu || bun_no2 < 0)

      buf->zenkouho_end_bun += ret - bun_no2;
    }
  return (ret);
}

int
jl_nobi_conv (buf, bun_no, ichbn_len, bun_no2, use_maep, ich_shop)
     register struct wnn_buf *buf;
     int ichbn_len, use_maep, ich_shop;
     register int bun_no, bun_no2;
{
  w_char yomi[LENGTHCONV], ytmp;
  int ret;
  int len1;

  buf->down_bnst[bun_no] = b1;

  return (buf->bun_suu);
}

int
jl_nobi_conv_e2 (buf, env, bun_no, ichbn_len, bun_no2, use_maep, ich_shop)
     register struct wnn_buf *buf;
     struct wnn_env *env;
     int ichbn_len, use_maep, ich_shop;
     register int bun_no, bun_no2;
{
  w_char yomi[LENGTHCONV], ytmp;
  int ret;
  int len1;

  buf->bun[bun_no]->nobi_top = 1;

  return (buf->bun_suu);
}

int
jl_kill (buf, bun_no, bun_no2)
     struct wnn_buf *buf;
     register int bun_no, bun_no2;
{
  wnn_errorno = 0;
  if (bun_no < 0)
    return (0);
  if (bun_no2 < bun_no || bun_no2 < 0)

  bcopy ((char *) &buf->down_bnst[bun_no2], (char *) &buf->down_bnst[bun_no], (buf->bun_suu - bun_no2) * sizeof (WNN_BUN *));
  buf->bun_suu -= bun_no2 - bun_no;
  return (buf->bun_suu);
}

int
jl_zenkouho (buf, bun_no, use_maep, uniq_level)
     register struct wnn_buf *buf;
     int bun_no, use_maep, uniq_level;
{
  int cnt;
  w_char yomi[LENGTHBUNSETSU], yomi1[LENGTHBUNSETSU];
  struct wnn_sho_bunsetsu *sp;
  register int k;

        }
    }
  return (buf->c_zenkouho);
}

int
jl_zenkouho_dai (buf, bun_no, bun_no2, use_maep, uniq_level)
     register struct wnn_buf *buf;
     int bun_no, bun_no2, use_maep, uniq_level;
{
  int cnt;
  w_char yomi[LENGTHBUNSETSU], yomi1[LENGTHBUNSETSU];
  struct wnn_dai_bunsetsu *dp;
  int tmp;

        }
    }
  return (buf->c_zenkouho);
}

int
jl_set_jikouho (buf, offset)
     register struct wnn_buf *buf;
     register int offset;
{
  wnn_errorno = 0;
  if (buf->zenkouho_suu <= 0)
    return (-1);
  if (buf->zenkouho_daip != SHO)

  buf->c_zenkouho = offset;
  return (offset);
}


int
jl_set_jikouho_dai (buf, offset)
     register struct wnn_buf *buf;
     int offset;
{
  register int st, end, bun, k;

  wnn_errorno = 0;
  if (buf->zenkouho_suu <= 0)

  buf->zenkouho_end_bun = buf->zenkouho_bun + end - st;
  buf->c_zenkouho = offset;
  return (offset);
}

int
jl_update_hindo (buf, bun_no, bun_no2)
     register struct wnn_buf *buf;
     int bun_no, bun_no2;
{
  register int k;
  register WNN_BUN *wb;

  wnn_errorno = 0;

    }
out:
  return (area);
}

static int
dai_end (buf, bun_no)
     register struct wnn_buf *buf;
     register int bun_no;
{
  bun_no++;
  for (; bun_no < buf->bun_suu && !buf->bun[bun_no]->dai_top; bun_no++);
  return (bun_no);
}

#define dai_end_zenkouho(buf, bun_no) (buf->zenkouho_dai[bun_no + 1])

#ifdef  CONVERT_by_STROKE
/* 筆形 (Bi Xing) */
void
jl_get_zenkouho_yomi (buf, zen_num, area)
     register struct wnn_buf *buf;
     int zen_num;
     w_char *area;
{
  register int k, end;

  wnn_errorno = 0;
  if (!buf->zenkouho_daip)

    }
}
#endif

void
jl_get_zenkouho_kanji (buf, zen_num, area)
     register struct wnn_buf *buf;
     int zen_num;
     w_char *area;
{
  register int k, end;

  wnn_errorno = 0;
  if (!buf->zenkouho_daip)

        }
    }
}

int
wnn_get_area (buf, bun_no, bun_no2, area, kanjip)
     struct wnn_buf *buf;
     register int bun_no, bun_no2;
     w_char *area;
     int kanjip;
{
  register int k;
  w_char *area1 = area;

  if (bun_no < 0)

#define JISHO 1
#define HINDO 2

/*********************************/
int
jl_dic_add_e (env, dic_name, hindo_name, rev, prio, rw, hrw, pwd_dic, pwd_hindo, error_handler, message_handler)
     register struct wnn_env *env;
     char *dic_name;
     char *hindo_name;
     int prio;
     int rw, hrw, rev;
     char *pwd_dic, *pwd_hindo;
     int (*error_handler) (), (*message_handler) ();
{
  char tmp[256];
  char pwd[WNN_PASSWD_LEN], hpwd[WNN_PASSWD_LEN];
  int fid, hfid = -1;
  register int ret;

    }
  return (ret);
}


int
jl_dic_delete_e (env, dic_no)
     register struct wnn_env *env;
     register int dic_no;
{
  WNN_DIC_INFO dic;

  if (js_dic_info (env, dic_no, &dic) < 0)
    {

        }
    }
  return (0);
}

static int
get_pwd (pwd_dic, pwd)
     register char *pwd_dic, *pwd;
{
  FILE *fp;

  if (pwd_dic && *pwd_dic)
    {

      pwd[0] = 0;
    }
  return (0);
}

static int
create_pwd_file (env, pwd_file, error_handler, message_handler)
     register struct wnn_env *env;
     char *pwd_file;
     int (*error_handler) (), (*message_handler) ();
{
  FILE *fp;
  char gomi[256];

  if (pwd_file == NULL || *pwd_file == 0)

  return (0);
}


/**     jl_fuzokugo_set **/
int
jl_fuzokugo_set_e (env, fname)
     struct wnn_env *env;
     char *fname;
{
  register int fid, orgfid;
  int ret;

  wnn_errorno = 0;

    }
  return (ret);
}

/**     jl_fuzokugo_get **/
int
jl_fuzokugo_get_e (env, fname)
     register struct wnn_env *env;
     char *fname;
{
  WNN_FILE_INFO_STRUCT file;
  int fid;
  char *c;

  strcpy (fname, c);
  return (fid);
}

/**     jl_dic_save     **/
int
jl_dic_save_e (env, dic_no)
     register struct wnn_env *env;
     int dic_no;
{
  WNN_DIC_INFO dic;
  WNN_FILE_INFO_STRUCT file;
  char *c;

        }
    }
  return (0);
}

int
jl_dic_save_all_e (env)
     struct wnn_env *env;
{
  register WNN_DIC_INFO *dic;
  register int k;
  char *c;

        }
    }
  *wbp = NULL;
}

static void
free_zenkouho (buf)
     register struct wnn_buf *buf;
{
  register int k;

  for (k = 0; k < buf->zenkouho_suu; k++)
    {

  buf->c_zenkouho = -1;
  buf->zenkouho_bun = -1;
  buf->zenkouho_end_bun = -1;
}

static void
free_bun (buf, bun_no, bun_no2)
     struct wnn_buf *buf;
     register int bun_no, bun_no2;
{
  register int k;

  for (k = bun_no; k < bun_no2; k++)
    {
      free_sho (buf, &buf->bun[k]);
    }
}

static void
free_down (buf, bun_no, bun_no2)
     struct wnn_buf *buf;
     int bun_no, bun_no2;
{
  register WNN_BUN **wbp, **wbp1;
  int k;

  for (k = bun_no; k < bun_no2; k++)

out:
  wb1->next = NULL;
  return (wb);
}

static void
make_space_for (buf, zenp, bun_no, bun_no2, cnt)
     register struct wnn_buf *buf;
     int bun_no, bun_no2, zenp;
     int cnt;
{
  switch (zenp)
    {
    case BUN:
      make_space_for_bun (buf, bun_no, bun_no2, cnt);

    case ZENKOUHO:
      make_space_for_zenkouho (buf, bun_no, bun_no2, cnt);
    }
}

static void
make_space_for_bun (buf, bun_no, bun_no2, cnt)
     register struct wnn_buf *buf;
     int bun_no, bun_no2;
     int cnt;
{
  int newsize;
  register int k;

  newsize = buf->bun_suu + cnt - (bun_no2 - bun_no);

      bzero ((char *) &buf->down_bnst[bun_no2], (bun_no + cnt - bun_no2) * sizeof (WNN_BUN *));
    }
  buf->bun_suu = newsize;
}

static void
make_space_for_zenkouho (buf, bun_no, bun_no2, cnt)
     struct wnn_buf *buf;
     int bun_no, bun_no2;
     register int cnt;
{
  register int newsize;

  newsize = buf->zenkouho_suu + cnt - (bun_no2 - bun_no);

  bcopy ((char *) &buf->zenkouho[bun_no2], (char *) &buf->zenkouho[bun_no + cnt], (buf->zenkouho_suu - bun_no2) * sizeof (WNN_BUN *));
  buf->zenkouho_suu = newsize;
}


static int
insert_sho (buf, zenp, bun_no, bun_no2, sp, cnt, uniq_level)
     struct wnn_buf *buf;
     int bun_no, bun_no2;
     register struct wnn_sho_bunsetsu *sp;
     int cnt;
     int zenp;                  /* daip */
     int uniq_level;            /* uniq is only supported when bun_no = -1
                                   and zenp == ZENKOUHO */
{
  register WNN_BUN **b;
  register int k;

  if (bun_no == -1)

    }
  return (cnt + bun_no);
}

        /* for zenkouho, assume bun_no = bun_no2 = zenkouho_suu */
static int
insert_dai (buf, zenp, bun_no, bun_no2, dp, dcnt, uniq_level)
     struct wnn_buf *buf;
     int bun_no, bun_no2;
     struct wnn_dai_bunsetsu *dp;
     int dcnt;
     int zenp;
     int uniq_level;
{
  register WNN_BUN **b, **b0;
  register int k, l, m;
  register int cnt = 0;
  struct wnn_sho_bunsetsu *sp, *sp1;

        }
    }
  return (0);
}

static int
find_same_kouho_dai (dp, buf, top, level)
     struct wnn_dai_bunsetsu *dp;
     struct wnn_buf *buf;
     int top;
     int level;
{
  int len;
  register int k, l;
  w_char area[LENGTHKANJI];
  WNN_BUN *b;

        return (1);
    }
  return (0);
}

int
wnn_cnt_free (buf)
     struct wnn_buf *buf;
{
  register int n;
  register WNN_BUN *b;

  for (n = 0, b = buf->free_heap; b; n++, b = b->free_next);
  return (n);
}


struct wnn_jdata *
jl_word_info_e (env, dic_no, entry)
     register struct wnn_env *env;
     int dic_no, entry;
{
  wnn_errorno = 0;
  if (js_word_info (env, dic_no, entry, &wordrb) < 0)
    if_dead_disconnect (env, NULL);
  return ((struct wnn_jdata *) (wordrb.buf));
}

int
jl_dic_list_e (env, dicinfo)
     struct wnn_env *env;
     WNN_DIC_INFO **dicinfo;
{
  WNN_DIC_INFO *info;
  int cnt;
  register int k;
  register char *c;

  *dicinfo = info;
  return (cnt);
}


static int
sort_func_ws (a, b)
     register char *a, *b;
{
  int ah, bh, ai, bi, iah, ibh, iai, ibi;
  ah = ((struct wnn_jdata *) a)->hindo;
  bh = ((struct wnn_jdata *) b)->hindo;
  iah = ((struct wnn_jdata *) a)->int_hindo;

    return (1);
  return (0);
}

int
jl_word_search_e (env, dic_no, yomi, jdp)
     register struct wnn_env *env;
     int dic_no;
     w_char *yomi;
     struct wnn_jdata **jdp;
{
  register int cnt;
  struct wnn_jdata *jd;

  wnn_errorno = 0;

  *jdp = jd;
  return (cnt);
}

int
jl_word_search_by_env_e (env, yomi, jdp)
     register struct wnn_env *env;
     struct wnn_jdata **jdp;
     w_char *yomi;
{
  register int cnt;
  struct wnn_jdata *jd;

  wnn_errorno = 0;

  buf->down_bnst[k] = b;
  b->ref_cnt++;
}

#ifdef JL_DEBUG
static void
print_jdata (jd)
     struct wnn_jdata *jd;
{
  putws (jd->kanji);
  printf ("\tDict:%d Serial:%d Hinsi:%s Hindo:%c%d ExHindo:%c%d\n",
          jd->dic_no, jd->serial, wnn_get_hinsi_name (jd->hinshi), (jd->ima) ? '*' : ' ', jd->hindo, (jd->int_ima) ? '*' : ' ', jd->int_hindo);
}

#define REAL_PARAM(x) (strcmp(x, "-"))


/** wnnrc を見てのパラメータの設定 */
int
jl_set_env_wnnrc (env, wnnrc_n, error_handler, message_handler)
     register struct wnn_env *env;
     char *wnnrc_n;
     int (*error_handler) (), (*message_handler) ();
{
  int level = 0;
  int x;
  wnn_errorno = 0;
  if (error_handler == (void *)WNN_CREATE)

  x = jl_set_env_wnnrc1 (env, wnnrc_n, error_handler, message_handler, level);
  confirm_state = 0;
  return (x);
}

int
jl_set_env_wnnrc1 (env, wnnrc_n, error_handler, message_handler, level)
     register struct wnn_env *env;
     char *wnnrc_n;
     int (*error_handler) (), (*message_handler) ();
     int level;
{
  register int num;
  char s[20][EXPAND_PATH_LENGTH];
  char code[EXPAND_PATH_LENGTH];
  char tmp[1024];

   */
  fclose (fp);
  return (-1);
}

static int
expand_expr_all (s, env)
     struct wnn_env *env;
     register char *s;
{
  register char *c;

  for (c = s; *c; c++)
    {

  return (0);
}

/* copy of js.c */
static char *
getlogname ()
{
  struct passwd *getpwuid ();
  return getpwuid (getuid ())->pw_name;
}


static int
expand_expr (s, env)
     struct wnn_env *env;
 /**    ~user、@HOME、@LIBDIR @ENV @USR の展開(但し、文字列の先頭のみ)。
   できない時は-1が
   返り、その場合sの中身は着々とそのまんま。sの長さ＜256と仮定してる。*/
     register char *s;
{
  char *p, *s1;
  char tmp[EXPAND_PATH_LENGTH];
  int noerr, expandsuc;
  struct passwd *u;

    strcpy (s, p);
  strcat (s, tmp);
  return (noerr ? 0 : -1);
}

static int
change_ascii_to_int (st, dp)
     register char *st;
     int *dp;
{
  register int total, flag;

  total = 0;
  flag = 0;

    }
  *dp = total * flag;
  return (1);
}

static int
file_exist (env, n)
     struct wnn_env *env;
     char *n;
{
  if (n[0] == C_LOCAL)
    {
      wnn_errorno = 0;
      return (access (n + 1, 4));

    {
      return (js_access (env, n, 4));
    }
}

static int
create_file (env, n, d, fid, pwd_dic, pwd_hindo, error_handler, message_handler)
     register struct wnn_env *env;
     char *n;
     int d;
     int fid;
     char *pwd_dic, *pwd_hindo;
     int (*error_handler) (), (*message_handler) ();
{
  char pwd[WNN_PASSWD_LEN], hpwd[WNN_PASSWD_LEN];
  int rev_dict_type;

  if (make_dir_rec1 (env, n, error_handler, message_handler) == -1)

            }
        }
    }
}

static int
make_dir_rec1 (env, path, error_handler, message_handler)
     struct wnn_env *env;
     register char *path;
     int (*error_handler) (), (*message_handler) ();
{
  char gomi[128];
  register char *c;
  for (c = path; *c; c++)
    {

        }
    }
  return (0);
}

static int
make_dir1 (env, dirname, error_handler, message_handler)
     register struct wnn_env *env;
     register char *dirname;
     int (*error_handler) (), (*message_handler) ();
{
  char gomi[128];
  if (dirname[0] == C_LOCAL)
    {
      if (*(dirname + 1) == 0)

    }
  return (0);
}


static int
call_error_handler (error_handler, c)
     int (*error_handler) ();
     char *c;
{
  register int x;
  x = error_handler (c);
  if (confirm_state == CONFIRM1)
    {

        confirm_state = NO_CREATE;
    }
  return (x);
}

static void
message_out (message_handler, format, s1, s2, s3, s4, s5, s6, s7, s8)
     int (*message_handler) ();
     char *format;
     int s1, s2, s3, s4, s5, s6, s7, s8;
{
  char buf[256];

  if (message_handler)
    {

      (*message_handler) (buf);
    }
}


int
jl_yomi_len (buf, bun_no, bun_no2)
     struct wnn_buf *buf;
     register int bun_no, bun_no2;
{
  register int len = 0;

  wnn_errorno = 0;
  if (bun_no2 >= buf->bun_suu || bun_no2 < 0)

    }
  return (len);
}


int
jl_kanji_len (buf, bun_no, bun_no2)
     struct wnn_buf *buf;
     register int bun_no, bun_no2;
{
  register int len = 0;

  wnn_errorno = 0;
  if (bun_no < 0)

  return (len);
}

int wnn_word_use_initial_hindo = 0;

int
jl_word_use_e (env, dic_no, entry)
     register struct wnn_env *env;
     int dic_no, entry;
{
  register struct wnn_jdata *jd;

  wnn_errorno = 0;
  if (js_word_info (env, dic_no, entry, &rb) == -1)

        }
    }
  return (0);
}

void
jl_env_set (buf, env)
     register struct wnn_env *env;
     register struct wnn_buf *buf;
{
  wnn_errorno = 0;
  buf->env = env;
}


struct wnn_env *
jl_env_get (buf)
     register struct wnn_buf *buf;
{

  wnn_errorno = 0;
  return (buf->env);
}


int
jl_param_set_e (env, para)
     register struct wnn_env *env;
     struct wnn_param *para;
{
  register int x;

  wnn_errorno = 0;
  if ((x = js_param_set (env, para)) == -1)
    if_dead_disconnect (env, -1);
  return (x);
}

int
jl_param_get_e (env, para)
     struct wnn_env *env;
     struct wnn_param *para;
{
  register int x;
  wnn_errorno = 0;
  if ((x = js_param_get (env, para)) == -1)
    if_dead_disconnect (env, -1);
  return (x);
}


int
jl_dic_use_e (env, dic_no, flag)
     struct wnn_env *env;
     int dic_no, flag;
{
  register int x;
  wnn_errorno = 0;
  if ((x = js_dic_use (env, dic_no, flag)) == -1)
    if_dead_disconnect (env, -1);
  return (x);
}

int
jl_word_add_e (env, dic_no, yomi, kanji, comment, hinsi, init_hindo)
     struct wnn_env *env;
     int dic_no;
     w_char *yomi, *kanji, *comment;
     int hinsi, init_hindo;

{
  register int x;
  wnn_errorno = 0;
  if ((x = js_word_add (env, dic_no, yomi, kanji, comment, hinsi, init_hindo)) == -1)
    if_dead_disconnect (env, -1);
  return (x);
}

int
jl_word_delete_e (env, dic_no, entry)
     struct wnn_env *env;
     int dic_no;
     int entry;
{
  register int x;
  wnn_errorno = 0;
  if ((x = js_word_delete (env, dic_no, entry)) == -1)
    if_dead_disconnect (env, -1);
  return (x);
}

static int
file_read (env, fname)
     struct wnn_env *env;
     char *fname;
{
  register int fid;
  if (fname[0] == C_LOCAL)
    {
      fid = js_file_send (env, fname + 1);

      return (js_file_remove (server, fname, pwd));
    }
}


static int
file_discard (env, fid)
     register struct wnn_env *env;
     register int fid;
{
  delete_file_from_env (env, fid);
  return (js_file_discard (env, fid));
}

int
jl_hinsi_number_e (env, name)
     register struct wnn_env *env;
     w_char *name;
{
  register int x;
  wnn_errorno = 0;
  if ((x = js_hinsi_number (env->js_id, name)) == -1)
    if_dead_disconnect (env, -1);
  return (x);
}

w_char *
jl_hinsi_name_e (env, no)
     register struct wnn_env *env;
     register int no;
{
  wnn_errorno = 0;
  if (js_hinsi_name (env->js_id, no, &rb) == -1)
    if_dead_disconnect (env, NULL);
  return ((w_char *) (rb.buf));
}

int
jl_hinsi_list_e (env, dic_no, name, area)
     register struct wnn_env *env;
     int dic_no;
     w_char *name;
     w_char ***area;
{
  int x;
  wnn_errorno = 0;
  if ((x = js_hinsi_list (env, dic_no, name, &rb)) == -1)
    if_dead_disconnect (env, -1);
  *area = (w_char **) (rb.buf);
  return (x);
}

int
jl_hinsi_dicts_e (env, no, area)
     register struct wnn_env *env;
     int no;
     int **area;
{
  int x;
  wnn_errorno = 0;
  if ((x = js_hinsi_dicts (env, no, &rb)) == -1)
    if_dead_disconnect (env, -1);

  return (x);
}


int
jl_word_comment_set_e (env, dic_no, entry, comment)
     register struct wnn_env *env;
     int dic_no, entry;
     w_char *comment;
{
  register int x;
  wnn_errorno = 0;
  if ((x = js_word_comment_set (env, dic_no, entry, comment)) == -1)
    if_dead_disconnect (env, -1);

11:aa17e2acfa01

/* 
 * File management routines.
 */

static struct wnn_jl_env *
find_jl_env (register struct wnn_env *env)
{
  register int k;
  for (k = 0; k < MAXENVS; k++)
    {
      if (envs[k].env == env)

    }
  return (NULL);
}

static char *
env_name (register struct wnn_env *env)
{
  register int k;

  for (k = 0; k < MAXENVS; k++)
    {

          break;
        }
    }
}

static int 
delete_env (register struct wnn_env *env)
{
  register int k;

  for (k = 0; k < MAXENVS; k++)
    {

}


/* Routines to manipulate files */

static int 
add_file_to_env (struct wnn_env *env, int id, register char *name)
{
  register struct wnn_file_name_id *f, *f1;
  if ((f = (struct wnn_file_name_id *) malloc (sizeof (struct wnn_file_name_id) + strlen (name) + 1)) == NULL)
    {
      wnn_errorno = WNN_ALLOC_FAIL;

  find_jl_env (env)->file = f;
  return (0);
}

static char *
find_file_name_from_id (struct wnn_env *env, register int id)
{
  register struct wnn_file_name_id *f;
  f = find_jl_env (env)->file;
  for (; f; f = f->next)
    {

    }
/*    wnn_errorno=WNN_FILE_NOT_READ_FROM_CLIENT; */
  return (NULL);
}

static int 
delete_file_from_env (struct wnn_env *env, register int id)
{
  struct wnn_file_name_id *f;
  register struct wnn_file_name_id **prev;
  register struct wnn_jl_env *jl_env_p;

/*
 * Libraries which handle Connection To Jserver
 */

struct wnn_env *
jl_connect_lang (register char *env_n, register char *server_n, register char *lang, register char *wnnrc_n, int (*error_handler)(void), int (*message_handler)(void), int timeout)
{
  register WNN_JSERVER_ID *js = NULL;
  struct wnn_env *env;
  int env_exist;
  char p_lang[16];

      jl_set_env_wnnrc (env, wnnrc_n, error_handler, message_handler);
    }
  return (env);
}

void 
jl_disconnect (register struct wnn_env *env)
{
  int ret;
  wnn_errorno = 0;
  if ((ret = delete_env (env)) < 0)
    {

      js_close (env->js_id);
      env->js_id = 0;
    }
}

int 
jl_isconnect_e (register struct wnn_env *env)
{
  if (js_isconnect (env) == 0)
    return (1);
  else
    return (0);
}

/* JSERVER が死んだら env を disconnect して回る */
void 
jl_disconnect_if_server_dead (register struct wnn_env *env)
{
  register struct wnn_env *same_env;
  int ret;

  if ((ret = delete_env (env)) < 0)

  env->js_id = 0;
}


struct wnn_buf *
jl_open_lang (char *env_n, char *server_n, char *lang, char *wnnrc_n, int (*error_handler)(void), int (*message_handler)(void), int timeout)
{
  register int k, dmy;
  register struct wnn_buf *buf;
  struct wnn_env *env;

  buf->env = env;
  return (buf);
}


static int 
alloc_heap (struct wnn_buf *buf, register int len)
{
  char **c;
  register WNN_BUN *d;

  if ((c = (char **) malloc ((unsigned) (len * sizeof (WNN_BUN) + sizeof (char *)))) == NULL)

  d->free_next = buf->free_heap;
  buf->free_heap = (WNN_BUN *) (c + 1);
  return (0);
}

void 
jl_close (register struct wnn_buf *buf)
{
  register char *c, *next;

  wnn_errorno = 0;
  if (buf == NULL)

/*
 * Conversion Libraries 
 */

int
jl_ren_conv (register struct wnn_buf *buf, register w_char *yomi, int bun_no, bun_no2, int use_maep)
{
  wnn_errorno = 0;
  if (bun_no < 0)
    return (-1);
  if (bun_no2 >= buf->bun_suu || bun_no2 < 0)

    }
  return (buf->bun_suu);
}

int
jl_tan_conv (register struct wnn_buf *buf, w_char *yomi, register int bun_no, bun_no2, int use_maep, int ich_shop)
{
  wnn_errorno = 0;
  if (bun_no < 0)
    return (-1);
  if (bun_no2 >= buf->bun_suu || bun_no2 < 0)

      buf->zenkouho_end_bun += ret - bun_no2;
    }
  return (ret);
}

int 
jl_nobi_conv (register struct wnn_buf *buf, register int bun_no, int ichbn_len, register int bun_no2, int use_maep, int ich_shop)
{
  w_char yomi[LENGTHCONV], ytmp;
  int ret;
  int len1;

  buf->down_bnst[bun_no] = b1;

  return (buf->bun_suu);
}

int 
jl_nobi_conv_e2 (register struct wnn_buf *buf, struct wnn_env *env, register int bun_no, int ichbn_len, register int bun_no2, int use_maep, int ich_shop)
{
  w_char yomi[LENGTHCONV], ytmp;
  int ret;
  int len1;

  buf->bun[bun_no]->nobi_top = 1;

  return (buf->bun_suu);
}

int 
jl_kill (struct wnn_buf *buf, register int bun_no, register int bun_no2)
{
  wnn_errorno = 0;
  if (bun_no < 0)
    return (0);
  if (bun_no2 < bun_no || bun_no2 < 0)

  bcopy ((char *) &buf->down_bnst[bun_no2], (char *) &buf->down_bnst[bun_no], (buf->bun_suu - bun_no2) * sizeof (WNN_BUN *));
  buf->bun_suu -= bun_no2 - bun_no;
  return (buf->bun_suu);
}

int 
jl_zenkouho (register struct wnn_buf *buf, int bun_no, int use_maep, int uniq_level)
{
  int cnt;
  w_char yomi[LENGTHBUNSETSU], yomi1[LENGTHBUNSETSU];
  struct wnn_sho_bunsetsu *sp;
  register int k;

        }
    }
  return (buf->c_zenkouho);
}

int 
jl_zenkouho_dai (register struct wnn_buf *buf, int bun_no, int bun_no2, int use_maep, int uniq_level)
{
  int cnt;
  w_char yomi[LENGTHBUNSETSU], yomi1[LENGTHBUNSETSU];
  struct wnn_dai_bunsetsu *dp;
  int tmp;

        }
    }
  return (buf->c_zenkouho);
}

int 
jl_set_jikouho (register struct wnn_buf *buf, register int offset)
{
  wnn_errorno = 0;
  if (buf->zenkouho_suu <= 0)
    return (-1);
  if (buf->zenkouho_daip != SHO)

  buf->c_zenkouho = offset;
  return (offset);
}


int 
jl_set_jikouho_dai (register struct wnn_buf *buf, int offset)
{
  register int st, end, bun, k;

  wnn_errorno = 0;
  if (buf->zenkouho_suu <= 0)

  buf->zenkouho_end_bun = buf->zenkouho_bun + end - st;
  buf->c_zenkouho = offset;
  return (offset);
}

int 
jl_update_hindo (register struct wnn_buf *buf, int bun_no, int bun_no2)
{
  register int k;
  register WNN_BUN *wb;

  wnn_errorno = 0;

    }
out:
  return (area);
}

static int 
dai_end (register struct wnn_buf *buf, register int bun_no)
{
  bun_no++;
  for (; bun_no < buf->bun_suu && !buf->bun[bun_no]->dai_top; bun_no++);
  return (bun_no);
}

#define dai_end_zenkouho(buf, bun_no) (buf->zenkouho_dai[bun_no + 1])

#ifdef  CONVERT_by_STROKE
/* 筆形 (Bi Xing) */
void
jl_get_zenkouho_yomi (register struct wnn_buf *buf, int zen_num, w_char *area)
{
  register int k, end;

  wnn_errorno = 0;
  if (!buf->zenkouho_daip)

    }
}
#endif

void
jl_get_zenkouho_kanji (register struct wnn_buf *buf, int zen_num, w_char *area)
{
  register int k, end;

  wnn_errorno = 0;
  if (!buf->zenkouho_daip)

        }
    }
}

int
wnn_get_area (struct wnn_buf *buf, register int bun_no, register int bun_no2, w_char *area, int kanjip)
{
  register int k;
  w_char *area1 = area;

  if (bun_no < 0)

#define JISHO 1
#define HINDO 2

/*********************************/
int 
jl_dic_add_e (register struct wnn_env *env, char *dic_name, char *hindo_name, int rev, int prio, int rw, int hrw, char *pwd_dic, char *pwd_hindo, int (*error_handler)(void), int (*message_handler)(void))
{
  char tmp[256];
  char pwd[WNN_PASSWD_LEN], hpwd[WNN_PASSWD_LEN];
  int fid, hfid = -1;
  register int ret;

    }
  return (ret);
}


int 
jl_dic_delete_e (register struct wnn_env *env, register int dic_no)
{
  WNN_DIC_INFO dic;

  if (js_dic_info (env, dic_no, &dic) < 0)
    {

        }
    }
  return (0);
}

static int 
get_pwd (register char *pwd_dic, register char *pwd)
{
  FILE *fp;

  if (pwd_dic && *pwd_dic)
    {

      pwd[0] = 0;
    }
  return (0);
}

static int 
create_pwd_file (register struct wnn_env *env, char *pwd_file, int (*error_handler)(void), int (*message_handler)(void))
{
  FILE *fp;
  char gomi[256];

  if (pwd_file == NULL || *pwd_file == 0)

  return (0);
}


/**     jl_fuzokugo_set **/
int 
jl_fuzokugo_set_e (struct wnn_env *env, char *fname)
{
  register int fid, orgfid;
  int ret;

  wnn_errorno = 0;

    }
  return (ret);
}

/**     jl_fuzokugo_get **/
int 
jl_fuzokugo_get_e (register struct wnn_env *env, char *fname)
{
  WNN_FILE_INFO_STRUCT file;
  int fid;
  char *c;

  strcpy (fname, c);
  return (fid);
}

/**     jl_dic_save     **/
int 
jl_dic_save_e (register struct wnn_env *env, int dic_no)
{
  WNN_DIC_INFO dic;
  WNN_FILE_INFO_STRUCT file;
  char *c;

        }
    }
  return (0);
}

int 
jl_dic_save_all_e (struct wnn_env *env)
{
  register WNN_DIC_INFO *dic;
  register int k;
  char *c;

        }
    }
  *wbp = NULL;
}

static void 
free_zenkouho (register struct wnn_buf *buf)
{
  register int k;

  for (k = 0; k < buf->zenkouho_suu; k++)
    {

  buf->c_zenkouho = -1;
  buf->zenkouho_bun = -1;
  buf->zenkouho_end_bun = -1;
}

static void 
free_bun (struct wnn_buf *buf, register int bun_no, register int bun_no2)
{
  register int k;

  for (k = bun_no; k < bun_no2; k++)
    {
      free_sho (buf, &buf->bun[k]);
    }
}

static void 
free_down (struct wnn_buf *buf, int bun_no, int bun_no2)
{
  register WNN_BUN **wbp, **wbp1;
  int k;

  for (k = bun_no; k < bun_no2; k++)

out:
  wb1->next = NULL;
  return (wb);
}

static void 
make_space_for (register struct wnn_buf *buf, int zenp, int bun_no, int bun_no2, int cnt)
{
  switch (zenp)
    {
    case BUN:
      make_space_for_bun (buf, bun_no, bun_no2, cnt);

    case ZENKOUHO:
      make_space_for_zenkouho (buf, bun_no, bun_no2, cnt);
    }
}

static void 
make_space_for_bun (register struct wnn_buf *buf, int bun_no, int bun_no2, int cnt)
{
  int newsize;
  register int k;

  newsize = buf->bun_suu + cnt - (bun_no2 - bun_no);

      bzero ((char *) &buf->down_bnst[bun_no2], (bun_no + cnt - bun_no2) * sizeof (WNN_BUN *));
    }
  buf->bun_suu = newsize;
}

static void 
make_space_for_zenkouho (struct wnn_buf *buf, int bun_no, int bun_no2, register int cnt)
{
  register int newsize;

  newsize = buf->zenkouho_suu + cnt - (bun_no2 - bun_no);

  bcopy ((char *) &buf->zenkouho[bun_no2], (char *) &buf->zenkouho[bun_no + cnt], (buf->zenkouho_suu - bun_no2) * sizeof (WNN_BUN *));
  buf->zenkouho_suu = newsize;
}


static int 
insert_sho (
    struct wnn_buf *buf,
    int zenp,                  /* daip */
    int bun_no,
    int bun_no2,
    register struct wnn_sho_bunsetsu *sp,
    int cnt,
    int uniq_level            /* uniq is only supported when bun_no = -1
                                   and zenp == ZENKOUHO */
)
{
  register WNN_BUN **b;
  register int k;

  if (bun_no == -1)

    }
  return (cnt + bun_no);
}

        /* for zenkouho, assume bun_no = bun_no2 = zenkouho_suu */
static int 
insert_dai (struct wnn_buf *buf, int zenp, int bun_no, int bun_no2, struct wnn_dai_bunsetsu *dp, int dcnt, int uniq_level)
{
  register WNN_BUN **b, **b0;
  register int k, l, m;
  register int cnt = 0;
  struct wnn_sho_bunsetsu *sp, *sp1;

        }
    }
  return (0);
}

static int 
find_same_kouho_dai (struct wnn_dai_bunsetsu *dp, struct wnn_buf *buf, int top, int level)
{
  int len;
  register int k, l;
  w_char area[LENGTHKANJI];
  WNN_BUN *b;

        return (1);
    }
  return (0);
}

int 
wnn_cnt_free (struct wnn_buf *buf)
{
  register int n;
  register WNN_BUN *b;

  for (n = 0, b = buf->free_heap; b; n++, b = b->free_next);
  return (n);
}


struct wnn_jdata *
jl_word_info_e (register struct wnn_env *env, int dic_no, int entry)
{
  wnn_errorno = 0;
  if (js_word_info (env, dic_no, entry, &wordrb) < 0)
    if_dead_disconnect (env, NULL);
  return ((struct wnn_jdata *) (wordrb.buf));
}

int
jl_dic_list_e (struct wnn_env *env, WNN_DIC_INFO **dicinfo)
{
  WNN_DIC_INFO *info;
  int cnt;
  register int k;
  register char *c;

  *dicinfo = info;
  return (cnt);
}


static int 
sort_func_ws (register char *a, register char *b)
{
  int ah, bh, ai, bi, iah, ibh, iai, ibi;
  ah = ((struct wnn_jdata *) a)->hindo;
  bh = ((struct wnn_jdata *) b)->hindo;
  iah = ((struct wnn_jdata *) a)->int_hindo;

    return (1);
  return (0);
}

int
jl_word_search_e (register struct wnn_env *env, int dic_no, w_char *yomi, struct wnn_jdata **jdp)
{
  register int cnt;
  struct wnn_jdata *jd;

  wnn_errorno = 0;

  *jdp = jd;
  return (cnt);
}

int
jl_word_search_by_env_e (register struct wnn_env *env, w_char *yomi, struct wnn_jdata **jdp)
{
  register int cnt;
  struct wnn_jdata *jd;

  wnn_errorno = 0;

  buf->down_bnst[k] = b;
  b->ref_cnt++;
}

#ifdef JL_DEBUG
static void 
print_jdata (struct wnn_jdata *jd)
{
  putws (jd->kanji);
  printf ("\tDict:%d Serial:%d Hinsi:%s Hindo:%c%d ExHindo:%c%d\n",
          jd->dic_no, jd->serial, wnn_get_hinsi_name (jd->hinshi), (jd->ima) ? '*' : ' ', jd->hindo, (jd->int_ima) ? '*' : ' ', jd->int_hindo);
}

#define REAL_PARAM(x) (strcmp(x, "-"))


/** wnnrc を見てのパラメータの設定 */
int 
jl_set_env_wnnrc (register struct wnn_env *env, char *wnnrc_n, int (*error_handler)(void), int (*message_handler)(void))
{
  int level = 0;
  int x;
  wnn_errorno = 0;
  if (error_handler == (void *)WNN_CREATE)

  x = jl_set_env_wnnrc1 (env, wnnrc_n, error_handler, message_handler, level);
  confirm_state = 0;
  return (x);
}

int 
jl_set_env_wnnrc1 (register struct wnn_env *env, char *wnnrc_n, int (*error_handler)(void), int (*message_handler)(void), int level)
{
  register int num;
  char s[20][EXPAND_PATH_LENGTH];
  char code[EXPAND_PATH_LENGTH];
  char tmp[1024];

   */
  fclose (fp);
  return (-1);
}

static int 
expand_expr_all (register char *s, struct wnn_env *env)
{
  register char *c;

  for (c = s; *c; c++)
    {

  return (0);
}

/* copy of js.c */
static char *
getlogname (void)
{
  struct passwd *getpwuid ();
  return getpwuid (getuid ())->pw_name;
}


static int 
expand_expr (register char *s, struct wnn_env *env)
{
  char *p, *s1;
  char tmp[EXPAND_PATH_LENGTH];
  int noerr, expandsuc;
  struct passwd *u;

    strcpy (s, p);
  strcat (s, tmp);
  return (noerr ? 0 : -1);
}

static int 
change_ascii_to_int (register char *st, int *dp)
{
  register int total, flag;

  total = 0;
  flag = 0;

    }
  *dp = total * flag;
  return (1);
}

static int 
file_exist (struct wnn_env *env, char *n)
{
  if (n[0] == C_LOCAL)
    {
      wnn_errorno = 0;
      return (access (n + 1, 4));

    {
      return (js_access (env, n, 4));
    }
}

static int 
create_file (register struct wnn_env *env, char *n, int d, int fid, char *pwd_dic, char *pwd_hindo, int (*error_handler)(void), int (*message_handler)(void))
{
  char pwd[WNN_PASSWD_LEN], hpwd[WNN_PASSWD_LEN];
  int rev_dict_type;

  if (make_dir_rec1 (env, n, error_handler, message_handler) == -1)

            }
        }
    }
}

static int 
make_dir_rec1 (struct wnn_env *env, register char *path, int (*error_handler)(void), int (*message_handler)(void))
{
  char gomi[128];
  register char *c;
  for (c = path; *c; c++)
    {

        }
    }
  return (0);
}

static int 
make_dir1 (register struct wnn_env *env, register char *dirname, int (*error_handler)(void), int (*message_handler)(void))
{
  char gomi[128];
  if (dirname[0] == C_LOCAL)
    {
      if (*(dirname + 1) == 0)

    }
  return (0);
}


static int 
call_error_handler (int (*error_handler)(void), char *c)
{
  register int x;
  x = error_handler (c);
  if (confirm_state == CONFIRM1)
    {

        confirm_state = NO_CREATE;
    }
  return (x);
}

static void 
message_out (int (*message_handler)(void), char *format, int s1, int s2, int s3, int s4, int s5, int s6, int s7, int s8)
{
  char buf[256];

  if (message_handler)
    {

      (*message_handler) (buf);
    }
}


int 
jl_yomi_len (struct wnn_buf *buf, register int bun_no, register int bun_no2)
{
  register int len = 0;

  wnn_errorno = 0;
  if (bun_no2 >= buf->bun_suu || bun_no2 < 0)

    }
  return (len);
}


int 
jl_kanji_len (struct wnn_buf *buf, register int bun_no, register int bun_no2)
{
  register int len = 0;

  wnn_errorno = 0;
  if (bun_no < 0)

  return (len);
}

int wnn_word_use_initial_hindo = 0;

int 
jl_word_use_e (register struct wnn_env *env, int dic_no, int entry)
{
  register struct wnn_jdata *jd;

  wnn_errorno = 0;
  if (js_word_info (env, dic_no, entry, &rb) == -1)

        }
    }
  return (0);
}

void 
jl_env_set (register struct wnn_buf *buf, register struct wnn_env *env)
{
  wnn_errorno = 0;
  buf->env = env;
}


struct wnn_env *
jl_env_get (register struct wnn_buf *buf)
{

  wnn_errorno = 0;
  return (buf->env);
}


int 
jl_param_set_e (register struct wnn_env *env, struct wnn_param *para)
{
  register int x;

  wnn_errorno = 0;
  if ((x = js_param_set (env, para)) == -1)
    if_dead_disconnect (env, -1);
  return (x);
}

int 
jl_param_get_e (struct wnn_env *env, struct wnn_param *para)
{
  register int x;
  wnn_errorno = 0;
  if ((x = js_param_get (env, para)) == -1)
    if_dead_disconnect (env, -1);
  return (x);
}


int 
jl_dic_use_e (struct wnn_env *env, int dic_no, int flag)
{
  register int x;
  wnn_errorno = 0;
  if ((x = js_dic_use (env, dic_no, flag)) == -1)
    if_dead_disconnect (env, -1);
  return (x);
}

int
jl_word_add_e (struct wnn_env *env, int dic_no, w_char *yomi, w_char *kanji, w_char *comment, int hinsi, int init_hindo)

{
  register int x;
  wnn_errorno = 0;
  if ((x = js_word_add (env, dic_no, yomi, kanji, comment, hinsi, init_hindo)) == -1)
    if_dead_disconnect (env, -1);
  return (x);
}

int 
jl_word_delete_e (struct wnn_env *env, int dic_no, int entry)
{
  register int x;
  wnn_errorno = 0;
  if ((x = js_word_delete (env, dic_no, entry)) == -1)
    if_dead_disconnect (env, -1);
  return (x);
}

static int 
file_read (struct wnn_env *env, char *fname)
{
  register int fid;
  if (fname[0] == C_LOCAL)
    {
      fid = js_file_send (env, fname + 1);

      return (js_file_remove (server, fname, pwd));
    }
}


static int 
file_discard (register struct wnn_env *env, register int fid)
{
  delete_file_from_env (env, fid);
  return (js_file_discard (env, fid));
}

int
jl_hinsi_number_e (register struct wnn_env *env, w_char *name)
{
  register int x;
  wnn_errorno = 0;
  if ((x = js_hinsi_number (env->js_id, name)) == -1)
    if_dead_disconnect (env, -1);
  return (x);
}

w_char *
jl_hinsi_name_e (register struct wnn_env *env, register int no)
{
  wnn_errorno = 0;
  if (js_hinsi_name (env->js_id, no, &rb) == -1)
    if_dead_disconnect (env, NULL);
  return ((w_char *) (rb.buf));
}

int
jl_hinsi_list_e (register struct wnn_env *env, int dic_no, w_char *name, w_char ***area)
{
  int x;
  wnn_errorno = 0;
  if ((x = js_hinsi_list (env, dic_no, name, &rb)) == -1)
    if_dead_disconnect (env, -1);
  *area = (w_char **) (rb.buf);
  return (x);
}

int 
jl_hinsi_dicts_e (register struct wnn_env *env, int no, int **area)
{
  int x;
  wnn_errorno = 0;
  if ((x = js_hinsi_dicts (env, no, &rb)) == -1)
    if_dead_disconnect (env, -1);

  return (x);
}


int
jl_word_comment_set_e (register struct wnn_env *env, int dic_no, int entry, wchar *comment)
{
  register int x;
  wnn_errorno = 0;
  if ((x = js_word_comment_set (env, dic_no, entry, comment)) == -1)
    if_dead_disconnect (env, -1);