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;
102 b3994ec5 2003-12-11 devnull winlock(w, 'E');
103 b3994ec5 2003-12-11 devnull q = FILE(x->f->qid);
104 b3994ec5 2003-12-11 devnull switch(q){
105 b3994ec5 2003-12-11 devnull case QWaddr:
106 012a8a02 2004-10-22 devnull w->nopen[q]++;
107 012a8a02 2004-10-22 devnull w->limit = range(-1,-1);
109 b3994ec5 2003-12-11 devnull case QWevent:
110 b3994ec5 2003-12-11 devnull if(w->nopen[q]++ == 0){
111 b3994ec5 2003-12-11 devnull if(!w->isdir && w->col!=nil){
112 b3994ec5 2003-12-11 devnull w->filemenu = FALSE;
113 b3994ec5 2003-12-11 devnull winsettag(w);
117 b3994ec5 2003-12-11 devnull case QWrdsel:
119 b3994ec5 2003-12-11 devnull * Use a temporary file.
120 b3994ec5 2003-12-11 devnull * A pipe would be the obvious, but we can't afford the
121 b3994ec5 2003-12-11 devnull * broken pipe notification. Using the code to read QWbody
122 b3994ec5 2003-12-11 devnull * is n², which should probably also be fixed. Even then,
123 b3994ec5 2003-12-11 devnull * though, we'd need to squirrel away the data in case it's
124 b3994ec5 2003-12-11 devnull * modified during the operation, e.g. by |sort
126 b3994ec5 2003-12-11 devnull if(w->rdselfd > 0){
127 b3994ec5 2003-12-11 devnull winunlock(w);
128 b3994ec5 2003-12-11 devnull respond(x, &fc, Einuse);
131 b3994ec5 2003-12-11 devnull w->rdselfd = tempfile();
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, "can't create temp file");
137 b3994ec5 2003-12-11 devnull w->nopen[q]++;
138 b3994ec5 2003-12-11 devnull q0 = t->q0;
139 b3994ec5 2003-12-11 devnull q1 = t->q1;
140 b3994ec5 2003-12-11 devnull r = fbufalloc();
141 b3994ec5 2003-12-11 devnull s = fbufalloc();
142 b3994ec5 2003-12-11 devnull while(q0 < q1){
143 b3994ec5 2003-12-11 devnull n = q1 - q0;
144 b3994ec5 2003-12-11 devnull if(n > BUFSIZE/UTFmax)
145 b3994ec5 2003-12-11 devnull n = BUFSIZE/UTFmax;
146 b3994ec5 2003-12-11 devnull bufread(&t->file->b, q0, r, n);
147 b3994ec5 2003-12-11 devnull m = snprint(s, BUFSIZE+1, "%.*S", n, r);
148 b3994ec5 2003-12-11 devnull if(write(w->rdselfd, s, m) != m){
149 b3994ec5 2003-12-11 devnull warning(nil, "can't write temp file for pipe command %r\n");
152 b3994ec5 2003-12-11 devnull q0 += n;
154 b3994ec5 2003-12-11 devnull fbuffree(s);
155 b3994ec5 2003-12-11 devnull fbuffree(r);
157 b3994ec5 2003-12-11 devnull case QWwrsel:
158 b3994ec5 2003-12-11 devnull w->nopen[q]++;
160 b3994ec5 2003-12-11 devnull filemark(t->file);
161 b3994ec5 2003-12-11 devnull cut(t, t, nil, FALSE, TRUE, nil, 0);
162 be22ae2d 2004-03-26 devnull w->wrselrange = range(t->q1, t->q1);
163 b3994ec5 2003-12-11 devnull w->nomark = TRUE;
165 b3994ec5 2003-12-11 devnull case QWeditout:
166 b3994ec5 2003-12-11 devnull if(editing == FALSE){
167 b3994ec5 2003-12-11 devnull winunlock(w);
168 b3994ec5 2003-12-11 devnull respond(x, &fc, Eperm);
171 be22ae2d 2004-03-26 devnull w->wrselrange = range(t->q1, t->q1);
174 b3994ec5 2003-12-11 devnull winunlock(w);
176 b3994ec5 2003-12-11 devnull fc.qid = x->f->qid;
177 b3994ec5 2003-12-11 devnull fc.iounit = messagesize-IOHDRSZ;
178 b3994ec5 2003-12-11 devnull x->f->open = TRUE;
179 b3994ec5 2003-12-11 devnull respond(x, &fc, nil);
183 b3994ec5 2003-12-11 devnull xfidclose(Xfid *x)
185 b3994ec5 2003-12-11 devnull Fcall fc;
186 b3994ec5 2003-12-11 devnull Window *w;
188 b3994ec5 2003-12-11 devnull Text *t;
190 b3994ec5 2003-12-11 devnull w = x->f->w;
191 b3994ec5 2003-12-11 devnull x->f->busy = FALSE;
192 49588d5d 2003-12-17 devnull x->f->w = nil;
193 b3994ec5 2003-12-11 devnull if(x->f->open == FALSE){
194 b3994ec5 2003-12-11 devnull if(w != nil)
195 b3994ec5 2003-12-11 devnull winclose(w);
196 b3994ec5 2003-12-11 devnull respond(x, &fc, nil);
200 b3994ec5 2003-12-11 devnull x->f->open = FALSE;
202 b3994ec5 2003-12-11 devnull winlock(w, 'E');
203 b3994ec5 2003-12-11 devnull q = FILE(x->f->qid);
204 b3994ec5 2003-12-11 devnull switch(q){
205 b3994ec5 2003-12-11 devnull case QWctl:
206 b3994ec5 2003-12-11 devnull if(w->ctlfid!=~0 && w->ctlfid==x->f->fid){
207 b3994ec5 2003-12-11 devnull w->ctlfid = ~0;
208 b3994ec5 2003-12-11 devnull qunlock(&w->ctllock);
211 b3994ec5 2003-12-11 devnull case QWdata:
212 012a8a02 2004-10-22 devnull case QWxdata:
213 b3994ec5 2003-12-11 devnull w->nomark = FALSE;
214 b3994ec5 2003-12-11 devnull /* fall through */
215 b3994ec5 2003-12-11 devnull case QWaddr:
216 b3994ec5 2003-12-11 devnull case QWevent: /* BUG: do we need to shut down Xfid? */
217 b3994ec5 2003-12-11 devnull if(--w->nopen[q] == 0){
218 012a8a02 2004-10-22 devnull if(q == QWdata || q == QWxdata)
219 b3994ec5 2003-12-11 devnull w->nomark = FALSE;
220 b3994ec5 2003-12-11 devnull if(q==QWevent && !w->isdir && w->col!=nil){
221 b3994ec5 2003-12-11 devnull w->filemenu = TRUE;
222 b3994ec5 2003-12-11 devnull winsettag(w);
224 b3994ec5 2003-12-11 devnull if(q == QWevent){
225 b3994ec5 2003-12-11 devnull free(w->dumpstr);
226 b3994ec5 2003-12-11 devnull free(w->dumpdir);
227 b3994ec5 2003-12-11 devnull w->dumpstr = nil;
228 b3994ec5 2003-12-11 devnull w->dumpdir = nil;
232 b3994ec5 2003-12-11 devnull case QWrdsel:
233 b3994ec5 2003-12-11 devnull close(w->rdselfd);
234 b3994ec5 2003-12-11 devnull w->rdselfd = 0;
236 b3994ec5 2003-12-11 devnull case QWwrsel:
237 b3994ec5 2003-12-11 devnull w->nomark = FALSE;
238 b3994ec5 2003-12-11 devnull t = &w->body;
239 b3994ec5 2003-12-11 devnull /* before: only did this if !w->noscroll, but that didn't seem right in practice */
240 b3994ec5 2003-12-11 devnull textshow(t, min(w->wrselrange.q0, t->file->b.nc),
241 b3994ec5 2003-12-11 devnull min(w->wrselrange.q1, t->file->b.nc), 1);
242 b3994ec5 2003-12-11 devnull textscrdraw(t);
245 b3994ec5 2003-12-11 devnull winunlock(w);
246 b3994ec5 2003-12-11 devnull winclose(w);
248 b3994ec5 2003-12-11 devnull respond(x, &fc, nil);
252 b3994ec5 2003-12-11 devnull xfidread(Xfid *x)
254 b3994ec5 2003-12-11 devnull Fcall fc;
255 b3994ec5 2003-12-11 devnull int n, q;
256 b3994ec5 2003-12-11 devnull uint off;
257 b3994ec5 2003-12-11 devnull char *b;
258 627bae9c 2005-01-04 devnull char buf[256];
259 b3994ec5 2003-12-11 devnull Window *w;
261 b3994ec5 2003-12-11 devnull q = FILE(x->f->qid);
262 b3994ec5 2003-12-11 devnull w = x->f->w;
263 b3994ec5 2003-12-11 devnull if(w == nil){
264 b3994ec5 2003-12-11 devnull fc.count = 0;
265 b3994ec5 2003-12-11 devnull switch(q){
266 b3994ec5 2003-12-11 devnull case Qcons:
267 b3994ec5 2003-12-11 devnull case Qlabel:
269 b3994ec5 2003-12-11 devnull case Qindex:
270 b3994ec5 2003-12-11 devnull xfidindexread(x);
272 b3994ec5 2003-12-11 devnull default:
273 b3994ec5 2003-12-11 devnull warning(nil, "unknown qid %d\n", q);
276 b3994ec5 2003-12-11 devnull respond(x, &fc, nil);
279 b3994ec5 2003-12-11 devnull winlock(w, 'F');
280 b3994ec5 2003-12-11 devnull if(w->col == nil){
281 b3994ec5 2003-12-11 devnull winunlock(w);
282 b3994ec5 2003-12-11 devnull respond(x, &fc, Edel);
285 b3994ec5 2003-12-11 devnull off = x->fcall.offset;
286 b3994ec5 2003-12-11 devnull switch(q){
287 b3994ec5 2003-12-11 devnull case QWaddr:
288 b3994ec5 2003-12-11 devnull textcommit(&w->body, TRUE);
289 b3994ec5 2003-12-11 devnull clampaddr(w);
290 b3994ec5 2003-12-11 devnull sprint(buf, "%11d %11d ", w->addr.q0, w->addr.q1);
291 b3994ec5 2003-12-11 devnull goto Readbuf;
293 b3994ec5 2003-12-11 devnull case QWbody:
294 b3994ec5 2003-12-11 devnull xfidutfread(x, &w->body, w->body.file->b.nc, QWbody);
297 b3994ec5 2003-12-11 devnull case QWctl:
298 627bae9c 2005-01-04 devnull b = winctlprint(w, buf, 1);
299 627bae9c 2005-01-04 devnull goto Readb;
301 b3994ec5 2003-12-11 devnull Readbuf:
302 627bae9c 2005-01-04 devnull b = buf;
304 627bae9c 2005-01-04 devnull n = strlen(b);
305 b3994ec5 2003-12-11 devnull if(off > n)
306 b3994ec5 2003-12-11 devnull off = n;
307 b3994ec5 2003-12-11 devnull if(off+x->fcall.count > n)
308 b3994ec5 2003-12-11 devnull x->fcall.count = n-off;
309 b3994ec5 2003-12-11 devnull fc.count = x->fcall.count;
310 627bae9c 2005-01-04 devnull fc.data = b+off;
311 b3994ec5 2003-12-11 devnull respond(x, &fc, nil);
312 627bae9c 2005-01-04 devnull if(b != buf)
313 627bae9c 2005-01-04 devnull free(b);
316 b3994ec5 2003-12-11 devnull case QWevent:
317 b3994ec5 2003-12-11 devnull xfideventread(x, w);
320 b3994ec5 2003-12-11 devnull case QWdata:
321 b3994ec5 2003-12-11 devnull /* BUG: what should happen if q1 > q0? */
322 b3994ec5 2003-12-11 devnull if(w->addr.q0 > w->body.file->b.nc){
323 b3994ec5 2003-12-11 devnull respond(x, &fc, Eaddr);
326 b3994ec5 2003-12-11 devnull w->addr.q0 += xfidruneread(x, &w->body, w->addr.q0, w->body.file->b.nc);
327 b3994ec5 2003-12-11 devnull w->addr.q1 = w->addr.q0;
330 012a8a02 2004-10-22 devnull case QWxdata:
331 012a8a02 2004-10-22 devnull /* BUG: what should happen if q1 > q0? */
332 012a8a02 2004-10-22 devnull if(w->addr.q0 > w->body.file->b.nc){
333 012a8a02 2004-10-22 devnull respond(x, &fc, Eaddr);
336 012a8a02 2004-10-22 devnull w->addr.q0 += xfidruneread(x, &w->body, w->addr.q0, w->addr.q1);
339 b3994ec5 2003-12-11 devnull case QWtag:
340 b3994ec5 2003-12-11 devnull xfidutfread(x, &w->tag, w->tag.file->b.nc, QWtag);
343 b3994ec5 2003-12-11 devnull case QWrdsel:
344 b3994ec5 2003-12-11 devnull seek(w->rdselfd, off, 0);
345 b3994ec5 2003-12-11 devnull n = x->fcall.count;
346 b3994ec5 2003-12-11 devnull if(n > BUFSIZE)
347 b3994ec5 2003-12-11 devnull n = BUFSIZE;
348 b3994ec5 2003-12-11 devnull b = fbufalloc();
349 b3994ec5 2003-12-11 devnull n = read(w->rdselfd, b, n);
350 b3994ec5 2003-12-11 devnull if(n < 0){
351 b3994ec5 2003-12-11 devnull respond(x, &fc, "I/O error in temp file");
354 b3994ec5 2003-12-11 devnull fc.count = n;
355 b3994ec5 2003-12-11 devnull fc.data = b;
356 b3994ec5 2003-12-11 devnull respond(x, &fc, nil);
357 b3994ec5 2003-12-11 devnull fbuffree(b);
360 b3994ec5 2003-12-11 devnull default:
361 b3994ec5 2003-12-11 devnull sprint(buf, "unknown qid %d in read", q);
362 b3994ec5 2003-12-11 devnull respond(x, &fc, nil);
364 b3994ec5 2003-12-11 devnull winunlock(w);
368 b3994ec5 2003-12-11 devnull xfidwrite(Xfid *x)
370 b3994ec5 2003-12-11 devnull Fcall fc;
371 b3994ec5 2003-12-11 devnull int c, cnt, qid, q, nb, nr, eval;
372 b3994ec5 2003-12-11 devnull char buf[64], *err;
373 b3994ec5 2003-12-11 devnull Window *w;
374 b3994ec5 2003-12-11 devnull Rune *r;
375 b3994ec5 2003-12-11 devnull Range a;
376 b3994ec5 2003-12-11 devnull Text *t;
377 b3994ec5 2003-12-11 devnull uint q0, tq0, tq1;
379 b3994ec5 2003-12-11 devnull qid = FILE(x->f->qid);
380 b3994ec5 2003-12-11 devnull w = x->f->w;
382 b3994ec5 2003-12-11 devnull c = 'F';
383 b3994ec5 2003-12-11 devnull if(qid==QWtag || qid==QWbody)
384 b3994ec5 2003-12-11 devnull c = 'E';
385 b3994ec5 2003-12-11 devnull winlock(w, c);
386 b3994ec5 2003-12-11 devnull if(w->col == nil){
387 b3994ec5 2003-12-11 devnull winunlock(w);
388 b3994ec5 2003-12-11 devnull respond(x, &fc, Edel);
392 b3994ec5 2003-12-11 devnull x->fcall.data[x->fcall.count] = 0;
393 b3994ec5 2003-12-11 devnull switch(qid){
394 b3994ec5 2003-12-11 devnull case Qcons:
395 5a8e63b2 2004-02-29 devnull w = errorwin(x->f->mntdir, 'X');
396 b3994ec5 2003-12-11 devnull t=&w->body;
397 b3994ec5 2003-12-11 devnull goto BodyTag;
399 b3994ec5 2003-12-11 devnull case Qlabel:
400 b3994ec5 2003-12-11 devnull fc.count = x->fcall.count;
401 b3994ec5 2003-12-11 devnull respond(x, &fc, nil);
404 b3994ec5 2003-12-11 devnull case QWaddr:
405 b3994ec5 2003-12-11 devnull x->fcall.data[x->fcall.count] = 0;
406 b3994ec5 2003-12-11 devnull r = bytetorune(x->fcall.data, &nr);
407 b3994ec5 2003-12-11 devnull t = &w->body;
408 b3994ec5 2003-12-11 devnull wincommit(w, t);
409 b3994ec5 2003-12-11 devnull eval = TRUE;
410 012a8a02 2004-10-22 devnull a = address(FALSE, t, w->limit, w->addr, r, 0, nr, rgetc, &eval, (uint*)&nb);
411 b3994ec5 2003-12-11 devnull free(r);
412 b3994ec5 2003-12-11 devnull if(nb < nr){
413 b3994ec5 2003-12-11 devnull respond(x, &fc, Ebadaddr);
416 b3994ec5 2003-12-11 devnull if(!eval){
417 b3994ec5 2003-12-11 devnull respond(x, &fc, Eaddr);
420 b3994ec5 2003-12-11 devnull w->addr = a;
421 b3994ec5 2003-12-11 devnull fc.count = x->fcall.count;
422 b3994ec5 2003-12-11 devnull respond(x, &fc, nil);
425 b3994ec5 2003-12-11 devnull case Qeditout:
426 b3994ec5 2003-12-11 devnull case QWeditout:
427 b3994ec5 2003-12-11 devnull r = bytetorune(x->fcall.data, &nr);
429 b3994ec5 2003-12-11 devnull err = edittext(w, w->wrselrange.q1, r, nr);
431 b3994ec5 2003-12-11 devnull err = edittext(nil, 0, r, nr);
432 b3994ec5 2003-12-11 devnull free(r);
433 b3994ec5 2003-12-11 devnull if(err != nil){
434 b3994ec5 2003-12-11 devnull respond(x, &fc, err);
437 b3994ec5 2003-12-11 devnull fc.count = x->fcall.count;
438 b3994ec5 2003-12-11 devnull respond(x, &fc, nil);
441 b3994ec5 2003-12-11 devnull case QWbody:
442 b3994ec5 2003-12-11 devnull case QWwrsel:
443 b3994ec5 2003-12-11 devnull t = &w->body;
444 b3994ec5 2003-12-11 devnull goto BodyTag;
446 b3994ec5 2003-12-11 devnull case QWctl:
447 b3994ec5 2003-12-11 devnull xfidctlwrite(x, w);
450 b3994ec5 2003-12-11 devnull case QWdata:
451 b3994ec5 2003-12-11 devnull a = w->addr;
452 b3994ec5 2003-12-11 devnull t = &w->body;
453 b3994ec5 2003-12-11 devnull wincommit(w, t);
454 b3994ec5 2003-12-11 devnull if(a.q0>t->file->b.nc || a.q1>t->file->b.nc){
455 b3994ec5 2003-12-11 devnull respond(x, &fc, Eaddr);
458 b3994ec5 2003-12-11 devnull r = runemalloc(x->fcall.count);
459 b3994ec5 2003-12-11 devnull cvttorunes(x->fcall.data, x->fcall.count, r, &nb, &nr, nil);
460 b3994ec5 2003-12-11 devnull if(w->nomark == FALSE){
462 b3994ec5 2003-12-11 devnull filemark(t->file);
464 b3994ec5 2003-12-11 devnull q0 = a.q0;
465 b3994ec5 2003-12-11 devnull if(a.q1 > q0){
466 b3994ec5 2003-12-11 devnull textdelete(t, q0, a.q1, TRUE);
467 b3994ec5 2003-12-11 devnull w->addr.q1 = q0;
469 b3994ec5 2003-12-11 devnull tq0 = t->q0;
470 b3994ec5 2003-12-11 devnull tq1 = t->q1;
471 b3994ec5 2003-12-11 devnull textinsert(t, q0, r, nr, TRUE);
472 b3994ec5 2003-12-11 devnull if(tq0 >= q0)
473 b3994ec5 2003-12-11 devnull tq0 += nr;
474 b3994ec5 2003-12-11 devnull if(tq1 >= q0)
475 b3994ec5 2003-12-11 devnull tq1 += nr;
476 b3994ec5 2003-12-11 devnull textsetselect(t, tq0, tq1);
477 b3994ec5 2003-12-11 devnull if(!t->w->noscroll)
478 b3994ec5 2003-12-11 devnull textshow(t, q0, q0+nr, 0);
479 b3994ec5 2003-12-11 devnull textscrdraw(t);
480 b3994ec5 2003-12-11 devnull winsettag(w);
481 b3994ec5 2003-12-11 devnull free(r);
482 b3994ec5 2003-12-11 devnull w->addr.q0 += nr;
483 b3994ec5 2003-12-11 devnull w->addr.q1 = w->addr.q0;
484 b3994ec5 2003-12-11 devnull fc.count = x->fcall.count;
485 b3994ec5 2003-12-11 devnull respond(x, &fc, nil);
488 b3994ec5 2003-12-11 devnull case QWevent:
489 b3994ec5 2003-12-11 devnull xfideventwrite(x, w);
492 b3994ec5 2003-12-11 devnull case QWtag:
493 b3994ec5 2003-12-11 devnull t = &w->tag;
494 b3994ec5 2003-12-11 devnull goto BodyTag;
496 b3994ec5 2003-12-11 devnull BodyTag:
497 b3994ec5 2003-12-11 devnull q = x->f->nrpart;
498 b3994ec5 2003-12-11 devnull cnt = x->fcall.count;
499 b3994ec5 2003-12-11 devnull if(q > 0){
500 b3994ec5 2003-12-11 devnull memmove(x->fcall.data+q, x->fcall.data, cnt); /* there's room; see fsysproc */
501 b3994ec5 2003-12-11 devnull memmove(x->fcall.data, x->f->rpart, q);
502 b3994ec5 2003-12-11 devnull cnt += q;
503 b3994ec5 2003-12-11 devnull x->f->nrpart = 0;
505 b3994ec5 2003-12-11 devnull r = runemalloc(cnt);
506 b3994ec5 2003-12-11 devnull cvttorunes(x->fcall.data, cnt-UTFmax, r, &nb, &nr, nil);
507 b3994ec5 2003-12-11 devnull /* approach end of buffer */
508 b3994ec5 2003-12-11 devnull while(fullrune(x->fcall.data+nb, cnt-nb)){
510 b3994ec5 2003-12-11 devnull nb += chartorune(&r[nr], x->fcall.data+c);
511 b3994ec5 2003-12-11 devnull if(r[nr])
514 b3994ec5 2003-12-11 devnull if(nb < cnt){
515 b3994ec5 2003-12-11 devnull memmove(x->f->rpart, x->fcall.data+nb, cnt-nb);
516 b3994ec5 2003-12-11 devnull x->f->nrpart = cnt-nb;
518 b3994ec5 2003-12-11 devnull if(nr > 0){
519 b3994ec5 2003-12-11 devnull wincommit(w, t);
520 b3994ec5 2003-12-11 devnull if(qid == QWwrsel){
521 b3994ec5 2003-12-11 devnull q0 = w->wrselrange.q1;
522 b3994ec5 2003-12-11 devnull if(q0 > t->file->b.nc)
523 b3994ec5 2003-12-11 devnull q0 = t->file->b.nc;
525 b3994ec5 2003-12-11 devnull q0 = t->file->b.nc;
526 b3994ec5 2003-12-11 devnull if(qid == QWtag)
527 b3994ec5 2003-12-11 devnull textinsert(t, q0, r, nr, TRUE);
529 b3994ec5 2003-12-11 devnull if(w->nomark == FALSE){
531 b3994ec5 2003-12-11 devnull filemark(t->file);
533 b3994ec5 2003-12-11 devnull q0 = textbsinsert(t, q0, r, nr, TRUE, &nr);
534 b3994ec5 2003-12-11 devnull textsetselect(t, t->q0, t->q1); /* insert could leave it somewhere else */
535 b3994ec5 2003-12-11 devnull if(qid!=QWwrsel && !t->w->noscroll)
536 b3994ec5 2003-12-11 devnull textshow(t, q0+nr, q0+nr, 1);
537 b3994ec5 2003-12-11 devnull textscrdraw(t);
539 b3994ec5 2003-12-11 devnull winsettag(w);
540 b3994ec5 2003-12-11 devnull if(qid == QWwrsel)
541 b3994ec5 2003-12-11 devnull w->wrselrange.q1 += nr;
542 b3994ec5 2003-12-11 devnull free(r);
544 b3994ec5 2003-12-11 devnull fc.count = x->fcall.count;
545 b3994ec5 2003-12-11 devnull respond(x, &fc, nil);
548 b3994ec5 2003-12-11 devnull default:
549 b3994ec5 2003-12-11 devnull sprint(buf, "unknown qid %d in write", qid);
550 b3994ec5 2003-12-11 devnull respond(x, &fc, buf);
554 b3994ec5 2003-12-11 devnull winunlock(w);
558 b3994ec5 2003-12-11 devnull xfidctlwrite(Xfid *x, Window *w)
560 b3994ec5 2003-12-11 devnull Fcall fc;
561 b3994ec5 2003-12-11 devnull int i, m, n, nb, nr, nulls;
562 b3994ec5 2003-12-11 devnull Rune *r;
563 b3994ec5 2003-12-11 devnull char *err, *p, *pp, *q, *e;
564 b3994ec5 2003-12-11 devnull int isfbuf, scrdraw, settag;
565 b3994ec5 2003-12-11 devnull Text *t;
567 b3994ec5 2003-12-11 devnull err = nil;
568 b3994ec5 2003-12-11 devnull e = x->fcall.data+x->fcall.count;
569 b3994ec5 2003-12-11 devnull scrdraw = FALSE;
570 b3994ec5 2003-12-11 devnull settag = FALSE;
571 b3994ec5 2003-12-11 devnull isfbuf = TRUE;
572 b3994ec5 2003-12-11 devnull if(x->fcall.count < RBUFSIZE)
573 b3994ec5 2003-12-11 devnull r = fbufalloc();
575 b3994ec5 2003-12-11 devnull isfbuf = FALSE;
576 b3994ec5 2003-12-11 devnull r = emalloc(x->fcall.count*UTFmax+1);
578 b3994ec5 2003-12-11 devnull x->fcall.data[x->fcall.count] = 0;
579 b3994ec5 2003-12-11 devnull textcommit(&w->tag, TRUE);
580 b3994ec5 2003-12-11 devnull for(n=0; n<x->fcall.count; n+=m){
581 b3994ec5 2003-12-11 devnull p = x->fcall.data+n;
582 b3994ec5 2003-12-11 devnull if(strncmp(p, "lock", 4) == 0){ /* make window exclusive use */
583 b3994ec5 2003-12-11 devnull qlock(&w->ctllock);
584 b3994ec5 2003-12-11 devnull w->ctlfid = x->f->fid;
587 b3994ec5 2003-12-11 devnull if(strncmp(p, "unlock", 6) == 0){ /* release exclusive use */
588 b3994ec5 2003-12-11 devnull w->ctlfid = ~0;
589 b3994ec5 2003-12-11 devnull qunlock(&w->ctllock);
592 b3994ec5 2003-12-11 devnull if(strncmp(p, "clean", 5) == 0){ /* mark window 'clean', seq=0 */
593 b3994ec5 2003-12-11 devnull t = &w->body;
594 b3994ec5 2003-12-11 devnull t->eq0 = ~0;
595 b3994ec5 2003-12-11 devnull filereset(t->file);
596 b3994ec5 2003-12-11 devnull t->file->mod = FALSE;
597 b3994ec5 2003-12-11 devnull w->dirty = FALSE;
598 b3994ec5 2003-12-11 devnull settag = TRUE;
601 b3994ec5 2003-12-11 devnull if(strncmp(p, "dirty", 5) == 0){ /* mark window 'dirty' */
602 b3994ec5 2003-12-11 devnull t = &w->body;
603 b3994ec5 2003-12-11 devnull /* doesn't change sequence number, so "Put" won't appear. it shouldn't. */
604 b3994ec5 2003-12-11 devnull t->file->mod = TRUE;
605 b3994ec5 2003-12-11 devnull w->dirty = TRUE;
606 b3994ec5 2003-12-11 devnull settag = TRUE;
609 b3994ec5 2003-12-11 devnull if(strncmp(p, "show", 4) == 0){ /* show dot */
610 b3994ec5 2003-12-11 devnull t = &w->body;
611 b3994ec5 2003-12-11 devnull textshow(t, t->q0, t->q1, 1);
614 b3994ec5 2003-12-11 devnull if(strncmp(p, "name ", 5) == 0){ /* set file name */
615 b3994ec5 2003-12-11 devnull pp = p+5;
617 b3994ec5 2003-12-11 devnull q = memchr(pp, '\n', e-pp);
618 b3994ec5 2003-12-11 devnull if(q==nil || q==pp){
619 b3994ec5 2003-12-11 devnull err = Ebadctl;
623 b3994ec5 2003-12-11 devnull nulls = FALSE;
624 b3994ec5 2003-12-11 devnull cvttorunes(pp, q-pp, r, &nb, &nr, &nulls);
625 b3994ec5 2003-12-11 devnull if(nulls){
626 b3994ec5 2003-12-11 devnull err = "nulls in file name";
629 b3994ec5 2003-12-11 devnull for(i=0; i<nr; i++)
630 b3994ec5 2003-12-11 devnull if(r[i] <= ' '){
631 b3994ec5 2003-12-11 devnull err = "bad character in file name";
632 b3994ec5 2003-12-11 devnull goto out;
636 b3994ec5 2003-12-11 devnull filemark(w->body.file);
637 b3994ec5 2003-12-11 devnull winsetname(w, r, nr);
638 b3994ec5 2003-12-11 devnull m += (q+1) - pp;
640 b3994ec5 2003-12-11 devnull if(strncmp(p, "dump ", 5) == 0){ /* set dump string */
641 b3994ec5 2003-12-11 devnull pp = p+5;
643 b3994ec5 2003-12-11 devnull q = memchr(pp, '\n', e-pp);
644 b3994ec5 2003-12-11 devnull if(q==nil || q==pp){
645 b3994ec5 2003-12-11 devnull err = Ebadctl;
649 b3994ec5 2003-12-11 devnull nulls = FALSE;
650 b3994ec5 2003-12-11 devnull cvttorunes(pp, q-pp, r, &nb, &nr, &nulls);
651 b3994ec5 2003-12-11 devnull if(nulls){
652 b3994ec5 2003-12-11 devnull err = "nulls in dump string";
655 b3994ec5 2003-12-11 devnull w->dumpstr = runetobyte(r, nr);
656 b3994ec5 2003-12-11 devnull m += (q+1) - pp;
658 b3994ec5 2003-12-11 devnull if(strncmp(p, "dumpdir ", 8) == 0){ /* set dump directory */
659 b3994ec5 2003-12-11 devnull pp = p+8;
661 b3994ec5 2003-12-11 devnull q = memchr(pp, '\n', e-pp);
662 b3994ec5 2003-12-11 devnull if(q==nil || q==pp){
663 b3994ec5 2003-12-11 devnull err = Ebadctl;
667 b3994ec5 2003-12-11 devnull nulls = FALSE;
668 b3994ec5 2003-12-11 devnull cvttorunes(pp, q-pp, r, &nb, &nr, &nulls);
669 b3994ec5 2003-12-11 devnull if(nulls){
670 b3994ec5 2003-12-11 devnull err = "nulls in dump directory string";
673 b3994ec5 2003-12-11 devnull w->dumpdir = runetobyte(r, nr);
674 b3994ec5 2003-12-11 devnull m += (q+1) - pp;
676 b3994ec5 2003-12-11 devnull if(strncmp(p, "delete", 6) == 0){ /* delete for sure */
677 b3994ec5 2003-12-11 devnull colclose(w->col, w, TRUE);
680 b3994ec5 2003-12-11 devnull if(strncmp(p, "del", 3) == 0){ /* delete, but check dirty */
681 b3994ec5 2003-12-11 devnull if(!winclean(w, TRUE)){
682 b3994ec5 2003-12-11 devnull err = "file dirty";
685 b3994ec5 2003-12-11 devnull colclose(w->col, w, TRUE);
688 b3994ec5 2003-12-11 devnull if(strncmp(p, "get", 3) == 0){ /* get file */
689 b3994ec5 2003-12-11 devnull get(&w->body, nil, nil, FALSE, XXX, nil, 0);
692 b3994ec5 2003-12-11 devnull if(strncmp(p, "put", 3) == 0){ /* put file */
693 b3994ec5 2003-12-11 devnull put(&w->body, nil, nil, XXX, XXX, nil, 0);
696 b3994ec5 2003-12-11 devnull if(strncmp(p, "dot=addr", 8) == 0){ /* set dot */
697 b3994ec5 2003-12-11 devnull textcommit(&w->body, TRUE);
698 b3994ec5 2003-12-11 devnull clampaddr(w);
699 b3994ec5 2003-12-11 devnull w->body.q0 = w->addr.q0;
700 b3994ec5 2003-12-11 devnull w->body.q1 = w->addr.q1;
701 b3994ec5 2003-12-11 devnull textsetselect(&w->body, w->body.q0, w->body.q1);
702 b3994ec5 2003-12-11 devnull settag = TRUE;
705 b3994ec5 2003-12-11 devnull if(strncmp(p, "addr=dot", 8) == 0){ /* set addr */
706 b3994ec5 2003-12-11 devnull w->addr.q0 = w->body.q0;
707 b3994ec5 2003-12-11 devnull w->addr.q1 = w->body.q1;
710 b3994ec5 2003-12-11 devnull if(strncmp(p, "limit=addr", 10) == 0){ /* set limit */
711 b3994ec5 2003-12-11 devnull textcommit(&w->body, TRUE);
712 b3994ec5 2003-12-11 devnull clampaddr(w);
713 b3994ec5 2003-12-11 devnull w->limit.q0 = w->addr.q0;
714 b3994ec5 2003-12-11 devnull w->limit.q1 = w->addr.q1;
717 b3994ec5 2003-12-11 devnull if(strncmp(p, "nomark", 6) == 0){ /* turn off automatic marking */
718 b3994ec5 2003-12-11 devnull w->nomark = TRUE;
721 b3994ec5 2003-12-11 devnull if(strncmp(p, "mark", 4) == 0){ /* mark file */
723 b3994ec5 2003-12-11 devnull filemark(w->body.file);
724 b3994ec5 2003-12-11 devnull settag = TRUE;
727 b3994ec5 2003-12-11 devnull if(strncmp(p, "noscroll", 8) == 0){ /* turn off automatic scrolling */
728 b3994ec5 2003-12-11 devnull w->noscroll = TRUE;
731 b3994ec5 2003-12-11 devnull if(strncmp(p, "cleartag", 8) == 0){ /* wipe tag right of bar */
732 b3994ec5 2003-12-11 devnull wincleartag(w);
733 b3994ec5 2003-12-11 devnull settag = TRUE;
736 b3994ec5 2003-12-11 devnull if(strncmp(p, "scroll", 6) == 0){ /* turn on automatic scrolling (writes to body only) */
737 b3994ec5 2003-12-11 devnull w->noscroll = FALSE;
740 b3994ec5 2003-12-11 devnull err = Ebadctl;
743 b3994ec5 2003-12-11 devnull while(p[m] == '\n')
747 b3994ec5 2003-12-11 devnull if(isfbuf)
748 b3994ec5 2003-12-11 devnull fbuffree(r);
750 b3994ec5 2003-12-11 devnull free(r);
753 b3994ec5 2003-12-11 devnull fc.count = n;
754 b3994ec5 2003-12-11 devnull respond(x, &fc, err);
755 b3994ec5 2003-12-11 devnull if(settag)
756 b3994ec5 2003-12-11 devnull winsettag(w);
757 b3994ec5 2003-12-11 devnull if(scrdraw)
758 b3994ec5 2003-12-11 devnull textscrdraw(&w->body);
762 b3994ec5 2003-12-11 devnull xfideventwrite(Xfid *x, Window *w)
764 b3994ec5 2003-12-11 devnull Fcall fc;
765 b3994ec5 2003-12-11 devnull int m, n;
766 b3994ec5 2003-12-11 devnull Rune *r;
767 b3994ec5 2003-12-11 devnull char *err, *p, *q;
768 b3994ec5 2003-12-11 devnull int isfbuf;
769 b3994ec5 2003-12-11 devnull Text *t;
771 b3994ec5 2003-12-11 devnull uint q0, q1;
773 b3994ec5 2003-12-11 devnull err = nil;
774 b3994ec5 2003-12-11 devnull isfbuf = TRUE;
775 b3994ec5 2003-12-11 devnull if(x->fcall.count < RBUFSIZE)
776 b3994ec5 2003-12-11 devnull r = fbufalloc();
778 b3994ec5 2003-12-11 devnull isfbuf = FALSE;
779 b3994ec5 2003-12-11 devnull r = emalloc(x->fcall.count*UTFmax+1);
781 b3994ec5 2003-12-11 devnull for(n=0; n<x->fcall.count; n+=m){
782 b3994ec5 2003-12-11 devnull p = x->fcall.data+n;
783 b3994ec5 2003-12-11 devnull w->owner = *p++; /* disgusting */
784 b3994ec5 2003-12-11 devnull c = *p++;
785 b3994ec5 2003-12-11 devnull while(*p == ' ')
787 b3994ec5 2003-12-11 devnull q0 = strtoul(p, &q, 10);
788 b3994ec5 2003-12-11 devnull if(q == p)
789 b3994ec5 2003-12-11 devnull goto Rescue;
791 b3994ec5 2003-12-11 devnull while(*p == ' ')
793 b3994ec5 2003-12-11 devnull q1 = strtoul(p, &q, 10);
794 b3994ec5 2003-12-11 devnull if(q == p)
795 b3994ec5 2003-12-11 devnull goto Rescue;
797 b3994ec5 2003-12-11 devnull while(*p == ' ')
799 b3994ec5 2003-12-11 devnull if(*p++ != '\n')
800 b3994ec5 2003-12-11 devnull goto Rescue;
801 b3994ec5 2003-12-11 devnull m = p-(x->fcall.data+n);
802 b3994ec5 2003-12-11 devnull if('a'<=c && c<='z')
803 b3994ec5 2003-12-11 devnull t = &w->tag;
804 b3994ec5 2003-12-11 devnull else if('A'<=c && c<='Z')
805 b3994ec5 2003-12-11 devnull t = &w->body;
807 b3994ec5 2003-12-11 devnull goto Rescue;
808 b3994ec5 2003-12-11 devnull if(q0>t->file->b.nc || q1>t->file->b.nc || q0>q1)
809 b3994ec5 2003-12-11 devnull goto Rescue;
811 b3994ec5 2003-12-11 devnull qlock(&row.lk); /* just like mousethread */
812 b3994ec5 2003-12-11 devnull switch(c){
813 b3994ec5 2003-12-11 devnull case 'x':
814 b3994ec5 2003-12-11 devnull case 'X':
815 b3994ec5 2003-12-11 devnull execute(t, q0, q1, TRUE, nil);
817 b3994ec5 2003-12-11 devnull case 'l':
818 b3994ec5 2003-12-11 devnull case 'L':
819 b3994ec5 2003-12-11 devnull look3(t, q0, q1, TRUE);
821 b3994ec5 2003-12-11 devnull default:
822 b3994ec5 2003-12-11 devnull qunlock(&row.lk);
823 b3994ec5 2003-12-11 devnull goto Rescue;
825 b3994ec5 2003-12-11 devnull qunlock(&row.lk);
830 b3994ec5 2003-12-11 devnull if(isfbuf)
831 b3994ec5 2003-12-11 devnull fbuffree(r);
833 b3994ec5 2003-12-11 devnull free(r);
836 b3994ec5 2003-12-11 devnull fc.count = n;
837 b3994ec5 2003-12-11 devnull respond(x, &fc, err);
841 b3994ec5 2003-12-11 devnull err = Ebadevent;
842 b3994ec5 2003-12-11 devnull goto Out;
846 b3994ec5 2003-12-11 devnull xfidutfread(Xfid *x, Text *t, uint q1, int qid)
848 b3994ec5 2003-12-11 devnull Fcall fc;
849 b3994ec5 2003-12-11 devnull Window *w;
850 b3994ec5 2003-12-11 devnull Rune *r;
851 b3994ec5 2003-12-11 devnull char *b, *b1;
852 b3994ec5 2003-12-11 devnull uint q, off, boff;
853 b3994ec5 2003-12-11 devnull int m, n, nr, nb;
855 b3994ec5 2003-12-11 devnull w = t->w;
856 b3994ec5 2003-12-11 devnull wincommit(w, t);
857 b3994ec5 2003-12-11 devnull off = x->fcall.offset;
858 b3994ec5 2003-12-11 devnull r = fbufalloc();
859 b3994ec5 2003-12-11 devnull b = fbufalloc();
860 b3994ec5 2003-12-11 devnull b1 = fbufalloc();
862 b3994ec5 2003-12-11 devnull if(qid==w->utflastqid && off>=w->utflastboff && w->utflastq<=q1){
863 b3994ec5 2003-12-11 devnull boff = w->utflastboff;
864 b3994ec5 2003-12-11 devnull q = w->utflastq;
866 b3994ec5 2003-12-11 devnull /* BUG: stupid code: scan from beginning */
867 b3994ec5 2003-12-11 devnull boff = 0;
870 b3994ec5 2003-12-11 devnull w->utflastqid = qid;
871 b3994ec5 2003-12-11 devnull while(q<q1 && n<x->fcall.count){
873 b3994ec5 2003-12-11 devnull * Updating here avoids partial rune problem: we're always on a
874 b3994ec5 2003-12-11 devnull * char boundary. The cost is we will usually do one more read
875 b3994ec5 2003-12-11 devnull * than we really need, but that's better than being n^2.
877 b3994ec5 2003-12-11 devnull w->utflastboff = boff;
878 b3994ec5 2003-12-11 devnull w->utflastq = q;
879 b3994ec5 2003-12-11 devnull nr = q1-q;
880 b3994ec5 2003-12-11 devnull if(nr > BUFSIZE/UTFmax)
881 b3994ec5 2003-12-11 devnull nr = BUFSIZE/UTFmax;
882 b3994ec5 2003-12-11 devnull bufread(&t->file->b, q, r, nr);
883 b3994ec5 2003-12-11 devnull nb = snprint(b, BUFSIZE+1, "%.*S", nr, r);
884 b3994ec5 2003-12-11 devnull if(boff >= off){
886 b3994ec5 2003-12-11 devnull if(boff+m > off+x->fcall.count)
887 b3994ec5 2003-12-11 devnull m = off+x->fcall.count - boff;
888 b3994ec5 2003-12-11 devnull memmove(b1+n, b, m);
890 b3994ec5 2003-12-11 devnull }else if(boff+nb > off){
891 b3994ec5 2003-12-11 devnull if(n != 0)
892 b3994ec5 2003-12-11 devnull error("bad count in utfrune");
893 b3994ec5 2003-12-11 devnull m = nb - (off-boff);
894 b3994ec5 2003-12-11 devnull if(m > x->fcall.count)
895 b3994ec5 2003-12-11 devnull m = x->fcall.count;
896 b3994ec5 2003-12-11 devnull memmove(b1, b+(off-boff), m);
899 b3994ec5 2003-12-11 devnull boff += nb;
900 b3994ec5 2003-12-11 devnull q += nr;
902 b3994ec5 2003-12-11 devnull fbuffree(r);
903 b3994ec5 2003-12-11 devnull fbuffree(b);
904 b3994ec5 2003-12-11 devnull fc.count = n;
905 b3994ec5 2003-12-11 devnull fc.data = b1;
906 b3994ec5 2003-12-11 devnull respond(x, &fc, nil);
907 b3994ec5 2003-12-11 devnull fbuffree(b1);
911 b3994ec5 2003-12-11 devnull xfidruneread(Xfid *x, Text *t, uint q0, uint q1)
913 b3994ec5 2003-12-11 devnull Fcall fc;
914 b3994ec5 2003-12-11 devnull Window *w;
915 b3994ec5 2003-12-11 devnull Rune *r, junk;
916 b3994ec5 2003-12-11 devnull char *b, *b1;
917 b3994ec5 2003-12-11 devnull uint q, boff;
918 b3994ec5 2003-12-11 devnull int i, rw, m, n, nr, nb;
920 b3994ec5 2003-12-11 devnull w = t->w;
921 b3994ec5 2003-12-11 devnull wincommit(w, t);
922 b3994ec5 2003-12-11 devnull r = fbufalloc();
923 b3994ec5 2003-12-11 devnull b = fbufalloc();
924 b3994ec5 2003-12-11 devnull b1 = fbufalloc();
927 b3994ec5 2003-12-11 devnull boff = 0;
928 b3994ec5 2003-12-11 devnull while(q<q1 && n<x->fcall.count){
929 b3994ec5 2003-12-11 devnull nr = q1-q;
930 b3994ec5 2003-12-11 devnull if(nr > BUFSIZE/UTFmax)
931 b3994ec5 2003-12-11 devnull nr = BUFSIZE/UTFmax;
932 b3994ec5 2003-12-11 devnull bufread(&t->file->b, q, r, nr);
933 b3994ec5 2003-12-11 devnull nb = snprint(b, BUFSIZE+1, "%.*S", nr, r);
935 b3994ec5 2003-12-11 devnull if(boff+m > x->fcall.count){
936 b3994ec5 2003-12-11 devnull i = x->fcall.count - boff;
937 b3994ec5 2003-12-11 devnull /* copy whole runes only */
940 b3994ec5 2003-12-11 devnull while(m < i){
941 b3994ec5 2003-12-11 devnull rw = chartorune(&junk, b+m);
942 b3994ec5 2003-12-11 devnull if(m+rw > i)
944 b3994ec5 2003-12-11 devnull m += rw;
947 b3994ec5 2003-12-11 devnull if(m == 0)
950 b3994ec5 2003-12-11 devnull memmove(b1+n, b, m);
952 b3994ec5 2003-12-11 devnull boff += nb;
953 b3994ec5 2003-12-11 devnull q += nr;
955 b3994ec5 2003-12-11 devnull fbuffree(r);
956 b3994ec5 2003-12-11 devnull fbuffree(b);
957 b3994ec5 2003-12-11 devnull fc.count = n;
958 b3994ec5 2003-12-11 devnull fc.data = b1;
959 b3994ec5 2003-12-11 devnull respond(x, &fc, nil);
960 b3994ec5 2003-12-11 devnull fbuffree(b1);
961 b3994ec5 2003-12-11 devnull return q-q0;
965 b3994ec5 2003-12-11 devnull xfideventread(Xfid *x, Window *w)
967 b3994ec5 2003-12-11 devnull Fcall fc;
968 b3994ec5 2003-12-11 devnull char *b;
969 b3994ec5 2003-12-11 devnull int i, n;
972 b3994ec5 2003-12-11 devnull x->flushed = FALSE;
973 b3994ec5 2003-12-11 devnull while(w->nevents == 0){
975 b3994ec5 2003-12-11 devnull if(!x->flushed)
976 b3994ec5 2003-12-11 devnull respond(x, &fc, "window shut down");
979 b3994ec5 2003-12-11 devnull w->eventx = x;
980 b3994ec5 2003-12-11 devnull winunlock(w);
981 b3994ec5 2003-12-11 devnull recvp(x->c);
982 b3994ec5 2003-12-11 devnull winlock(w, 'F');
986 b3994ec5 2003-12-11 devnull n = w->nevents;
987 b3994ec5 2003-12-11 devnull if(n > x->fcall.count)
988 b3994ec5 2003-12-11 devnull n = x->fcall.count;
989 b3994ec5 2003-12-11 devnull fc.count = n;
990 b3994ec5 2003-12-11 devnull fc.data = w->events;
991 b3994ec5 2003-12-11 devnull respond(x, &fc, nil);
992 b3994ec5 2003-12-11 devnull b = w->events;
993 b3994ec5 2003-12-11 devnull w->events = estrdup(w->events+n);
994 b3994ec5 2003-12-11 devnull free(b);
995 b3994ec5 2003-12-11 devnull w->nevents -= n;
999 b3994ec5 2003-12-11 devnull xfidindexread(Xfid *x)
1001 b3994ec5 2003-12-11 devnull Fcall fc;
1002 b3994ec5 2003-12-11 devnull int i, j, m, n, nmax, isbuf, cnt, off;
1003 b3994ec5 2003-12-11 devnull Window *w;
1004 b3994ec5 2003-12-11 devnull char *b;
1005 b3994ec5 2003-12-11 devnull Rune *r;
1006 b3994ec5 2003-12-11 devnull Column *c;
1008 b3994ec5 2003-12-11 devnull qlock(&row.lk);
1009 b3994ec5 2003-12-11 devnull nmax = 0;
1010 b3994ec5 2003-12-11 devnull for(j=0; j<row.ncol; j++){
1011 b3994ec5 2003-12-11 devnull c = row.col[j];
1012 b3994ec5 2003-12-11 devnull for(i=0; i<c->nw; i++){
1013 b3994ec5 2003-12-11 devnull w = c->w[i];
1014 b3994ec5 2003-12-11 devnull nmax += Ctlsize + w->tag.file->b.nc*UTFmax + 1;
1017 b3994ec5 2003-12-11 devnull nmax++;
1018 b3994ec5 2003-12-11 devnull isbuf = (nmax<=RBUFSIZE);
1019 b3994ec5 2003-12-11 devnull if(isbuf)
1020 b3994ec5 2003-12-11 devnull b = (char*)x->buf;
1022 b3994ec5 2003-12-11 devnull b = emalloc(nmax);
1023 b3994ec5 2003-12-11 devnull r = fbufalloc();
1025 b3994ec5 2003-12-11 devnull for(j=0; j<row.ncol; j++){
1026 b3994ec5 2003-12-11 devnull c = row.col[j];
1027 b3994ec5 2003-12-11 devnull for(i=0; i<c->nw; i++){
1028 b3994ec5 2003-12-11 devnull w = c->w[i];
1029 b3994ec5 2003-12-11 devnull /* only show the currently active window of a set */
1030 b3994ec5 2003-12-11 devnull if(w->body.file->curtext != &w->body)
1031 b3994ec5 2003-12-11 devnull continue;
1032 b3994ec5 2003-12-11 devnull winctlprint(w, b+n, 0);
1033 b3994ec5 2003-12-11 devnull n += Ctlsize;
1034 b3994ec5 2003-12-11 devnull m = min(RBUFSIZE, w->tag.file->b.nc);
1035 b3994ec5 2003-12-11 devnull bufread(&w->tag.file->b, 0, r, m);
1036 b3994ec5 2003-12-11 devnull m = n + snprint(b+n, nmax-n-1, "%.*S", m, r);
1037 b3994ec5 2003-12-11 devnull while(n<m && b[n]!='\n')
1039 b3994ec5 2003-12-11 devnull b[n++] = '\n';
1042 b3994ec5 2003-12-11 devnull qunlock(&row.lk);
1043 b3994ec5 2003-12-11 devnull off = x->fcall.offset;
1044 b3994ec5 2003-12-11 devnull cnt = x->fcall.count;
1045 b3994ec5 2003-12-11 devnull if(off > n)
1046 b3994ec5 2003-12-11 devnull off = n;
1047 b3994ec5 2003-12-11 devnull if(off+cnt > n)
1048 b3994ec5 2003-12-11 devnull cnt = n-off;
1049 b3994ec5 2003-12-11 devnull fc.count = cnt;
1050 b3994ec5 2003-12-11 devnull memmove(r, b+off, cnt);
1051 b3994ec5 2003-12-11 devnull fc.data = (char*)r;
1052 b3994ec5 2003-12-11 devnull if(!isbuf)
1053 b3994ec5 2003-12-11 devnull free(b);
1054 b3994ec5 2003-12-11 devnull respond(x, &fc, nil);
1055 b3994ec5 2003-12-11 devnull fbuffree(r);