185 lines
4.2 KiB
C
185 lines
4.2 KiB
C
#include <u.h>
|
||
#include <libc.h>
|
||
#include <bio.h>
|
||
#include "dict.h"
|
||
#include "kuten.h"
|
||
|
||
/*
|
||
* Routines for handling dictionaries in the "Languages of the World"
|
||
* format. worldnextoff *must* be called with <address of valid entry>+1.
|
||
*/
|
||
|
||
#define GSHORT(p) (((p)[0]<<8)|(p)[1])
|
||
|
||
static void putchar(int, int*);
|
||
|
||
#define NONE 0xffff
|
||
|
||
/* adapted from jhelling@cs.ruu.nl (Jeroen Hellingman) */
|
||
|
||
static Rune chartab[] = {
|
||
|
||
/*00*/ NONE, NONE, NONE, NONE, NONE, NONE, NONE, NONE,
|
||
NONE, NONE, L'\n', L'æ', L'ø', L'å', L'ä', L'ö',
|
||
/*10*/ NONE, NONE, NONE, NONE, NONE, NONE, NONE, NONE,
|
||
NONE, NONE, NONE, L'Æ', L'Ø', L'Å', L'Ä', L'Ö',
|
||
|
||
/*20*/ L' ', L'!', L'"', L'#', L'$', L'%', L'&', L'\'',
|
||
L'(', L')', L'*', L'+', L',', L'-', L'.', L'/',
|
||
/*30*/ L'0', L'1', L'2', L'3', L'4', L'5', L'6', L'7',
|
||
L'8', L'9', L':', L';', L'<', L'=', L'>', L'?',
|
||
/*40*/ L'@', L'A', L'B', L'C', L'D', L'E', L'F', L'G',
|
||
L'H', L'I', L'J', L'K', L'L', L'M', L'N', L'O',
|
||
/*50*/ L'P', L'Q', L'R', L'S', L'T', L'U', L'V', L'W',
|
||
L'X', L'Y', L'Z', L'[', L'\\', L']', L'^', L'_',
|
||
/*60*/ L'`', L'a', L'b', L'c', L'd', L'e', L'f', L'g',
|
||
L'h', L'i', L'j', L'k', L'l', L'm', L'n', L'o',
|
||
/*70*/ L'p', L'q', L'r', L's', L't', L'u', L'v', L'w',
|
||
L'x', L'y', L'z', L'{', L'|', L'}', L'~', NONE,
|
||
|
||
/*80*/ L'Ç', L'ü', L'é', L'â', L'ä', L'à', L'å', L'ç',
|
||
L'ê', L'ë', L'è', L'ï', L'î', L'ì', L'Ä', L'Å',
|
||
/*90*/ L'É', L'æ', L'Æ', L'ô', L'ö', L'ò', L'û', L'ù',
|
||
L'ÿ', L'Ö', L'Ü', L'¢', L'£', L'¥', L'₧', L'ʃ',
|
||
/*a0*/ L'á', L'í', L'ó', L'ú', L'ñ', L'Ñ', L'ª', L'º',
|
||
L'¿', L'⌐', L'¬', L'½', L'¼', L'¡', L'«', L'»',
|
||
|
||
/*b0*/ L'ɔ', L'ə', L'ð', L'ʃ', L'ʒ', L'ŋ', L'ɑ', L'z',
|
||
L'ɪ', L'ð', L'ʒ', L'ã', L'œ', L'ũ', L'ʌ', L'ɥ',
|
||
/*c0*/ L'ʀ', L'ë', L'l', L'ʌ', L'õ', L'ñ', L'Œ', NONE,
|
||
NONE, L'S', L's', L'Z', L'z', NONE, NONE, NONE,
|
||
/*d0*/ L'ß', NONE, NONE, L'ā', L'ī', L'ū', L'ē', L'ō',
|
||
NONE, NONE, NONE, L' ', NONE, NONE, NONE, NONE,
|
||
|
||
/*e0*/ L'α', L'β', L'γ', L'π', L'Σ', L'σ', L'µ', L'τ',
|
||
L'Φ', L'Θ', L'Ω', L'δ', L'∞', L'Ø', L'ε', L'∩',
|
||
/*f0*/ L'≡', L'±', L'≥', L'≤', L'⌠', L'⌡', L'÷', L'≈',
|
||
L'°', L'∙', L'·', NONE, NONE, NONE, NONE, NONE,
|
||
};
|
||
|
||
enum{ Utf, Kanahi, Kanalo=Kanahi+1, GBhi, GBlo=GBhi+1, };
|
||
|
||
void
|
||
worldprintentry(Entry e, int cmd)
|
||
{
|
||
int nh, state[3];
|
||
uchar *p, *pe;
|
||
|
||
p = (uchar *)e.start;
|
||
pe = (uchar *)e.end;
|
||
nh = GSHORT(p);
|
||
p += 6;
|
||
if(cmd == 'h')
|
||
pe = p+nh;
|
||
state[0] = Utf;
|
||
state[1] = 0;
|
||
state[2] = 0;
|
||
while(p < pe){
|
||
if(cmd == 'r')
|
||
outchar(*p++);
|
||
else
|
||
putchar(*p++, state);
|
||
}
|
||
outnl(0);
|
||
}
|
||
|
||
long
|
||
worldnextoff(long fromoff)
|
||
{
|
||
int nh, np, nd;
|
||
uchar buf[6];
|
||
|
||
if(Bseek(bdict, fromoff-1, 0) < 0)
|
||
return -1;
|
||
if(Bread(bdict, buf, 6) != 6)
|
||
return -1;
|
||
nh = GSHORT(buf);
|
||
np = GSHORT(buf+2);
|
||
nd = GSHORT(buf+4);
|
||
return fromoff-1 + 6 + nh + np + nd;
|
||
}
|
||
|
||
static void
|
||
putchar(int c, int *state)
|
||
{
|
||
int xflag = 0;
|
||
Rune r;
|
||
int hi, lo;
|
||
|
||
switch(state[0]){
|
||
case Kanahi:
|
||
case GBhi:
|
||
if(CANS2JH(c) || c == 0xff){
|
||
state[0]++;
|
||
state[1] = c;
|
||
break;
|
||
}
|
||
/* fall through */
|
||
case Utf:
|
||
if(c == 0xfe){
|
||
state[0] = Kanahi;
|
||
break;
|
||
}else if(c == 0xff){
|
||
state[0] = GBhi;
|
||
break;
|
||
}
|
||
r = chartab[c];
|
||
if(r < 0x80 && state[2] == 0)
|
||
outchar(r);
|
||
else if(r == NONE){
|
||
switch(c){
|
||
case 0xfb:
|
||
if(!xflag){
|
||
state[2] = 1;
|
||
break;
|
||
}
|
||
case 0xfc:
|
||
if(!xflag){
|
||
state[2] = 0;
|
||
break;
|
||
}
|
||
case 0x10:
|
||
case 0xc7: case 0xc8:
|
||
case 0xd8: case 0xd9: case 0xda:
|
||
case 0xdc: case 0xdd: case 0xde: case 0xdf:
|
||
case 0xfd:
|
||
if(!xflag)
|
||
break;
|
||
/* fall through */
|
||
default:
|
||
outprint("\\%.2ux", c);
|
||
}
|
||
}else if(state[2] == 0)
|
||
outrune(r);
|
||
break;
|
||
case Kanalo:
|
||
case GBlo:
|
||
if(state[1] == 0xff && c == 0xff){
|
||
state[0] = Utf;
|
||
break;
|
||
}
|
||
state[0]--;
|
||
hi = state[1];
|
||
lo = c;
|
||
S2J(hi, lo); /* convert to JIS */
|
||
r = hi*100 + lo - 3232; /* convert to jis208 */
|
||
if(state[0] == Kanahi && r < JIS208MAX)
|
||
r = tabjis208[r];
|
||
else if(state[0] == GBhi && r < GB2312MAX)
|
||
r = tabgb2312[r];
|
||
else
|
||
r = NONE;
|
||
if(r == NONE)
|
||
outprint("\\%.2ux\\%.2ux", state[1], c);
|
||
else
|
||
outrune(r);
|
||
break;
|
||
}
|
||
}
|
||
|
||
void
|
||
worldprintkey(void)
|
||
{
|
||
Bprint(bout, "No pronunciation key.\n");
|
||
}
|