249 lines
5 KiB
C
249 lines
5 KiB
C
#include <u.h>
|
||
#include <libc.h>
|
||
#include <bio.h>
|
||
#include "dict.h"
|
||
|
||
/*
|
||
* Routines for handling dictionaries in the "Paperback Collins"
|
||
* `German' format (with tags surrounded by \5⋯\6 and \xba⋯\xba)
|
||
*/
|
||
|
||
/*
|
||
* \5⋯\6 escapes (fonts, mostly)
|
||
*
|
||
* h headword (helvetica 7 pt)
|
||
* c clause (helvetica 7 pt)
|
||
* 3 helvetica 7 pt
|
||
* 4 helvetica 6.5 pt
|
||
* s helvetica 8 pt
|
||
* x helvetica 8 pt
|
||
* y helvetica 5 pt
|
||
* m helvetica 30 pt
|
||
* 1 roman 6 pt
|
||
* 9 roman 4.5 pt
|
||
* p roman 7 pt
|
||
* q roman 4.5 pt
|
||
* 2 italic 6 pt
|
||
* 7 italic 4.5 pt
|
||
* b bold 6 pt
|
||
* a `indent 0:4 left'
|
||
* k `keep 9'
|
||
* l `size 12'
|
||
*/
|
||
|
||
enum {
|
||
IBASE=L'i', /* dotless i */
|
||
Taglen=32,
|
||
};
|
||
|
||
static Rune intab[256] = {
|
||
/*0*/ /*1*/ /*2*/ /*3*/ /*4*/ /*5*/ /*6*/ /*7*/
|
||
/*00*/ NONE, NONE, NONE, NONE, NONE, TAGS, TAGE, NONE,
|
||
NONE, NONE, NONE, NONE, NONE, L' ', NONE, NONE,
|
||
/*10*/ NONE, L'-', L' ', L' ', NONE, NONE, NONE, NONE,
|
||
L' ', NONE, NONE, NONE, L' ', NONE, NONE, 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*/ NONE, NONE, NONE, NONE, NONE, NONE, NONE, NONE,
|
||
NONE, NONE, L' ', NONE, NONE, NONE, NONE, NONE,
|
||
/*90*/ L'ß', L'æ', NONE, MOE, NONE, NONE, NONE, L'ø',
|
||
NONE, NONE, NONE, NONE, NONE, NONE, NONE, NONE,
|
||
/*A0*/ NONE, NONE, L'"', L'£', NONE, NONE, NONE, NONE,
|
||
NONE, NONE, NONE, NONE, NONE, NONE, NONE, NONE,
|
||
/*B0*/ NONE, NONE, NONE, NONE, NONE, NONE, NONE, L'~',
|
||
NONE, IBASE, SPCS, NONE, NONE, NONE, NONE, NONE,
|
||
/*C0*/ NONE, NONE, NONE, NONE, NONE, NONE, NONE, NONE,
|
||
NONE, NONE, NONE, NONE, NONE, NONE, NONE, NONE,
|
||
/*D0*/ NONE, NONE, NONE, NONE, NONE, NONE, NONE, NONE,
|
||
NONE, NONE, NONE, NONE, NONE, NONE, NONE, NONE,
|
||
/*E0*/ NONE, NONE, NONE, NONE, NONE, NONE, NONE, NONE,
|
||
NONE, NONE, NONE, NONE, NONE, NONE, NONE, NONE,
|
||
/*F0*/ L' ', L' ', NONE, NONE, NONE, NONE, NONE, NONE,
|
||
NONE, NONE, NONE, NONE, NONE, NONE, NONE, NONE,
|
||
};
|
||
|
||
static Nassoc numtab[] = {
|
||
{1, L'+'},
|
||
{4, L'='},
|
||
{7, L'°'},
|
||
{11, L'≈'},
|
||
{69, L'♦'},
|
||
{114, L'®'},
|
||
{340, L'ɛ'},
|
||
{341, L'ɔ'},
|
||
{342, L'ʌ'},
|
||
{343, L'ə'},
|
||
{345, L'ʒ'},
|
||
{346, L'ʃ'},
|
||
{347, L'ɵ'},
|
||
{348, L'ʊ'},
|
||
{349, L'ˈ'},
|
||
{351, L'ɪ'},
|
||
{352, L'ɜ'},
|
||
{354, L'ɑ'},
|
||
{355, L'~'},
|
||
{356, L'ɒ'},
|
||
{384, L'ɳ'},
|
||
{445, L'ð'}, /* BUG -- should be script eth */
|
||
};
|
||
|
||
static Nassoc overtab[] = {
|
||
{L',', LCED},
|
||
{L'/', LACU},
|
||
{L':', LUML},
|
||
{L'\\', LGRV},
|
||
{L'^', LFRN},
|
||
{L'~', LTIL},
|
||
};
|
||
|
||
static uchar *reach(uchar*, int);
|
||
|
||
static Entry curentry;
|
||
static char tag[Taglen];
|
||
|
||
void
|
||
pcollgprintentry(Entry e, int cmd)
|
||
{
|
||
uchar *p, *pe;
|
||
int r, rprev = NONE, rx, over = 0, font;
|
||
char buf[16];
|
||
|
||
p = (uchar *)e.start;
|
||
pe = (uchar *)e.end;
|
||
curentry = e;
|
||
if(cmd == 'h')
|
||
outinhibit = 1;
|
||
while(p < pe){
|
||
if(cmd == 'r'){
|
||
outchar(*p++);
|
||
continue;
|
||
}
|
||
switch(r = intab[*p++]){ /* assign = */
|
||
case TAGS:
|
||
if(rprev != NONE){
|
||
outrune(rprev);
|
||
rprev = NONE;
|
||
}
|
||
p = reach(p, 0x06);
|
||
font = tag[0];
|
||
if(cmd == 'h')
|
||
outinhibit = (font != 'h');
|
||
break;
|
||
|
||
case TAGE: /* an extra one */
|
||
break;
|
||
|
||
case SPCS:
|
||
p = reach(p, 0xba);
|
||
r = looknassoc(numtab, asize(numtab), strtol(tag,0,0));
|
||
if(r < 0){
|
||
if(rprev != NONE){
|
||
outrune(rprev);
|
||
rprev = NONE;
|
||
}
|
||
sprint(buf, "\\N'%s'", tag);
|
||
outchars(buf);
|
||
break;
|
||
}
|
||
/* else fall through */
|
||
|
||
default:
|
||
if(over){
|
||
rx = looknassoc(overtab, asize(overtab), r);
|
||
if(rx > 0)
|
||
rx = liglookup(rx, rprev);
|
||
if(rx > 0 && rx != NONE)
|
||
outrune(rx);
|
||
else{
|
||
outrune(rprev);
|
||
if(r == ':')
|
||
outrune(L'¨');
|
||
else{
|
||
outrune(L'^');
|
||
outrune(r);
|
||
}
|
||
}
|
||
over = 0;
|
||
rprev = NONE;
|
||
}else if(r == '^'){
|
||
over = 1;
|
||
}else{
|
||
if(rprev != NONE)
|
||
outrune(rprev);
|
||
rprev = r;
|
||
}
|
||
}
|
||
|
||
}
|
||
if(rprev != NONE)
|
||
outrune(rprev);
|
||
if(cmd == 'h')
|
||
outinhibit = 0;
|
||
outnl(0);
|
||
}
|
||
|
||
long
|
||
pcollgnextoff(long fromoff)
|
||
{
|
||
int c, state = 0, defoff = -1;
|
||
|
||
if(Bseek(bdict, fromoff, 0) < 0)
|
||
return -1;
|
||
while((c = Bgetc(bdict)) >= 0){
|
||
if(c == '\r')
|
||
defoff = Boffset(bdict);
|
||
switch(state){
|
||
case 0:
|
||
if(c == 0x05)
|
||
state = 1;
|
||
break;
|
||
case 1:
|
||
if(c == 'h')
|
||
state = 2;
|
||
else
|
||
state = 0;
|
||
break;
|
||
case 2:
|
||
if(c == 0x06)
|
||
return (Boffset(bdict)-3);
|
||
else
|
||
state = 0;
|
||
break;
|
||
}
|
||
}
|
||
return defoff;
|
||
}
|
||
|
||
void
|
||
pcollgprintkey(void)
|
||
{
|
||
Bprint(bout, "No pronunciation key yet\n");
|
||
}
|
||
|
||
static uchar *
|
||
reach(uchar *p, int tagchar)
|
||
{
|
||
int c; char *q=tag;
|
||
|
||
while(p < (uchar *)curentry.end){
|
||
c = *p++;
|
||
if(c == tagchar)
|
||
break;
|
||
*q++ = c;
|
||
if(q >= &tag[sizeof tag-1])
|
||
break;
|
||
}
|
||
*q = 0;
|
||
return p;
|
||
}
|