1 08708877 2003-11-25 devnull #include <u.h>
2 08708877 2003-11-25 devnull #include <libc.h>
3 08708877 2003-11-25 devnull #include <bio.h>
4 08708877 2003-11-25 devnull #include "dict.h"
5 08708877 2003-11-25 devnull #include "kuten.h"
8 08708877 2003-11-25 devnull * Routines for handling dictionaries in the "Languages of the World"
9 08708877 2003-11-25 devnull * format. worldnextoff *must* be called with <address of valid entry>+1.
12 08708877 2003-11-25 devnull #define GSHORT(p) (((p)[0]<<8)|(p)[1])
14 6b2d0fd9 2004-03-26 devnull #define putchar dictputchar
16 08708877 2003-11-25 devnull static void putchar(int, int*);
18 08708877 2003-11-25 devnull #define NONE 0xffff
20 08708877 2003-11-25 devnull /* adapted from jhelling@cs.ruu.nl (Jeroen Hellingman) */
22 08708877 2003-11-25 devnull static Rune chartab[] = {
24 08708877 2003-11-25 devnull /*00*/ NONE, NONE, NONE, NONE, NONE, NONE, NONE, NONE,
25 e2d62fb9 2005-07-13 devnull NONE, NONE,'\n', 0xe6, 0xf8, 0xe5, 0xe4, 0xf6,
26 08708877 2003-11-25 devnull /*10*/ NONE, NONE, NONE, NONE, NONE, NONE, NONE, NONE,
27 08708877 2003-11-25 devnull NONE, NONE, NONE, 0xc6, 0xd8, 0xc5, 0xc4, 0xd6,
29 08708877 2003-11-25 devnull /*20*/ 0x20, 0x21, 0x22, 0x23, 0x24, 0x25, 0x26, '\'',
30 08708877 2003-11-25 devnull 0x28, 0x29, 0x2a, 0x2b, 0x2c, 0x2d, 0x2e, 0x2f,
31 08708877 2003-11-25 devnull /*30*/ 0x30, 0x31, 0x32, 0x33, 0x34, 0x35, 0x36, 0x37,
32 08708877 2003-11-25 devnull 0x38, 0x39, 0x3a, 0x3b, 0x3c, 0x3d, 0x3e, 0x3f,
33 08708877 2003-11-25 devnull /*40*/ 0x40, 0x41, 0x42, 0x43, 0x44, 0x45, 0x46, 0x47,
34 e2d62fb9 2005-07-13 devnull 0x48, 0x49, 0x4a, 0x4b,'L', 0x4d, 0x4e, 0x4f,
35 08708877 2003-11-25 devnull /*50*/ 0x50, 0x51, 0x52, 0x53, 0x54, 0x55, 0x56, 0x57,
36 e2d62fb9 2005-07-13 devnull 0x58, 0x59, 0x5a, 0x5b,'\\', 0x5d, 0x5e, 0x5f,
37 08708877 2003-11-25 devnull /*60*/ 0x60, 0x61, 0x62, 0x63, 0x64, 0x65, 0x66, 0x67,
38 08708877 2003-11-25 devnull 0x68, 0x69, 0x6a, 0x6b, 0x6c, 0x6d, 0x6e, 0x6f,
39 08708877 2003-11-25 devnull /*70*/ 0x70, 0x71, 0x72, 0x73, 0x74, 0x75, 0x76, 0x77,
40 08708877 2003-11-25 devnull 0x78, 0x79, 0x7a, 0x7b, 0x7c, 0x7d, 0x7e, NONE,
42 08708877 2003-11-25 devnull /*80*/ 0xc7, 0xfc, 0xe9, 0xe2, 0xe4, 0xe0, 0xe5, 0xe7,
43 08708877 2003-11-25 devnull 0xea, 0xeb, 0xe8, 0xef, 0xee, 0xec, 0xc4, 0xc5,
44 08708877 2003-11-25 devnull /*90*/ 0xc9, 0xe6, 0xc6, 0xf4, 0xf6, 0xf2, 0xfb, 0xf9,
45 08708877 2003-11-25 devnull 0xff, 0xd6, 0xdc, 0xa2, 0xa3, 0xa5, 0x20a7, 0x283,
46 08708877 2003-11-25 devnull /*a0*/ 0xe1, 0xed, 0xf3, 0xfa, 0xf1, 0xd1, 0xaa, 0xba,
47 08708877 2003-11-25 devnull 0xbf, 0x2310, 0xac, 0xbd, 0xbc, 0xa1, 0xab, 0xbb,
49 08708877 2003-11-25 devnull /*b0*/ 0x254, 0x259, 0xf0, 0x283, 0x292, 0x14b, 0x251, 0x7a,
50 08708877 2003-11-25 devnull 0x26a, 0xf0, 0x292, 0xe3, 0x153, 0x169, 0x28c, 0x265,
51 08708877 2003-11-25 devnull /*c0*/ 0x280, 0xeb, 0x6c, 0x28c, 0xf5, 0xf1, 0x152, NONE,
52 08708877 2003-11-25 devnull NONE, 0x53, 0x73, 0x5a, 0x7a, NONE, NONE, NONE,
53 08708877 2003-11-25 devnull /*d0*/ 0xdf, NONE, NONE, 0x101, 0x12b, 0x16b, 0x113, 0x14d,
54 08708877 2003-11-25 devnull NONE, NONE, NONE, 0x20, NONE, NONE, NONE, NONE,
56 08708877 2003-11-25 devnull /*e0*/ 0x3b1, 0x3b2, 0x3b3, 0x3c0, 0x3a3, 0x3c3, 0xb5, 0x3c4,
57 08708877 2003-11-25 devnull 0x3a6, 0x398, 0x3a9, 0x3b4, 0x221e, 0xd8, 0x3b5, 0x2229,
58 08708877 2003-11-25 devnull /*f0*/ 0x2261, 0xb1, 0x2265, 0x2264, 0x2320, 0x2321, 0xf7, 0x2248,
59 08708877 2003-11-25 devnull 0xb0, 0x2219, 0xb7, NONE, NONE, NONE, NONE, NONE,
62 08708877 2003-11-25 devnull enum{ Utf, Kanahi, Kanalo=Kanahi+1, GBhi, GBlo=GBhi+1, };
65 08708877 2003-11-25 devnull worldprintentry(Entry e, int cmd)
67 08708877 2003-11-25 devnull int nh, state[3];
68 08708877 2003-11-25 devnull uchar *p, *pe;
70 08708877 2003-11-25 devnull p = (uchar *)e.start;
71 08708877 2003-11-25 devnull pe = (uchar *)e.end;
72 08708877 2003-11-25 devnull nh = GSHORT(p);
74 08708877 2003-11-25 devnull if(cmd == 'h')
75 08708877 2003-11-25 devnull pe = p+nh;
76 08708877 2003-11-25 devnull state[0] = Utf;
77 08708877 2003-11-25 devnull state[1] = 0;
78 08708877 2003-11-25 devnull state[2] = 0;
79 08708877 2003-11-25 devnull while(p < pe){
80 08708877 2003-11-25 devnull if(cmd == 'r')
81 08708877 2003-11-25 devnull outchar(*p++);
83 08708877 2003-11-25 devnull putchar(*p++, state);
85 08708877 2003-11-25 devnull outnl(0);
89 08708877 2003-11-25 devnull worldnextoff(long fromoff)
91 08708877 2003-11-25 devnull int nh, np, nd;
92 08708877 2003-11-25 devnull uchar buf[6];
94 08708877 2003-11-25 devnull if(Bseek(bdict, fromoff-1, 0) < 0)
95 08708877 2003-11-25 devnull return -1;
96 08708877 2003-11-25 devnull if(Bread(bdict, buf, 6) != 6)
97 08708877 2003-11-25 devnull return -1;
98 08708877 2003-11-25 devnull nh = GSHORT(buf);
99 08708877 2003-11-25 devnull np = GSHORT(buf+2);
100 08708877 2003-11-25 devnull nd = GSHORT(buf+4);
101 08708877 2003-11-25 devnull return fromoff-1 + 6 + nh + np + nd;
104 08708877 2003-11-25 devnull static void
105 08708877 2003-11-25 devnull putchar(int c, int *state)
107 08708877 2003-11-25 devnull int xflag = 0;
109 08708877 2003-11-25 devnull int hi, lo;
111 08708877 2003-11-25 devnull switch(state[0]){
112 08708877 2003-11-25 devnull case Kanahi:
113 08708877 2003-11-25 devnull case GBhi:
114 08708877 2003-11-25 devnull if(CANS2JH(c) || c == 0xff){
115 08708877 2003-11-25 devnull state[0]++;
116 08708877 2003-11-25 devnull state[1] = c;
119 08708877 2003-11-25 devnull /* fall through */
120 08708877 2003-11-25 devnull case Utf:
121 08708877 2003-11-25 devnull if(c == 0xfe){
122 08708877 2003-11-25 devnull state[0] = Kanahi;
124 08708877 2003-11-25 devnull }else if(c == 0xff){
125 08708877 2003-11-25 devnull state[0] = GBhi;
128 08708877 2003-11-25 devnull r = chartab[c];
129 08708877 2003-11-25 devnull if(r < 0x80 && state[2] == 0)
130 08708877 2003-11-25 devnull outchar(r);
131 08708877 2003-11-25 devnull else if(r == NONE){
132 08708877 2003-11-25 devnull switch(c){
133 08708877 2003-11-25 devnull case 0xfb:
134 08708877 2003-11-25 devnull if(!xflag){
135 08708877 2003-11-25 devnull state[2] = 1;
138 08708877 2003-11-25 devnull case 0xfc:
139 08708877 2003-11-25 devnull if(!xflag){
140 08708877 2003-11-25 devnull state[2] = 0;
143 08708877 2003-11-25 devnull case 0x10:
144 08708877 2003-11-25 devnull case 0xc7: case 0xc8:
145 08708877 2003-11-25 devnull case 0xd8: case 0xd9: case 0xda:
146 08708877 2003-11-25 devnull case 0xdc: case 0xdd: case 0xde: case 0xdf:
147 08708877 2003-11-25 devnull case 0xfd:
148 08708877 2003-11-25 devnull if(!xflag)
150 08708877 2003-11-25 devnull /* fall through */
151 08708877 2003-11-25 devnull default:
152 08708877 2003-11-25 devnull outprint("\\%.2ux", c);
154 08708877 2003-11-25 devnull }else if(state[2] == 0)
155 08708877 2003-11-25 devnull outrune(r);
157 08708877 2003-11-25 devnull case Kanalo:
158 08708877 2003-11-25 devnull case GBlo:
159 08708877 2003-11-25 devnull if(state[1] == 0xff && c == 0xff){
160 08708877 2003-11-25 devnull state[0] = Utf;
163 08708877 2003-11-25 devnull state[0]--;
164 08708877 2003-11-25 devnull hi = state[1];
166 08708877 2003-11-25 devnull S2J(hi, lo); /* convert to JIS */
167 08708877 2003-11-25 devnull r = hi*100 + lo - 3232; /* convert to jis208 */
168 08708877 2003-11-25 devnull if(state[0] == Kanahi && r < JIS208MAX)
169 08708877 2003-11-25 devnull r = tabjis208[r];
170 08708877 2003-11-25 devnull else if(state[0] == GBhi && r < GB2312MAX)
171 08708877 2003-11-25 devnull r = tabgb2312[r];
173 08708877 2003-11-25 devnull r = NONE;
174 08708877 2003-11-25 devnull if(r == NONE)
175 08708877 2003-11-25 devnull outprint("\\%.2ux\\%.2ux", state[1], c);
177 08708877 2003-11-25 devnull outrune(r);
183 08708877 2003-11-25 devnull worldprintkey(void)
185 08708877 2003-11-25 devnull Bprint(bout, "No pronunciation key.\n");
