/* $Id: ejlisp.c,v 1.2 1999/01/03 02:06:58 sybalsky Exp $ (C) Copyright Venue, All Rights Reserved  */
static char *id = "$Id: ejlisp.c,v 1.2 1999/01/03 02:06:58 sybalsky Exp $ Copyright (C) Venue";



/************************************************************************/
/*									*/
/*	(C) Copyright 1989-95 Venue. All Rights Reserved.		*/
/*	Manufactured in the United States of America.			*/
/*									*/
/*	The contents of this file are proprietary information 		*/
/*	belonging to Venue, and are provided to you under license.	*/
/*	They may not be further distributed or disclosed to third	*/
/*	parties without the specific permission of Venue.		*/
/*									*/
/************************************************************************/

#include "version.h"


#include <stdio.h>
#include <sys/param.h>

#include "lispemul.h"
#include "address.h"
#include "adr68k.h"
#include "lsptypes.h"
#include "lispmap.h"
#include "emlglob.h"
#include "lspglob.h"
#include "arith.h"
#include "locfile.h"

#ifdef FPO
#define WCHAR_T
#endif

#include "jllib.h"
#include "jslib.h"

#include "timeout.h"

#define CHAR_MAXLEN             512
#define TABLE_MAX               100
#define CHAR_SIZE               CHAR_MAXLEN*(sizeof(char)/sizeof(int))

#define	LStringToCString(Lisp, C, MaxLen ,Len)				\
  {									\
    OneDArray	*arrayp;						\
    char	*base;							\
    short	*sbase;							\
    int	i,j;								\
									\
    arrayp = (OneDArray *)(Addr68k_from_LADDR((unsigned int)Lisp));	\
    Len = min(MaxLen, arrayp->totalsize);				\
									\
    switch(arrayp->typenumber)						\
      {									\
        case THIN_CHAR_TYPENUMBER:					\
	    base = ((char *)						\
	            (Addr68k_from_LADDR((unsigned int)arrayp->base)))	\
	           + ((int)(arrayp->offset));				\
	    for(i=0;i<Len;i++) {					\
	        C[i] = base[i];						\
	    }								\
	    C[Len] = '\0';						\
	    break;							\
									\
        case FAT_CHAR_TYPENUMBER:					\
	    sbase = ((short *)						\
		     (Addr68k_from_LADDR((unsigned int)arrayp->base)))	\
	           + ((int)(arrayp->offset));				\
	    base = (char *)sbase;					\
	    for(i=0;i<Len*2;i++)					\
	        C[i] = base[i];						\
	    C[Len*2] = '\0';						\
	    break;							\
									\
        default:							\
	    error("LStringToCString can not handle\n");			\
      }									\
  }

#define	CStringToLString(C, Lisp, Len)					\
  {									\
    OneDArray	*arrayp;						\
    char	*base;							\
    short	*sbase;							\
    int	id;								\
									\
    arrayp = (OneDArray *)(Addr68k_from_LADDR((unsigned int)Lisp));	\
									\
    switch(arrayp->typenumber)						\
      {									\
        case THIN_CHAR_TYPENUMBER:					\
	    base = ((char *)						\
	            (Addr68k_from_LADDR((unsigned int)arrayp->base)))	\
	           + ((int)(arrayp->offset));				\
	    for(id=0;id<Len;id++)					\
	        base[id] = C[id];					\
	    arrayp->fillpointer = Len;					\
	    break;							\
									\
        case FAT_CHAR_TYPENUMBER:					\
	    sbase = ((short *)						\
		     (Addr68k_from_LADDR((unsigned int)arrayp->base)))	\
	           + ((int)(arrayp->offset));				\
	    base = (char *)sbase;					\
	    for(id=0;id<Len*2;id++)					\
	        base[id] = C[id];					\
	    arrayp->fillpointer = Len;					\
	    break;							\
									\
        default:							\
	    error("CStringToLString can not handle\n");			\
      }									\
  }

#define	IntToFixp(C, Lisp)						\
  {									\
    int	*base;								\
									\
    base = (int *) Addr68k_from_LADDR((unsigned int)Lisp);		\
    *base = C;								\
  }

#define	ZeroFix(C)							\
  {									\
    int	k,j;								\
									\
    if (C[0] == 0 && C[1] != 0) {					\
	for (k = j = 0 ; C[k] != 0 || C[k+1] != 0;k++) {		\
		if (C[k] != 0) C[j++] = C[k];				\
	}								\
	C[j] = 0;							\
    }									\
  }
 
#define	EJLISP_SETJMP(x)						\
  {									\
    if (setjmp(jmpbuf) != 0) {						\
        ejlisp_buf = NULL;						\
        return(x);							\
    }									\
  }
 
typedef struct first_array {
		unsigned int orig   : 1 ;
		unsigned int nil1   : 1 ;
		unsigned int rdonly : 1 ;
		unsigned int nil2   : 1 ;
		unsigned int type   : 4 ;
		unsigned int base   : 24 ;
		unsigned short length;
		unsigned short offset ; } FirstArray;

struct wnn_buf *ejlisp_buf = NULL;
struct wnn_jdata *ejlisp_jdp;
int             ejlisp_jdp_num;
int             ejlisp_kouho_max;
int             ejlisp_kouho_num;
int             ejlisp_kouho_next;

#define WNN_OPEN		1
#define WNN_CLOSE		2
#define WNN_CONV		3
#define WNN_RECONV		4
#define WNN_SELECT_BUNSETSU	5
#define WNN_GET_KOUHO		6
#define WNN_SELECT_KOUHO	7
#define WNN_GET_YOMI		8
#define WNN_CONV_END		9
#define WNN_ADD_USERDIC		10
#define WNN_DEL_USERDIC		11
#define WNN_SEARCH_USERDIC	12
#define WNN_GET_USERDIC		13
#define WNN_GET_USERDIC_NAME	14
#define WNN_BUNSETSU_KANJI	15
#define WNN_BUNSETSU_YOMI	16

ejlisp(args)
	int             args[];
{
	int             result;
	int             i,j,length;

	int             c_number1, c_number2, c_number3, c_number4;
	int             c_number5[TABLE_MAX], c_number6[TABLE_MAX];

	unsigned char   c_char1[(CHAR_MAXLEN+1)*2];
	unsigned char   c_char2[(CHAR_MAXLEN+1)*2];
	unsigned char   c_char3[TABLE_MAX][(CHAR_MAXLEN+1)*2];
	unsigned char   tmp[(CHAR_MAXLEN+1)*2];

	FirstArray     *a_ptr;
	unsigned int   *base1;
	unsigned int   *base2;
	unsigned int   *base3;

	N_GETNUMBER(args[0], c_number1, ERROR);

#ifdef DEBUG
	printf("ejlisp start\n");
	printf("case = %d\n", c_number1);
#endif

	switch (c_number1) {
	case WNN_OPEN:
		LStringToCString(args[1], c_char1, CHAR_MAXLEN,length);
		N_GETNUMBER(args[2], c_number1, ERROR);
		LStringToCString(args[3], c_char2, CHAR_MAXLEN,length);
		result = ejlisp_open(c_char1, c_number1, c_char2);
		break;

	case WNN_CLOSE:
		result = ejlisp_close();
		break;

	case WNN_CONV:
		LStringToCString(args[1], tmp, CHAR_MAXLEN, length);
		if (strlen(tmp) == length) {
			for (i = length - 1 ; i >= 0 ; i--) {
				tmp[i*2+1] = tmp[i];
				tmp[i*2] = 0;
			}
			tmp[length*2] = '\0';
		}
		length = FatcharNStoEUC(tmp, length, c_char1);
		for (i = length; i < (CHAR_MAXLEN+1)*2; i++)
			c_char1[i] = NULL;

		result = ejlisp_conv(c_char1, c_char2, &c_number1, &c_number2);
		if (result != 0) break;

		ZeroFix(c_char2);
		length = EUCtoFatcharNS(c_char2, tmp);
		CStringToLString(tmp, args[2], length);

		IntToFixp(c_number1, args[3]);
		IntToFixp(c_number2, args[4]);

		break;

	case WNN_RECONV:
		N_GETNUMBER(args[1], c_number1, ERROR);
		N_GETNUMBER(args[2], c_number2, ERROR);

		result = ejlisp_reconv(c_number1, c_number2, c_char1, &c_number3, &c_number4);
		if (result != 0) break;

		ZeroFix(c_char1);
		length = EUCtoFatcharNS(c_char1, tmp);
		CStringToLString(tmp, args[3], length);

		IntToFixp(c_number3, args[4]);
		IntToFixp(c_number4, args[5]);

		break;

	case WNN_SELECT_BUNSETSU:
		N_GETNUMBER(args[1], c_number1, ERROR);

		result = ejlisp_select_bunsetsu(c_number1, &c_number2);
		if (result != 0) break;

		IntToFixp(c_number2, args[2]);

		break;

	case WNN_GET_KOUHO:
		N_GETNUMBER(args[1], c_number1, ERROR);

		result = ejlisp_get_kouho(c_number1, c_char3, &c_number2);
		if (result != 0) break;

		a_ptr = (FirstArray *) (Addr68k_from_LADDR((unsigned int) args[2]));
		base1 = ((unsigned int *) (Addr68k_from_LADDR((unsigned int) a_ptr->base))) + (int)(a_ptr->offset);


		for(i=0;i<ejlisp_kouho_max;i++,base1++,base2++) {
			ZeroFix(c_char3[i]);
			length = EUCtoFatcharNS(c_char3[i], tmp);
			CStringToLString(tmp, *base1, length);
		}

		IntToFixp(c_number2, args[3]);

		break;

	case WNN_SELECT_KOUHO:
		N_GETNUMBER(args[1], c_number1, ERROR);

		result = ejlisp_select_kouho(c_number1, c_char1);
		if (result != 0) break;

		ZeroFix(c_char1);
		length = EUCtoFatcharNS(c_char1, tmp);
		CStringToLString(tmp, args[2], length);

		IntToFixp(length, args[3]);

		break;

	case WNN_GET_YOMI:
		N_GETNUMBER(args[1], c_number1, ERROR);

		result = ejlisp_get_yomi(c_number1, c_char1, &c_number2);
		if (result != 0) break;

		ZeroFix(c_char1);
		length = EUCtoFatcharNS(c_char1, tmp);
		CStringToLString(tmp, args[2], length);

		IntToFixp(c_number2, args[3]);

		break;

	case WNN_CONV_END:
		result = ejlisp_conv_end();
		if (result != 0) break;
		break;

	case WNN_ADD_USERDIC:
		N_GETNUMBER(args[1], c_number1, ERROR);

		LStringToCString(args[2], tmp, CHAR_MAXLEN,length);
		if (strlen(tmp) == length) {
			for (i = length - 1 ; i >= 0 ; i--) {
				tmp[i*2+1] = tmp[i];
				tmp[i*2] = 0;
			}
			tmp[length*2] = '\0';
		}
		length = FatcharNStoEUC(tmp, length, c_char1);
		for (i = length; i < (CHAR_MAXLEN+1)*2; i++)
			c_char1[i] = NULL;

		LStringToCString(args[3], tmp, CHAR_MAXLEN,length);
		if (strlen(tmp) == length) {
			for (i = length - 1 ; i >= 0 ; i--) {
				tmp[i*2+1] = tmp[i];
				tmp[i*2] = 0;
			}
			tmp[length*2] = '\0';
		}
		length = FatcharNStoEUC(tmp, length, c_char2);
		for (i = length; i < (CHAR_MAXLEN+1)*2; i++)
			c_char2[i] = NULL;

		N_GETNUMBER(args[4], c_number2, ERROR);

		result = ejlisp_add_userdic(c_number1, c_char1, c_char2, c_number2);
		if (result != 0) break;

		break;

	case WNN_DEL_USERDIC:
		N_GETNUMBER(args[1], c_number1, ERROR);
		N_GETNUMBER(args[2], c_number2, ERROR);

		result = ejlisp_del_userdic(c_number1, c_number2);
		if (result != 0) break;

		break;

	case WNN_SEARCH_USERDIC:
		N_GETNUMBER(args[1], c_number1, ERROR);

		LStringToCString(args[2], tmp, CHAR_MAXLEN,length);
		if (strlen(tmp) == length) {
			for (i = length - 1 ; i >= 0 ; i--) {
				tmp[i*2+1] = tmp[i];
				tmp[i*2] = 0;
			}
			tmp[length*2] = '\0';
		}
		length = FatcharNStoEUC(tmp, length, c_char1);
		for (i = length; i < (CHAR_MAXLEN+1)*2; i++)
			c_char1[i] = NULL;

		result = ejlisp_search_userdic(c_number1, c_char1);
		if (result != 0) break;

		IntToFixp(ejlisp_jdp_num, args[3]);

		break;

	case WNN_GET_USERDIC:

		result = ejlisp_get_userdic(c_char3, c_number5, c_number6);
		if (result != 0) break;

		a_ptr = (FirstArray *) (Addr68k_from_LADDR((unsigned int) args[1]));
		base1 = ((unsigned int *) (Addr68k_from_LADDR((unsigned int) a_ptr->base))) + (int)(a_ptr->offset);

		a_ptr = (FirstArray *) (Addr68k_from_LADDR((unsigned int) args[2]));
		base2 = ((unsigned int *) (Addr68k_from_LADDR((unsigned int) a_ptr->base))) + (int)(a_ptr->offset);

		a_ptr = (FirstArray *) (Addr68k_from_LADDR((unsigned int) args[3]));
		base3 = ((unsigned int *) (Addr68k_from_LADDR((unsigned int) a_ptr->base))) + (int)(a_ptr->offset);

		for(i=0;i<ejlisp_jdp_num;i++,base1++,base2++,base3++) {
			ZeroFix(c_char3[i]);
			length = EUCtoFatcharNS(c_char3[i], tmp);
			CStringToLString(tmp, *base1, length);
			*base2 = length;
			*base3 = c_number6[i];
		}

		break;

	case WNN_GET_USERDIC_NAME:

		result = ejlisp_get_userdic_name(c_char3, c_number5, c_number6);
		if (result != 0) break;

		a_ptr = (FirstArray *) (Addr68k_from_LADDR((unsigned int) args[1]));
		base1 = ((unsigned int *) (Addr68k_from_LADDR((unsigned int) a_ptr->base))) + (int)(a_ptr->offset);

		a_ptr = (FirstArray *) (Addr68k_from_LADDR((unsigned int) args[2]));
		base2 = ((unsigned int *) (Addr68k_from_LADDR((unsigned int) a_ptr->base))) + (int)(a_ptr->offset);

		a_ptr = (FirstArray *) (Addr68k_from_LADDR((unsigned int) args[3]));
		base3 = ((unsigned int *) (Addr68k_from_LADDR((unsigned int) a_ptr->base))) + (int)(a_ptr->offset);

		for(i=0;c_char3[i][0] != NULL;i++,base1++,base2++,base3++) {
			ZeroFix(c_char3[i]);
			length = EUCtoFatcharNS(c_char3[i], tmp);
			CStringToLString(tmp, *base1, length);
			*base2 = c_number5[i];
			*base3 = c_number6[i];
		}

		break;

	case WNN_BUNSETSU_KANJI:
		N_GETNUMBER(args[1], c_number1, ERROR);
		N_GETNUMBER(args[2], c_number2, ERROR);

		result = ejlisp_bunsetsu_kanji(c_number1, c_number2, &c_number3);
		if (result != 0) break;

		IntToFixp(c_number3, args[3]);
		break;

	case WNN_BUNSETSU_YOMI:
		N_GETNUMBER(args[1], c_number1, ERROR);
		N_GETNUMBER(args[2], c_number2, ERROR);

		result = ejlisp_bunsetsu_yomi(c_number1, c_number2, &c_number3);
		if (result != 0) break;

		IntToFixp(c_number3, args[3]);
		break;

ERROR:
		result = 9999;
		break;

	}

#ifdef DEBUG
	printf("ejlisp end\n");
	printf("result = %d\n", result);
#endif

	return (GetSmallp(result));
}

ejlisp_add_userdic (dic_no,kanji,yomi,hinshi)
int	dic_no;
unsigned short	*kanji;
unsigned short	*yomi;
int	hinshi;
{
	int	result;
#ifdef DEBUG
	printf("ejlisp_add_userdic start\n");
	printf("dic_no = %d,kanji = %s,yomi = %s,hinshi = %d\n",dic_no,kanji,yomi,hinshi);
#endif

	if (ejlisp_buf == NULL) return(72);
	EJLISP_SETJMP(-1);

	wnn_errorno = 0;
	TIMEOUT(result = jl_word_add(ejlisp_buf,dic_no,yomi,kanji,NULL,hinshi,0));
	if (result == 0) {
		TIMEOUT(jl_dic_save (ejlisp_buf,dic_no));
	}

#ifdef DEBUG
	printf("ejlisp_add_userdic end\n");
	printf("wnn_errorno = %d\n",wnn_errorno);
#endif

	return (wnn_errorno) ;
}

ejlisp_bunsetsu_kanji(bunsetsu_no,bunsetsu_no2,kanji_len)
int	bunsetsu_no,bunsetsu_no2;
int	*kanji_len;
{

#ifdef DEBUG
	printf("ejlisp_bunsetsu_kanji start\n");
	printf("bunsetsu_no = %d\n",bunsetsu_no);
#endif

	if (ejlisp_buf == NULL) return(72);
	EJLISP_SETJMP(-1);

	wnn_errorno = 0;
	TIMEOUT(*kanji_len = jl_kanji_len (ejlisp_buf,bunsetsu_no,bunsetsu_no2)) ;

#ifdef DEBUG
	printf("ejlisp_bunsetsu_kanji end\n");
	if (wnn_errorno == 0)
		printf("kanji_len = %d\n",*kanji_len);
	printf("wnn_errorno = %d\n",wnn_errorno);
#endif

	return (wnn_errorno) ;
}

ejlisp_bunsetsu_yomi(bunsetsu_no,bunsetsu_no2,yomi_len)
int	bunsetsu_no,bunsetsu_no2;
int	*yomi_len;
{

#ifdef DEBUG
	printf("ejlisp_bunsetsu_yomi start\n");
	printf("bunsetsu_no = %d\n",bunsetsu_no);
#endif

	if (ejlisp_buf == NULL) return(72);
	EJLISP_SETJMP(-1);

	wnn_errorno = 0;
	TIMEOUT(*yomi_len = jl_yomi_len (ejlisp_buf,bunsetsu_no,bunsetsu_no2)) ;

#ifdef DEBUG
	printf("ejlisp_bunsetsu_yomi end\n");
	printf("yomi_len = %d\n",*yomi_len);
	printf("wnn_errorno = %d\n",wnn_errorno);
#endif

	return (wnn_errorno) ;
}

ejlisp_close ()
{

#ifdef DEBUG
	printf("ejlisp_close start\n");
#endif

	if (ejlisp_buf == NULL) return(72);
	EJLISP_SETJMP(-1);

	wnn_errorno = 0;
	TIMEOUT(jl_close (ejlisp_buf)) ;
	ejlisp_buf = NULL;

#ifdef DEBUG
	printf("ejlisp_close end\n");
	printf("wnn_errorno = %d\n",wnn_errorno);
#endif

	return (wnn_errorno) ;
}

ejlisp_conv(yomi,kanji,kanji_len,bunsetsu_suu)
unsigned short	*yomi;
unsigned short	*kanji;
int	*kanji_len,*bunsetsu_suu;
{

#ifdef DEBUG
	printf("ejlisp_conv start\n");
	printf("yomi = %s\n",yomi);
#endif

	if (ejlisp_buf == NULL) return(72);
	EJLISP_SETJMP(-1);

	wnn_errorno = 0;
	TIMEOUT(*bunsetsu_suu = jl_ren_conv (ejlisp_buf,yomi,0,-1,WNN_USE_MAE));
	if (*bunsetsu_suu != -1) {
		TIMEOUT(*kanji_len = jl_get_kanji (ejlisp_buf,0,-1,kanji)) ;
	}

#ifdef DEBUG
	printf("ejlisp_conv end\n");
	if (wnn_errorno == 0)
		printf("kanji = %s, kanji_len = %d, bunsetsu_suu = %d\n",
			kanji,*kanji_len,*bunsetsu_suu);
	printf("wnn_errorno = %d\n",wnn_errorno);
#endif

	return (wnn_errorno) ;
}

ejlisp_conv_end ()
{
#ifdef DEBUG
	printf("ejlisp_conv_end start\n");
#endif

	if (ejlisp_buf == NULL) return(72);
	EJLISP_SETJMP(-1);

	wnn_errorno = 0;
	TIMEOUT(jl_update_hindo (ejlisp_buf,0,99));
	if (wnn_errorno == 0) {
		TIMEOUT(jl_dic_save_all (ejlisp_buf));
	}

#ifdef DEBUG
	printf("ejlisp_conv_end end\n");
	printf("wnn_errorno = %d\n",wnn_errorno);
#endif

	return (wnn_errorno) ;
}

ejlisp_del_userdic (dic_no,entry)
{
#ifdef DEBUG
	printf("ejlisp_del_userdic start\n");
	printf("dic_no = %d,entry = %d\n",dic_no,entry);
#endif

	if (ejlisp_buf == NULL) return(72);
	EJLISP_SETJMP(-1);

	wnn_errorno = 0;
	TIMEOUT(jl_word_delete (ejlisp_buf,dic_no,entry));
	if (wnn_errorno == 0) {
		TIMEOUT(jl_dic_save (ejlisp_buf,dic_no));
	}

#ifdef DEBUG
	printf("ejlisp_del_userdic end\n");
	printf("wnn_errorno = %d\n",wnn_errorno);
#endif

	return (wnn_errorno) ;
}

ejlisp_get_kouho(pos,kouho_arrey,kouho_num)
unsigned short	kouho_arrey[TABLE_MAX][CHAR_MAXLEN+1];
int	pos,*kouho_num;
{
	int	i,j;

#ifdef DEBUG
	int	num;
	
	printf("ejlisp_get_kouho start\n");
	printf("pos = %d\n",pos);
	num = ejlisp_kouho_next;

#endif

	if (ejlisp_buf == NULL) return(72);
	EJLISP_SETJMP(-1);

	wnn_errorno = 0;
	i = ejlisp_kouho_next;
	if (pos < 0) {
		if ((i -= ejlisp_kouho_max) < 0)
			i = ejlisp_kouho_num - 
				(ejlisp_kouho_num % ejlisp_kouho_max);
		if ((i -= ejlisp_kouho_max) < 0)
			i = ejlisp_kouho_num - 
				(ejlisp_kouho_num % ejlisp_kouho_max);
	}

	for(j=0;j<ejlisp_kouho_max && i<ejlisp_kouho_num;i++,j++) {
		TIMEOUT(jl_get_zenkouho_kanji(ejlisp_buf,i,&kouho_arrey[j][0]));
		if (wnn_errorno != 0)
			break;
	}
	if (wnn_errorno == 0) {
		*kouho_num = j;
		for(;j<ejlisp_kouho_max;j++) {
			kouho_arrey[j][0] = NULL;
			kouho_arrey[j][1] = NULL;
		}

		if (i >= ejlisp_kouho_num)
			ejlisp_kouho_next = 0;
		else
			ejlisp_kouho_next = i;
	}
	
#ifdef DEBUG
	printf("ejlisp_get_kouho end\n");
	if (wnn_errorno == 0) {
		for(i=0;i<j;i++)
			printf("kouho[%d] = %s\n",i+num,kouho_arrey[i]);
		printf("kouho_num = %d\n",*kouho_num);
	}
	printf("wnn_errorno = %d\n",wnn_errorno);
#endif

	return (wnn_errorno) ;
}

ejlisp_get_userdic (kouho_arrey,kouho_len_arrey,kouho_entry_arrey)
unsigned short	kouho_arrey[TABLE_MAX][CHAR_MAXLEN+1];
int	kouho_len_arrey[TABLE_MAX];
int	kouho_entry_arrey[TABLE_MAX];
{
	int	i;

#ifdef DEBUG
	printf("ejlisp_get_userdic start\n");
#endif

	if (ejlisp_buf == NULL) return(72);

	for(i=0;i<ejlisp_jdp_num;i++,ejlisp_jdp++) {
		strcpy(&kouho_arrey[i][0],ejlisp_jdp->kanji);
		kouho_len_arrey[i] = strlen(kouho_arrey[i])/2;
		kouho_entry_arrey[i] = ejlisp_jdp->serial;
	}

#ifdef DEBUG
	printf("ejlisp_get_userdic end\n");
	for(i=0;i<ejlisp_jdp_num;i++)
		printf("kouho[%d] = %d,%s,%d\n",i,kouho_len_arrey[i],kouho_arrey[i],kouho_entry_arrey[i]);
#endif

	return (0) ;
}

ejlisp_get_userdic_name (dic_name_array,dic_name_len_array,dic_no_array)
unsigned short	dic_name_array[TABLE_MAX][CHAR_MAXLEN+1];
int	dic_name_len_array[TABLE_MAX];
int	dic_no_array[TABLE_MAX];
{
	WNN_DIC_INFO *dip;
	int	i,j;
	int	dic_num;

#ifdef DEBUG
	printf("ejlisp_get_userdic_name start\n");
#endif

	if (ejlisp_buf == NULL) return(72);
	EJLISP_SETJMP(-1);

	wnn_errorno = 0;
	TIMEOUT(dic_num = jl_dic_list (ejlisp_buf,&dip)) ;
	if (wnn_errorno == 0) {
		for(i=j=0;i<dic_num;i++,dip++) {
			if (dip->fname[0]  == '!') {
				strcpy(&dic_name_array[j][0],&(dip->fname[1]));
				dic_name_len_array[j] = strlen(&dic_name_array[j][0]);
				dic_no_array[j] = dip->dic_no;
				j++;
			}
		}
		dic_name_array[j][0] = NULL;
	}

#ifdef DEBUG
	printf("ejlisp_get_userdic_name end\n");
	if (wnn_errorno == 0) {
		for(i=0;i<j;i++) {
			printf("dic_no_array = %d,dic_name_len_array = %d,dic_name_array = %s\n",dic_no_array[i],dic_name_len_array[i],&dic_name_array[i][0]);
		}
	}
	printf("wnn_errorno = %d", wnn_errorno);
#endif

	return (wnn_errorno) ;
}

ejlisp_get_yomi (bunsetsu_no,yomi,yomi_len)
int	bunsetsu_no;
char	*yomi;
int	*yomi_len;
{

#ifdef DEBUG
	printf("ejlisp_get_yomi start\n");
	printf("bunsetsu_no = %d\n",bunsetsu_no);
#endif

	if (ejlisp_buf == NULL) return(72);
	EJLISP_SETJMP(-1);

	wnn_errorno = 0;
	TIMEOUT(*yomi_len = jl_get_yomi (ejlisp_buf,bunsetsu_no,bunsetsu_no+1,yomi)) ;

#ifdef DEBUG
	printf("ejlisp_get_yomi end\n");
	if (wnn_errorno == 0)
		printf("yomi = %s,yomi_len = %d\n",yomi,*yomi_len);
	printf("wnn_errorno = %d\n",wnn_errorno);
#endif

	return (wnn_errorno) ;
}

ejlisp_open (wnn_env,kouho_max,server_name)
char	*wnn_env,*server_name;
int	kouho_max;
{
	char username[L_cuserid] ;
	char *env_name ;

#ifdef DEBUG
	printf("ejlisp_open start\n");
	printf("wnn_env = %s, kouho_max = %d,server_name = %s\n",wnn_env,kouho_max,server_name);
#endif

	EJLISP_SETJMP(-1);

	wnn_errorno = 0;

	if (ejlisp_buf != NULL) {
		TIMEOUT(jl_close (ejlisp_buf)) ;
		ejlisp_buf = NULL;
	}

	if (wnn_errorno == 0) {
		env_name = cuserid(username) ;
		TIMEOUT(ejlisp_buf = jl_open (env_name, server_name, wnn_env, WNN_CREATE, NULL, NULL,20)) ;

		if (ejlisp_buf != NULL) {
			ejlisp_kouho_max = kouho_max;
		}
	}

#ifdef DEBUG
	printf("ejlisp_open end\n");
	printf("wnn_errorno = %d\n", wnn_errorno);
#endif

	return (wnn_errorno) ;
}

ejlisp_reconv(bunsetsu_no,bunsetsu_len,kanji,kanji_len,bunsetsu_suu)
int	bunsetsu_no,bunsetsu_len;
unsigned short	kanji[];
int	*kanji_len,*bunsetsu_suu;
{

#ifdef DEBUG
	printf("ejlisp_reconv start\n");
	printf("bunsetsu_no = %d, bunsetsu_len = %d\n",bunsetsu_no,bunsetsu_len);
#endif

	if (ejlisp_buf == NULL) return(72);
	EJLISP_SETJMP(-1);

	wnn_errorno = 0;
	TIMEOUT(*bunsetsu_suu = jl_nobi_conv (ejlisp_buf,bunsetsu_no,bunsetsu_len,-1,WNN_USE_MAE,WNN_SHO));
	if (wnn_errorno == 0) {
		TIMEOUT(*kanji_len = jl_get_kanji (ejlisp_buf,0,-1,kanji)) ;
	}

#ifdef DEBUG
	printf("ejlisp_reconv end\n");
	if (wnn_errorno == 0)
		printf("kanji = %s, kanji_len = %d, bunsetsu_suu = %d\n",
			kanji,*kanji_len,*bunsetsu_suu);
	printf("wnn_errorno = %d\n",wnn_errorno);
#endif

	return (wnn_errorno) ;
}

ejlisp_search_userdic (dic_no,yomi)
int	dic_no;
unsigned short	*yomi;
{

#ifdef DEBUG
	printf("ejlisp_search_userdic start\n");
	printf("dic_no = %d,yomi = %s\n",dic_no,yomi);
#endif

	if (ejlisp_buf == NULL) return(72);
	EJLISP_SETJMP(-1);

	wnn_errorno = 0;
	TIMEOUT(ejlisp_jdp_num = jl_word_search(ejlisp_buf,dic_no,yomi,&ejlisp_jdp));

#ifdef DEBUG
	printf("ejlisp_search_userdic end\n");
	if (wnn_errorno == 0)
		printf("kouho_no = %d\n",ejlisp_jdp_num);
	printf("wnn_errorno = %d\n",wnn_errorno);
#endif

	return (wnn_errorno) ;
}

ejlisp_select_bunsetsu(bunsetsu_no,bunsetsu_len)
int	bunsetsu_no,*bunsetsu_len;
{

#ifdef DEBUG
	printf("ejlisp_select_bunsetsu start\n");
	printf("bunsetsu_no = %d\n",bunsetsu_no);
#endif

	if (ejlisp_buf == NULL) return(72);
	EJLISP_SETJMP(-1);

	wnn_errorno = 0;
	TIMEOUT(*bunsetsu_len = jl_kanji_len (ejlisp_buf,bunsetsu_no,bunsetsu_no+1));
	if (wnn_errorno == 0) {
		TIMEOUT(jl_zenkouho (ejlisp_buf,bunsetsu_no,WNN_USE_MAE,WNN_NO_UNIQ));
	}
	if (wnn_errorno == 0) {
		TIMEOUT(ejlisp_kouho_num = jl_zenkouho_suu (ejlisp_buf));
		ejlisp_kouho_next = 0;
	}

#ifdef DEBUG
	printf("ejlisp_select_bunsetsu end\n");
	if (wnn_errorno == 0)
		printf("bunsetsu_len = %d\n",*bunsetsu_len);
	printf("wnn_errorno = %d\n",wnn_errorno);
#endif

	return (wnn_errorno) ;
}

ejlisp_select_kouho (kouho_no,kanji)
int	kouho_no;
unsigned short	*kanji;
{
	int	no,i,c;

#ifdef DEBUG
	printf("ejlisp_select_kouho start\n");
	printf("kouho_no = %d\n",kouho_no);
#endif

	if (ejlisp_buf == NULL) return(72);
	EJLISP_SETJMP(-1);

	if (kouho_no != 0) {
		if (kouho_no < 0)
			no = ejlisp_kouho_num + kouho_no;
		else if (ejlisp_kouho_num <= ejlisp_kouho_max)
			no = kouho_no-1;
		else if (ejlisp_kouho_next == 0)
			no = ejlisp_kouho_num-(ejlisp_kouho_num % ejlisp_kouho_max)+kouho_no-1;
		else
			no = ejlisp_kouho_next-ejlisp_kouho_max+kouho_no-1;
		wnn_errorno = 0;
		TIMEOUT(jl_set_jikouho(ejlisp_buf,no));
	}
	if (wnn_errorno == 0) {
		TIMEOUT(jl_get_zenkouho_kanji(ejlisp_buf,no,kanji));
	}

#ifdef DEBUG
	printf("ejlisp_select_kouho end\n");
	if (wnn_errorno == 0)
		printf("kanji = %s\n",kanji);
	printf("wnn_errorno = %d\n",wnn_errorno);
#endif

	return (wnn_errorno) ;
}