op public repos

Blame

Date:: Wed Aug 22 13:00:26 2007 UTC
Message:: merge
Actions:: History | Blob | Raw File
  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"
  5 08708877 2003-11-25 devnull 
  6 08708877 2003-11-25 devnull /*
  7 08708877 2003-11-25 devnull  * Robert Électronique.
  8 08708877 2003-11-25 devnull  */
  9 08708877 2003-11-25 devnull 
 10 08708877 2003-11-25 devnull enum
 11 08708877 2003-11-25 devnull {
 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 */
 23 08708877 2003-11-25 devnull };
 24 08708877 2003-11-25 devnull 
 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
 59 08708877 2003-11-25 devnull };
 60 08708877 2003-11-25 devnull 
 61 65d5010e 2004-03-26 devnull static Rune suptab[256];
 62 08708877 2003-11-25 devnull 
 63 65d5010e 2004-03-26 devnull static void
 64 65d5010e 2004-03-26 devnull initsuptab(void)
 65 65d5010e 2004-03-26 devnull {
 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;
 71 65d5010e 2004-03-26 devnull }
 72 65d5010e 2004-03-26 devnull 
 73 65d5010e 2004-03-26 devnull static Rune subtab[256];
 74 08708877 2003-11-25 devnull 
 75 65d5010e 2004-03-26 devnull static void
 76 65d5010e 2004-03-26 devnull initsubtab(void)
 77 65d5010e 2004-03-26 devnull {
 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;
 82 65d5010e 2004-03-26 devnull }
 83 65d5010e 2004-03-26 devnull 
 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])
 86 08708877 2003-11-25 devnull 
 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";
 91 08708877 2003-11-25 devnull 
 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;
 95 08708877 2003-11-25 devnull 
 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);
 99 08708877 2003-11-25 devnull 
100 08708877 2003-11-25 devnull void
101 08708877 2003-11-25 devnull robertindexentry(Entry e, int cmd)
102 08708877 2003-11-25 devnull {
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;
106 08708877 2003-11-25 devnull 
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);
113 08708877 2003-11-25 devnull 
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);
124 08708877 2003-11-25 devnull 	}else{
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);
135 08708877 2003-11-25 devnull 	}
136 08708877 2003-11-25 devnull 	free(def.start);
137 08708877 2003-11-25 devnull }
138 08708877 2003-11-25 devnull 
139 08708877 2003-11-25 devnull static void
140 08708877 2003-11-25 devnull robertprintentry(Entry *def, Entry *etym, int cmd)
141 08708877 2003-11-25 devnull {
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;
147 08708877 2003-11-25 devnull 
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();
152 65d5010e 2004-03-26 devnull 
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;
159 08708877 2003-11-25 devnull 		}
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;
174 08708877 2003-11-25 devnull 			break;
175 08708877 2003-11-25 devnull 
176 08708877 2003-11-25 devnull 		case SUP:
177 08708877 2003-11-25 devnull 			baseline = 1;
178 08708877 2003-11-25 devnull 			break;
179 08708877 2003-11-25 devnull 
180 08708877 2003-11-25 devnull 		case SUB:
181 08708877 2003-11-25 devnull 			baseline = -1;
182 08708877 2003-11-25 devnull 			break;
183 08708877 2003-11-25 devnull 
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);
186 08708877 2003-11-25 devnull 			p += 4;
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);
192 08708877 2003-11-25 devnull 				++p;
193 08708877 2003-11-25 devnull 			}
194 08708877 2003-11-25 devnull 			++cit;
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;
198 08708877 2003-11-25 devnull 			break;
199 08708877 2003-11-25 devnull 
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;
204 08708877 2003-11-25 devnull 			break;
205 08708877 2003-11-25 devnull 
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;
214 08708877 2003-11-25 devnull 			}
215 08708877 2003-11-25 devnull 			outrune(r);
216 08708877 2003-11-25 devnull 			baseline = 0;
217 08708877 2003-11-25 devnull 			break;
218 08708877 2003-11-25 devnull 		}
219 08708877 2003-11-25 devnull 		if(r == '\n'){
220 08708877 2003-11-25 devnull 			if(cmd == 'h')
221 08708877 2003-11-25 devnull 				break;
222 08708877 2003-11-25 devnull 			if(lineno == 1 && etym)
223 08708877 2003-11-25 devnull 				robertprintentry(etym, 0, cmd);
224 08708877 2003-11-25 devnull 		}
225 08708877 2003-11-25 devnull 	}
226 08708877 2003-11-25 devnull 	outnl(0);
227 08708877 2003-11-25 devnull }
228 08708877 2003-11-25 devnull 
229 08708877 2003-11-25 devnull static void
230 08708877 2003-11-25 devnull citation(int addr, int cmd)
231 08708877 2003-11-25 devnull {
232 08708877 2003-11-25 devnull 	Entry cit;
233 08708877 2003-11-25 devnull 
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);
242 08708877 2003-11-25 devnull }
243 08708877 2003-11-25 devnull 
244 08708877 2003-11-25 devnull long
245 08708877 2003-11-25 devnull robertnextoff(long fromoff)
246 08708877 2003-11-25 devnull {
247 08708877 2003-11-25 devnull 	return (fromoff & ~15) + 16;
248 08708877 2003-11-25 devnull }
249 08708877 2003-11-25 devnull 
250 08708877 2003-11-25 devnull void
251 08708877 2003-11-25 devnull robertprintkey(void)
252 08708877 2003-11-25 devnull {
253 08708877 2003-11-25 devnull 	Biobuf *db;
254 08708877 2003-11-25 devnull 	char *l;
255 08708877 2003-11-25 devnull 
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);
260 08708877 2003-11-25 devnull }
261 08708877 2003-11-25 devnull 
262 08708877 2003-11-25 devnull void
263 08708877 2003-11-25 devnull robertflexentry(Entry e, int cmd)
264 08708877 2003-11-25 devnull {
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;
268 08708877 2003-11-25 devnull 
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;
275 08708877 2003-11-25 devnull 		}
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)
283 08708877 2003-11-25 devnull 				break;
284 08708877 2003-11-25 devnull 		}
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;
291 08708877 2003-11-25 devnull 		}
292 08708877 2003-11-25 devnull 		if(r < Runeself)
293 08708877 2003-11-25 devnull 			Bputc(bout, r);
294 08708877 2003-11-25 devnull 		else
295 08708877 2003-11-25 devnull 			Bputrune(bout, r);
296 08708877 2003-11-25 devnull 	}
297 08708877 2003-11-25 devnull 	outnl(0);
298 08708877 2003-11-25 devnull }
299 08708877 2003-11-25 devnull 
300 08708877 2003-11-25 devnull long
301 08708877 2003-11-25 devnull robertnextflex(long fromoff)
302 08708877 2003-11-25 devnull {
303 08708877 2003-11-25 devnull 	int c;
304 08708877 2003-11-25 devnull 
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);
310 08708877 2003-11-25 devnull 	}
311 08708877 2003-11-25 devnull 	return -1;
312 08708877 2003-11-25 devnull }
313 08708877 2003-11-25 devnull 
314 08708877 2003-11-25 devnull static Biobuf *
315 08708877 2003-11-25 devnull Bouvrir(char *fichier)
316 08708877 2003-11-25 devnull {
317 08708877 2003-11-25 devnull 	Biobuf *db;
318 08708877 2003-11-25 devnull 
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");
324 08708877 2003-11-25 devnull 	}
325 08708877 2003-11-25 devnull 	return db;
326 08708877 2003-11-25 devnull }