Format source code

This commit is contained in:
Nishi 2026-06-18 13:40:14 +09:00
commit d0be6165c0
165 changed files with 30306 additions and 33687 deletions

508
toroku.c
View file

@ -1,6 +1,6 @@
/*
* Copyright (c) 1994 Sony Corporation
*
*
* Permission is hereby granted, free of charge, to any person obtaining
* a copy of this software and associated documentation files (the
* "Software"), to deal in the Software without restriction, including
@ -8,10 +8,10 @@
* distribute, sublicense, and/or sell copies of the Software, and to
* permit persons to whom the Software is furnished to do so, subject to
* the following conditions:
*
*
* The above copyright notice and this permission notice shall be
* included in all copies or substantial portions of the Software.
*
*
* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
* EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
* MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
@ -19,7 +19,7 @@
* DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR
* OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR
* THE USE OR OTHER DEALINGS IN THE SOFTWARE.
*
*
* Except as contained in this notice, the name of Sony Corporation
* shall not be used in advertising or otherwise to promote the sale, use
* or other dealings in this Software without prior written authorization
@ -28,60 +28,57 @@
*/
/*
* $SonyRCSfile: toroku.c,v $
* $SonyRevision: 1.1 $
* $SonyRCSfile: toroku.c,v $
* $SonyRevision: 1.1 $
* $SonyDate: 1994/06/03 08:03:29 $
*/
#include "common.h"
#include "key.h"
#include "wchar16.h"
#define YOMILEN 32
#define KLEN 64
#define YOMILEN 32
#define KLEN 64
extern struct valtbl hin_val[];
extern int keyvalue;
extern int keyvalue;
exec_toroku ()
{
Conversion *cv;
wchar16_t yomi[YOMILEN+1], kanji[KLEN+1];
wchar16_t *hinshi;
int inc;
int h_code, retv;
int val;
exec_toroku() {
Conversion* cv;
wchar16_t yomi[YOMILEN + 1], kanji[KLEN + 1];
wchar16_t* hinshi;
int inc;
int h_code, retv;
int val;
if (IsDcflag())
return(0);
cv = GetConversion ();
val = getkstr (kanji, KLEN, WCGtoroku);
if (*kanji == '\0')
if(IsDcflag())
return (0);
cv = GetConversion();
val = getkstr(kanji, KLEN, WCGtoroku);
if(*kanji == '\0')
return (val);
while (1) {
if (getyomi (yomi, YOMILEN, WCGtoroku, kanji) || *yomi == '\0')
while(1) {
if(getyomi(yomi, YOMILEN, WCGtoroku, kanji) || *yomi == '\0')
break;
h_code = gethinshi();
hinshi= hin_val[h_code - 1].keyword;
if (getcheck (yomi, kanji, hinshi, WCGtoroku))
hinshi = hin_val[h_code - 1].keyword;
if(getcheck(yomi, kanji, hinshi, WCGtoroku))
break;
}
if (*yomi == '\0')
if(*yomi == '\0')
return (val);
TopGuide ();
printR (WCGtoroku);
Clear_EOL ();
Flush ();
TopGuide();
printR(WCGtoroku);
Clear_EOL();
Flush();
cv->word_regist = 1;
if ((retv = SJ2_toroku(yomi, kanji, hin_val[h_code -1].ivalue)) != 0) {
switch (retv) {
if((retv = SJ2_toroku(yomi, kanji, hin_val[h_code - 1].ivalue)) != 0) {
switch(retv) {
case -1:
(void)dconnect(0);
return(val);
(void)dconnect(0);
return (val);
case SJ3_WORD_EXIST:
SJ_print(WCExist);
break;
@ -105,81 +102,78 @@ exec_toroku ()
break;
}
} else
SJ_print (WCTOUROKU_SUCC);
Clear_EOL ();
Flush ();
SJ_print(WCTOUROKU_SUCC);
Clear_EOL();
Flush();
inc = inkey ();
if (AnotherConversion ()) {
unget_key (inc);
inc = inkey();
if(AnotherConversion()) {
unget_key(inc);
}
return (val);
}
getyomi (yomi, lim, prompt, kanji)
wchar16_t *yomi, *prompt, *kanji;
int lim;
getyomi(yomi, lim, prompt, kanji)
wchar16_t* yomi,
*prompt, *kanji;
int lim;
{
int inc, c;
Conversion *cv;
int len;
wchar16_t wtmp[BUFFLENGTH], ytmp[YOMILEN+1], ktmp[KLEN+1];
unsigned char tmp[BUFFLENGTH];
int inc, c;
Conversion* cv;
int len;
wchar16_t wtmp[BUFFLENGTH], ytmp[YOMILEN + 1], ktmp[KLEN + 1];
unsigned char tmp[BUFFLENGTH];
cv = GetConversion();
TopGuide ();
printR (prompt);
TopGuide();
printR(prompt);
len = cv->column - (wcbyte(kanji) + 24);
if (len >= lim)
{
(void) wcstombs((char *)ytmp, WCMyomi, YOMILEN+1);
(void) wcstombs((char *)ktmp, kanji, KLEN+1);
sprintf ((char *)tmp, (char *)ytmp, ktmp);
(void) mbstowcs(wtmp, (char *)tmp, BUFFLENGTH);
if(len >= lim) {
(void)wcstombs((char*)ytmp, WCMyomi, YOMILEN + 1);
(void)wcstombs((char*)ktmp, kanji, KLEN + 1);
sprintf((char*)tmp, (char*)ytmp, ktmp);
(void)mbstowcs(wtmp, (char*)tmp, BUFFLENGTH);
} else {
(void)wcstombs((char*)ytmp, WCMyomi, YOMILEN + 1);
(void)sprintf((char*)tmp, (char*)ytmp);
(void)mbstowcs(wtmp, (char*)tmp, BUFFLENGTH);
}
else
{
(void) wcstombs((char *)ytmp, WCMyomi, YOMILEN+1);
(void) sprintf ((char *)tmp, (char *)ytmp);
(void) mbstowcs(wtmp, (char *)tmp, BUFFLENGTH);
}
SJ_print (wtmp);
Clear_EOL ();
Flush ();
SJ_print(wtmp);
Clear_EOL();
Flush();
*wtmp = '\0';
*tmp = '\0';
*tmp = '\0';
*yomi = '\0';
wrap_off();
SaveConversion ();
while ((inc = inkey ()) != EOF) {
if (AnotherConversion ()) {
unget_key (inc);
SaveConversion();
while((inc = inkey()) != EOF) {
if(AnotherConversion()) {
unget_key(inc);
sj3_rkclear();
wrap_on();
return (1);
}
if (keyvalue == KEY_CONV) {
if(keyvalue == KEY_CONV) {
sj3_rkclear();
wrap_on();
return (1);
}
if (keyvalue == KEY_KETTEI || keyvalue == KEY_HENKAN) {
if(keyvalue == KEY_KETTEI || keyvalue == KEY_HENKAN) {
break;
}
else if (keyvalue != KEY_NORMAL) {
if ((c = write_pseq (2)) != 0)
} else if(keyvalue != KEY_NORMAL) {
if((c = write_pseq(2)) != 0)
inc = c;
}
if (inc == '\n' || inc == '\r'|| IsESC (inc))
if(inc == '\n' || inc == '\r' || IsESC(inc))
break;
else if (iscntrl(inc) && !is_bs(inc))
else if(iscntrl(inc) && !is_bs(inc))
beep();
else if ((len = wslen(wtmp)) >= lim && !is_bs(inc))
else if((len = wslen(wtmp)) >= lim && !is_bs(inc))
beep();
else
else
(void)exec_romaji2(inc, NULL, wtmp, NULL, len, -1);
}
(void)exec_romaji2(0, NULL, wtmp, NULL, wslen(wtmp), -1);
@ -189,210 +183,195 @@ int lim;
return (0);
}
gethinshi()
{
gethinshi() {
int inc, hcode;
TopGuide();
TopGuide();
printR(WCGtoroku);
SJ_print (WCTOUROKU_HIN);
SJ_print(WCTOUROKU_HIN);
Clear_EOL();
SJ_print(WCOne);
Backspace();
Flush();
inc = inkey();
if (inc >= '2' && inc <= '5')
if(inc >= '2' && inc <= '5')
hcode = inc - '0';
else
hcode = 1;
return(hcode);
return (hcode);
}
getcheck (yomi, kanji, hinshi, prompt)
wchar16_t *yomi, *kanji, *hinshi, *prompt;
getcheck(yomi, kanji, hinshi, prompt)
wchar16_t* yomi,
*kanji, *hinshi, *prompt;
{
int c;
unsigned char tmp[BUFFLENGTH + KLEN];
extern wchar16_t *Y;
wchar16_t wtmp[BUFFLENGTH + KLEN];
unsigned char ktmp[KLEN+1], ytmp[YOMILEN+1], htmp[YOMILEN+1],
ttmp[BUFFLENGTH];
TopGuide ();
printR (prompt);
if (hinshi == NULL)
{
(void) wcstombs((char *)ktmp, kanji, KLEN+1);
(void) wcstombs((char *)ytmp, yomi, YOMILEN+1);
(void) wcstombs((char *)ttmp, WCSYOUKYO_OK, BUFFLENGTH);
sprintf ((char *)tmp, (char *)ttmp, ktmp, ytmp);
}
else
{
(void) wcstombs((char *)ktmp, kanji, KLEN+1);
(void) wcstombs((char *)ytmp, yomi, YOMILEN+1);
(void) wcstombs((char *)htmp, hinshi, YOMILEN+1);
(void) wcstombs((char *)ttmp, WCTOUROKU_OK, BUFFLENGTH);
sprintf ((char *)tmp, (char *)ttmp, ktmp, ytmp, htmp);
int c;
unsigned char tmp[BUFFLENGTH + KLEN];
extern wchar16_t* Y;
wchar16_t wtmp[BUFFLENGTH + KLEN];
unsigned char ktmp[KLEN + 1], ytmp[YOMILEN + 1], htmp[YOMILEN + 1],
ttmp[BUFFLENGTH];
TopGuide();
printR(prompt);
if(hinshi == NULL) {
(void)wcstombs((char*)ktmp, kanji, KLEN + 1);
(void)wcstombs((char*)ytmp, yomi, YOMILEN + 1);
(void)wcstombs((char*)ttmp, WCSYOUKYO_OK, BUFFLENGTH);
sprintf((char*)tmp, (char*)ttmp, ktmp, ytmp);
} else {
(void)wcstombs((char*)ktmp, kanji, KLEN + 1);
(void)wcstombs((char*)ytmp, yomi, YOMILEN + 1);
(void)wcstombs((char*)htmp, hinshi, YOMILEN + 1);
(void)wcstombs((char*)ttmp, WCTOUROKU_OK, BUFFLENGTH);
sprintf((char*)tmp, (char*)ttmp, ktmp, ytmp, htmp);
}
(void) mbstowcs(wtmp, (char *)tmp, BUFFLENGTH + KLEN);
SJ_print (wtmp);
Clear_EOL ();
SJ_print (WCY);
Backspace ();
Flush ();
(void)mbstowcs(wtmp, (char*)tmp, BUFFLENGTH + KLEN);
SJ_print(wtmp);
Clear_EOL();
SJ_print(WCY);
Backspace();
Flush();
SaveConversion ();
c = inkey ();
if (AnotherConversion ()) {
unget_key (c);
SaveConversion();
c = inkey();
if(AnotherConversion()) {
unget_key(c);
return (0);
}
if (keyvalue == KEY_CONV) {
if(keyvalue == KEY_CONV) {
*yomi = '\0';
return (1);
}
if (c == 'y' || c == 'Y' || c == '\n' || c == '\r' || c == ' ')
if(c == 'y' || c == 'Y' || c == '\n' || c == '\r' || c == ' ')
return (1);
if (keyvalue == KEY_HENKAN || keyvalue == KEY_KETTEI)
if(keyvalue == KEY_HENKAN || keyvalue == KEY_KETTEI)
return (1);
if (IsESC (c)) {
if(IsESC(c)) {
*yomi = '\0';
return (1);
}
return (0);
}
getkstr (s, lim, guide)
wchar16_t *s, *guide;
int lim;
getkstr(s, lim, guide)
wchar16_t* s,
*guide;
int lim;
{
Conversion *cv;
int i;
wchar16_t tmp[BUFFLENGTH * 2];
wchar16_t *p;
int plen, chbun;
Conversion* cv;
int i;
wchar16_t tmp[BUFFLENGTH * 2];
wchar16_t* p;
int plen, chbun;
chbun = 0;
cv = GetConversion ();
if (cv->Kanji != 0) {
if (cv->Bnum > 1) {
cv = GetConversion();
if(cv->Kanji != 0) {
if(cv->Bnum > 1) {
Ssbun(0);
chbun++;
plen = getbunsetu (tmp, guide);
plen = getbunsetu(tmp, guide);
} else
plen = Bkanji (tmp);
}
else if (isspaned ()) {
plen = Bkanji(tmp);
} else if(isspaned()) {
plen = cv->out_point;
Strncpy (tmp, cv->out_buf, plen);
Strncpy(tmp, cv->out_buf, plen);
tmp[plen] = '\0';
}
p = tmp;
for (i = 0 ; i < plen && i < lim ; i ++)
*(s ++) = *(p ++);
for(i = 0; i < plen && i < lim; i++)
*(s++) = *(p++);
*s = '\0';
return (chbun);
}
getbunsetu (kanji, guide)
wchar16_t *kanji, *guide;
getbunsetu(kanji, guide)
wchar16_t* kanji,
*guide;
{
Conversion *cv;
int c;
int bstart, bend;
int i;
unsigned short row, col;
wchar16_t *p;
int plen, len;
Conversion* cv;
int c;
int bstart, bend;
int i;
unsigned short row, col;
wchar16_t* p;
int plen, len;
cv = GetConversion ();
len = 0;
p = kanji;
*p = '\0';
cv = GetConversion();
len = 0;
p = kanji;
*p = '\0';
bstart = bend = cv->CurBun;
StartGuide (&row, &col);
printR (guide);
SJ_print (WCMhani);
Clear_EOL ();
EndGuide (row, col);
Flush ();
SaveConversion ();
while ((c = inkey ()) != EOF) {
if (AnotherConversion ()) {
unget_key (c);
StartGuide(&row, &col);
printR(guide);
SJ_print(WCMhani);
Clear_EOL();
EndGuide(row, col);
Flush();
SaveConversion();
while((c = inkey()) != EOF) {
if(AnotherConversion()) {
unget_key(c);
return (0);
}
cv = GetConversion ();
if (keyvalue == KEY_RIGHT) {
if ((bend == bstart) && (bend < cv->Bnum - 1)) {
cv = GetConversion();
if(keyvalue == KEY_RIGHT) {
if((bend == bstart) && (bend < cv->Bnum - 1)) {
cv->PreBun = bend;
bend ++;
bend++;
cv->CurBun = bstart = bend;
Rdisp ();
}
else
beep ();
}
else if (keyvalue == KEY_LEFT) {
if ((bend == bstart) && (bend > 0)) {
Rdisp();
} else
beep();
} else if(keyvalue == KEY_LEFT) {
if((bend == bstart) && (bend > 0)) {
cv->PreBun = bend;
bend --;
bend--;
cv->CurBun = bstart = bend;
Rdisp ();
}
else
beep ();
}
else if (keyvalue == KEY_UP) {
if (bend < cv->Bnum - 1) {
bend ++;
Rdisp();
} else
beep();
} else if(keyvalue == KEY_UP) {
if(bend < cv->Bnum - 1) {
bend++;
cv->CurBun = cv->PreBun = bend;
Rdisp ();
}
else
beep ();
}
else if (keyvalue == KEY_DOWN) {
if (bend > bstart) {
Rdisp();
} else
beep();
} else if(keyvalue == KEY_DOWN) {
if(bend > bstart) {
cv->PreBun = bend;
bend --;
bend--;
cv->CurBun = bend;
Rdisp ();
}
else
beep ();
}
else if (keyvalue == KEY_HENKAN || keyvalue == KEY_KETTEI ||
keyvalue == KEY_FLUSH) {
Rdisp();
} else
beep();
} else if(keyvalue == KEY_HENKAN || keyvalue == KEY_KETTEI ||
keyvalue == KEY_FLUSH) {
break;
}
else if (keyvalue == KEY_NORMAL) {
if (c == '\n' || c == '\r') {
} else if(keyvalue == KEY_NORMAL) {
if(c == '\n' || c == '\r') {
bstart = 0;
bend = cv->Bnum - 1;
bend = cv->Bnum - 1;
break;
}
else if (c == ' ') {
} else if(c == ' ') {
break;
}
else if (IsESC (c)) {
} else if(IsESC(c)) {
return (0);
}
else
beep ();
}
else
beep ();
Flush ();
} else
beep();
} else
beep();
Flush();
}
for (i = bstart ; i <= bend ; i ++) {
if ((plen = Bstr (i, p)) <= 0)
for(i = bstart; i <= bend; i++) {
if((plen = Bstr(i, p)) <= 0)
continue;
p += plen;
len += plen;
@ -400,48 +379,47 @@ wchar16_t *kanji, *guide;
return (len);
}
exec_syoukyo ()
{
int i;
wchar16_t yomi[YOMILEN+1], kanji[KLEN+1];
wchar16_t tmp[BUFFLENGTH], tmp2[BUFFLENGTH * 2];
unsigned char ytmp[YOMILEN+1], ktmp[KLEN+1],
mtmp[BUFFLENGTH], mtmp2[BUFFLENGTH * 2],
ttmp[BUFFLENGTH];
int inc;
int val, retv;
exec_syoukyo() {
int i;
wchar16_t yomi[YOMILEN + 1], kanji[KLEN + 1];
wchar16_t tmp[BUFFLENGTH], tmp2[BUFFLENGTH * 2];
unsigned char ytmp[YOMILEN + 1], ktmp[KLEN + 1],
mtmp[BUFFLENGTH], mtmp2[BUFFLENGTH * 2],
ttmp[BUFFLENGTH];
int inc;
int val, retv;
if (IsDcflag())
return(0);
val = getkstr (kanji, KLEN, WCGsyoukyo);
if (*kanji == '\0')
if(IsDcflag())
return (0);
val = getkstr(kanji, KLEN, WCGsyoukyo);
if(*kanji == '\0')
return (val);
while (1) {
if (getyomi (yomi, YOMILEN, WCGsyoukyo, kanji) || *yomi == '\0')
while(1) {
if(getyomi(yomi, YOMILEN, WCGsyoukyo, kanji) || *yomi == '\0')
break;
if (getcheck (yomi, kanji, NULL, WCGsyoukyo))
if(getcheck(yomi, kanji, NULL, WCGsyoukyo))
break;
}
if (*yomi == '\0')
if(*yomi == '\0')
return (val);
TopGuide ();
printR (WCGsyoukyo);
TopGuide();
printR(WCGsyoukyo);
tmp[0] = '\0';
for (i = 0; i < 5; i++) {
retv = SJ2_syoukyo (yomi, kanji, hin_val[i].ivalue);
if (retv == 0) {
for(i = 0; i < 5; i++) {
retv = SJ2_syoukyo(yomi, kanji, hin_val[i].ivalue);
if(retv == 0) {
wscat(tmp, hin_val[i].keyword);
wscat(tmp, WCKanma);
} else if (retv != SJ3_WORD_NOT_EXIST)
} else if(retv != SJ3_WORD_NOT_EXIST)
break;
}
if (tmp[0] == '\0') {
switch (retv) {
if(tmp[0] == '\0') {
switch(retv) {
case -1:
(void)dconnect(0);
return(val);
(void)dconnect(0);
return (val);
case SJ3_WORD_NOT_EXIST:
SJ_print(WCNotExist);
break;
@ -449,7 +427,7 @@ exec_syoukyo ()
SJ_print(WCUserLock);
break;
case SJ3_BAD_YOMI_STR:
SJ_print(WCYomiShokyo);
SJ_print(WCYomiShokyo);
break;
case SJ3_BAD_KANJI_STR:
SJ_print(WCKanjiShokyo);
@ -459,22 +437,22 @@ exec_syoukyo ()
break;
}
} else {
i = wslen(tmp);
i = wslen(tmp);
tmp[i - 1] = '\0';
(void) wcstombs((char *)mtmp, tmp, BUFFLENGTH);
(void) wcstombs((char *)ytmp, yomi, YOMILEN+1);
(void) wcstombs((char *)ktmp, kanji, KLEN+1);
(void) wcstombs((char *)ttmp, WCSYOUKYO_SUCC, BUFFLENGTH);
sprintf((char *)mtmp2, (char *)ttmp, ktmp, ytmp, mtmp);
(void) mbstowcs(tmp2, (char *)mtmp2, BUFFLENGTH * 2);
(void)wcstombs((char*)mtmp, tmp, BUFFLENGTH);
(void)wcstombs((char*)ytmp, yomi, YOMILEN + 1);
(void)wcstombs((char*)ktmp, kanji, KLEN + 1);
(void)wcstombs((char*)ttmp, WCSYOUKYO_SUCC, BUFFLENGTH);
sprintf((char*)mtmp2, (char*)ttmp, ktmp, ytmp, mtmp);
(void)mbstowcs(tmp2, (char*)mtmp2, BUFFLENGTH * 2);
SJ_print(tmp2);
}
Clear_EOL ();
Flush ();
Clear_EOL();
Flush();
inc = inkey ();
if (AnotherConversion ()) {
unget_key (inc);
inc = inkey();
if(AnotherConversion()) {
unget_key(inc);
}
return (val);
}