227 lines
4.4 KiB
C
227 lines
4.4 KiB
C
|
#include <u.h>
|
|||
|
#include <libc.h>
|
|||
|
#include <bio.h>
|
|||
|
#include "dict.h"
|
|||
|
|
|||
|
/*
|
|||
|
* Routines for handling dictionaries in the "Paperback Collins"
|
|||
|
* format (with tags surrounded by >....<)
|
|||
|
*/
|
|||
|
enum {
|
|||
|
Buflen=1000,
|
|||
|
};
|
|||
|
|
|||
|
/* More special runes */
|
|||
|
enum {
|
|||
|
B = MULTIE+1, /* bold */
|
|||
|
H, /* headword start */
|
|||
|
I, /* italics */
|
|||
|
Ps, /* pronunciation start */
|
|||
|
Pe, /* pronunciation end */
|
|||
|
R, /* roman */
|
|||
|
X, /* headword end */
|
|||
|
};
|
|||
|
|
|||
|
/* Assoc tables must be sorted on first field */
|
|||
|
|
|||
|
static Assoc tagtab[] = {
|
|||
|
{"AA", L'Å'},
|
|||
|
{"AC", LACU},
|
|||
|
{"B", B},
|
|||
|
{"CE", LCED},
|
|||
|
{"CI", LFRN},
|
|||
|
{"Di", L'ı'},
|
|||
|
{"EL", L'-'},
|
|||
|
{"GR", LGRV},
|
|||
|
{"H", H},
|
|||
|
{"I", I},
|
|||
|
{"OE", L'Œ'},
|
|||
|
{"R", R},
|
|||
|
{"TI", LTIL},
|
|||
|
{"UM", LUML},
|
|||
|
{"X", X},
|
|||
|
{"[", Ps},
|
|||
|
{"]", Pe},
|
|||
|
{"ac", LACU},
|
|||
|
{"ce", LCED},
|
|||
|
{"ci", LFRN},
|
|||
|
{"gr", LGRV},
|
|||
|
{"oe", L'œ'},
|
|||
|
{"supe", L'e'}, /* should be raised */
|
|||
|
{"supo", L'o'}, /* should be raised */
|
|||
|
{"ti", LTIL},
|
|||
|
{"um", LUML},
|
|||
|
{"{", Ps},
|
|||
|
{"~", L'~'},
|
|||
|
{"~~", MTT},
|
|||
|
};
|
|||
|
|
|||
|
static Rune normtab[128] = {
|
|||
|
/*0*/ /*1*/ /*2*/ /*3*/ /*4*/ /*5*/ /*6*/ /*7*/
|
|||
|
/*00*/ NONE, NONE, NONE, NONE, NONE, NONE, NONE, NONE,
|
|||
|
NONE, NONE, L' ', NONE, NONE, NONE, NONE, NONE,
|
|||
|
/*10*/ NONE, NONE, NONE, NONE, NONE, NONE, NONE, NONE,
|
|||
|
NONE, NONE, NONE, NONE, NONE, NONE, NONE, NONE,
|
|||
|
/*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';', TAGE, L'=', TAGS, 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,
|
|||
|
};
|
|||
|
|
|||
|
static char *gettag(char *, char *);
|
|||
|
|
|||
|
static Entry curentry;
|
|||
|
static char tag[Buflen];
|
|||
|
#define cursize (curentry.end-curentry.start)
|
|||
|
|
|||
|
void
|
|||
|
pcollprintentry(Entry e, int cmd)
|
|||
|
{
|
|||
|
char *p, *pe;
|
|||
|
long r, rprev, t, rlig;
|
|||
|
int saveoi;
|
|||
|
Rune *transtab;
|
|||
|
|
|||
|
p = e.start;
|
|||
|
pe = e.end;
|
|||
|
transtab = normtab;
|
|||
|
rprev = NONE;
|
|||
|
changett(0, 0, 0);
|
|||
|
curentry = e;
|
|||
|
saveoi = 0;
|
|||
|
if(cmd == 'h')
|
|||
|
outinhibit = 1;
|
|||
|
while(p < pe) {
|
|||
|
if(cmd == 'r') {
|
|||
|
outchar(*p++);
|
|||
|
continue;
|
|||
|
}
|
|||
|
r = transtab[(*p++)&0x7F];
|
|||
|
if(r < NONE) {
|
|||
|
/* Emit the rune, but buffer in case of ligature */
|
|||
|
if(rprev != NONE)
|
|||
|
outrune(rprev);
|
|||
|
rprev = r;
|
|||
|
} else if(r == TAGS) {
|
|||
|
p = gettag(p, pe);
|
|||
|
t = lookassoc(tagtab, asize(tagtab), tag);
|
|||
|
if(t == -1) {
|
|||
|
if(debug && !outinhibit)
|
|||
|
err("tag %ld %d %s",
|
|||
|
e.doff, cursize, tag);
|
|||
|
continue;
|
|||
|
}
|
|||
|
if(t < NONE) {
|
|||
|
if(rprev != NONE)
|
|||
|
outrune(rprev);
|
|||
|
rprev = t;
|
|||
|
} else if(t >= LIGS && t < LIGE) {
|
|||
|
/* handle possible ligature */
|
|||
|
rlig = liglookup(t, rprev);
|
|||
|
if(rlig != NONE)
|
|||
|
rprev = rlig; /* overwrite rprev */
|
|||
|
else {
|
|||
|
/* could print accent, but let's not */
|
|||
|
if(rprev != NONE) outrune(rprev);
|
|||
|
rprev = NONE;
|
|||
|
}
|
|||
|
} else if(t >= MULTI && t < MULTIE) {
|
|||
|
if(rprev != NONE) {
|
|||
|
outrune(rprev);
|
|||
|
rprev = NONE;
|
|||
|
}
|
|||
|
outrunes(multitab[t-MULTI]);
|
|||
|
} else {
|
|||
|
if(rprev != NONE) {
|
|||
|
outrune(rprev);
|
|||
|
rprev = NONE;
|
|||
|
}
|
|||
|
switch(t){
|
|||
|
case H:
|
|||
|
if(cmd == 'h')
|
|||
|
outinhibit = 0;
|
|||
|
else
|
|||
|
outnl(0);
|
|||
|
break;
|
|||
|
case X:
|
|||
|
if(cmd == 'h')
|
|||
|
outinhibit = 1;
|
|||
|
else
|
|||
|
outchars(". ");
|
|||
|
break;
|
|||
|
case Ps:
|
|||
|
/* don't know enough of pron. key yet */
|
|||
|
saveoi = outinhibit;
|
|||
|
outinhibit = 1;
|
|||
|
break;
|
|||
|
case Pe:
|
|||
|
outinhibit = saveoi;
|
|||
|
break;
|
|||
|
}
|
|||
|
}
|
|||
|
}
|
|||
|
}
|
|||
|
if(cmd == 'h')
|
|||
|
outinhibit = 0;
|
|||
|
outnl(0);
|
|||
|
}
|
|||
|
|
|||
|
long
|
|||
|
pcollnextoff(long fromoff)
|
|||
|
{
|
|||
|
long a;
|
|||
|
char *p;
|
|||
|
|
|||
|
a = Bseek(bdict, fromoff, 0);
|
|||
|
if(a < 0)
|
|||
|
return -1;
|
|||
|
for(;;) {
|
|||
|
p = Brdline(bdict, '\n');
|
|||
|
if(!p)
|
|||
|
break;
|
|||
|
if(p[0] == '>' && p[1] == 'H' && p[2] == '<')
|
|||
|
return (Boffset(bdict)-Blinelen(bdict));
|
|||
|
}
|
|||
|
return -1;
|
|||
|
}
|
|||
|
|
|||
|
void
|
|||
|
pcollprintkey(void)
|
|||
|
{
|
|||
|
Bprint(bout, "No pronunciation key yet\n");
|
|||
|
}
|
|||
|
|
|||
|
/*
|
|||
|
* f points just after '>'; fe points at end of entry.
|
|||
|
* Expect next characters from bin to match:
|
|||
|
* [^ <]+<
|
|||
|
* tag
|
|||
|
* Accumulate the tag in tag[].
|
|||
|
* Return pointer to after final '<'.
|
|||
|
*/
|
|||
|
static char *
|
|||
|
gettag(char *f, char *fe)
|
|||
|
{
|
|||
|
char *t;
|
|||
|
int c, i;
|
|||
|
|
|||
|
t = tag;
|
|||
|
i = Buflen;
|
|||
|
while(--i > 0) {
|
|||
|
c = *f++;
|
|||
|
if(c == '<' || f == fe)
|
|||
|
break;
|
|||
|
*t++ = c;
|
|||
|
}
|
|||
|
*t = 0;
|
|||
|
return f;
|
|||
|
}
|