mirror of
https://github.com/Interlisp/maiko.git
synced 2026-01-26 20:02:37 +00:00
Maiko sources matching state as of 020102 prior to initial patching for Mac OSX
This commit is contained in:
Nick Briggs
974
src/ejlisp.c
Executable file
974
src/ejlisp.c
Executable file
@@ -0,0 +1,974 @@
|
||||
/* $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) ;
|
||||
}
|
||||
|
||||
Reference in New Issue
Block a user