1 08708877 2003-11-25 devnull #include <u.h>
2 08708877 2003-11-25 devnull #include <libc.h>
3 08708877 2003-11-25 devnull #include <bio.h>
4 08708877 2003-11-25 devnull #include "dict.h"
7 08708877 2003-11-25 devnull * Robert Électronique.
12 08708877 2003-11-25 devnull CIT = MULTIE+1, /* citation ptr followed by long int and ascii label */
13 08708877 2003-11-25 devnull BROM, /* bold roman */
14 08708877 2003-11-25 devnull ITON, /* start italic */
15 08708877 2003-11-25 devnull ROM, /* roman */
16 08708877 2003-11-25 devnull SYM, /* symbol font? */
17 08708877 2003-11-25 devnull HEL, /* helvetica */
18 08708877 2003-11-25 devnull BHEL, /* helvetica bold */
19 08708877 2003-11-25 devnull SMALL, /* smaller? */
20 08708877 2003-11-25 devnull ITOFF, /* end italic */
21 08708877 2003-11-25 devnull SUP, /* following character is superscript */
22 08708877 2003-11-25 devnull SUB /* following character is subscript */
25 08708877 2003-11-25 devnull static Rune intab[256] = {
26 08708877 2003-11-25 devnull /*0*/ /*1*/ /*2*/ /*3*/ /*4*/ /*5*/ /*6*/ /*7*/
27 08708877 2003-11-25 devnull /*00*/ NONE, 0x263a, 0x263b, 0x2665, 0x2666, 0x2663, 0x2660, 0x2022,
28 e2d62fb9 2005-07-13 devnull 0x25d8, 0x298,'\n', 0x2642, 0x2640, 0x266a, 0x266b, 0x203b,
29 08708877 2003-11-25 devnull /*10*/ 0x21e8, 0x21e6, 0x2195, 0x203c, 0xb6, 0xa7, 0x2043, 0x21a8,
30 08708877 2003-11-25 devnull 0x2191, 0x2193, 0x2192, 0x2190, 0x2319, 0x2194, 0x25b4, 0x25be,
31 e2d62fb9 2005-07-13 devnull /*20*/ 0x20, 0x21, 0x22, 0x23, 0x24, 0x25, 0x26,'\'',
32 08708877 2003-11-25 devnull 0x28, 0x29, 0x2a, 0x2b, 0x2c, 0x2d, 0x2e, 0x2f,
33 08708877 2003-11-25 devnull /*30*/ 0x30, 0x31, 0x32, 0x33, 0x34, 0x35, 0x36, 0x37,
34 08708877 2003-11-25 devnull 0x38, 0x39, 0x3a, 0x3b, 0x3c, 0x3d, 0x3e, 0x3f,
35 08708877 2003-11-25 devnull /*40*/ 0x40, 0x41, 0x42, 0x43, 0x44, 0x45, 0x46, 0x47,
36 e2d62fb9 2005-07-13 devnull 0x48, 0x49, 0x4a, 0x4b,'L', 0x4d, 0x4e, 0x4f,
37 08708877 2003-11-25 devnull /*50*/ 0x50, 0x51, 0x52, 0x53, 0x54, 0x55, 0x56, 0x57,
38 e2d62fb9 2005-07-13 devnull 0x58, 0x59, 0x5a, 0x5b,'\\', 0x5d, 0x5e, 0x5f,
39 08708877 2003-11-25 devnull /*60*/ 0x60, 0x61, 0x62, 0x63, 0x64, 0x65, 0x66, 0x67,
40 08708877 2003-11-25 devnull 0x68, 0x69, 0x6a, 0x6b, 0x6c, 0x6d, 0x6e, 0x6f,
41 08708877 2003-11-25 devnull /*70*/ 0x70, 0x71, 0x72, 0x73, 0x74, 0x75, 0x76, 0x77,
42 08708877 2003-11-25 devnull 0x78, 0x79, 0x7a, 0x7b, 0x7c, 0x7d, 0x7e, 0x7f,
43 08708877 2003-11-25 devnull /*80*/ 0xc7, 0xfc, 0xe9, 0xe2, 0xe4, 0xe0, 0xe5, 0xe7,
44 08708877 2003-11-25 devnull 0xea, 0xeb, 0xe8, 0xef, 0xee, 0xec, 0xc4, 0xc5,
45 08708877 2003-11-25 devnull /*90*/ 0xc9, 0xe6, 0xc6, 0xf4, 0xf6, 0xf2, 0xfb, 0xf9,
46 08708877 2003-11-25 devnull 0xff, 0xd6, 0xdc, 0xa2, 0xa3, 0xa5, 0x20a7, 0x283,
47 08708877 2003-11-25 devnull /*a0*/ 0xe1, 0xed, 0xf3, 0xfa, 0xf1, 0xd1, 0xaa, 0xba,
48 08708877 2003-11-25 devnull 0xbf, 0x2310, 0xac, 0xbd, 0xbc, 0xa1, 0xab, 0xbb,
49 08708877 2003-11-25 devnull /*b0*/ NONE, NONE, NONE, NONE, NONE, NONE, NONE, NONE,
50 08708877 2003-11-25 devnull NONE, NONE, NONE, NONE, NONE, NONE, NONE, NONE,
51 08708877 2003-11-25 devnull /*c0*/ NONE, NONE, NONE, NONE, NONE, NONE, NONE, NONE,
52 08708877 2003-11-25 devnull CIT, BROM, NONE, ITON, ROM, SYM, HEL, BHEL,
53 08708877 2003-11-25 devnull /*d0*/ NONE, SMALL, ITOFF, SUP, SUB, NONE, NONE, NONE,
54 08708877 2003-11-25 devnull NONE, NONE, NONE, NONE, NONE, NONE, NONE, NONE,
55 08708877 2003-11-25 devnull /*e0*/ 0x3b1, 0xdf, 0x3b3, 0x3c0, 0x3a3, 0x3c3, 0xb5, 0x3c4,
56 08708877 2003-11-25 devnull 0x3a6, 0x398, 0x3a9, 0x3b4, 0x221e, 0xd8, 0x3b5, 0x2229,
57 08708877 2003-11-25 devnull /*f0*/ 0x2261, 0xb1, 0x2265, 0x2264, 0x2320, 0x2321, 0xf7, 0x2248,
58 cbeb0b26 2006-04-01 devnull 0xb0, 0x2219, 0xb7, 0x221a, 0x207f, 0xb2, 0x220e, 0xa0
61 65d5010e 2004-03-26 devnull static Rune suptab[256];
63 65d5010e 2004-03-26 devnull static void
64 65d5010e 2004-03-26 devnull initsuptab(void)
66 65d5010e 2004-03-26 devnull suptab['0']= 0x2070; suptab['1']= 0x2071; suptab['2']= 0x2072; suptab['3']= 0x2073;
67 65d5010e 2004-03-26 devnull suptab['4']= 0x2074; suptab['5']= 0x2075; suptab['6']= 0x2076; suptab['7']= 0x2077;
68 65d5010e 2004-03-26 devnull suptab['8']= 0x2078; suptab['9']= 0x2079; suptab['+']= 0x207a; suptab['-']= 0x207b;
69 65d5010e 2004-03-26 devnull suptab['=']= 0x207c; suptab['(']= 0x207d; suptab[')']= 0x207e; suptab['a']= 0xaa;
70 65d5010e 2004-03-26 devnull suptab['n']= 0x207f; suptab['o']= 0xba;
73 65d5010e 2004-03-26 devnull static Rune subtab[256];
75 65d5010e 2004-03-26 devnull static void
76 65d5010e 2004-03-26 devnull initsubtab(void)
78 65d5010e 2004-03-26 devnull subtab['0']= 0x2080; subtab['1']= 0x2081; subtab['2']= 0x2082; subtab['3']= 0x2083;
79 65d5010e 2004-03-26 devnull subtab['4']= 0x2084; subtab['5']= 0x2085; subtab['6']= 0x2086; subtab['7']= 0x2087;
80 65d5010e 2004-03-26 devnull subtab['8']= 0x2088; subtab['9']= 0x2089; subtab['+']= 0x208a; subtab['-']= 0x208b;
81 65d5010e 2004-03-26 devnull subtab['=']= 0x208c; subtab['(']= 0x208d; subtab[')']= 0x208e;
84 08708877 2003-11-25 devnull #define GSHORT(p) (((p)[0]<<8) | (p)[1])
85 08708877 2003-11-25 devnull #define GLONG(p) (((p)[0]<<24) | ((p)[1]<<16) | ((p)[2]<<8) | (p)[3])
87 ebda53e1 2007-08-22 rsc static char cfile[] = "robert/cits.rob";
88 ebda53e1 2007-08-22 rsc static char dfile[] = "robert/defs.rob";
89 ebda53e1 2007-08-22 rsc static char efile[] = "robert/etym.rob";
90 ebda53e1 2007-08-22 rsc static char kfile[] = "robert/_phon";
92 08708877 2003-11-25 devnull static Biobuf * cb;
93 08708877 2003-11-25 devnull static Biobuf * db;
94 08708877 2003-11-25 devnull static Biobuf * eb;
96 08708877 2003-11-25 devnull static Biobuf * Bouvrir(char*);
97 08708877 2003-11-25 devnull static void citation(int, int);
98 08708877 2003-11-25 devnull static void robertprintentry(Entry*, Entry*, int);
101 08708877 2003-11-25 devnull robertindexentry(Entry e, int cmd)
103 08708877 2003-11-25 devnull uchar *p = (uchar *)e.start;
104 08708877 2003-11-25 devnull long ea, el, da, dl, fa;
105 08708877 2003-11-25 devnull Entry def, etym;
107 08708877 2003-11-25 devnull ea = GLONG(&p[0]);
108 08708877 2003-11-25 devnull el = GSHORT(&p[4]);
109 08708877 2003-11-25 devnull da = GLONG(&p[6]);
110 08708877 2003-11-25 devnull dl = GSHORT(&p[10]);
111 08708877 2003-11-25 devnull fa = GLONG(&p[12]);
112 08708877 2003-11-25 devnull USED(fa);
114 08708877 2003-11-25 devnull if(db == 0)
115 08708877 2003-11-25 devnull db = Bouvrir(dfile);
116 08708877 2003-11-25 devnull def.start = malloc(dl+1);
117 08708877 2003-11-25 devnull def.end = def.start + dl;
118 08708877 2003-11-25 devnull def.doff = da;
119 08708877 2003-11-25 devnull Bseek(db, da, 0);
120 08708877 2003-11-25 devnull Bread(db, def.start, dl);
121 08708877 2003-11-25 devnull *def.end = 0;
122 08708877 2003-11-25 devnull if(cmd == 'h'){
123 08708877 2003-11-25 devnull robertprintentry(&def, 0, cmd);
125 08708877 2003-11-25 devnull if(eb == 0)
126 08708877 2003-11-25 devnull eb = Bouvrir(efile);
127 08708877 2003-11-25 devnull etym.start = malloc(el+1);
128 08708877 2003-11-25 devnull etym.end = etym.start + el;
129 08708877 2003-11-25 devnull etym.doff = ea;
130 08708877 2003-11-25 devnull Bseek(eb, ea, 0);
131 08708877 2003-11-25 devnull Bread(eb, etym.start, el);
132 08708877 2003-11-25 devnull *etym.end = 0;
133 08708877 2003-11-25 devnull robertprintentry(&def, &etym, cmd);
134 08708877 2003-11-25 devnull free(etym.start);
136 08708877 2003-11-25 devnull free(def.start);
139 08708877 2003-11-25 devnull static void
140 08708877 2003-11-25 devnull robertprintentry(Entry *def, Entry *etym, int cmd)
142 08708877 2003-11-25 devnull uchar *p, *pe;
143 08708877 2003-11-25 devnull Rune r; int c, n;
144 08708877 2003-11-25 devnull int baseline = 0;
145 08708877 2003-11-25 devnull int lineno = 0;
146 08708877 2003-11-25 devnull int cit = 0;
148 65d5010e 2004-03-26 devnull if(suptab['0'] == 0)
149 65d5010e 2004-03-26 devnull initsuptab();
150 65d5010e 2004-03-26 devnull if(subtab['0'] == 0)
151 65d5010e 2004-03-26 devnull initsubtab();
153 08708877 2003-11-25 devnull p = (uchar *)def->start;
154 08708877 2003-11-25 devnull pe = (uchar *)def->end;
155 08708877 2003-11-25 devnull while(p < pe){
156 08708877 2003-11-25 devnull if(cmd == 'r'){
157 08708877 2003-11-25 devnull outchar(*p++);
158 08708877 2003-11-25 devnull continue;
160 08708877 2003-11-25 devnull c = *p++;
161 08708877 2003-11-25 devnull switch(r = intab[c]){ /* assign = */
162 08708877 2003-11-25 devnull case BROM:
163 08708877 2003-11-25 devnull case ITON:
164 08708877 2003-11-25 devnull case ROM:
165 08708877 2003-11-25 devnull case SYM:
166 08708877 2003-11-25 devnull case HEL:
167 08708877 2003-11-25 devnull case BHEL:
168 08708877 2003-11-25 devnull case SMALL:
169 08708877 2003-11-25 devnull case ITOFF:
170 08708877 2003-11-25 devnull case NONE:
171 08708877 2003-11-25 devnull if(debug)
172 08708877 2003-11-25 devnull outprint("\\%.2ux", c);
173 08708877 2003-11-25 devnull baseline = 0;
176 08708877 2003-11-25 devnull case SUP:
177 08708877 2003-11-25 devnull baseline = 1;
180 08708877 2003-11-25 devnull case SUB:
181 08708877 2003-11-25 devnull baseline = -1;
184 08708877 2003-11-25 devnull case CIT:
185 08708877 2003-11-25 devnull n = p[0] | (p[1]<<8) | (p[2]<<16) | (p[3]<<24);
187 08708877 2003-11-25 devnull if(debug)
188 08708877 2003-11-25 devnull outprint("[%d]", n);
189 08708877 2003-11-25 devnull while(*p == ' ' || ('0'<=*p && *p<='9') || *p == '.'){
190 08708877 2003-11-25 devnull if(debug)
191 08708877 2003-11-25 devnull outchar(*p);
195 08708877 2003-11-25 devnull outnl(2);
196 08708877 2003-11-25 devnull citation(n, cmd);
197 08708877 2003-11-25 devnull baseline = 0;
200 08708877 2003-11-25 devnull case '\n':
201 08708877 2003-11-25 devnull outnl(0);
202 08708877 2003-11-25 devnull baseline = 0;
203 08708877 2003-11-25 devnull ++lineno;
206 08708877 2003-11-25 devnull default:
207 08708877 2003-11-25 devnull if(baseline > 0 && r < nelem(suptab))
208 08708877 2003-11-25 devnull r = suptab[r];
209 08708877 2003-11-25 devnull else if(baseline < 0 && r < nelem(subtab))
210 08708877 2003-11-25 devnull r = subtab[r];
211 08708877 2003-11-25 devnull if(cit){
212 08708877 2003-11-25 devnull outchar('\n');
213 08708877 2003-11-25 devnull cit = 0;
215 08708877 2003-11-25 devnull outrune(r);
216 08708877 2003-11-25 devnull baseline = 0;
219 08708877 2003-11-25 devnull if(r == '\n'){
220 08708877 2003-11-25 devnull if(cmd == 'h')
222 08708877 2003-11-25 devnull if(lineno == 1 && etym)
223 08708877 2003-11-25 devnull robertprintentry(etym, 0, cmd);
226 08708877 2003-11-25 devnull outnl(0);
229 08708877 2003-11-25 devnull static void
230 08708877 2003-11-25 devnull citation(int addr, int cmd)
232 08708877 2003-11-25 devnull Entry cit;
234 08708877 2003-11-25 devnull if(cb == 0)
235 08708877 2003-11-25 devnull cb = Bouvrir(cfile);
236 08708877 2003-11-25 devnull Bseek(cb, addr, 0);
237 08708877 2003-11-25 devnull cit.start = Brdline(cb, 0xc8);
238 08708877 2003-11-25 devnull cit.end = cit.start + Blinelen(cb) - 1;
239 08708877 2003-11-25 devnull cit.doff = addr;
240 08708877 2003-11-25 devnull *cit.end = 0;
241 08708877 2003-11-25 devnull robertprintentry(&cit, 0, cmd);
245 08708877 2003-11-25 devnull robertnextoff(long fromoff)
247 08708877 2003-11-25 devnull return (fromoff & ~15) + 16;
251 08708877 2003-11-25 devnull robertprintkey(void)
253 08708877 2003-11-25 devnull Biobuf *db;
254 08708877 2003-11-25 devnull char *l;
256 08708877 2003-11-25 devnull db = Bouvrir(kfile);
257 08708877 2003-11-25 devnull while(l = Brdline(db, '\n')) /* assign = */
258 08708877 2003-11-25 devnull Bwrite(bout, l, Blinelen(db));
259 08708877 2003-11-25 devnull Bterm(db);
263 08708877 2003-11-25 devnull robertflexentry(Entry e, int cmd)
265 08708877 2003-11-25 devnull uchar *p, *pe;
266 08708877 2003-11-25 devnull Rune r; int c;
267 08708877 2003-11-25 devnull int lineno = 1;
269 08708877 2003-11-25 devnull p = (uchar *)e.start;
270 08708877 2003-11-25 devnull pe = (uchar *)e.end;
271 08708877 2003-11-25 devnull while(p < pe){
272 08708877 2003-11-25 devnull if(cmd == 'r'){
273 08708877 2003-11-25 devnull Bputc(bout, *p++);
274 08708877 2003-11-25 devnull continue;
276 08708877 2003-11-25 devnull c = *p++;
277 08708877 2003-11-25 devnull r = intab[c];
278 08708877 2003-11-25 devnull if(r == '$')
279 08708877 2003-11-25 devnull r = '\n';
280 08708877 2003-11-25 devnull if(r == '\n'){
281 08708877 2003-11-25 devnull ++lineno;
282 08708877 2003-11-25 devnull if(cmd == 'h' && lineno > 2)
285 08708877 2003-11-25 devnull if(cmd == 'h' && lineno < 2)
286 08708877 2003-11-25 devnull continue;
287 08708877 2003-11-25 devnull if(r > MULTIE){
288 08708877 2003-11-25 devnull if(debug)
289 08708877 2003-11-25 devnull Bprint(bout, "\\%.2ux", c);
290 08708877 2003-11-25 devnull continue;
292 08708877 2003-11-25 devnull if(r < Runeself)
293 08708877 2003-11-25 devnull Bputc(bout, r);
295 08708877 2003-11-25 devnull Bputrune(bout, r);
297 08708877 2003-11-25 devnull outnl(0);
301 08708877 2003-11-25 devnull robertnextflex(long fromoff)
305 08708877 2003-11-25 devnull if(Bseek(bdict, fromoff, 0) < 0)
306 08708877 2003-11-25 devnull return -1;
307 08708877 2003-11-25 devnull while((c = Bgetc(bdict)) >= 0){
308 08708877 2003-11-25 devnull if(c == '$')
309 08708877 2003-11-25 devnull return Boffset(bdict);
311 08708877 2003-11-25 devnull return -1;
314 08708877 2003-11-25 devnull static Biobuf *
315 08708877 2003-11-25 devnull Bouvrir(char *fichier)
317 08708877 2003-11-25 devnull Biobuf *db;
319 ebda53e1 2007-08-22 rsc fichier = dictfile(fichier);
320 08708877 2003-11-25 devnull db = Bopen(fichier, OREAD);
321 08708877 2003-11-25 devnull if(db == 0){
322 08708877 2003-11-25 devnull fprint(2, "%s: impossible d'ouvrir %s: %r\n", argv0, fichier);
323 08708877 2003-11-25 devnull exits("ouvrir");
325 08708877 2003-11-25 devnull return db;