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 b3994ec5 2003-12-11 devnull Ctlsize = 5*12
19 b3994ec5 2003-12-11 devnull char Edel[] = "deleted window";
20 b3994ec5 2003-12-11 devnull char Ebadctl[] = "ill-formed control message";
21 b3994ec5 2003-12-11 devnull char Ebadaddr[] = "bad address syntax";
22 b3994ec5 2003-12-11 devnull char Eaddr[] = "address out of range";
23 b3994ec5 2003-12-11 devnull char Einuse[] = "already in use";
24 b3994ec5 2003-12-11 devnull char Ebadevent[] = "bad event syntax";
25 b3994ec5 2003-12-11 devnull extern char Eperm[];
29 b3994ec5 2003-12-11 devnull clampaddr(Window *w)
31 b3994ec5 2003-12-11 devnull if(w->addr.q0 < 0)
32 b3994ec5 2003-12-11 devnull w->addr.q0 = 0;
33 b3994ec5 2003-12-11 devnull if(w->addr.q1 < 0)
34 b3994ec5 2003-12-11 devnull w->addr.q1 = 0;
35 b3994ec5 2003-12-11 devnull if(w->addr.q0 > w->body.file->b.nc)
36 b3994ec5 2003-12-11 devnull w->addr.q0 = w->body.file->b.nc;
37 b3994ec5 2003-12-11 devnull if(w->addr.q1 > w->body.file->b.nc)
38 b3994ec5 2003-12-11 devnull w->addr.q1 = w->body.file->b.nc;
42 b3994ec5 2003-12-11 devnull xfidctl(void *arg)
45 b3994ec5 2003-12-11 devnull void (*f)(Xfid*);
47 b3994ec5 2003-12-11 devnull threadsetname("xfidctlthread");
50 be22ae2d 2004-03-26 devnull f = (void(*)(Xfid*))recvp(x->c);
52 b3994ec5 2003-12-11 devnull flushimage(display, 1);
53 b3994ec5 2003-12-11 devnull sendp(cxfidfree, x);
58 b3994ec5 2003-12-11 devnull xfidflush(Xfid *x)
60 b3994ec5 2003-12-11 devnull Fcall fc;
61 b3994ec5 2003-12-11 devnull int i, j;
62 b3994ec5 2003-12-11 devnull Window *w;
63 b3994ec5 2003-12-11 devnull Column *c;
64 b3994ec5 2003-12-11 devnull Xfid *wx;
66 b3994ec5 2003-12-11 devnull /* search windows for matching tag */
67 b3994ec5 2003-12-11 devnull qlock(&row.lk);
68 b3994ec5 2003-12-11 devnull for(j=0; j<row.ncol; j++){
69 b3994ec5 2003-12-11 devnull c = row.col[j];
70 b3994ec5 2003-12-11 devnull for(i=0; i<c->nw; i++){
71 b3994ec5 2003-12-11 devnull w = c->w[i];
72 b3994ec5 2003-12-11 devnull winlock(w, 'E');
73 b3994ec5 2003-12-11 devnull wx = w->eventx;
74 b3994ec5 2003-12-11 devnull if(wx!=nil && wx->fcall.tag==x->fcall.oldtag){
75 b3994ec5 2003-12-11 devnull w->eventx = nil;
76 b3994ec5 2003-12-11 devnull wx->flushed = TRUE;
77 b3994ec5 2003-12-11 devnull sendp(wx->c, nil);
78 b3994ec5 2003-12-11 devnull winunlock(w);
79 b3994ec5 2003-12-11 devnull goto out;
81 b3994ec5 2003-12-11 devnull winunlock(w);
85 b3994ec5 2003-12-11 devnull qunlock(&row.lk);
86 b3994ec5 2003-12-11 devnull respond(x, &fc, nil);
90 b3994ec5 2003-12-11 devnull xfidopen(Xfid *x)
92 b3994ec5 2003-12-11 devnull Fcall fc;
93 b3994ec5 2003-12-11 devnull Window *w;
97 b3994ec5 2003-12-11 devnull int m, n, q, q0, q1;
99 b3994ec5 2003-12-11 devnull w = x->f->w;
100 b3994ec5 2003-12-11 devnull t = &w->body;
101 66301756 2006-05-05 devnull q = FILE(x->f->qid);
103 b3994ec5 2003-12-11 devnull winlock(w, 'E');
104 b3994ec5 2003-12-11 devnull switch(q){
105 b3994ec5 2003-12-11 devnull case QWaddr:
106 07494878 2005-01-27 devnull if(w->nopen[q]++ == 0){
107 07494878 2005-01-27 devnull w->addr = range(0, 0);
108 07494878 2005-01-27 devnull w->limit = range(-1,-1);
111 07494878 2005-01-27 devnull case QWdata:
112 07494878 2005-01-27 devnull case QWxdata:
113 012a8a02 2004-10-22 devnull w->nopen[q]++;
115 b3994ec5 2003-12-11 devnull case QWevent:
116 b3994ec5 2003-12-11 devnull if(w->nopen[q]++ == 0){
117 b3994ec5 2003-12-11 devnull if(!w->isdir && w->col!=nil){
118 b3994ec5 2003-12-11 devnull w->filemenu = FALSE;
119 b3994ec5 2003-12-11 devnull winsettag(w);
123 b3994ec5 2003-12-11 devnull case QWrdsel:
125 b3994ec5 2003-12-11 devnull * Use a temporary file.
126 b3994ec5 2003-12-11 devnull * A pipe would be the obvious, but we can't afford the
127 b3994ec5 2003-12-11 devnull * broken pipe notification. Using the code to read QWbody
128 b3994ec5 2003-12-11 devnull * is n², which should probably also be fixed. Even then,
129 b3994ec5 2003-12-11 devnull * though, we'd need to squirrel away the data in case it's
130 b3994ec5 2003-12-11 devnull * modified during the operation, e.g. by |sort
132 b3994ec5 2003-12-11 devnull if(w->rdselfd > 0){
133 b3994ec5 2003-12-11 devnull winunlock(w);
134 b3994ec5 2003-12-11 devnull respond(x, &fc, Einuse);
137 b3994ec5 2003-12-11 devnull w->rdselfd = tempfile();
138 b3994ec5 2003-12-11 devnull if(w->rdselfd < 0){
139 b3994ec5 2003-12-11 devnull winunlock(w);
140 b3994ec5 2003-12-11 devnull respond(x, &fc, "can't create temp file");
143 b3994ec5 2003-12-11 devnull w->nopen[q]++;
144 b3994ec5 2003-12-11 devnull q0 = t->q0;
145 b3994ec5 2003-12-11 devnull q1 = t->q1;
146 b3994ec5 2003-12-11 devnull r = fbufalloc();
147 b3994ec5 2003-12-11 devnull s = fbufalloc();
148 b3994ec5 2003-12-11 devnull while(q0 < q1){
149 b3994ec5 2003-12-11 devnull n = q1 - q0;
150 b3994ec5 2003-12-11 devnull if(n > BUFSIZE/UTFmax)
151 b3994ec5 2003-12-11 devnull n = BUFSIZE/UTFmax;
152 b3994ec5 2003-12-11 devnull bufread(&t->file->b, q0, r, n);
153 b3994ec5 2003-12-11 devnull m = snprint(s, BUFSIZE+1, "%.*S", n, r);
154 b3994ec5 2003-12-11 devnull if(write(w->rdselfd, s, m) != m){
155 b3994ec5 2003-12-11 devnull warning(nil, "can't write temp file for pipe command %r\n");
158 b3994ec5 2003-12-11 devnull q0 += n;
160 b3994ec5 2003-12-11 devnull fbuffree(s);
161 b3994ec5 2003-12-11 devnull fbuffree(r);
163 b3994ec5 2003-12-11 devnull case QWwrsel:
164 b3994ec5 2003-12-11 devnull w->nopen[q]++;
166 b3994ec5 2003-12-11 devnull filemark(t->file);
167 b3994ec5 2003-12-11 devnull cut(t, t, nil, FALSE, TRUE, nil, 0);
168 be22ae2d 2004-03-26 devnull w->wrselrange = range(t->q1, t->q1);
169 b3994ec5 2003-12-11 devnull w->nomark = TRUE;
171 b3994ec5 2003-12-11 devnull case QWeditout:
172 b3994ec5 2003-12-11 devnull if(editing == FALSE){
173 b3994ec5 2003-12-11 devnull winunlock(w);
174 b3994ec5 2003-12-11 devnull respond(x, &fc, Eperm);
177 66301756 2006-05-05 devnull if(!canqlock(&w->editoutlk)){
178 66301756 2006-05-05 devnull winunlock(w);
179 66301756 2006-05-05 devnull respond(x, &fc, Einuse);
182 be22ae2d 2004-03-26 devnull w->wrselrange = range(t->q1, t->q1);
185 b3994ec5 2003-12-11 devnull winunlock(w);
188 66301756 2006-05-05 devnull switch(q){
189 66301756 2006-05-05 devnull case Qeditout:
190 66301756 2006-05-05 devnull if(!canqlock(&editoutlk)){
191 66301756 2006-05-05 devnull respond(x, &fc, Einuse);
197 b3994ec5 2003-12-11 devnull fc.qid = x->f->qid;
198 b3994ec5 2003-12-11 devnull fc.iounit = messagesize-IOHDRSZ;
199 b3994ec5 2003-12-11 devnull x->f->open = TRUE;
200 b3994ec5 2003-12-11 devnull respond(x, &fc, nil);
204 b3994ec5 2003-12-11 devnull xfidclose(Xfid *x)
206 b3994ec5 2003-12-11 devnull Fcall fc;
207 b3994ec5 2003-12-11 devnull Window *w;
209 b3994ec5 2003-12-11 devnull Text *t;
211 b3994ec5 2003-12-11 devnull w = x->f->w;
212 b3994ec5 2003-12-11 devnull x->f->busy = FALSE;
213 49588d5d 2003-12-17 devnull x->f->w = nil;
214 b3994ec5 2003-12-11 devnull if(x->f->open == FALSE){
215 b3994ec5 2003-12-11 devnull if(w != nil)
216 b3994ec5 2003-12-11 devnull winclose(w);
217 b3994ec5 2003-12-11 devnull respond(x, &fc, nil);
221 66301756 2006-05-05 devnull q = FILE(x->f->qid);
222 b3994ec5 2003-12-11 devnull x->f->open = FALSE;
224 b3994ec5 2003-12-11 devnull winlock(w, 'E');
225 b3994ec5 2003-12-11 devnull switch(q){
226 b3994ec5 2003-12-11 devnull case QWctl:
227 b3994ec5 2003-12-11 devnull if(w->ctlfid!=~0 && w->ctlfid==x->f->fid){
228 b3994ec5 2003-12-11 devnull w->ctlfid = ~0;
229 b3994ec5 2003-12-11 devnull qunlock(&w->ctllock);
232 b3994ec5 2003-12-11 devnull case QWdata:
233 012a8a02 2004-10-22 devnull case QWxdata:
234 b3994ec5 2003-12-11 devnull w->nomark = FALSE;
235 b3994ec5 2003-12-11 devnull /* fall through */
236 b3994ec5 2003-12-11 devnull case QWaddr:
237 b3994ec5 2003-12-11 devnull case QWevent: /* BUG: do we need to shut down Xfid? */
238 b3994ec5 2003-12-11 devnull if(--w->nopen[q] == 0){
239 012a8a02 2004-10-22 devnull if(q == QWdata || q == QWxdata)
240 b3994ec5 2003-12-11 devnull w->nomark = FALSE;
241 b3994ec5 2003-12-11 devnull if(q==QWevent && !w->isdir && w->col!=nil){
242 b3994ec5 2003-12-11 devnull w->filemenu = TRUE;
243 b3994ec5 2003-12-11 devnull winsettag(w);
245 b3994ec5 2003-12-11 devnull if(q == QWevent){
246 b3994ec5 2003-12-11 devnull free(w->dumpstr);
247 b3994ec5 2003-12-11 devnull free(w->dumpdir);
248 b3994ec5 2003-12-11 devnull w->dumpstr = nil;
249 b3994ec5 2003-12-11 devnull w->dumpdir = nil;
253 b3994ec5 2003-12-11 devnull case QWrdsel:
254 b3994ec5 2003-12-11 devnull close(w->rdselfd);
255 b3994ec5 2003-12-11 devnull w->rdselfd = 0;
257 b3994ec5 2003-12-11 devnull case QWwrsel:
258 b3994ec5 2003-12-11 devnull w->nomark = FALSE;
259 b3994ec5 2003-12-11 devnull t = &w->body;
260 b3994ec5 2003-12-11 devnull /* before: only did this if !w->noscroll, but that didn't seem right in practice */
261 b3994ec5 2003-12-11 devnull textshow(t, min(w->wrselrange.q0, t->file->b.nc),
262 b3994ec5 2003-12-11 devnull min(w->wrselrange.q1, t->file->b.nc), 1);
263 b3994ec5 2003-12-11 devnull textscrdraw(t);
265 66301756 2006-05-05 devnull case QWeditout:
266 66301756 2006-05-05 devnull qunlock(&w->editoutlk);
269 b3994ec5 2003-12-11 devnull winunlock(w);
270 b3994ec5 2003-12-11 devnull winclose(w);
273 66301756 2006-05-05 devnull switch(q){
274 66301756 2006-05-05 devnull case Qeditout:
275 66301756 2006-05-05 devnull qunlock(&editoutlk);
279 b3994ec5 2003-12-11 devnull respond(x, &fc, nil);
283 b3994ec5 2003-12-11 devnull xfidread(Xfid *x)
285 b3994ec5 2003-12-11 devnull Fcall fc;
286 b3994ec5 2003-12-11 devnull int n, q;
287 b3994ec5 2003-12-11 devnull uint off;
288 b3994ec5 2003-12-11 devnull char *b;
289 627bae9c 2005-01-04 devnull char buf[256];
290 b3994ec5 2003-12-11 devnull Window *w;
292 b3994ec5 2003-12-11 devnull q = FILE(x->f->qid);
293 b3994ec5 2003-12-11 devnull w = x->f->w;
294 b3994ec5 2003-12-11 devnull if(w == nil){
295 b3994ec5 2003-12-11 devnull fc.count = 0;
296 b3994ec5 2003-12-11 devnull switch(q){
297 b3994ec5 2003-12-11 devnull case Qcons:
298 b3994ec5 2003-12-11 devnull case Qlabel:
300 b3994ec5 2003-12-11 devnull case Qindex:
301 b3994ec5 2003-12-11 devnull xfidindexread(x);
303 b3994ec5 2003-12-11 devnull default:
304 b3994ec5 2003-12-11 devnull warning(nil, "unknown qid %d\n", q);
307 b3994ec5 2003-12-11 devnull respond(x, &fc, nil);
310 b3994ec5 2003-12-11 devnull winlock(w, 'F');
311 b3994ec5 2003-12-11 devnull if(w->col == nil){
312 b3994ec5 2003-12-11 devnull winunlock(w);
313 b3994ec5 2003-12-11 devnull respond(x, &fc, Edel);
316 b3994ec5 2003-12-11 devnull off = x->fcall.offset;
317 b3994ec5 2003-12-11 devnull switch(q){
318 b3994ec5 2003-12-11 devnull case QWaddr:
319 b3994ec5 2003-12-11 devnull textcommit(&w->body, TRUE);
320 b3994ec5 2003-12-11 devnull clampaddr(w);
321 b3994ec5 2003-12-11 devnull sprint(buf, "%11d %11d ", w->addr.q0, w->addr.q1);
322 b3994ec5 2003-12-11 devnull goto Readbuf;
324 b3994ec5 2003-12-11 devnull case QWbody:
325 b3994ec5 2003-12-11 devnull xfidutfread(x, &w->body, w->body.file->b.nc, QWbody);
328 b3994ec5 2003-12-11 devnull case QWctl:
329 627bae9c 2005-01-04 devnull b = winctlprint(w, buf, 1);
330 627bae9c 2005-01-04 devnull goto Readb;
332 b3994ec5 2003-12-11 devnull Readbuf:
333 627bae9c 2005-01-04 devnull b = buf;
335 627bae9c 2005-01-04 devnull n = strlen(b);
336 b3994ec5 2003-12-11 devnull if(off > n)
337 b3994ec5 2003-12-11 devnull off = n;
338 b3994ec5 2003-12-11 devnull if(off+x->fcall.count > n)
339 b3994ec5 2003-12-11 devnull x->fcall.count = n-off;
340 b3994ec5 2003-12-11 devnull fc.count = x->fcall.count;
341 627bae9c 2005-01-04 devnull fc.data = b+off;
342 b3994ec5 2003-12-11 devnull respond(x, &fc, nil);
343 627bae9c 2005-01-04 devnull if(b != buf)
344 627bae9c 2005-01-04 devnull free(b);
347 b3994ec5 2003-12-11 devnull case QWevent:
348 b3994ec5 2003-12-11 devnull xfideventread(x, w);
351 b3994ec5 2003-12-11 devnull case QWdata:
352 b3994ec5 2003-12-11 devnull /* BUG: what should happen if q1 > q0? */
353 b3994ec5 2003-12-11 devnull if(w->addr.q0 > w->body.file->b.nc){
354 b3994ec5 2003-12-11 devnull respond(x, &fc, Eaddr);
357 b3994ec5 2003-12-11 devnull w->addr.q0 += xfidruneread(x, &w->body, w->addr.q0, w->body.file->b.nc);
358 b3994ec5 2003-12-11 devnull w->addr.q1 = w->addr.q0;
361 012a8a02 2004-10-22 devnull case QWxdata:
362 012a8a02 2004-10-22 devnull /* BUG: what should happen if q1 > q0? */
363 012a8a02 2004-10-22 devnull if(w->addr.q0 > w->body.file->b.nc){
364 012a8a02 2004-10-22 devnull respond(x, &fc, Eaddr);
367 012a8a02 2004-10-22 devnull w->addr.q0 += xfidruneread(x, &w->body, w->addr.q0, w->addr.q1);
370 b3994ec5 2003-12-11 devnull case QWtag:
371 b3994ec5 2003-12-11 devnull xfidutfread(x, &w->tag, w->tag.file->b.nc, QWtag);
374 b3994ec5 2003-12-11 devnull case QWrdsel:
375 b3994ec5 2003-12-11 devnull seek(w->rdselfd, off, 0);
376 b3994ec5 2003-12-11 devnull n = x->fcall.count;
377 b3994ec5 2003-12-11 devnull if(n > BUFSIZE)
378 b3994ec5 2003-12-11 devnull n = BUFSIZE;
379 b3994ec5 2003-12-11 devnull b = fbufalloc();
380 b3994ec5 2003-12-11 devnull n = read(w->rdselfd, b, n);
381 b3994ec5 2003-12-11 devnull if(n < 0){
382 b3994ec5 2003-12-11 devnull respond(x, &fc, "I/O error in temp file");
385 b3994ec5 2003-12-11 devnull fc.count = n;
386 b3994ec5 2003-12-11 devnull fc.data = b;
387 b3994ec5 2003-12-11 devnull respond(x, &fc, nil);
388 b3994ec5 2003-12-11 devnull fbuffree(b);
391 b3994ec5 2003-12-11 devnull default:
392 b3994ec5 2003-12-11 devnull sprint(buf, "unknown qid %d in read", q);
393 b3994ec5 2003-12-11 devnull respond(x, &fc, nil);
395 b3994ec5 2003-12-11 devnull winunlock(w);
399 b3994ec5 2003-12-11 devnull xfidwrite(Xfid *x)
401 b3994ec5 2003-12-11 devnull Fcall fc;
402 b3994ec5 2003-12-11 devnull int c, cnt, qid, q, nb, nr, eval;
403 b3994ec5 2003-12-11 devnull char buf[64], *err;
404 b3994ec5 2003-12-11 devnull Window *w;
405 b3994ec5 2003-12-11 devnull Rune *r;
406 b3994ec5 2003-12-11 devnull Range a;
407 b3994ec5 2003-12-11 devnull Text *t;
408 b3994ec5 2003-12-11 devnull uint q0, tq0, tq1;
410 b3994ec5 2003-12-11 devnull qid = FILE(x->f->qid);
411 b3994ec5 2003-12-11 devnull w = x->f->w;
413 b3994ec5 2003-12-11 devnull c = 'F';
414 b3994ec5 2003-12-11 devnull if(qid==QWtag || qid==QWbody)
415 b3994ec5 2003-12-11 devnull c = 'E';
416 b3994ec5 2003-12-11 devnull winlock(w, c);
417 b3994ec5 2003-12-11 devnull if(w->col == nil){
418 b3994ec5 2003-12-11 devnull winunlock(w);
419 b3994ec5 2003-12-11 devnull respond(x, &fc, Edel);
423 b3994ec5 2003-12-11 devnull x->fcall.data[x->fcall.count] = 0;
424 b3994ec5 2003-12-11 devnull switch(qid){
425 b3994ec5 2003-12-11 devnull case Qcons:
426 5a8e63b2 2004-02-29 devnull w = errorwin(x->f->mntdir, 'X');
427 b3994ec5 2003-12-11 devnull t=&w->body;
428 b3994ec5 2003-12-11 devnull goto BodyTag;
430 b3994ec5 2003-12-11 devnull case Qlabel:
431 b3994ec5 2003-12-11 devnull fc.count = x->fcall.count;
432 b3994ec5 2003-12-11 devnull respond(x, &fc, nil);
435 b3994ec5 2003-12-11 devnull case QWaddr:
436 b3994ec5 2003-12-11 devnull x->fcall.data[x->fcall.count] = 0;
437 b3994ec5 2003-12-11 devnull r = bytetorune(x->fcall.data, &nr);
438 b3994ec5 2003-12-11 devnull t = &w->body;
439 b3994ec5 2003-12-11 devnull wincommit(w, t);
440 b3994ec5 2003-12-11 devnull eval = TRUE;
441 012a8a02 2004-10-22 devnull a = address(FALSE, t, w->limit, w->addr, r, 0, nr, rgetc, &eval, (uint*)&nb);
442 b3994ec5 2003-12-11 devnull free(r);
443 b3994ec5 2003-12-11 devnull if(nb < nr){
444 b3994ec5 2003-12-11 devnull respond(x, &fc, Ebadaddr);
447 b3994ec5 2003-12-11 devnull if(!eval){
448 b3994ec5 2003-12-11 devnull respond(x, &fc, Eaddr);
451 b3994ec5 2003-12-11 devnull w->addr = a;
452 b3994ec5 2003-12-11 devnull fc.count = x->fcall.count;
453 b3994ec5 2003-12-11 devnull respond(x, &fc, nil);
456 b3994ec5 2003-12-11 devnull case Qeditout:
457 b3994ec5 2003-12-11 devnull case QWeditout:
458 b3994ec5 2003-12-11 devnull r = bytetorune(x->fcall.data, &nr);
460 b3994ec5 2003-12-11 devnull err = edittext(w, w->wrselrange.q1, r, nr);
462 b3994ec5 2003-12-11 devnull err = edittext(nil, 0, r, nr);
463 b3994ec5 2003-12-11 devnull free(r);
464 b3994ec5 2003-12-11 devnull if(err != nil){
465 b3994ec5 2003-12-11 devnull respond(x, &fc, err);
468 b3994ec5 2003-12-11 devnull fc.count = x->fcall.count;
469 b3994ec5 2003-12-11 devnull respond(x, &fc, nil);
472 9d01e221 2005-01-30 devnull case QWerrors:
473 9d01e221 2005-01-30 devnull w = errorwinforwin(w);
474 9d01e221 2005-01-30 devnull t = &w->body;
475 9d01e221 2005-01-30 devnull goto BodyTag;
477 b3994ec5 2003-12-11 devnull case QWbody:
478 b3994ec5 2003-12-11 devnull case QWwrsel:
479 b3994ec5 2003-12-11 devnull t = &w->body;
480 b3994ec5 2003-12-11 devnull goto BodyTag;
482 b3994ec5 2003-12-11 devnull case QWctl:
483 b3994ec5 2003-12-11 devnull xfidctlwrite(x, w);
486 b3994ec5 2003-12-11 devnull case QWdata:
487 b3994ec5 2003-12-11 devnull a = w->addr;
488 b3994ec5 2003-12-11 devnull t = &w->body;
489 b3994ec5 2003-12-11 devnull wincommit(w, t);
490 b3994ec5 2003-12-11 devnull if(a.q0>t->file->b.nc || a.q1>t->file->b.nc){
491 b3994ec5 2003-12-11 devnull respond(x, &fc, Eaddr);
494 b3994ec5 2003-12-11 devnull r = runemalloc(x->fcall.count);
495 b3994ec5 2003-12-11 devnull cvttorunes(x->fcall.data, x->fcall.count, r, &nb, &nr, nil);
496 b3994ec5 2003-12-11 devnull if(w->nomark == FALSE){
498 b3994ec5 2003-12-11 devnull filemark(t->file);
500 b3994ec5 2003-12-11 devnull q0 = a.q0;
501 b3994ec5 2003-12-11 devnull if(a.q1 > q0){
502 b3994ec5 2003-12-11 devnull textdelete(t, q0, a.q1, TRUE);
503 b3994ec5 2003-12-11 devnull w->addr.q1 = q0;
505 b3994ec5 2003-12-11 devnull tq0 = t->q0;
506 b3994ec5 2003-12-11 devnull tq1 = t->q1;
507 b3994ec5 2003-12-11 devnull textinsert(t, q0, r, nr, TRUE);
508 b3994ec5 2003-12-11 devnull if(tq0 >= q0)
509 b3994ec5 2003-12-11 devnull tq0 += nr;
510 b3994ec5 2003-12-11 devnull if(tq1 >= q0)
511 b3994ec5 2003-12-11 devnull tq1 += nr;
512 b3994ec5 2003-12-11 devnull textsetselect(t, tq0, tq1);
513 b3994ec5 2003-12-11 devnull if(!t->w->noscroll)
514 b3994ec5 2003-12-11 devnull textshow(t, q0, q0+nr, 0);
515 b3994ec5 2003-12-11 devnull textscrdraw(t);
516 b3994ec5 2003-12-11 devnull winsettag(w);
517 b3994ec5 2003-12-11 devnull free(r);
518 b3994ec5 2003-12-11 devnull w->addr.q0 += nr;
519 b3994ec5 2003-12-11 devnull w->addr.q1 = w->addr.q0;
520 b3994ec5 2003-12-11 devnull fc.count = x->fcall.count;
521 b3994ec5 2003-12-11 devnull respond(x, &fc, nil);
524 b3994ec5 2003-12-11 devnull case QWevent:
525 b3994ec5 2003-12-11 devnull xfideventwrite(x, w);
528 b3994ec5 2003-12-11 devnull case QWtag:
529 b3994ec5 2003-12-11 devnull t = &w->tag;
530 b3994ec5 2003-12-11 devnull goto BodyTag;
532 b3994ec5 2003-12-11 devnull BodyTag:
533 b3994ec5 2003-12-11 devnull q = x->f->nrpart;
534 b3994ec5 2003-12-11 devnull cnt = x->fcall.count;
535 b3994ec5 2003-12-11 devnull if(q > 0){
536 b3994ec5 2003-12-11 devnull memmove(x->fcall.data+q, x->fcall.data, cnt); /* there's room; see fsysproc */
537 b3994ec5 2003-12-11 devnull memmove(x->fcall.data, x->f->rpart, q);
538 b3994ec5 2003-12-11 devnull cnt += q;
539 b3994ec5 2003-12-11 devnull x->f->nrpart = 0;
541 b3994ec5 2003-12-11 devnull r = runemalloc(cnt);
542 b3994ec5 2003-12-11 devnull cvttorunes(x->fcall.data, cnt-UTFmax, r, &nb, &nr, nil);
543 b3994ec5 2003-12-11 devnull /* approach end of buffer */
544 b3994ec5 2003-12-11 devnull while(fullrune(x->fcall.data+nb, cnt-nb)){
546 b3994ec5 2003-12-11 devnull nb += chartorune(&r[nr], x->fcall.data+c);
547 b3994ec5 2003-12-11 devnull if(r[nr])
550 b3994ec5 2003-12-11 devnull if(nb < cnt){
551 b3994ec5 2003-12-11 devnull memmove(x->f->rpart, x->fcall.data+nb, cnt-nb);
552 b3994ec5 2003-12-11 devnull x->f->nrpart = cnt-nb;
554 b3994ec5 2003-12-11 devnull if(nr > 0){
555 b3994ec5 2003-12-11 devnull wincommit(w, t);
556 b3994ec5 2003-12-11 devnull if(qid == QWwrsel){
557 b3994ec5 2003-12-11 devnull q0 = w->wrselrange.q1;
558 b3994ec5 2003-12-11 devnull if(q0 > t->file->b.nc)
559 b3994ec5 2003-12-11 devnull q0 = t->file->b.nc;
561 b3994ec5 2003-12-11 devnull q0 = t->file->b.nc;
562 b3994ec5 2003-12-11 devnull if(qid == QWtag)
563 b3994ec5 2003-12-11 devnull textinsert(t, q0, r, nr, TRUE);
565 b3994ec5 2003-12-11 devnull if(w->nomark == FALSE){
567 b3994ec5 2003-12-11 devnull filemark(t->file);
569 b3994ec5 2003-12-11 devnull q0 = textbsinsert(t, q0, r, nr, TRUE, &nr);
570 b3994ec5 2003-12-11 devnull textsetselect(t, t->q0, t->q1); /* insert could leave it somewhere else */
571 b3994ec5 2003-12-11 devnull if(qid!=QWwrsel && !t->w->noscroll)
572 b3994ec5 2003-12-11 devnull textshow(t, q0+nr, q0+nr, 1);
573 b3994ec5 2003-12-11 devnull textscrdraw(t);
575 b3994ec5 2003-12-11 devnull winsettag(w);
576 b3994ec5 2003-12-11 devnull if(qid == QWwrsel)
577 b3994ec5 2003-12-11 devnull w->wrselrange.q1 += nr;
578 b3994ec5 2003-12-11 devnull free(r);
580 b3994ec5 2003-12-11 devnull fc.count = x->fcall.count;
581 b3994ec5 2003-12-11 devnull respond(x, &fc, nil);
584 b3994ec5 2003-12-11 devnull default:
585 b3994ec5 2003-12-11 devnull sprint(buf, "unknown qid %d in write", qid);
586 b3994ec5 2003-12-11 devnull respond(x, &fc, buf);
590 b3994ec5 2003-12-11 devnull winunlock(w);
594 b3994ec5 2003-12-11 devnull xfidctlwrite(Xfid *x, Window *w)
596 b3994ec5 2003-12-11 devnull Fcall fc;
597 b3994ec5 2003-12-11 devnull int i, m, n, nb, nr, nulls;
598 b3994ec5 2003-12-11 devnull Rune *r;
599 b3994ec5 2003-12-11 devnull char *err, *p, *pp, *q, *e;
600 b3994ec5 2003-12-11 devnull int isfbuf, scrdraw, settag;
601 b3994ec5 2003-12-11 devnull Text *t;
603 b3994ec5 2003-12-11 devnull err = nil;
604 b3994ec5 2003-12-11 devnull e = x->fcall.data+x->fcall.count;
605 b3994ec5 2003-12-11 devnull scrdraw = FALSE;
606 b3994ec5 2003-12-11 devnull settag = FALSE;
607 b3994ec5 2003-12-11 devnull isfbuf = TRUE;
608 b3994ec5 2003-12-11 devnull if(x->fcall.count < RBUFSIZE)
609 b3994ec5 2003-12-11 devnull r = fbufalloc();
611 b3994ec5 2003-12-11 devnull isfbuf = FALSE;
612 b3994ec5 2003-12-11 devnull r = emalloc(x->fcall.count*UTFmax+1);
614 b3994ec5 2003-12-11 devnull x->fcall.data[x->fcall.count] = 0;
615 b3994ec5 2003-12-11 devnull textcommit(&w->tag, TRUE);
616 b3994ec5 2003-12-11 devnull for(n=0; n<x->fcall.count; n+=m){
617 b3994ec5 2003-12-11 devnull p = x->fcall.data+n;
618 b3994ec5 2003-12-11 devnull if(strncmp(p, "lock", 4) == 0){ /* make window exclusive use */
619 b3994ec5 2003-12-11 devnull qlock(&w->ctllock);
620 b3994ec5 2003-12-11 devnull w->ctlfid = x->f->fid;
623 b3994ec5 2003-12-11 devnull if(strncmp(p, "unlock", 6) == 0){ /* release exclusive use */
624 b3994ec5 2003-12-11 devnull w->ctlfid = ~0;
625 b3994ec5 2003-12-11 devnull qunlock(&w->ctllock);
628 b3994ec5 2003-12-11 devnull if(strncmp(p, "clean", 5) == 0){ /* mark window 'clean', seq=0 */
629 b3994ec5 2003-12-11 devnull t = &w->body;
630 b3994ec5 2003-12-11 devnull t->eq0 = ~0;
631 b3994ec5 2003-12-11 devnull filereset(t->file);
632 b3994ec5 2003-12-11 devnull t->file->mod = FALSE;
633 b3994ec5 2003-12-11 devnull w->dirty = FALSE;
634 b3994ec5 2003-12-11 devnull settag = TRUE;
637 b3994ec5 2003-12-11 devnull if(strncmp(p, "dirty", 5) == 0){ /* mark window 'dirty' */
638 b3994ec5 2003-12-11 devnull t = &w->body;
639 b3994ec5 2003-12-11 devnull /* doesn't change sequence number, so "Put" won't appear. it shouldn't. */
640 b3994ec5 2003-12-11 devnull t->file->mod = TRUE;
641 b3994ec5 2003-12-11 devnull w->dirty = TRUE;
642 b3994ec5 2003-12-11 devnull settag = TRUE;
645 b3994ec5 2003-12-11 devnull if(strncmp(p, "show", 4) == 0){ /* show dot */
646 b3994ec5 2003-12-11 devnull t = &w->body;
647 b3994ec5 2003-12-11 devnull textshow(t, t->q0, t->q1, 1);
650 b3994ec5 2003-12-11 devnull if(strncmp(p, "name ", 5) == 0){ /* set file name */
651 b3994ec5 2003-12-11 devnull pp = p+5;
653 b3994ec5 2003-12-11 devnull q = memchr(pp, '\n', e-pp);
654 b3994ec5 2003-12-11 devnull if(q==nil || q==pp){
655 b3994ec5 2003-12-11 devnull err = Ebadctl;
659 b3994ec5 2003-12-11 devnull nulls = FALSE;
660 b3994ec5 2003-12-11 devnull cvttorunes(pp, q-pp, r, &nb, &nr, &nulls);
661 b3994ec5 2003-12-11 devnull if(nulls){
662 b3994ec5 2003-12-11 devnull err = "nulls in file name";
665 b3994ec5 2003-12-11 devnull for(i=0; i<nr; i++)
666 b3994ec5 2003-12-11 devnull if(r[i] <= ' '){
667 b3994ec5 2003-12-11 devnull err = "bad character in file name";
668 b3994ec5 2003-12-11 devnull goto out;
672 b3994ec5 2003-12-11 devnull filemark(w->body.file);
673 b3994ec5 2003-12-11 devnull winsetname(w, r, nr);
674 b3994ec5 2003-12-11 devnull m += (q+1) - pp;
676 b3994ec5 2003-12-11 devnull if(strncmp(p, "dump ", 5) == 0){ /* set dump string */
677 b3994ec5 2003-12-11 devnull pp = p+5;
679 b3994ec5 2003-12-11 devnull q = memchr(pp, '\n', e-pp);
680 b3994ec5 2003-12-11 devnull if(q==nil || q==pp){
681 b3994ec5 2003-12-11 devnull err = Ebadctl;
685 b3994ec5 2003-12-11 devnull nulls = FALSE;
686 b3994ec5 2003-12-11 devnull cvttorunes(pp, q-pp, r, &nb, &nr, &nulls);
687 b3994ec5 2003-12-11 devnull if(nulls){
688 b3994ec5 2003-12-11 devnull err = "nulls in dump string";
691 b3994ec5 2003-12-11 devnull w->dumpstr = runetobyte(r, nr);
692 b3994ec5 2003-12-11 devnull m += (q+1) - pp;
694 b3994ec5 2003-12-11 devnull if(strncmp(p, "dumpdir ", 8) == 0){ /* set dump directory */
695 b3994ec5 2003-12-11 devnull pp = p+8;
697 b3994ec5 2003-12-11 devnull q = memchr(pp, '\n', e-pp);
698 b3994ec5 2003-12-11 devnull if(q==nil || q==pp){
699 b3994ec5 2003-12-11 devnull err = Ebadctl;
703 b3994ec5 2003-12-11 devnull nulls = FALSE;
704 b3994ec5 2003-12-11 devnull cvttorunes(pp, q-pp, r, &nb, &nr, &nulls);
705 b3994ec5 2003-12-11 devnull if(nulls){
706 b3994ec5 2003-12-11 devnull err = "nulls in dump directory string";
709 b3994ec5 2003-12-11 devnull w->dumpdir = runetobyte(r, nr);
710 b3994ec5 2003-12-11 devnull m += (q+1) - pp;
712 b3994ec5 2003-12-11 devnull if(strncmp(p, "delete", 6) == 0){ /* delete for sure */
713 b3994ec5 2003-12-11 devnull colclose(w->col, w, TRUE);
716 b3994ec5 2003-12-11 devnull if(strncmp(p, "del", 3) == 0){ /* delete, but check dirty */
717 b3994ec5 2003-12-11 devnull if(!winclean(w, TRUE)){
718 b3994ec5 2003-12-11 devnull err = "file dirty";
721 b3994ec5 2003-12-11 devnull colclose(w->col, w, TRUE);
724 b3994ec5 2003-12-11 devnull if(strncmp(p, "get", 3) == 0){ /* get file */
725 b3994ec5 2003-12-11 devnull get(&w->body, nil, nil, FALSE, XXX, nil, 0);
728 b3994ec5 2003-12-11 devnull if(strncmp(p, "put", 3) == 0){ /* put file */
729 b3994ec5 2003-12-11 devnull put(&w->body, nil, nil, XXX, XXX, nil, 0);
732 b3994ec5 2003-12-11 devnull if(strncmp(p, "dot=addr", 8) == 0){ /* set dot */
733 b3994ec5 2003-12-11 devnull textcommit(&w->body, TRUE);
734 b3994ec5 2003-12-11 devnull clampaddr(w);
735 b3994ec5 2003-12-11 devnull w->body.q0 = w->addr.q0;
736 b3994ec5 2003-12-11 devnull w->body.q1 = w->addr.q1;
737 b3994ec5 2003-12-11 devnull textsetselect(&w->body, w->body.q0, w->body.q1);
738 b3994ec5 2003-12-11 devnull settag = TRUE;
741 b3994ec5 2003-12-11 devnull if(strncmp(p, "addr=dot", 8) == 0){ /* set addr */
742 b3994ec5 2003-12-11 devnull w->addr.q0 = w->body.q0;
743 b3994ec5 2003-12-11 devnull w->addr.q1 = w->body.q1;
746 b3994ec5 2003-12-11 devnull if(strncmp(p, "limit=addr", 10) == 0){ /* set limit */
747 b3994ec5 2003-12-11 devnull textcommit(&w->body, TRUE);
748 b3994ec5 2003-12-11 devnull clampaddr(w);
749 b3994ec5 2003-12-11 devnull w->limit.q0 = w->addr.q0;
750 b3994ec5 2003-12-11 devnull w->limit.q1 = w->addr.q1;
753 b3994ec5 2003-12-11 devnull if(strncmp(p, "nomark", 6) == 0){ /* turn off automatic marking */
754 b3994ec5 2003-12-11 devnull w->nomark = TRUE;
757 b3994ec5 2003-12-11 devnull if(strncmp(p, "mark", 4) == 0){ /* mark file */
759 b3994ec5 2003-12-11 devnull filemark(w->body.file);
760 b3994ec5 2003-12-11 devnull settag = TRUE;
763 b3994ec5 2003-12-11 devnull if(strncmp(p, "noscroll", 8) == 0){ /* turn off automatic scrolling */
764 b3994ec5 2003-12-11 devnull w->noscroll = TRUE;
767 b3994ec5 2003-12-11 devnull if(strncmp(p, "cleartag", 8) == 0){ /* wipe tag right of bar */
768 b3994ec5 2003-12-11 devnull wincleartag(w);
769 b3994ec5 2003-12-11 devnull settag = TRUE;
772 b3994ec5 2003-12-11 devnull if(strncmp(p, "scroll", 6) == 0){ /* turn on automatic scrolling (writes to body only) */
773 b3994ec5 2003-12-11 devnull w->noscroll = FALSE;
776 b3994ec5 2003-12-11 devnull err = Ebadctl;
779 b3994ec5 2003-12-11 devnull while(p[m] == '\n')
783 b3994ec5 2003-12-11 devnull if(isfbuf)
784 b3994ec5 2003-12-11 devnull fbuffree(r);
786 b3994ec5 2003-12-11 devnull free(r);
789 b3994ec5 2003-12-11 devnull fc.count = n;
790 b3994ec5 2003-12-11 devnull respond(x, &fc, err);
791 b3994ec5 2003-12-11 devnull if(settag)
792 b3994ec5 2003-12-11 devnull winsettag(w);
793 b3994ec5 2003-12-11 devnull if(scrdraw)
794 b3994ec5 2003-12-11 devnull textscrdraw(&w->body);
798 b3994ec5 2003-12-11 devnull xfideventwrite(Xfid *x, Window *w)
800 b3994ec5 2003-12-11 devnull Fcall fc;
801 b3994ec5 2003-12-11 devnull int m, n;
802 b3994ec5 2003-12-11 devnull Rune *r;
803 b3994ec5 2003-12-11 devnull char *err, *p, *q;
804 b3994ec5 2003-12-11 devnull int isfbuf;
805 b3994ec5 2003-12-11 devnull Text *t;
807 b3994ec5 2003-12-11 devnull uint q0, q1;
809 b3994ec5 2003-12-11 devnull err = nil;
810 b3994ec5 2003-12-11 devnull isfbuf = TRUE;
811 b3994ec5 2003-12-11 devnull if(x->fcall.count < RBUFSIZE)
812 b3994ec5 2003-12-11 devnull r = fbufalloc();
814 b3994ec5 2003-12-11 devnull isfbuf = FALSE;
815 b3994ec5 2003-12-11 devnull r = emalloc(x->fcall.count*UTFmax+1);
817 b3994ec5 2003-12-11 devnull for(n=0; n<x->fcall.count; n+=m){
818 b3994ec5 2003-12-11 devnull p = x->fcall.data+n;
819 b3994ec5 2003-12-11 devnull w->owner = *p++; /* disgusting */
820 b3994ec5 2003-12-11 devnull c = *p++;
821 b3994ec5 2003-12-11 devnull while(*p == ' ')
823 b3994ec5 2003-12-11 devnull q0 = strtoul(p, &q, 10);
824 b3994ec5 2003-12-11 devnull if(q == p)
825 b3994ec5 2003-12-11 devnull goto Rescue;
827 b3994ec5 2003-12-11 devnull while(*p == ' ')
829 b3994ec5 2003-12-11 devnull q1 = strtoul(p, &q, 10);
830 b3994ec5 2003-12-11 devnull if(q == p)
831 b3994ec5 2003-12-11 devnull goto Rescue;
833 b3994ec5 2003-12-11 devnull while(*p == ' ')
835 b3994ec5 2003-12-11 devnull if(*p++ != '\n')
836 b3994ec5 2003-12-11 devnull goto Rescue;
837 b3994ec5 2003-12-11 devnull m = p-(x->fcall.data+n);
838 b3994ec5 2003-12-11 devnull if('a'<=c && c<='z')
839 b3994ec5 2003-12-11 devnull t = &w->tag;
840 b3994ec5 2003-12-11 devnull else if('A'<=c && c<='Z')
841 b3994ec5 2003-12-11 devnull t = &w->body;
843 b3994ec5 2003-12-11 devnull goto Rescue;
844 b3994ec5 2003-12-11 devnull if(q0>t->file->b.nc || q1>t->file->b.nc || q0>q1)
845 b3994ec5 2003-12-11 devnull goto Rescue;
847 b3994ec5 2003-12-11 devnull qlock(&row.lk); /* just like mousethread */
848 b3994ec5 2003-12-11 devnull switch(c){
849 b3994ec5 2003-12-11 devnull case 'x':
850 b3994ec5 2003-12-11 devnull case 'X':
851 b3994ec5 2003-12-11 devnull execute(t, q0, q1, TRUE, nil);
853 b3994ec5 2003-12-11 devnull case 'l':
854 b3994ec5 2003-12-11 devnull case 'L':
855 b3994ec5 2003-12-11 devnull look3(t, q0, q1, TRUE);
857 b3994ec5 2003-12-11 devnull default:
858 b3994ec5 2003-12-11 devnull qunlock(&row.lk);
859 b3994ec5 2003-12-11 devnull goto Rescue;
861 b3994ec5 2003-12-11 devnull qunlock(&row.lk);
866 b3994ec5 2003-12-11 devnull if(isfbuf)
867 b3994ec5 2003-12-11 devnull fbuffree(r);
869 b3994ec5 2003-12-11 devnull free(r);
872 b3994ec5 2003-12-11 devnull fc.count = n;
873 b3994ec5 2003-12-11 devnull respond(x, &fc, err);
877 b3994ec5 2003-12-11 devnull err = Ebadevent;
878 b3994ec5 2003-12-11 devnull goto Out;
882 b3994ec5 2003-12-11 devnull xfidutfread(Xfid *x, Text *t, uint q1, int qid)
884 b3994ec5 2003-12-11 devnull Fcall fc;
885 b3994ec5 2003-12-11 devnull Window *w;
886 b3994ec5 2003-12-11 devnull Rune *r;
887 b3994ec5 2003-12-11 devnull char *b, *b1;
888 b3994ec5 2003-12-11 devnull uint q, off, boff;
889 b3994ec5 2003-12-11 devnull int m, n, nr, nb;
891 b3994ec5 2003-12-11 devnull w = t->w;
892 b3994ec5 2003-12-11 devnull wincommit(w, t);
893 b3994ec5 2003-12-11 devnull off = x->fcall.offset;
894 b3994ec5 2003-12-11 devnull r = fbufalloc();
895 b3994ec5 2003-12-11 devnull b = fbufalloc();
896 b3994ec5 2003-12-11 devnull b1 = fbufalloc();
898 b3994ec5 2003-12-11 devnull if(qid==w->utflastqid && off>=w->utflastboff && w->utflastq<=q1){
899 b3994ec5 2003-12-11 devnull boff = w->utflastboff;
900 b3994ec5 2003-12-11 devnull q = w->utflastq;
902 b3994ec5 2003-12-11 devnull /* BUG: stupid code: scan from beginning */
903 b3994ec5 2003-12-11 devnull boff = 0;
906 b3994ec5 2003-12-11 devnull w->utflastqid = qid;
907 b3994ec5 2003-12-11 devnull while(q<q1 && n<x->fcall.count){
909 b3994ec5 2003-12-11 devnull * Updating here avoids partial rune problem: we're always on a
910 b3994ec5 2003-12-11 devnull * char boundary. The cost is we will usually do one more read
911 b3994ec5 2003-12-11 devnull * than we really need, but that's better than being n^2.
913 b3994ec5 2003-12-11 devnull w->utflastboff = boff;
914 b3994ec5 2003-12-11 devnull w->utflastq = q;
915 b3994ec5 2003-12-11 devnull nr = q1-q;
916 b3994ec5 2003-12-11 devnull if(nr > BUFSIZE/UTFmax)
917 b3994ec5 2003-12-11 devnull nr = BUFSIZE/UTFmax;
918 b3994ec5 2003-12-11 devnull bufread(&t->file->b, q, r, nr);
919 b3994ec5 2003-12-11 devnull nb = snprint(b, BUFSIZE+1, "%.*S", nr, r);
920 b3994ec5 2003-12-11 devnull if(boff >= off){
922 b3994ec5 2003-12-11 devnull if(boff+m > off+x->fcall.count)
923 b3994ec5 2003-12-11 devnull m = off+x->fcall.count - boff;
924 b3994ec5 2003-12-11 devnull memmove(b1+n, b, m);
926 b3994ec5 2003-12-11 devnull }else if(boff+nb > off){
927 b3994ec5 2003-12-11 devnull if(n != 0)
928 b3994ec5 2003-12-11 devnull error("bad count in utfrune");
929 b3994ec5 2003-12-11 devnull m = nb - (off-boff);
930 b3994ec5 2003-12-11 devnull if(m > x->fcall.count)
931 b3994ec5 2003-12-11 devnull m = x->fcall.count;
932 b3994ec5 2003-12-11 devnull memmove(b1, b+(off-boff), m);
935 b3994ec5 2003-12-11 devnull boff += nb;
936 b3994ec5 2003-12-11 devnull q += nr;
938 b3994ec5 2003-12-11 devnull fbuffree(r);
939 b3994ec5 2003-12-11 devnull fbuffree(b);
940 b3994ec5 2003-12-11 devnull fc.count = n;
941 b3994ec5 2003-12-11 devnull fc.data = b1;
942 b3994ec5 2003-12-11 devnull respond(x, &fc, nil);
943 b3994ec5 2003-12-11 devnull fbuffree(b1);
947 b3994ec5 2003-12-11 devnull xfidruneread(Xfid *x, Text *t, uint q0, uint q1)
949 b3994ec5 2003-12-11 devnull Fcall fc;
950 b3994ec5 2003-12-11 devnull Window *w;
951 b3994ec5 2003-12-11 devnull Rune *r, junk;
952 b3994ec5 2003-12-11 devnull char *b, *b1;
953 b3994ec5 2003-12-11 devnull uint q, boff;
954 b3994ec5 2003-12-11 devnull int i, rw, m, n, nr, nb;
956 b3994ec5 2003-12-11 devnull w = t->w;
957 b3994ec5 2003-12-11 devnull wincommit(w, t);
958 b3994ec5 2003-12-11 devnull r = fbufalloc();
959 b3994ec5 2003-12-11 devnull b = fbufalloc();
960 b3994ec5 2003-12-11 devnull b1 = fbufalloc();
963 b3994ec5 2003-12-11 devnull boff = 0;
964 b3994ec5 2003-12-11 devnull while(q<q1 && n<x->fcall.count){
965 b3994ec5 2003-12-11 devnull nr = q1-q;
966 b3994ec5 2003-12-11 devnull if(nr > BUFSIZE/UTFmax)
967 b3994ec5 2003-12-11 devnull nr = BUFSIZE/UTFmax;
968 b3994ec5 2003-12-11 devnull bufread(&t->file->b, q, r, nr);
969 b3994ec5 2003-12-11 devnull nb = snprint(b, BUFSIZE+1, "%.*S", nr, r);
971 b3994ec5 2003-12-11 devnull if(boff+m > x->fcall.count){
972 b3994ec5 2003-12-11 devnull i = x->fcall.count - boff;
973 b3994ec5 2003-12-11 devnull /* copy whole runes only */
976 b3994ec5 2003-12-11 devnull while(m < i){
977 b3994ec5 2003-12-11 devnull rw = chartorune(&junk, b+m);
978 b3994ec5 2003-12-11 devnull if(m+rw > i)
980 b3994ec5 2003-12-11 devnull m += rw;
983 b3994ec5 2003-12-11 devnull if(m == 0)
986 b3994ec5 2003-12-11 devnull memmove(b1+n, b, m);
988 b3994ec5 2003-12-11 devnull boff += nb;
989 b3994ec5 2003-12-11 devnull q += nr;
991 b3994ec5 2003-12-11 devnull fbuffree(r);
992 b3994ec5 2003-12-11 devnull fbuffree(b);
993 b3994ec5 2003-12-11 devnull fc.count = n;
994 b3994ec5 2003-12-11 devnull fc.data = b1;
995 b3994ec5 2003-12-11 devnull respond(x, &fc, nil);
996 b3994ec5 2003-12-11 devnull fbuffree(b1);
997 b3994ec5 2003-12-11 devnull return q-q0;
1001 b3994ec5 2003-12-11 devnull xfideventread(Xfid *x, Window *w)
1003 b3994ec5 2003-12-11 devnull Fcall fc;
1004 b3994ec5 2003-12-11 devnull int i, n;
1007 b3994ec5 2003-12-11 devnull x->flushed = FALSE;
1008 b3994ec5 2003-12-11 devnull while(w->nevents == 0){
1010 b3994ec5 2003-12-11 devnull if(!x->flushed)
1011 b3994ec5 2003-12-11 devnull respond(x, &fc, "window shut down");
1012 b3994ec5 2003-12-11 devnull return;
1014 b3994ec5 2003-12-11 devnull w->eventx = x;
1015 b3994ec5 2003-12-11 devnull winunlock(w);
1016 b3994ec5 2003-12-11 devnull recvp(x->c);
1017 b3994ec5 2003-12-11 devnull winlock(w, 'F');
1021 b3994ec5 2003-12-11 devnull n = w->nevents;
1022 b3994ec5 2003-12-11 devnull if(n > x->fcall.count)
1023 b3994ec5 2003-12-11 devnull n = x->fcall.count;
1024 b3994ec5 2003-12-11 devnull fc.count = n;
1025 b3994ec5 2003-12-11 devnull fc.data = w->events;
1026 b3994ec5 2003-12-11 devnull respond(x, &fc, nil);
1027 b3994ec5 2003-12-11 devnull w->nevents -= n;
1028 95409400 2006-02-21 devnull if(w->nevents){
1029 95409400 2006-02-21 devnull memmove(w->events, w->events+n, w->nevents);
1030 95409400 2006-02-21 devnull w->events = erealloc(w->events, w->nevents);
1032 95409400 2006-02-21 devnull free(w->events);
1033 95409400 2006-02-21 devnull w->events = nil;
1038 b3994ec5 2003-12-11 devnull xfidindexread(Xfid *x)
1040 b3994ec5 2003-12-11 devnull Fcall fc;
1041 b3994ec5 2003-12-11 devnull int i, j, m, n, nmax, isbuf, cnt, off;
1042 b3994ec5 2003-12-11 devnull Window *w;
1043 b3994ec5 2003-12-11 devnull char *b;
1044 b3994ec5 2003-12-11 devnull Rune *r;
1045 b3994ec5 2003-12-11 devnull Column *c;
1047 b3994ec5 2003-12-11 devnull qlock(&row.lk);
1048 b3994ec5 2003-12-11 devnull nmax = 0;
1049 b3994ec5 2003-12-11 devnull for(j=0; j<row.ncol; j++){
1050 b3994ec5 2003-12-11 devnull c = row.col[j];
1051 b3994ec5 2003-12-11 devnull for(i=0; i<c->nw; i++){
1052 b3994ec5 2003-12-11 devnull w = c->w[i];
1053 b3994ec5 2003-12-11 devnull nmax += Ctlsize + w->tag.file->b.nc*UTFmax + 1;
1056 b3994ec5 2003-12-11 devnull nmax++;
1057 b3994ec5 2003-12-11 devnull isbuf = (nmax<=RBUFSIZE);
1058 b3994ec5 2003-12-11 devnull if(isbuf)
1059 b3994ec5 2003-12-11 devnull b = (char*)x->buf;
1061 b3994ec5 2003-12-11 devnull b = emalloc(nmax);
1062 b3994ec5 2003-12-11 devnull r = fbufalloc();
1064 b3994ec5 2003-12-11 devnull for(j=0; j<row.ncol; j++){
1065 b3994ec5 2003-12-11 devnull c = row.col[j];
1066 b3994ec5 2003-12-11 devnull for(i=0; i<c->nw; i++){
1067 b3994ec5 2003-12-11 devnull w = c->w[i];
1068 b3994ec5 2003-12-11 devnull /* only show the currently active window of a set */
1069 b3994ec5 2003-12-11 devnull if(w->body.file->curtext != &w->body)
1070 b3994ec5 2003-12-11 devnull continue;
1071 b3994ec5 2003-12-11 devnull winctlprint(w, b+n, 0);
1072 b3994ec5 2003-12-11 devnull n += Ctlsize;
1073 b3994ec5 2003-12-11 devnull m = min(RBUFSIZE, w->tag.file->b.nc);
1074 b3994ec5 2003-12-11 devnull bufread(&w->tag.file->b, 0, r, m);
1075 b3994ec5 2003-12-11 devnull m = n + snprint(b+n, nmax-n-1, "%.*S", m, r);
1076 b3994ec5 2003-12-11 devnull while(n<m && b[n]!='\n')
1078 b3994ec5 2003-12-11 devnull b[n++] = '\n';
1081 b3994ec5 2003-12-11 devnull qunlock(&row.lk);
1082 b3994ec5 2003-12-11 devnull off = x->fcall.offset;
1083 b3994ec5 2003-12-11 devnull cnt = x->fcall.count;
1084 b3994ec5 2003-12-11 devnull if(off > n)
1085 b3994ec5 2003-12-11 devnull off = n;
1086 b3994ec5 2003-12-11 devnull if(off+cnt > n)
1087 b3994ec5 2003-12-11 devnull cnt = n-off;
1088 b3994ec5 2003-12-11 devnull fc.count = cnt;
1089 b3994ec5 2003-12-11 devnull memmove(r, b+off, cnt);
1090 b3994ec5 2003-12-11 devnull fc.data = (char*)r;
1091 b3994ec5 2003-12-11 devnull if(!isbuf)
1092 b3994ec5 2003-12-11 devnull free(b);
1093 b3994ec5 2003-12-11 devnull respond(x, &fc, nil);
1094 b3994ec5 2003-12-11 devnull fbuffree(r);
