1 b3994ec5 2003-12-11 devnull #include <u.h>
  2 b3994ec5 2003-12-11 devnull #include <libc.h>
  3 b3994ec5 2003-12-11 devnull #include <draw.h>
  4 b3994ec5 2003-12-11 devnull #include <thread.h>
  5 b3994ec5 2003-12-11 devnull #include <cursor.h>
  6 b3994ec5 2003-12-11 devnull #include <mouse.h>
  7 b3994ec5 2003-12-11 devnull #include <keyboard.h>
  8 b3994ec5 2003-12-11 devnull #include <frame.h>
  9 b3994ec5 2003-12-11 devnull #include <fcall.h>
 10 b3994ec5 2003-12-11 devnull #include <plumb.h>
 11 b3994ec5 2003-12-11 devnull #include "dat.h"
 12 b3994ec5 2003-12-11 devnull #include "fns.h"
 13 b3994ec5 2003-12-11 devnull 
 14 b3994ec5 2003-12-11 devnull enum
 15 b3994ec5 2003-12-11 devnull {
 16 cbeb0b26 2006-04-01 devnull 	Slop = 100	/* room to grow with reallocation */
 17 b3994ec5 2003-12-11 devnull };
 18 b3994ec5 2003-12-11 devnull 
 19 b3994ec5 2003-12-11 devnull static
 20 b3994ec5 2003-12-11 devnull void
 21 b3994ec5 2003-12-11 devnull sizecache(Buffer *b, uint n)
 22 b3994ec5 2003-12-11 devnull {
 23 b3994ec5 2003-12-11 devnull 	if(n <= b->cmax)
 24 b3994ec5 2003-12-11 devnull 		return;
 25 b3994ec5 2003-12-11 devnull 	b->cmax = n+Slop;
 26 b3994ec5 2003-12-11 devnull 	b->c = runerealloc(b->c, b->cmax);
 27 b3994ec5 2003-12-11 devnull }
 28 b3994ec5 2003-12-11 devnull 
 29 b3994ec5 2003-12-11 devnull static
 30 b3994ec5 2003-12-11 devnull void
 31 b3994ec5 2003-12-11 devnull addblock(Buffer *b, uint i, uint n)
 32 b3994ec5 2003-12-11 devnull {
 33 b3994ec5 2003-12-11 devnull 	if(i > b->nbl)
 34 b3994ec5 2003-12-11 devnull 		error("internal error: addblock");
 35 b3994ec5 2003-12-11 devnull 
 36 b3994ec5 2003-12-11 devnull 	b->bl = realloc(b->bl, (b->nbl+1)*sizeof b->bl[0]);
 37 b3994ec5 2003-12-11 devnull 	if(i < b->nbl)
 38 b3994ec5 2003-12-11 devnull 		memmove(b->bl+i+1, b->bl+i, (b->nbl-i)*sizeof(Block*));
 39 b3994ec5 2003-12-11 devnull 	b->bl[i] = disknewblock(disk, n);
 40 b3994ec5 2003-12-11 devnull 	b->nbl++;
 41 b3994ec5 2003-12-11 devnull }
 42 b3994ec5 2003-12-11 devnull 
 43 b3994ec5 2003-12-11 devnull static
 44 b3994ec5 2003-12-11 devnull void
 45 b3994ec5 2003-12-11 devnull delblock(Buffer *b, uint i)
 46 b3994ec5 2003-12-11 devnull {
 47 b3994ec5 2003-12-11 devnull 	if(i >= b->nbl)
 48 b3994ec5 2003-12-11 devnull 		error("internal error: delblock");
 49 b3994ec5 2003-12-11 devnull 
 50 b3994ec5 2003-12-11 devnull 	diskrelease(disk, b->bl[i]);
 51 b3994ec5 2003-12-11 devnull 	b->nbl--;
 52 b3994ec5 2003-12-11 devnull 	if(i < b->nbl)
 53 b3994ec5 2003-12-11 devnull 		memmove(b->bl+i, b->bl+i+1, (b->nbl-i)*sizeof(Block*));
 54 b3994ec5 2003-12-11 devnull 	b->bl = realloc(b->bl, b->nbl*sizeof b->bl[0]);
 55 b3994ec5 2003-12-11 devnull }
 56 b3994ec5 2003-12-11 devnull 
 57 b3994ec5 2003-12-11 devnull /*
 58 b3994ec5 2003-12-11 devnull  * Move cache so b->cq <= q0 < b->cq+b->cnc.
 59 b3994ec5 2003-12-11 devnull  * If at very end, q0 will fall on end of cache block.
 60 b3994ec5 2003-12-11 devnull  */
 61 b3994ec5 2003-12-11 devnull 
 62 b3994ec5 2003-12-11 devnull static
 63 b3994ec5 2003-12-11 devnull void
 64 b3994ec5 2003-12-11 devnull flush(Buffer *b)
 65 b3994ec5 2003-12-11 devnull {
 66 b3994ec5 2003-12-11 devnull 	if(b->cdirty || b->cnc==0){
 67 b3994ec5 2003-12-11 devnull 		if(b->cnc == 0)
 68 b3994ec5 2003-12-11 devnull 			delblock(b, b->cbi);
 69 b3994ec5 2003-12-11 devnull 		else
 70 b3994ec5 2003-12-11 devnull 			diskwrite(disk, &b->bl[b->cbi], b->c, b->cnc);
 71 b3994ec5 2003-12-11 devnull 		b->cdirty = FALSE;
 72 b3994ec5 2003-12-11 devnull 	}
 73 b3994ec5 2003-12-11 devnull }
 74 b3994ec5 2003-12-11 devnull 
 75 b3994ec5 2003-12-11 devnull static
 76 b3994ec5 2003-12-11 devnull void
 77 b3994ec5 2003-12-11 devnull setcache(Buffer *b, uint q0)
 78 b3994ec5 2003-12-11 devnull {
 79 b3994ec5 2003-12-11 devnull 	Block **blp, *bl;
 80 b3994ec5 2003-12-11 devnull 	uint i, q;
 81 b3994ec5 2003-12-11 devnull 
 82 b3994ec5 2003-12-11 devnull 	if(q0 > b->nc)
 83 b3994ec5 2003-12-11 devnull 		error("internal error: setcache");
 84 b3994ec5 2003-12-11 devnull 	/*
 85 b3994ec5 2003-12-11 devnull 	 * flush and reload if q0 is not in cache.
 86 b3994ec5 2003-12-11 devnull 	 */
 87 b3994ec5 2003-12-11 devnull 	if(b->nc == 0 || (b->cq<=q0 && q0<b->cq+b->cnc))
 88 b3994ec5 2003-12-11 devnull 		return;
 89 b3994ec5 2003-12-11 devnull 	/*
 90 b3994ec5 2003-12-11 devnull 	 * if q0 is at end of file and end of cache, continue to grow this block
 91 b3994ec5 2003-12-11 devnull 	 */
 92 b3994ec5 2003-12-11 devnull 	if(q0==b->nc && q0==b->cq+b->cnc && b->cnc<Maxblock)
 93 b3994ec5 2003-12-11 devnull 		return;
 94 b3994ec5 2003-12-11 devnull 	flush(b);
 95 b3994ec5 2003-12-11 devnull 	/* find block */
 96 b3994ec5 2003-12-11 devnull 	if(q0 < b->cq){
 97 b3994ec5 2003-12-11 devnull 		q = 0;
 98 b3994ec5 2003-12-11 devnull 		i = 0;
 99 b3994ec5 2003-12-11 devnull 	}else{
100 b3994ec5 2003-12-11 devnull 		q = b->cq;
101 b3994ec5 2003-12-11 devnull 		i = b->cbi;
102 b3994ec5 2003-12-11 devnull 	}
103 b3994ec5 2003-12-11 devnull 	blp = &b->bl[i];
104 b3994ec5 2003-12-11 devnull 	while(q+(*blp)->u.n <= q0 && q+(*blp)->u.n < b->nc){
105 b3994ec5 2003-12-11 devnull 		q += (*blp)->u.n;
106 b3994ec5 2003-12-11 devnull 		i++;
107 b3994ec5 2003-12-11 devnull 		blp++;
108 b3994ec5 2003-12-11 devnull 		if(i >= b->nbl)
109 b3994ec5 2003-12-11 devnull 			error("block not found");
110 b3994ec5 2003-12-11 devnull 	}
111 b3994ec5 2003-12-11 devnull 	bl = *blp;
112 b3994ec5 2003-12-11 devnull 	/* remember position */
113 b3994ec5 2003-12-11 devnull 	b->cbi = i;
114 b3994ec5 2003-12-11 devnull 	b->cq = q;
115 b3994ec5 2003-12-11 devnull 	sizecache(b, bl->u.n);
116 b3994ec5 2003-12-11 devnull 	b->cnc = bl->u.n;
117 b3994ec5 2003-12-11 devnull 	/*read block*/
118 b3994ec5 2003-12-11 devnull 	diskread(disk, bl, b->c, b->cnc);
119 b3994ec5 2003-12-11 devnull }
120 b3994ec5 2003-12-11 devnull 
121 b3994ec5 2003-12-11 devnull void
122 b3994ec5 2003-12-11 devnull bufinsert(Buffer *b, uint q0, Rune *s, uint n)
123 b3994ec5 2003-12-11 devnull {
124 b3994ec5 2003-12-11 devnull 	uint i, m, t, off;
125 b3994ec5 2003-12-11 devnull 
126 b3994ec5 2003-12-11 devnull 	if(q0 > b->nc)
127 b3994ec5 2003-12-11 devnull 		error("internal error: bufinsert");
128 b3994ec5 2003-12-11 devnull 
129 b3994ec5 2003-12-11 devnull 	while(n > 0){
130 b3994ec5 2003-12-11 devnull 		setcache(b, q0);
131 b3994ec5 2003-12-11 devnull 		off = q0-b->cq;
132 b3994ec5 2003-12-11 devnull 		if(b->cnc+n <= Maxblock){
133 b3994ec5 2003-12-11 devnull 			/* Everything fits in one block. */
134 b3994ec5 2003-12-11 devnull 			t = b->cnc+n;
135 b3994ec5 2003-12-11 devnull 			m = n;
136 b3994ec5 2003-12-11 devnull 			if(b->bl == nil){	/* allocate */
137 b3994ec5 2003-12-11 devnull 				if(b->cnc != 0)
138 b3994ec5 2003-12-11 devnull 					error("internal error: bufinsert1 cnc!=0");
139 b3994ec5 2003-12-11 devnull 				addblock(b, 0, t);
140 b3994ec5 2003-12-11 devnull 				b->cbi = 0;
141 b3994ec5 2003-12-11 devnull 			}
142 b3994ec5 2003-12-11 devnull 			sizecache(b, t);
143 b3994ec5 2003-12-11 devnull 			runemove(b->c+off+m, b->c+off, b->cnc-off);
144 b3994ec5 2003-12-11 devnull 			runemove(b->c+off, s, m);
145 b3994ec5 2003-12-11 devnull 			b->cnc = t;
146 b3994ec5 2003-12-11 devnull 			goto Tail;
147 b3994ec5 2003-12-11 devnull 		}
148 b3994ec5 2003-12-11 devnull 		/*
149 b3994ec5 2003-12-11 devnull 		 * We must make a new block.  If q0 is at
150 b3994ec5 2003-12-11 devnull 		 * the very beginning or end of this block,
151 b3994ec5 2003-12-11 devnull 		 * just make a new block and fill it.
152 b3994ec5 2003-12-11 devnull 		 */
153 b3994ec5 2003-12-11 devnull 		if(q0==b->cq || q0==b->cq+b->cnc){
154 b3994ec5 2003-12-11 devnull 			if(b->cdirty)
155 b3994ec5 2003-12-11 devnull 				flush(b);
156 b3994ec5 2003-12-11 devnull 			m = min(n, Maxblock);
157 b3994ec5 2003-12-11 devnull 			if(b->bl == nil){	/* allocate */
158 b3994ec5 2003-12-11 devnull 				if(b->cnc != 0)
159 b3994ec5 2003-12-11 devnull 					error("internal error: bufinsert2 cnc!=0");
160 b3994ec5 2003-12-11 devnull 				i = 0;
161 b3994ec5 2003-12-11 devnull 			}else{
162 b3994ec5 2003-12-11 devnull 				i = b->cbi;
163 b3994ec5 2003-12-11 devnull 				if(q0 > b->cq)
164 b3994ec5 2003-12-11 devnull 					i++;
165 b3994ec5 2003-12-11 devnull 			}
166 b3994ec5 2003-12-11 devnull 			addblock(b, i, m);
167 b3994ec5 2003-12-11 devnull 			sizecache(b, m);
168 b3994ec5 2003-12-11 devnull 			runemove(b->c, s, m);
169 b3994ec5 2003-12-11 devnull 			b->cq = q0;
170 b3994ec5 2003-12-11 devnull 			b->cbi = i;
171 b3994ec5 2003-12-11 devnull 			b->cnc = m;
172 b3994ec5 2003-12-11 devnull 			goto Tail;
173 b3994ec5 2003-12-11 devnull 		}
174 b3994ec5 2003-12-11 devnull 		/*
175 b3994ec5 2003-12-11 devnull 		 * Split the block; cut off the right side and
176 b3994ec5 2003-12-11 devnull 		 * let go of it.
177 b3994ec5 2003-12-11 devnull 		 */
178 b3994ec5 2003-12-11 devnull 		m = b->cnc-off;
179 b3994ec5 2003-12-11 devnull 		if(m > 0){
180 b3994ec5 2003-12-11 devnull 			i = b->cbi+1;
181 b3994ec5 2003-12-11 devnull 			addblock(b, i, m);
182 b3994ec5 2003-12-11 devnull 			diskwrite(disk, &b->bl[i], b->c+off, m);
183 b3994ec5 2003-12-11 devnull 			b->cnc -= m;
184 b3994ec5 2003-12-11 devnull 		}
185 b3994ec5 2003-12-11 devnull 		/*
186 b3994ec5 2003-12-11 devnull 		 * Now at end of block.  Take as much input
187 b3994ec5 2003-12-11 devnull 		 * as possible and tack it on end of block.
188 b3994ec5 2003-12-11 devnull 		 */
189 b3994ec5 2003-12-11 devnull 		m = min(n, Maxblock-b->cnc);
190 b3994ec5 2003-12-11 devnull 		sizecache(b, b->cnc+m);
191 b3994ec5 2003-12-11 devnull 		runemove(b->c+b->cnc, s, m);
192 b3994ec5 2003-12-11 devnull 		b->cnc += m;
193 b3994ec5 2003-12-11 devnull   Tail:
194 b3994ec5 2003-12-11 devnull 		b->nc += m;
195 b3994ec5 2003-12-11 devnull 		q0 += m;
196 b3994ec5 2003-12-11 devnull 		s += m;
197 b3994ec5 2003-12-11 devnull 		n -= m;
198 b3994ec5 2003-12-11 devnull 		b->cdirty = TRUE;
199 b3994ec5 2003-12-11 devnull 	}
200 b3994ec5 2003-12-11 devnull }
201 b3994ec5 2003-12-11 devnull 
202 b3994ec5 2003-12-11 devnull void
203 b3994ec5 2003-12-11 devnull bufdelete(Buffer *b, uint q0, uint q1)
204 b3994ec5 2003-12-11 devnull {
205 b3994ec5 2003-12-11 devnull 	uint m, n, off;
206 b3994ec5 2003-12-11 devnull 
207 b3994ec5 2003-12-11 devnull 	if(!(q0<=q1 && q0<=b->nc && q1<=b->nc))
208 b3994ec5 2003-12-11 devnull 		error("internal error: bufdelete");
209 b3994ec5 2003-12-11 devnull 	while(q1 > q0){
210 b3994ec5 2003-12-11 devnull 		setcache(b, q0);
211 b3994ec5 2003-12-11 devnull 		off = q0-b->cq;
212 b3994ec5 2003-12-11 devnull 		if(q1 > b->cq+b->cnc)
213 b3994ec5 2003-12-11 devnull 			n = b->cnc - off;
214 b3994ec5 2003-12-11 devnull 		else
215 b3994ec5 2003-12-11 devnull 			n = q1-q0;
216 b3994ec5 2003-12-11 devnull 		m = b->cnc - (off+n);
217 b3994ec5 2003-12-11 devnull 		if(m > 0)
218 b3994ec5 2003-12-11 devnull 			runemove(b->c+off, b->c+off+n, m);
219 b3994ec5 2003-12-11 devnull 		b->cnc -= n;
220 b3994ec5 2003-12-11 devnull 		b->cdirty = TRUE;
221 b3994ec5 2003-12-11 devnull 		q1 -= n;
222 b3994ec5 2003-12-11 devnull 		b->nc -= n;
223 b3994ec5 2003-12-11 devnull 	}
224 b3994ec5 2003-12-11 devnull }
225 b3994ec5 2003-12-11 devnull 
226 b3994ec5 2003-12-11 devnull static int
227 b3994ec5 2003-12-11 devnull bufloader(void *v, uint q0, Rune *r, int nr)
228 b3994ec5 2003-12-11 devnull {
229 b3994ec5 2003-12-11 devnull 	bufinsert(v, q0, r, nr);
230 b3994ec5 2003-12-11 devnull 	return nr;
231 b3994ec5 2003-12-11 devnull }
232 b3994ec5 2003-12-11 devnull 
233 b3994ec5 2003-12-11 devnull uint
234 b3994ec5 2003-12-11 devnull loadfile(int fd, uint q0, int *nulls, int(*f)(void*, uint, Rune*, int), void *arg)
235 b3994ec5 2003-12-11 devnull {
236 b3994ec5 2003-12-11 devnull 	char *p;
237 b3994ec5 2003-12-11 devnull 	Rune *r;
238 b3994ec5 2003-12-11 devnull 	int l, m, n, nb, nr;
239 b3994ec5 2003-12-11 devnull 	uint q1;
240 b3994ec5 2003-12-11 devnull 
241 b3994ec5 2003-12-11 devnull 	p = emalloc((Maxblock+UTFmax+1)*sizeof p[0]);
242 b3994ec5 2003-12-11 devnull 	r = runemalloc(Maxblock);
243 b3994ec5 2003-12-11 devnull 	m = 0;
244 b3994ec5 2003-12-11 devnull 	n = 1;
245 b3994ec5 2003-12-11 devnull 	q1 = q0;
246 b3994ec5 2003-12-11 devnull 	/*
247 b3994ec5 2003-12-11 devnull 	 * At top of loop, may have m bytes left over from
248 b3994ec5 2003-12-11 devnull 	 * last pass, possibly representing a partial rune.
249 b3994ec5 2003-12-11 devnull 	 */
250 b3994ec5 2003-12-11 devnull 	while(n > 0){
251 b3994ec5 2003-12-11 devnull 		n = read(fd, p+m, Maxblock);
252 b3994ec5 2003-12-11 devnull 		if(n < 0){
253 b3994ec5 2003-12-11 devnull 			warning(nil, "read error in Buffer.load");
254 b3994ec5 2003-12-11 devnull 			break;
255 b3994ec5 2003-12-11 devnull 		}
256 b3994ec5 2003-12-11 devnull 		m += n;
257 b3994ec5 2003-12-11 devnull 		p[m] = 0;
258 b3994ec5 2003-12-11 devnull 		l = m;
259 b3994ec5 2003-12-11 devnull 		if(n > 0)
260 b3994ec5 2003-12-11 devnull 			l -= UTFmax;
261 b3994ec5 2003-12-11 devnull 		cvttorunes(p, l, r, &nb, &nr, nulls);
262 b3994ec5 2003-12-11 devnull 		memmove(p, p+nb, m-nb);
263 b3994ec5 2003-12-11 devnull 		m -= nb;
264 b3994ec5 2003-12-11 devnull 		q1 += (*f)(arg, q1, r, nr);
265 b3994ec5 2003-12-11 devnull 	}
266 b3994ec5 2003-12-11 devnull 	free(p);
267 b3994ec5 2003-12-11 devnull 	free(r);
268 b3994ec5 2003-12-11 devnull 	return q1-q0;
269 b3994ec5 2003-12-11 devnull }
270 b3994ec5 2003-12-11 devnull 
271 b3994ec5 2003-12-11 devnull uint
272 b3994ec5 2003-12-11 devnull bufload(Buffer *b, uint q0, int fd, int *nulls)
273 b3994ec5 2003-12-11 devnull {
274 b3994ec5 2003-12-11 devnull 	if(q0 > b->nc)
275 b3994ec5 2003-12-11 devnull 		error("internal error: bufload");
276 b3994ec5 2003-12-11 devnull 	return loadfile(fd, q0, nulls, bufloader, b);
277 b3994ec5 2003-12-11 devnull }
278 b3994ec5 2003-12-11 devnull 
279 b3994ec5 2003-12-11 devnull void
280 b3994ec5 2003-12-11 devnull bufread(Buffer *b, uint q0, Rune *s, uint n)
281 b3994ec5 2003-12-11 devnull {
282 b3994ec5 2003-12-11 devnull 	uint m;
283 b3994ec5 2003-12-11 devnull 
284 b3994ec5 2003-12-11 devnull 	if(!(q0<=b->nc && q0+n<=b->nc))
285 b3994ec5 2003-12-11 devnull 		error("bufread: internal error");
286 b3994ec5 2003-12-11 devnull 
287 b3994ec5 2003-12-11 devnull 	while(n > 0){
288 b3994ec5 2003-12-11 devnull 		setcache(b, q0);
289 b3994ec5 2003-12-11 devnull 		m = min(n, b->cnc-(q0-b->cq));
290 b3994ec5 2003-12-11 devnull 		runemove(s, b->c+(q0-b->cq), m);
291 b3994ec5 2003-12-11 devnull 		q0 += m;
292 b3994ec5 2003-12-11 devnull 		s += m;
293 b3994ec5 2003-12-11 devnull 		n -= m;
294 b3994ec5 2003-12-11 devnull 	}
295 b3994ec5 2003-12-11 devnull }
296 b3994ec5 2003-12-11 devnull 
297 b3994ec5 2003-12-11 devnull void
298 b3994ec5 2003-12-11 devnull bufreset(Buffer *b)
299 b3994ec5 2003-12-11 devnull {
300 b3994ec5 2003-12-11 devnull 	int i;
301 b3994ec5 2003-12-11 devnull 
302 b3994ec5 2003-12-11 devnull 	b->nc = 0;
303 b3994ec5 2003-12-11 devnull 	b->cnc = 0;
304 b3994ec5 2003-12-11 devnull 	b->cq = 0;
305 b3994ec5 2003-12-11 devnull 	b->cdirty = 0;
306 b3994ec5 2003-12-11 devnull 	b->cbi = 0;
307 b3994ec5 2003-12-11 devnull 	/* delete backwards to avoid n² behavior */
308 b3994ec5 2003-12-11 devnull 	for(i=b->nbl-1; --i>=0; )
309 b3994ec5 2003-12-11 devnull 		delblock(b, i);
310 b3994ec5 2003-12-11 devnull }
311 b3994ec5 2003-12-11 devnull 
312 b3994ec5 2003-12-11 devnull void
313 b3994ec5 2003-12-11 devnull bufclose(Buffer *b)
314 b3994ec5 2003-12-11 devnull {
315 b3994ec5 2003-12-11 devnull 	bufreset(b);
316 b3994ec5 2003-12-11 devnull 	free(b->c);
317 b3994ec5 2003-12-11 devnull 	b->c = nil;
318 b3994ec5 2003-12-11 devnull 	b->cnc = 0;
319 b3994ec5 2003-12-11 devnull 	free(b->bl);
320 b3994ec5 2003-12-11 devnull 	b->bl = nil;
321 b3994ec5 2003-12-11 devnull 	b->nbl = 0;
322 b3994ec5 2003-12-11 devnull }