7 * Routines for handling dictionaries in the "Paperback Collins"
8 * `German' format (with tags surrounded by \5⋯\6 and \xba⋯\xba)
12 * \5⋯\6 escapes (fonts, mostly)
14 * h headword (helvetica 7 pt)
15 * c clause (helvetica 7 pt)
35 IBASE=L'i', /* dotless i */
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, L' ', NONE, NONE,
43 /*10*/ NONE, L'-', L' ', L' ', NONE, NONE, NONE, NONE,
44 L' ', NONE, NONE, NONE, L' ', NONE, NONE, L'-',
45 /*20*/ L' ', L'!', L'"', L'#', L'$', L'%', L'&', L'\'',
46 L'(', L')', L'*', L'+', L',', L'-', L'.', L'/',
47 /*30*/ L'0', L'1', L'2', L'3', L'4', L'5', L'6', L'7',
48 L'8', L'9', L':', L';', L'<', L'=', L'>', L'?',
49 /*40*/ L'@', L'A', L'B', L'C', L'D', L'E', L'F', L'G',
50 L'H', L'I', L'J', L'K', L'L', L'M', L'N', L'O',
51 /*50*/ L'P', L'Q', L'R', L'S', L'T', L'U', L'V', L'W',
52 L'X', L'Y', L'Z', L'[', L'\\', L']', L'^', L'_',
53 /*60*/ L'`', L'a', L'b', L'c', L'd', L'e', L'f', L'g',
54 L'h', L'i', L'j', L'k', L'l', L'm', L'n', L'o',
55 /*70*/ L'p', L'q', L'r', L's', L't', L'u', L'v', L'w',
56 L'x', L'y', L'z', L'{', L'|', L'}', L'~', NONE,
57 /*80*/ NONE, NONE, NONE, NONE, NONE, NONE, NONE, NONE,
58 NONE, NONE, L' ', NONE, NONE, NONE, NONE, NONE,
59 /*90*/ L'ß', L'æ', NONE, MOE, NONE, NONE, NONE, L'ø',
60 NONE, NONE, NONE, NONE, NONE, NONE, NONE, NONE,
61 /*A0*/ NONE, NONE, L'"', L'£', NONE, NONE, NONE, NONE,
62 NONE, NONE, NONE, NONE, NONE, NONE, NONE, NONE,
63 /*B0*/ NONE, NONE, NONE, NONE, NONE, NONE, NONE, L'~',
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*/ L' ', L' ', NONE, NONE, NONE, NONE, NONE, NONE,
72 NONE, NONE, NONE, NONE, NONE, NONE, NONE, NONE,
75 static Nassoc numtab[] = {
97 {445, L'ð'}, /* BUG -- should be script eth */
100 static Nassoc overtab[] = {
109 static uchar *reach(uchar*, int);
111 static Entry curentry;
112 static char tag[Taglen];
115 pcollgprintentry(Entry e, int cmd)
118 int r, rprev = NONE, rx, over = 0, font;
121 p = (uchar *)e.start;
131 switch(r = intab[*p++]){ /* assign = */
140 outinhibit = (font != 'h');
143 case TAGE: /* an extra one */
148 r = looknassoc(numtab, asize(numtab), strtol(tag,0,0));
154 sprint(buf, "\\N'%s'", tag);
158 /* else fall through */
162 rx = looknassoc(overtab, asize(overtab), r);
164 rx = liglookup(rx, rprev);
165 if(rx > 0 && rx != NONE)
196 pcollgnextoff(long fromoff)
198 int c, state = 0, defoff = -1;
200 if(Bseek(bdict, fromoff, 0) < 0)
202 while((c = Bgetc(bdict)) >= 0){
204 defoff = Boffset(bdict);
218 return (Boffset(bdict)-3);
230 Bprint(bout, "No pronunciation key yet\n");
234 reach(uchar *p, int tagchar)
238 while(p < (uchar *)curentry.end){
243 if(q >= &tag[sizeof tag-1])