tpcollinsg.c - plan9port - [fork] Plan 9 from user space
HTML git clone git://src.adamsgaard.dk/plan9port
DIR Log
DIR Files
DIR Refs
DIR README
DIR LICENSE
---
tpcollinsg.c (5094B)
---
1 #include <u.h>
2 #include <libc.h>
3 #include <bio.h>
4 #include "dict.h"
5
6 /*
7 * Routines for handling dictionaries in the "Paperback Collins"
8 * `German' format (with tags surrounded by \5⋯\6 and \xba⋯\xba)
9 */
10
11 /*
12 * \5...\6 escapes (fonts, mostly)
13 *
14 * h headword (helvetica 7 pt)
15 * c clause (helvetica 7 pt)
16 * 3 helvetica 7 pt
17 * 4 helvetica 6.5 pt
18 * s helvetica 8 pt
19 * x helvetica 8 pt
20 * y helvetica 5 pt
21 * m helvetica 30 pt
22 * 1 roman 6 pt
23 * 9 roman 4.5 pt
24 * p roman 7 pt
25 * q roman 4.5 pt
26 * 2 italic 6 pt
27 * 7 italic 4.5 pt
28 * b bold 6 pt
29 * a `indent 0:4 left'
30 * k `keep 9'
31 * l `size 12'
32 */
33
34 enum {
35 IBASE=0x69, /* dotless i */
36 Taglen=32
37 };
38
39 static Rune intab[256] = {
40 /*0*/ /*1*/ /*2*/ /*3*/ /*4*/ /*5*/ /*6*/ /*7*/
41 /*00*/ NONE, NONE, NONE, NONE, NONE, TAGS, TAGE, NONE,
42 NONE, NONE, NONE, NONE, NONE, 0x20, NONE, NONE,
43 /*10*/ NONE, 0x2d, 0x20, 0x20, NONE, NONE, NONE, NONE,
44 0x20, NONE, NONE, NONE, 0x20, NONE, NONE, 0x2d,
45 /*20*/ 0x20, 0x21, 0x22, 0x23, 0x24, 0x25, 0x26, '\'',
46 0x28, 0x29, 0x2a, 0x2b, 0x2c, 0x2d, 0x2e, 0x2f,
47 /*30*/ 0x30, 0x31, 0x32, 0x33, 0x34, 0x35, 0x36, 0x37,
48 0x38, 0x39, 0x3a, 0x3b, 0x3c, 0x3d, 0x3e, 0x3f,
49 /*40*/ 0x40, 0x41, 0x42, 0x43, 0x44, 0x45, 0x46, 0x47,
50 0x48, 0x49, 0x4a, 0x4b,'L', 0x4d, 0x4e, 0x4f,
51 /*50*/ 0x50, 0x51, 0x52, 0x53, 0x54, 0x55, 0x56, 0x57,
52 0x58, 0x59, 0x5a, 0x5b,'\\', 0x5d, 0x5e, 0x5f,
53 /*60*/ 0x60, 0x61, 0x62, 0x63, 0x64, 0x65, 0x66, 0x67,
54 0x68, 0x69, 0x6a, 0x6b, 0x6c, 0x6d, 0x6e, 0x6f,
55 /*70*/ 0x70, 0x71, 0x72, 0x73, 0x74, 0x75, 0x76, 0x77,
56 0x78, 0x79, 0x7a, 0x7b, 0x7c, 0x7d, 0x7e, NONE,
57 /*80*/ NONE, NONE, NONE, NONE, NONE, NONE, NONE, NONE,
58 NONE, NONE, 0x20, NONE, NONE, NONE, NONE, NONE,
59 /*90*/ 0xdf, 0xe6, NONE, MOE, NONE, NONE, NONE, 0xf8,
60 NONE, NONE, NONE, NONE, NONE, NONE, NONE, NONE,
61 /*A0*/ NONE, NONE, 0x22, 0xa3, NONE, NONE, NONE, NONE,
62 NONE, NONE, NONE, NONE, NONE, NONE, NONE, NONE,
63 /*B0*/ NONE, NONE, NONE, NONE, NONE, NONE, NONE, 0x7e,
64 NONE, IBASE, SPCS, NONE, NONE, NONE, NONE, NONE,
65 /*C0*/ NONE, NONE, NONE, NONE, NONE, NONE, NONE, NONE,
66 NONE, NONE, NONE, NONE, NONE, NONE, NONE, NONE,
67 /*D0*/ NONE, NONE, NONE, NONE, NONE, NONE, NONE, NONE,
68 NONE, NONE, NONE, NONE, NONE, NONE, NONE, NONE,
69 /*E0*/ NONE, NONE, NONE, NONE, NONE, NONE, NONE, NONE,
70 NONE, NONE, NONE, NONE, NONE, NONE, NONE, NONE,
71 /*F0*/ 0x20, 0x20, NONE, NONE, NONE, NONE, NONE, NONE,
72 NONE, NONE, NONE, NONE, NONE, NONE, NONE, NONE
73 };
74
75 static Nassoc numtab[] = {
76 {1, 0x2b},
77 {4, 0x3d},
78 {7, 0xb0},
79 {11, 0x2248},
80 {69, 0x2666},
81 {114, 0xae},
82 {340, 0x25b},
83 {341, 0x254},
84 {342, 0x28c},
85 {343, 0x259},
86 {345, 0x292},
87 {346, 0x283},
88 {347, 0x275},
89 {348, 0x28a},
90 {349, 0x2c8},
91 {351, 0x26a},
92 {352, 0x25c},
93 {354, 0x251},
94 {355, 0x7e},
95 {356, 0x252},
96 {384, 0x273},
97 {445, 0xf0}, /* BUG -- should be script eth */
98 };
99
100 static Nassoc overtab[] = {
101 {0x2c, LCED},
102 {0x2f, LACU},
103 {0x3a, LUML},
104 {'\\', LGRV},
105 {0x5e, LFRN},
106 {0x7e, LTIL}
107 };
108
109 static uchar *reach(uchar*, int);
110
111 static Entry curentry;
112 static char tag[Taglen];
113
114 void
115 pcollgprintentry(Entry e, int cmd)
116 {
117 uchar *p, *pe;
118 int r, rprev = NONE, rx, over = 0, font;
119 char buf[16];
120
121 p = (uchar *)e.start;
122 pe = (uchar *)e.end;
123 curentry = e;
124 if(cmd == 'h')
125 outinhibit = 1;
126 while(p < pe){
127 if(cmd == 'r'){
128 outchar(*p++);
129 continue;
130 }
131 switch(r = intab[*p++]){ /* assign = */
132 case TAGS:
133 if(rprev != NONE){
134 outrune(rprev);
135 rprev = NONE;
136 }
137 p = reach(p, 0x06);
138 font = tag[0];
139 if(cmd == 'h')
140 outinhibit = (font != 'h');
141 break;
142
143 case TAGE: /* an extra one */
144 break;
145
146 case SPCS:
147 p = reach(p, 0xba);
148 r = looknassoc(numtab, asize(numtab), strtol(tag,0,0));
149 if(r < 0){
150 if(rprev != NONE){
151 outrune(rprev);
152 rprev = NONE;
153 }
154 sprint(buf, "\\N'%s'", tag);
155 outchars(buf);
156 break;
157 }
158 /* else fall through */
159
160 default:
161 if(over){
162 rx = looknassoc(overtab, asize(overtab), r);
163 if(rx > 0)
164 rx = liglookup(rx, rprev);
165 if(rx > 0 && rx != NONE)
166 outrune(rx);
167 else{
168 outrune(rprev);
169 if(r == ':')
170 outrune(0xa8);
171 else{
172 outrune(0x5e);
173 outrune(r);
174 }
175 }
176 over = 0;
177 rprev = NONE;
178 }else if(r == '^'){
179 over = 1;
180 }else{
181 if(rprev != NONE)
182 outrune(rprev);
183 rprev = r;
184 }
185 }
186
187 }
188 if(rprev != NONE)
189 outrune(rprev);
190 if(cmd == 'h')
191 outinhibit = 0;
192 outnl(0);
193 }
194
195 long
196 pcollgnextoff(long fromoff)
197 {
198 int c, state = 0, defoff = -1;
199
200 if(Bseek(bdict, fromoff, 0) < 0)
201 return -1;
202 while((c = Bgetc(bdict)) >= 0){
203 if(c == '\r')
204 defoff = Boffset(bdict);
205 switch(state){
206 case 0:
207 if(c == 0x05)
208 state = 1;
209 break;
210 case 1:
211 if(c == 'h')
212 state = 2;
213 else
214 state = 0;
215 break;
216 case 2:
217 if(c == 0x06)
218 return (Boffset(bdict)-3);
219 else
220 state = 0;
221 break;
222 }
223 }
224 return defoff;
225 }
226
227 void
228 pcollgprintkey(void)
229 {
230 Bprint(bout, "No pronunciation key yet\n");
231 }
232
233 static uchar *
234 reach(uchar *p, int tagchar)
235 {
236 int c; char *q=tag;
237
238 while(p < (uchar *)curentry.end){
239 c = *p++;
240 if(c == tagchar)
241 break;
242 *q++ = c;
243 if(q >= &tag[sizeof tag-1])
244 break;
245 }
246 *q = 0;
247 return p;
248 }