123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312 |
- #include <u.h>
- #include <libc.h>
- #include <bio.h>
- #include "dict.h"
- /*
- * Robert Électronique.
- */
- enum
- {
- CIT = MULTIE+1, /* citation ptr followed by long int and ascii label */
- BROM, /* bold roman */
- ITON, /* start italic */
- ROM, /* roman */
- SYM, /* symbol font? */
- HEL, /* helvetica */
- BHEL, /* helvetica bold */
- SMALL, /* smaller? */
- ITOFF, /* end italic */
- SUP, /* following character is superscript */
- SUB /* following character is subscript */
- };
- static Rune intab[256] = {
- /*0*/ /*1*/ /*2*/ /*3*/ /*4*/ /*5*/ /*6*/ /*7*/
- /*00*/ NONE, L'☺', L'☻', L'♥', L'♦', L'♣', L'♠', L'•',
- 0x25d8, L'ʘ', L'\n', L'♂', L'♀', L'♪', 0x266b, L'※',
- /*10*/ L'⇨', L'⇦', L'↕', L'‼', L'¶', L'§', L'⁃', L'↨',
- L'↑', L'↓', L'→', L'←', L'⌙', L'↔', 0x25b4, 0x25be,
- /*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'~', L'',
- /*80*/ L'Ç', L'ü', L'é', L'â', L'ä', L'à', L'å', L'ç',
- L'ê', L'ë', L'è', L'ï', L'î', L'ì', L'Ä', L'Å',
- /*90*/ L'É', L'æ', L'Æ', L'ô', L'ö', L'ò', L'û', L'ù',
- L'ÿ', L'Ö', L'Ü', L'¢', L'£', L'¥', L'₧', L'ʃ',
- /*a0*/ L'á', L'í', L'ó', L'ú', L'ñ', L'Ñ', L'ª', L'º',
- L'¿', L'⌐', L'¬', L'½', L'¼', L'¡', L'«', L'»',
- /*b0*/ NONE, NONE, NONE, NONE, NONE, NONE, NONE, NONE,
- NONE, NONE, NONE, NONE, NONE, NONE, NONE, NONE,
- /*c0*/ NONE, NONE, NONE, NONE, NONE, NONE, NONE, NONE,
- CIT, BROM, NONE, ITON, ROM, SYM, HEL, BHEL,
- /*d0*/ NONE, SMALL, ITOFF, SUP, SUB, NONE, NONE, NONE,
- NONE, NONE, NONE, NONE, NONE, NONE, NONE, NONE,
- /*e0*/ L'α', L'ß', L'γ', L'π', L'Σ', L'σ', L'µ', L'τ',
- L'Φ', L'Θ', L'Ω', L'δ', L'∞', L'Ø', L'ε', L'∩',
- /*f0*/ L'≡', L'±', L'≥', L'≤', L'⌠', L'⌡', L'÷', L'≈',
- L'°', L'∙', L'·', L'√', L'ⁿ', L'²', L'∎', L' ',
- };
- static Rune suptab[] = {
- ['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'⁾', ['a'] L'ª',
- ['n'] L'ⁿ', ['o'] L'º'
- };
- static Rune subtab[] = {
- ['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'₎'
- };
- #define GSHORT(p) (((p)[0]<<8) | (p)[1])
- #define GLONG(p) (((p)[0]<<24) | ((p)[1]<<16) | ((p)[2]<<8) | (p)[3])
- static char cfile[] = "/lib/dict/robert/cits.rob";
- static char dfile[] = "/lib/dict/robert/defs.rob";
- static char efile[] = "/lib/dict/robert/etym.rob";
- static char kfile[] = "/lib/dict/robert/_phon";
- static Biobuf * cb;
- static Biobuf * db;
- static Biobuf * eb;
- static Biobuf * Bouvrir(char*);
- static void citation(int, int);
- static void robertprintentry(Entry*, Entry*, int);
- void
- robertindexentry(Entry e, int cmd)
- {
- uchar *p = (uchar *)e.start;
- long ea, el, da, dl, fa;
- Entry def, etym;
- ea = GLONG(&p[0]);
- el = GSHORT(&p[4]);
- da = GLONG(&p[6]);
- dl = GSHORT(&p[10]);
- fa = GLONG(&p[12]);
- USED(fa);
- if(db == 0)
- db = Bouvrir(dfile);
- def.start = malloc(dl+1);
- def.end = def.start + dl;
- def.doff = da;
- Bseek(db, da, 0);
- Bread(db, def.start, dl);
- *def.end = 0;
- if(cmd == 'h'){
- robertprintentry(&def, 0, cmd);
- }else{
- if(eb == 0)
- eb = Bouvrir(efile);
- etym.start = malloc(el+1);
- etym.end = etym.start + el;
- etym.doff = ea;
- Bseek(eb, ea, 0);
- Bread(eb, etym.start, el);
- *etym.end = 0;
- robertprintentry(&def, &etym, cmd);
- free(etym.start);
- }
- free(def.start);
- }
- static void
- robertprintentry(Entry *def, Entry *etym, int cmd)
- {
- uchar *p, *pe;
- Rune r; int c, n;
- int baseline = 0;
- int lineno = 0;
- int cit = 0;
- p = (uchar *)def->start;
- pe = (uchar *)def->end;
- while(p < pe){
- if(cmd == 'r'){
- outchar(*p++);
- continue;
- }
- c = *p++;
- switch(r = intab[c]){ /* assign = */
- case BROM:
- case ITON:
- case ROM:
- case SYM:
- case HEL:
- case BHEL:
- case SMALL:
- case ITOFF:
- case NONE:
- if(debug)
- outprint("\\%.2ux", c);
- baseline = 0;
- break;
- case SUP:
- baseline = 1;
- break;
- case SUB:
- baseline = -1;
- break;
- case CIT:
- n = p[0] | (p[1]<<8) | (p[2]<<16) | (p[3]<<24);
- p += 4;
- if(debug)
- outprint("[%d]", n);
- while(*p == ' ' || ('0'<=*p && *p<='9') || *p == '.'){
- if(debug)
- outchar(*p);
- ++p;
- }
- ++cit;
- outnl(2);
- citation(n, cmd);
- baseline = 0;
- break;
- case '\n':
- outnl(0);
- baseline = 0;
- ++lineno;
- break;
- default:
- if(baseline > 0 && r < nelem(suptab))
- r = suptab[r];
- else if(baseline < 0 && r < nelem(subtab))
- r = subtab[r];
- if(cit){
- outchar('\n');
- cit = 0;
- }
- outrune(r);
- baseline = 0;
- break;
- }
- if(r == '\n'){
- if(cmd == 'h')
- break;
- if(lineno == 1 && etym)
- robertprintentry(etym, 0, cmd);
- }
- }
- outnl(0);
- }
- static void
- citation(int addr, int cmd)
- {
- Entry cit;
- if(cb == 0)
- cb = Bouvrir(cfile);
- Bseek(cb, addr, 0);
- cit.start = Brdline(cb, 0xc8);
- cit.end = cit.start + Blinelen(cb) - 1;
- cit.doff = addr;
- *cit.end = 0;
- robertprintentry(&cit, 0, cmd);
- }
- long
- robertnextoff(long fromoff)
- {
- return (fromoff & ~15) + 16;
- }
- void
- robertprintkey(void)
- {
- Biobuf *db;
- char *l;
- db = Bouvrir(kfile);
- while(l = Brdline(db, '\n')) /* assign = */
- Bwrite(bout, l, Blinelen(db));
- Bterm(db);
- }
- void
- robertflexentry(Entry e, int cmd)
- {
- uchar *p, *pe;
- Rune r; int c;
- int lineno = 1;
- p = (uchar *)e.start;
- pe = (uchar *)e.end;
- while(p < pe){
- if(cmd == 'r'){
- Bputc(bout, *p++);
- continue;
- }
- c = *p++;
- r = intab[c];
- if(r == '$')
- r = '\n';
- if(r == '\n'){
- ++lineno;
- if(cmd == 'h' && lineno > 2)
- break;
- }
- if(cmd == 'h' && lineno < 2)
- continue;
- if(r > MULTIE){
- if(debug)
- Bprint(bout, "\\%.2ux", c);
- continue;
- }
- if(r < Runeself)
- Bputc(bout, r);
- else
- Bputrune(bout, r);
- }
- outnl(0);
- }
- long
- robertnextflex(long fromoff)
- {
- int c;
- if(Bseek(bdict, fromoff, 0) < 0)
- return -1;
- while((c = Bgetc(bdict)) >= 0){
- if(c == '$')
- return Boffset(bdict);
- }
- return -1;
- }
- static Biobuf *
- Bouvrir(char *fichier)
- {
- Biobuf *db;
- db = Bopen(fichier, OREAD);
- if(db == 0){
- fprint(2, "%s: impossible d'ouvrir %s: %r\n", argv0, fichier);
- exits("ouvrir");
- }
- return db;
- }
|