comparison Wnn/jlib/js.c @ 12:1f16ab4b33e5

add prototypes for functions to jslib.h

11:aa17e2acfa01

        wnn_errorno = 0; /* here initialize wnn_errorno; */    \
    } \
}

static void
set_current_js (server)
     register WNN_JSERVER_ID *server;
{
  current_js = server;
  current_sd = current_js->sd;
}

/**     デーモンが死んだ時のための後始末        **/
static void
daemon_dead ()
{
  current_js->js_dead = -1;
  wnn_errorno = WNN_JSERVER_DEAD;
  shutdown (current_sd, 2);
#ifdef HAVE_CLOSESOCKET

/**
        ソケットをオープンしてcurrent_sdにソケットfdを返す
                        (cdというのはコミュニケーションデバイスの名残)
**/
static int
cd_open_un (lang)
     register char *lang;
{
#ifdef AF_UNIX
  int sd;
  struct sockaddr_un saddr;             /** ソケット **/
  char *sock_name = NULL;

  return -1;
#endif
}

static int
cd_open_in (server, lang, timeout)
     register char *server;
     register char *lang;
     register int timeout;
{
  int sd;
#ifdef INET6
  struct addrinfo hints, *res, *res0;
  int error;

{
}

/* get server name and return serverNo */
static int
_get_server_name (server, pserver)
     char *server;
     char *pserver;
{
  register char *p;
#ifdef INET6
  int len;

/*      Packet SND/RCV subroutines      */
static void put4com ();

/**     パケットのヘッダーを送る        **/
static void
snd_head (cmd)
     int cmd;   /** cmd=コマンド **/
{
  sbp = 0;
  put4com (cmd);
  rbc = -1;
}

/**     パケットのヘッダーを送る        **/
static int
snd_env_head (env, cmd)
     register struct wnn_env *env;
     int cmd;   /** cmd=コマンド **/
{
  snd_head (cmd);
  put4com (env->env_id);
  return 0;
}

/**     パケットのヘッダーを送る        **/
static int
snd_server_head (server, cmd)
     register WNN_JSERVER_ID *server;
     int cmd;   /** cmd=コマンド **/
{
  snd_head (cmd);
  return 0;
}

/**     送信バッファをフラッシュする    **/
static int
snd_flush ()
{
  if (sbp == 0)
    return (-1);
  writen (sbp);
  sbp = 0;
  return (0);
}

static int
writen (n)
     int n;
{
  int cc, x;
  for (cc = 0; cc < n;)
    {
      errno = 0;

  return (0);
}

/**     サーバへ1バイト送る     **/
static void
put1com (c)
     int c;
{
  snd_buf[sbp++] = c;
  if (sbp >= S_BUF_SIZ)
    {
      writen (S_BUF_SIZ);

    }
}

/**     サーバへ2バイト送る     **/
static void
put2com (c)
     int c;
{
  put1com (c >> (8 * 1));
  put1com (c);
}

/**     サーバへ4バイト送る     **/
static void
put4com (c)
     int c;
{
  put1com (c >> (8 * 3));
  put1com (c >> (8 * 2));
  put1com (c >> (8 * 1));
  put1com (c);
}

/**     サーバへ文字列を送る    **/
static void
putwscom (p)
     register w_char *p;
{
  if (p == NULL)
    {
      put2com (0);
      return;

  put2com (0);
}

/**     サーバへ文字列を送る    **/
static void
putscom (p)
     register char *p;
{
  if (p == NULL)
    {
      put1com (0);
      return;

  put1com (0);
}

/**     サーバから1バイト受ける **/
static int
get1com ()
{
  static int rbp;
  static unsigned char rcv_buf[R_BUF_SIZ];      /** 受信 **/
  if (rbc <= 0)
    {

  return rcv_buf[rbp++] & 0xFF;
}

/**     サーバから2バイト受ける **/
static int
get2com ()
{
  register int h;
  h = get1com ();
  return (h << 8) | get1com ();
}

/**     サーバから4バイト受ける **/
static int
get4com ()
{
  register int h1, h2, h3;
  h1 = get1com () << 24;
  h2 = get1com () << 16;
  h3 = get1com () << 8;
  return h1 | h2 | h3 | get1com ();
}

/**     サーバへ文字列を送る    **/
static void
getscom (p)
     register char *p;
{
    while ((*p++ = get1com ()))
    ;
}

/**     サーバへ文字列を送る    **/
static void
getwscom (p)
     w_char register *p;
{
    while ((*p++ = get2com ()))
    ;
}

#ifdef nodef
/* Moved from ../etc/string.c */
/**     **/
static int
Strlen (s)
     register w_char *s;
{
  register int n;

  for (n = 0; *s++ != 0; n++);
  return n;
}

/**     **/
static w_char *
Strcpy (s1, s2)
     register w_char *s1;
     register w_char *s2;
{
  register w_char *d;

  for (d = s1; (*d++ = *s2++) != 0;);
  return s1;

/*      Debug Subroutines       */
#if DEBUG
void
xerror (s)
     char *s;
{
  fprintf (stderr, "%s\n", s);
}

void

#endif

/*      get login name form /etc/passwd file    */
static char *
getlogname ()
{
  struct passwd *getpwuid ();
  return getpwuid (getuid ())->pw_name;
}

        ・global
***/

/**       jserver と接続する。jserver_id を返す。       **/
WNN_JSERVER_ID *
js_open_lang (server, lang, timeout)
     register char *server, *lang;
     register int timeout;
{
  char *new_js;
  char host[WNN_HOSTLEN], user[WNN_ENVNAME_LEN];
  int x;

/**     ソケットをクローズする  **/
/**       jserver との接続を close する。       **/
int
js_close (server)
     WNN_JSERVER_ID *server;
{
  register int x;
  WNN_JSERVER_ID tmp_js_id;
  if (server == 0)
    return (-1);

        境を作る。env_name に既に存在する環境を指定した時にはその環境を
        返し、NULL を指定した時には新しい環境を作って返す。
*/

struct wnn_env *
js_connect_lang (server, env_name, lang)
     register char *env_name;
     WNN_JSERVER_ID *server;
     char *lang;
{
  register int e_id;
  register struct wnn_env *env;
  void js_set_lang ();

}

#ifdef  nodef
/* set language value to env */
void
js_set_lang (env, lang)
     struct wnn_env *env;
     register char *lang;
{
  register char *p;
  extern char *getenv ();

  /* if not specified language , use $LANG */

}
#endif

/* get language value from env */
char *
js_get_lang (env)
     struct wnn_env *env;
{
  return (env->lang);
}

int
js_env_exist (server, env_name)
     register char *env_name;
     register WNN_JSERVER_ID *server;
{
  set_current_js (server);
  handler_of_jserver_dead (-1);
  snd_head (JS_ENV_EXIST);
  putscom (env_name);
  snd_flush ();
  return (get4com ());
}

int
js_env_sticky (env)
     register struct wnn_env *env;
{
  if (env == 0)
    return (-1);
  set_current_js (env->js_id);
  handler_of_jserver_dead (-1);

  snd_flush ();
  return (get4com ());
}

int
js_env_un_sticky (env)
     register struct wnn_env *env;
{
  if (env == 0)
    return (-1);
  set_current_js (env->js_id);
  handler_of_jserver_dead (-1);

/**
          env で示される環境を無くす。
**/
int
js_disconnect (env)
     register struct wnn_env *env;
{
  register int x;
  struct wnn_env tmp_env;
  if (env == 0)
    return (-1);

  return x;
}

/**     サーバとコネクトしているか      **/
int
js_isconnect (env)
     register struct wnn_env *env;
{
  if (env && env->js_id)
    return (env->js_id->js_dead);
  return (-1);
}

/**
          env の 環境 との通信バッファを flush する。
**/
void
js_flush (env)
     struct wnn_env *env;
{
}



/*      Parameter set/get       */

/**     js_file_list_all        **/
static int rcv_file_list ();

int
js_file_list_all (server, ret)
     WNN_JSERVER_ID *server;
     struct wnn_ret_buf *ret;
{
  set_current_js (server);
  handler_of_jserver_dead (-1);
  snd_server_head (server, JS_FILE_LIST_ALL);
  snd_flush ();

  return count;
}

/**     js_file_stat    **/
int
js_file_stat (env, path, s)
     struct wnn_env *env;
     char *path;
     WNN_FILE_STAT *s;
{
  register int x;
  if (env == 0)
    return (-1);
  set_current_js (env->js_id);

}


/**     js_file_info    **/
int
js_file_info (env, fid, file)
     struct wnn_env *env;
     int fid;
     register WNN_FILE_INFO_STRUCT *file;
{
  register int x;
  if (env == 0)
    return (-1);
  set_current_js (env->js_id);

  return 0;
}

/**     js_file_loaded  **/
int
js_file_loaded (server, path)
     WNN_JSERVER_ID *server;
     char *path;
{
  register int x;
  set_current_js (server);
  handler_of_jserver_dead (-1);
  snd_server_head (server, JS_FILE_LOADED);

/**     js_file_loaded_local    **/
static int check_local_file ();
static int file_loaded_local ();

int
js_file_loaded_local (server, path)
     WNN_JSERVER_ID *server;
     char *path;
{
  int x;
  set_current_js (server);
  handler_of_jserver_dead (-1);

}


/**     js_hindo_file_create    **/
int
js_hindo_file_create (env, fid, fn, comment, hpasswd)
     struct wnn_env *env;
     int fid;
     char *fn;
     w_char *comment;
     char *hpasswd;
{
  register int x;
  if (env == 0)
    return (-1);
  set_current_js (env->js_id);

  return x;
}

/**     js_dic_file_create      **/
int
js_dic_file_create (env, fn, type, comment, passwd, hpasswd)
     struct wnn_env *env;
     char *fn;
     w_char *comment;
     char *passwd, *hpasswd;
     int type;
{
  register int x;
  if (env == 0)
    return (-1);
  set_current_js (env->js_id);

/**     js_dic_list_all **/
static int rcv_dic_list ();
static void get_dic_info ();

int
js_dic_list_all (server, ret)
     WNN_JSERVER_ID *server;
     struct wnn_ret_buf *ret;
{
  set_current_js (server);
  handler_of_jserver_dead (-1);
  snd_server_head (server, JS_DIC_LIST_ALL);
  snd_flush ();

  dic->dic_no = -1;
  return count;
}

static void
get_dic_info (dic)
     register WNN_DIC_INFO *dic;
{
  dic->dic_no = get4com ();     /* dic_No */
  dic->body = get4com ();       /* body fid */
  dic->hindo = get4com ();      /* hindo fid */
  dic->rw = get4com ();         /* r/w */

/***    Dic. Operation by dic_No.       ***/

/**     js_word_add             **/
int
js_word_add (env, dic_no, yomi, kanji, comment, hinshi, init_hindo)
     struct wnn_env *env;
     int dic_no;
     w_char *yomi, *kanji, *comment;
     int hinshi, init_hindo;
{
  register int x;
  if (env == 0)
    return (-1);
  set_current_js (env->js_id);

/**     js_word_search          **/
static int rcv_word_data ();

int
js_word_search (env, dic_no, yomi, ret)
     struct wnn_env *env;
     int dic_no;
     w_char *yomi;
     struct wnn_ret_buf *ret;
{
  if (env == 0)
    return (-1);
  set_current_js (env->js_id);
  handler_of_jserver_dead (-1);

  return (rcv_word_data (ret, yomi));
}

/**     js_word_search_by_env   **/
int
js_word_search_by_env (env, yomi, ret)
     struct wnn_env *env;
     w_char *yomi;
     struct wnn_ret_buf *ret;
{
  if (env == 0)
    return (-1);
  set_current_js (env->js_id);
  handler_of_jserver_dead (-1);

  rcv_word_data (ret, yomi);
  return (0);
}

int
js_word_comment_set (env, dic_no, entry, comment)
     struct wnn_env *env;
     int dic_no, entry;
     w_char *comment;
{
  register int x;
  if (env == 0)
    return (-1);
  set_current_js (env->js_id);

  return (0);
}

/**     rcv for word_search             **/
static int
rcv_word_data (ret, yomi)
     struct wnn_ret_buf *ret;
     w_char *yomi;              /* Yomi is not sent from server
                                 *  (at least for the time being).
                                 */
{
  register int x, j_c, k_c;
  w_char *k;
  register struct wnn_jdata *jd;
  register int cnt;

}


/**     js_dic_info     **/
int
js_dic_info (env, dic_no, ret)
     struct wnn_env *env;
     int dic_no;
     register WNN_DIC_INFO *ret;
{
  register int x;
  if (env == 0)
    return (-1);
  set_current_js (env->js_id);

}


/**     js_who          **/
int
js_who (server, ret)
     WNN_JSERVER_ID *server;
     struct wnn_ret_buf *ret;
{
  register int i, j, c;
  WNN_JWHO *w;
  set_current_js (server);
  handler_of_jserver_dead (-1);

/**     jserver 中の全ての環境に関する情報を得る。
        (ウラ技)
**/
int
js_env_list (server, ret)
     WNN_JSERVER_ID *server;
     struct wnn_ret_buf *ret;
{
  register int i, j, c;
  WNN_ENV_INFO *w;
  set_current_js (server);
  handler_of_jserver_dead (-1);

/****
        Henkan
****/

static void
put_fzk_vec (hinsi, fzk, vec, vec1)
     int hinsi;
     w_char *fzk;
     int vec;
     int vec1;
{
  put4com (hinsi);
  putwscom (fzk);
  put4com (vec);
  put4com (vec1);

static int rcv_dai ();
static void rcv_sho_x ();
static void rcv_sho_kanji ();

int
js_kanren (env, yomi, hinsi, fzk, vec, vec1, vec2, rb)
     struct wnn_env *env;
     w_char *yomi;
     int hinsi;
     w_char *fzk;
     int vec;
     int vec1;
     int vec2;
     struct wnn_ret_buf *rb;
{
  if (env == 0)
    return (-1);
  set_current_js (env->js_id);
  handler_of_jserver_dead (-1);

/**
        kantan
**/
int
js_kantan_dai (env, yomi, hinsi, fzk, vec, vec1, rb)
     struct wnn_env *env;
     w_char *yomi;
     int hinsi;
     w_char *fzk;
     int vec;
     int vec1;
     struct wnn_ret_buf *rb;
{
  if (env == 0)
    return (-1);
  set_current_js (env->js_id);
  handler_of_jserver_dead (-1);

  return rcv_dai (rb);
}

int
js_kantan_sho (env, yomi, hinsi, fzk, vec, vec1, rb)
     struct wnn_env *env;
     w_char *yomi;
     int hinsi;
     w_char *fzk;
     int vec;
     int vec1;
     struct wnn_ret_buf *rb;
{
  int sbncnt;
  if (env == 0)
    return (-1);
  set_current_js (env->js_id);

/**
        kanzen
**/
int
js_kanzen_dai (env, yomi, hinsi, fzk, vec, vec1, rb)
     struct wnn_env *env;
     w_char *yomi;
     int hinsi;
     w_char *fzk;
     int vec;
     int vec1;
     struct wnn_ret_buf *rb;
{
  if (env == 0)
    return (-1);
  set_current_js (env->js_id);
  handler_of_jserver_dead (-1);

  return rcv_dai (rb);
}


int
js_kanzen_sho (env, yomi, hinsi, fzk, vec, vec1, rb)
     struct wnn_env *env;
     w_char *yomi;
     int hinsi;
     w_char *fzk;
     int vec;
     int vec1;
     struct wnn_ret_buf *rb;
{
  int sbncnt;
  if (env == 0)
    return (-1);
  set_current_js (env->js_id);

  return sbncnt;
}

/**     js_version              **/
int
js_version (server, serv, libv)
     int *serv, *libv;
     WNN_JSERVER_ID *server;
{
  set_current_js (server);
  handler_of_jserver_dead (-1);
  snd_server_head (server, JS_VERSION);
  snd_flush ();
  *libv = JLIB_VERSION;
  return *serv = get4com ();
}

static void
re_alloc (ret, size)
     register struct wnn_ret_buf *ret;
     int size;
{
  if (ret->size < size)
    {
      if (ret->buf)
        free ((char *) ret->buf);

    }
}


int
js_kill (server)
     WNN_JSERVER_ID *server;
{
  int x;
  set_current_js (server);
  handler_of_jserver_dead (-1);
  snd_server_head (server, JS_KILL);

  return (x);
}


int
js_file_remove (server, n, pwd)
     WNN_JSERVER_ID *server;
     char *n, *pwd;
{
  register int x;
  set_current_js (server);
  handler_of_jserver_dead (-1);
  snd_server_head (server, JS_FILE_REMOVE);

    }
  return (x);
}

int
js_file_remove_client (server, n, pwd)
     WNN_JSERVER_ID *server;
     char *n, *pwd;
{
  struct wnn_file_head fh;
  register FILE *fp;
  set_current_js (server);
  handler_of_jserver_dead (-1);

  return (0);
}

/**     js_dic_file_create_client       **/
int
js_dic_file_create_client (env, fn, type, com, passwd, hpasswd)
     struct wnn_env *env;
     int type;
     char *fn;
     w_char *com;
     char *passwd, *hpasswd;
{
  int x;
  if (type != WNN_REV_DICT && type != CWNN_REV_DICT && type != BWNN_REV_DICT && type != WNN_UD_DICT)
    {
      wnn_errorno = WNN_NOT_A_UD;

}


/**     js_hindo_file_create_client     **/
int
js_hindo_file_create_client (env, fid, fn, com, hpasswd)
     struct wnn_env *env;
     int fid;
     char *fn;
     w_char *com;
     char *hpasswd;
{
  register int x;
  struct wnn_file_uniq funiq;
  int serial;
  register int i;

    }
  return (0);
}

int
js_file_comment_set (env, fid, comment)
     struct wnn_env *env;
     int fid;
     w_char *comment;
{
  register int x;
  if (env == 0)
    return (-1);
  set_current_js (env->js_id);

/* 
 * Hinsi Primitives
 */

int
js_hinsi_name (server, no, rb)
     WNN_JSERVER_ID *server;
     int no;
     struct wnn_ret_buf *rb;
{
  register int size;

  set_current_js (server);
  handler_of_jserver_dead (-1);

  return (0);
}


int
js_hinsi_number (server, name)
     WNN_JSERVER_ID *server;
     w_char *name;
{
  register int no;

  set_current_js (server);
  handler_of_jserver_dead (-1);

  return (no);
}


int
js_hinsi_list (env, dic_no, name, rb)
     struct wnn_env *env;
     int dic_no;
     w_char *name;
     struct wnn_ret_buf *rb;
{
  int size;
  int count;
  register w_char *s;
  register w_char **r;

    }
  return (0);
}

int
js_hinsi_table_set (env, dic_no, hinsi_table)
     struct wnn_env *env;
     int dic_no;
     w_char *hinsi_table;
{
  int x;
  if (env == 0)
    return (-1);
  set_current_js (env->js_id);

12:1f16ab4b33e5

        wnn_errorno = 0; /* here initialize wnn_errorno; */    \
    } \
}

static void
set_current_js (register WNN_JSERVER_ID *server)
{
  current_js = server;
  current_sd = current_js->sd;
}

/**     デーモンが死んだ時のための後始末        **/
static void
daemon_dead (void)
{
  current_js->js_dead = -1;
  wnn_errorno = WNN_JSERVER_DEAD;
  shutdown (current_sd, 2);
#ifdef HAVE_CLOSESOCKET

/**
        ソケットをオープンしてcurrent_sdにソケットfdを返す
                        (cdというのはコミュニケーションデバイスの名残)
**/
static int
cd_open_un (register char *lang)
{
#ifdef AF_UNIX
  int sd;
  struct sockaddr_un saddr;             /** ソケット **/
  char *sock_name = NULL;

  return -1;
#endif
}

static int
cd_open_in (register char *server, register char *lang, register int timeout)
{
  int sd;
#ifdef INET6
  struct addrinfo hints, *res, *res0;
  int error;

{
}

/* get server name and return serverNo */
static int
_get_server_name (char *server, char *pserver)
{
  register char *p;
#ifdef INET6
  int len;

/*      Packet SND/RCV subroutines      */
static void put4com ();

/**     パケットのヘッダーを送る        **/
static void
snd_head (int cmd)
{
  sbp = 0;
  put4com (cmd);
  rbc = -1;
}

/**     パケットのヘッダーを送る        **/
static int
snd_env_head (register struct wnn_env *env, int cmd)
{
  snd_head (cmd);
  put4com (env->env_id);
  return 0;
}

/**     パケットのヘッダーを送る        **/
static int
snd_server_head (register WNN_JSERVER_ID *server, int cmd)
{
  snd_head (cmd);
  return 0;
}

/**     送信バッファをフラッシュする    **/
static int
snd_flush (void)
{
  if (sbp == 0)
    return (-1);
  writen (sbp);
  sbp = 0;
  return (0);
}

static int
writen (int n)
{
  int cc, x;
  for (cc = 0; cc < n;)
    {
      errno = 0;

  return (0);
}

/**     サーバへ1バイト送る     **/
static void
put1com (int c)
{
  snd_buf[sbp++] = c;
  if (sbp >= S_BUF_SIZ)
    {
      writen (S_BUF_SIZ);

    }
}

/**     サーバへ2バイト送る     **/
static void
put2com (int c)
{
  put1com (c >> (8 * 1));
  put1com (c);
}

/**     サーバへ4バイト送る     **/
static void
put4com (int c)
{
  put1com (c >> (8 * 3));
  put1com (c >> (8 * 2));
  put1com (c >> (8 * 1));
  put1com (c);
}

/**     サーバへ文字列を送る    **/
static void
putwscom (register w_char *p)
{
  if (p == NULL)
    {
      put2com (0);
      return;

  put2com (0);
}

/**     サーバへ文字列を送る    **/
static void
putscom (register char *p)
{
  if (p == NULL)
    {
      put1com (0);
      return;

  put1com (0);
}

/**     サーバから1バイト受ける **/
static int
get1com (void)
{
  static int rbp;
  static unsigned char rcv_buf[R_BUF_SIZ];      /** 受信 **/
  if (rbc <= 0)
    {

  return rcv_buf[rbp++] & 0xFF;
}

/**     サーバから2バイト受ける **/
static int
get2com (void)
{
  register int h;
  h = get1com ();
  return (h << 8) | get1com ();
}

/**     サーバから4バイト受ける **/
static int
get4com (void)
{
  register int h1, h2, h3;
  h1 = get1com () << 24;
  h2 = get1com () << 16;
  h3 = get1com () << 8;
  return h1 | h2 | h3 | get1com ();
}

/**     サーバへ文字列を送る    **/
static void
getscom (register char *p)
{
    while ((*p++ = get1com ()))
    ;
}

/**     サーバへ文字列を送る    **/
static void
getwscom (w_char register *p)
{
    while ((*p++ = get2com ()))
    ;
}

#ifdef nodef
/* Moved from ../etc/string.c */
/**     **/
static int
Strlen (register w_char *s)
{
  register int n;

  for (n = 0; *s++ != 0; n++);
  return n;
}

/**     **/
static w_char *
Strcpy (register w_char *s1, register w_char *s2)
{
  register w_char *d;

  for (d = s1; (*d++ = *s2++) != 0;);
  return s1;

/*      Debug Subroutines       */
#if DEBUG
void
xerror (char *s)
{
  fprintf (stderr, "%s\n", s);
}

void

#endif

/*      get login name form /etc/passwd file    */
static char *
getlogname (void)
{
  struct passwd *getpwuid ();
  return getpwuid (getuid ())->pw_name;
}

        ・global
***/

/**       jserver と接続する。jserver_id を返す。       **/
WNN_JSERVER_ID *
js_open_lang (register char *server, register char *lang, register int timeout)
{
  char *new_js;
  char host[WNN_HOSTLEN], user[WNN_ENVNAME_LEN];
  int x;

/**     ソケットをクローズする  **/
/**       jserver との接続を close する。       **/
int
js_close (WNN_JSERVER_ID *server)
{
  register int x;
  WNN_JSERVER_ID tmp_js_id;
  if (server == 0)
    return (-1);

        境を作る。env_name に既に存在する環境を指定した時にはその環境を
        返し、NULL を指定した時には新しい環境を作って返す。
*/

struct wnn_env *
js_connect_lang (WNN_JSERVER_ID *server, register char *env_name, char *lang)
{
  register int e_id;
  register struct wnn_env *env;
  void js_set_lang ();

}

#ifdef  nodef
/* set language value to env */
void
js_set_lang (struct wnn_env *env, register char *lang)
{
  register char *p;
  extern char *getenv ();

  /* if not specified language , use $LANG */

}
#endif

/* get language value from env */
char *
js_get_lang (struct wnn_env *env)
{
  return (env->lang);
}

int
js_env_exist (register WNN_JSERVER_ID *server, register char *env_name)
{
  set_current_js (server);
  handler_of_jserver_dead (-1);
  snd_head (JS_ENV_EXIST);
  putscom (env_name);
  snd_flush ();
  return (get4com ());
}

int
js_env_sticky (register struct wnn_env *env)
{
  if (env == 0)
    return (-1);
  set_current_js (env->js_id);
  handler_of_jserver_dead (-1);

  snd_flush ();
  return (get4com ());
}

int
js_env_un_sticky (register struct wnn_env *env)
{
  if (env == 0)
    return (-1);
  set_current_js (env->js_id);
  handler_of_jserver_dead (-1);

/**
          env で示される環境を無くす。
**/
int
js_disconnect (register struct wnn_env *env)
{
  register int x;
  struct wnn_env tmp_env;
  if (env == 0)
    return (-1);

  return x;
}

/**     サーバとコネクトしているか      **/
int
js_isconnect (register struct wnn_env *env)
{
  if (env && env->js_id)
    return (env->js_id->js_dead);
  return (-1);
}

/**
          env の 環境 との通信バッファを flush する。
**/
void
js_flush (struct wnn_env *env)
{
    /* no operation */
}



/*      Parameter set/get       */

/**     js_file_list_all        **/
static int rcv_file_list ();

int
js_file_list_all (WNN_JSERVER_ID *server, struct wnn_ret_buf *ret)
{
  set_current_js (server);
  handler_of_jserver_dead (-1);
  snd_server_head (server, JS_FILE_LIST_ALL);
  snd_flush ();

  return count;
}

/**     js_file_stat    **/
int
js_file_stat (struct wnn_env *env, char *path, WNN_FILE_STAT *s)
{
  register int x;
  if (env == 0)
    return (-1);
  set_current_js (env->js_id);

}


/**     js_file_info    **/
int
js_file_info (struct wnn_env *env, int fid, register WNN_FILE_INFO_STRUCT *file)
{
  register int x;
  if (env == 0)
    return (-1);
  set_current_js (env->js_id);

  return 0;
}

/**     js_file_loaded  **/
int
js_file_loaded (WNN_JSERVER_ID *server, char *path)
{
  register int x;
  set_current_js (server);
  handler_of_jserver_dead (-1);
  snd_server_head (server, JS_FILE_LOADED);

/**     js_file_loaded_local    **/
static int check_local_file ();
static int file_loaded_local ();

int
js_file_loaded_local (WNN_JSERVER_ID *server, char *path)
{
  int x;
  set_current_js (server);
  handler_of_jserver_dead (-1);

}


/**     js_hindo_file_create    **/
int
js_hindo_file_create (struct wnn_env *env, int fid, char *fn, w_char *comment, char *hpasswd)
{
  register int x;
  if (env == 0)
    return (-1);
  set_current_js (env->js_id);

  return x;
}

/**     js_dic_file_create      **/
int
js_dic_file_create (struct wnn_env *env, char *fn, int type, w_char *comment, char *passwd, char *hpasswd)
{
  register int x;
  if (env == 0)
    return (-1);
  set_current_js (env->js_id);

/**     js_dic_list_all **/
static int rcv_dic_list ();
static void get_dic_info ();

int
js_dic_list_all (WNN_JSERVER_ID *server, struct wnn_ret_buf *ret)
{
  set_current_js (server);
  handler_of_jserver_dead (-1);
  snd_server_head (server, JS_DIC_LIST_ALL);
  snd_flush ();

  dic->dic_no = -1;
  return count;
}

static void
get_dic_info (register WNN_DIC_INFO *dic)
{
  dic->dic_no = get4com ();     /* dic_No */
  dic->body = get4com ();       /* body fid */
  dic->hindo = get4com ();      /* hindo fid */
  dic->rw = get4com ();         /* r/w */

/***    Dic. Operation by dic_No.       ***/

/**     js_word_add             **/
int
js_word_add (struct wnn_env *env, int dic_no, w_char *yomi, w_char *kanji, w_char *comment, int hinshi, int init_hindo)
{
  register int x;
  if (env == 0)
    return (-1);
  set_current_js (env->js_id);

/**     js_word_search          **/
static int rcv_word_data ();

int
js_word_search (struct wnn_env *env, int dic_no, w_char *yomi, struct wnn_ret_buf *ret)
{
  if (env == 0)
    return (-1);
  set_current_js (env->js_id);
  handler_of_jserver_dead (-1);

  return (rcv_word_data (ret, yomi));
}

/**     js_word_search_by_env   **/
int
js_word_search_by_env (struct wnn_env *env, w_char *yomi, struct wnn_ret_buf *ret)
{
  if (env == 0)
    return (-1);
  set_current_js (env->js_id);
  handler_of_jserver_dead (-1);

  rcv_word_data (ret, yomi);
  return (0);
}

int
js_word_comment_set (struct wnn_env *env, int dic_no, int entry, w_char *comment)
{
  register int x;
  if (env == 0)
    return (-1);
  set_current_js (env->js_id);

  return (0);
}

/**     rcv for word_search             **/
static int
rcv_word_data (struct wnn_ret_buf *ret, w_char *yomi)
/* Yomi is not sent from server (at least for the time being). */
{
  register int x, j_c, k_c;
  w_char *k;
  register struct wnn_jdata *jd;
  register int cnt;

}


/**     js_dic_info     **/
int
js_dic_info (struct wnn_env *env, int dic_no, register WNN_DIC_INFO *ret)
{
  register int x;
  if (env == 0)
    return (-1);
  set_current_js (env->js_id);

}


/**     js_who          **/
int
js_who (WNN_JSERVER_ID *server, struct wnn_ret_buf *ret)
{
  register int i, j, c;
  WNN_JWHO *w;
  set_current_js (server);
  handler_of_jserver_dead (-1);

/**     jserver 中の全ての環境に関する情報を得る。
        (ウラ技)
**/
int
js_env_list (WNN_JSERVER_ID *server, struct wnn_ret_buf *ret)
{
  register int i, j, c;
  WNN_ENV_INFO *w;
  set_current_js (server);
  handler_of_jserver_dead (-1);

/****
        Henkan
****/

static void
put_fzk_vec (int hinsi, w_char *fzk, int vec, int vec1)
{
  put4com (hinsi);
  putwscom (fzk);
  put4com (vec);
  put4com (vec1);

static int rcv_dai ();
static void rcv_sho_x ();
static void rcv_sho_kanji ();

int
js_kanren (struct wnn_env *env, w_char *yomi, int hinsi, w_char *fzk, int vec, int vec1, int vec2, struct wnn_ret_buf *rb)
{
  if (env == 0)
    return (-1);
  set_current_js (env->js_id);
  handler_of_jserver_dead (-1);

/**
        kantan
**/
int
js_kantan_dai (struct wnn_env *env, w_char *yomi, int hinsi, w_char *fzk, int vec, int vec1, struct wnn_ret_buf *rb)
{
  if (env == 0)
    return (-1);
  set_current_js (env->js_id);
  handler_of_jserver_dead (-1);

  return rcv_dai (rb);
}

int
js_kantan_sho (struct wnn_env *env, w_char *yomi, int hinsi, w_char *fzk, int vec, int vec1, struct wnn_ret_buf *rb)
{
  int sbncnt;
  if (env == 0)
    return (-1);
  set_current_js (env->js_id);

/**
        kanzen
**/
int
js_kanzen_dai (struct wnn_env *env, w_char *yomi, int hinsi, w_char *fzk, int vec, int vec1, struct wnn_ret_buf *rb)
{
  if (env == 0)
    return (-1);
  set_current_js (env->js_id);
  handler_of_jserver_dead (-1);

  return rcv_dai (rb);
}


int
js_kanzen_sho (struct wnn_env *env, w_char *yomi, int hinsi, w_char *fzk, int vec, int vec1, struct wnn_ret_buf *rb)
{
  int sbncnt;
  if (env == 0)
    return (-1);
  set_current_js (env->js_id);

  return sbncnt;
}

/**     js_version              **/
int
js_version (WNN_JSERVER_ID *server, int *serv, int *libv)
{
  set_current_js (server);
  handler_of_jserver_dead (-1);
  snd_server_head (server, JS_VERSION);
  snd_flush ();
  *libv = JLIB_VERSION;
  return *serv = get4com ();
}

static void
re_alloc (register struct wnn_ret_buf *ret, int size)
{
  if (ret->size < size)
    {
      if (ret->buf)
        free ((char *) ret->buf);

    }
}


int
js_kill (WNN_JSERVER_ID *server)
{
  int x;
  set_current_js (server);
  handler_of_jserver_dead (-1);
  snd_server_head (server, JS_KILL);

  return (x);
}


int
js_file_remove (WNN_JSERVER_ID *server, char *n, char *pwd)
{
  register int x;
  set_current_js (server);
  handler_of_jserver_dead (-1);
  snd_server_head (server, JS_FILE_REMOVE);

    }
  return (x);
}

int
js_file_remove_client (WNN_JSERVER_ID *server, char *n, char *pwd)
{
  struct wnn_file_head fh;
  register FILE *fp;
  set_current_js (server);
  handler_of_jserver_dead (-1);

  return (0);
}

/**     js_dic_file_create_client       **/
int
js_dic_file_create_client (struct wnn_env *env, char *fn, int type, w_char *com, char *passwd, char *hpasswd)
{
  int x;
  if (type != WNN_REV_DICT && type != CWNN_REV_DICT && type != BWNN_REV_DICT && type != WNN_UD_DICT)
    {
      wnn_errorno = WNN_NOT_A_UD;

}


/**     js_hindo_file_create_client     **/
int
js_hindo_file_create_client (struct wnn_env *env, int fid, char *fn, w_char *com, char *hpasswd)
{
  register int x;
  struct wnn_file_uniq funiq;
  int serial;
  register int i;

    }
  return (0);
}

int
js_file_comment_set (struct wnn_env *env, int fid, w_char *comment)
{
  register int x;
  if (env == 0)
    return (-1);
  set_current_js (env->js_id);

/* 
 * Hinsi Primitives
 */

int
js_hinsi_name (WNN_JSERVER_ID *server, int no, struct wnn_ret_buf *rb)
{
  register int size;

  set_current_js (server);
  handler_of_jserver_dead (-1);

  return (0);
}


int
js_hinsi_number (WNN_JSERVER_ID *server, w_char *name)
{
  register int no;

  set_current_js (server);
  handler_of_jserver_dead (-1);

  return (no);
}


int
js_hinsi_list (struct wnn_env *env, int dic_no, w_char *name, struct wnn_ret_buf *rb)
{
  int size;
  int count;
  register w_char *s;
  register w_char **r;

    }
  return (0);
}

int
js_hinsi_table_set (struct wnn_env *env, int dic_no, w_char *hinsi_table)
{
  int x;
  if (env == 0)
    return (-1);
  set_current_js (env->js_id);