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"
16 cbeb0b26 2006-04-01 devnull Slop = 100 /* room to grow with reallocation */
21 b3994ec5 2003-12-11 devnull sizecache(Buffer *b, uint n)
23 b3994ec5 2003-12-11 devnull if(n <= b->cmax)
25 b3994ec5 2003-12-11 devnull b->cmax = n+Slop;
26 b3994ec5 2003-12-11 devnull b->c = runerealloc(b->c, b->cmax);
31 b3994ec5 2003-12-11 devnull addblock(Buffer *b, uint i, uint n)
33 b3994ec5 2003-12-11 devnull if(i > b->nbl)
34 b3994ec5 2003-12-11 devnull error("internal error: addblock");
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++;
45 b3994ec5 2003-12-11 devnull delblock(Buffer *b, uint i)
47 b3994ec5 2003-12-11 devnull if(i >= b->nbl)
48 b3994ec5 2003-12-11 devnull error("internal error: delblock");
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]);
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.
64 b3994ec5 2003-12-11 devnull flush(Buffer *b)
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);
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;
77 b3994ec5 2003-12-11 devnull setcache(Buffer *b, uint q0)
79 b3994ec5 2003-12-11 devnull Block **blp, *bl;
80 b3994ec5 2003-12-11 devnull uint i, q;
82 b3994ec5 2003-12-11 devnull if(q0 > b->nc)
83 b3994ec5 2003-12-11 devnull error("internal error: setcache");
85 b3994ec5 2003-12-11 devnull * flush and reload if q0 is not in cache.
87 b3994ec5 2003-12-11 devnull if(b->nc == 0 || (b->cq<=q0 && q0<b->cq+b->cnc))
90 b3994ec5 2003-12-11 devnull * if q0 is at end of file and end of cache, continue to grow this block
92 b3994ec5 2003-12-11 devnull if(q0==b->nc && q0==b->cq+b->cnc && b->cnc<Maxblock)
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){
100 b3994ec5 2003-12-11 devnull q = b->cq;
101 b3994ec5 2003-12-11 devnull i = b->cbi;
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;
108 b3994ec5 2003-12-11 devnull if(i >= b->nbl)
109 b3994ec5 2003-12-11 devnull error("block not found");
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);
122 b3994ec5 2003-12-11 devnull bufinsert(Buffer *b, uint q0, Rune *s, uint n)
124 b3994ec5 2003-12-11 devnull uint i, m, t, off;
126 b3994ec5 2003-12-11 devnull if(q0 > b->nc)
127 b3994ec5 2003-12-11 devnull error("internal error: bufinsert");
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;
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;
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;
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.
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");
162 b3994ec5 2003-12-11 devnull i = b->cbi;
163 b3994ec5 2003-12-11 devnull if(q0 > b->cq)
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;
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.
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;
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.
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;
194 b3994ec5 2003-12-11 devnull b->nc += m;
195 b3994ec5 2003-12-11 devnull q0 += m;
198 b3994ec5 2003-12-11 devnull b->cdirty = TRUE;
203 b3994ec5 2003-12-11 devnull bufdelete(Buffer *b, uint q0, uint q1)
205 b3994ec5 2003-12-11 devnull uint m, n, off;
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;
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;
226 b3994ec5 2003-12-11 devnull static int
227 b3994ec5 2003-12-11 devnull bufloader(void *v, uint q0, Rune *r, int nr)
229 b3994ec5 2003-12-11 devnull bufinsert(v, q0, r, nr);
230 b3994ec5 2003-12-11 devnull return nr;
234 b3994ec5 2003-12-11 devnull loadfile(int fd, uint q0, int *nulls, int(*f)(void*, uint, Rune*, int), void *arg)
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;
241 b3994ec5 2003-12-11 devnull p = emalloc((Maxblock+UTFmax+1)*sizeof p[0]);
242 b3994ec5 2003-12-11 devnull r = runemalloc(Maxblock);
245 b3994ec5 2003-12-11 devnull q1 = q0;
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.
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");
257 b3994ec5 2003-12-11 devnull p[m] = 0;
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);
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;
272 b3994ec5 2003-12-11 devnull bufload(Buffer *b, uint q0, int fd, int *nulls)
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);
280 b3994ec5 2003-12-11 devnull bufread(Buffer *b, uint q0, Rune *s, uint n)
284 b3994ec5 2003-12-11 devnull if(!(q0<=b->nc && q0+n<=b->nc))
285 b3994ec5 2003-12-11 devnull error("bufread: internal error");
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;
298 b3994ec5 2003-12-11 devnull bufreset(Buffer *b)
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);
313 b3994ec5 2003-12-11 devnull bufclose(Buffer *b)
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;