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 b3994ec5 2003-12-11 devnull 	Ctlsize	= 5*12
  17 b3994ec5 2003-12-11 devnull };
  18 b3994ec5 2003-12-11 devnull 
  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[];
  26 b3994ec5 2003-12-11 devnull 
  27 b3994ec5 2003-12-11 devnull static
  28 b3994ec5 2003-12-11 devnull void
  29 b3994ec5 2003-12-11 devnull clampaddr(Window *w)
  30 b3994ec5 2003-12-11 devnull {
  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;
  39 b3994ec5 2003-12-11 devnull }
  40 b3994ec5 2003-12-11 devnull 
  41 b3994ec5 2003-12-11 devnull void
  42 b3994ec5 2003-12-11 devnull xfidctl(void *arg)
  43 b3994ec5 2003-12-11 devnull {
  44 b3994ec5 2003-12-11 devnull 	Xfid *x;
  45 b3994ec5 2003-12-11 devnull 	void (*f)(Xfid*);
  46 b3994ec5 2003-12-11 devnull 
  47 b3994ec5 2003-12-11 devnull 	threadsetname("xfidctlthread");
  48 b3994ec5 2003-12-11 devnull 	x = arg;
  49 b3994ec5 2003-12-11 devnull 	for(;;){
  50 be22ae2d 2004-03-26 devnull 		f = (void(*)(Xfid*))recvp(x->c);
  51 b3994ec5 2003-12-11 devnull 		(*f)(x);
  52 b3994ec5 2003-12-11 devnull 		flushimage(display, 1);
  53 b3994ec5 2003-12-11 devnull 		sendp(cxfidfree, x);
  54 b3994ec5 2003-12-11 devnull 	}
  55 b3994ec5 2003-12-11 devnull }
  56 b3994ec5 2003-12-11 devnull 
  57 b3994ec5 2003-12-11 devnull void
  58 b3994ec5 2003-12-11 devnull xfidflush(Xfid *x)
  59 b3994ec5 2003-12-11 devnull {
  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;
  65 b3994ec5 2003-12-11 devnull 
  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;
  80 b3994ec5 2003-12-11 devnull 			}
  81 b3994ec5 2003-12-11 devnull 			winunlock(w);
  82 b3994ec5 2003-12-11 devnull 		}
  83 b3994ec5 2003-12-11 devnull 	}
  84 b3994ec5 2003-12-11 devnull out:
  85 b3994ec5 2003-12-11 devnull 	qunlock(&row.lk);
  86 b3994ec5 2003-12-11 devnull 	respond(x, &fc, nil);
  87 b3994ec5 2003-12-11 devnull }
  88 b3994ec5 2003-12-11 devnull 
  89 b3994ec5 2003-12-11 devnull void
  90 b3994ec5 2003-12-11 devnull xfidopen(Xfid *x)
  91 b3994ec5 2003-12-11 devnull {
  92 b3994ec5 2003-12-11 devnull 	Fcall fc;
  93 b3994ec5 2003-12-11 devnull 	Window *w;
  94 b3994ec5 2003-12-11 devnull 	Text *t;
  95 b3994ec5 2003-12-11 devnull 	char *s;
  96 b3994ec5 2003-12-11 devnull 	Rune *r;
  97 b3994ec5 2003-12-11 devnull 	int m, n, q, q0, q1;
  98 b3994ec5 2003-12-11 devnull 
  99 b3994ec5 2003-12-11 devnull 	w = x->f->w;
 100 b3994ec5 2003-12-11 devnull 	t = &w->body;
 101 b3994ec5 2003-12-11 devnull 	if(w){
 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 b3994ec5 2003-12-11 devnull 			if(w->nopen[q]++ == 0){
 107 be22ae2d 2004-03-26 devnull 				w->addr = range(0,0);
 108 be22ae2d 2004-03-26 devnull 				w->limit = range(-1,-1);
 109 b3994ec5 2003-12-11 devnull 			}
 110 b3994ec5 2003-12-11 devnull 			break;
 111 b3994ec5 2003-12-11 devnull 		case QWdata:
 112 b3994ec5 2003-12-11 devnull 			w->nopen[q]++;
 113 b3994ec5 2003-12-11 devnull 			break;
 114 b3994ec5 2003-12-11 devnull 		case QWevent:
 115 b3994ec5 2003-12-11 devnull 			if(w->nopen[q]++ == 0){
 116 b3994ec5 2003-12-11 devnull 				if(!w->isdir && w->col!=nil){
 117 b3994ec5 2003-12-11 devnull 					w->filemenu = FALSE;
 118 b3994ec5 2003-12-11 devnull 					winsettag(w);
 119 b3994ec5 2003-12-11 devnull 				}
 120 b3994ec5 2003-12-11 devnull 			}
 121 b3994ec5 2003-12-11 devnull 			break;
 122 b3994ec5 2003-12-11 devnull 		case QWrdsel:
 123 b3994ec5 2003-12-11 devnull 			/*
 124 b3994ec5 2003-12-11 devnull 			 * Use a temporary file.
 125 b3994ec5 2003-12-11 devnull 			 * A pipe would be the obvious, but we can't afford the
 126 b3994ec5 2003-12-11 devnull 			 * broken pipe notification.  Using the code to read QWbody
 127 b3994ec5 2003-12-11 devnull 			 * is n², which should probably also be fixed.  Even then,
 128 b3994ec5 2003-12-11 devnull 			 * though, we'd need to squirrel away the data in case it's
 129 b3994ec5 2003-12-11 devnull 			 * modified during the operation, e.g. by |sort
 130 b3994ec5 2003-12-11 devnull 			 */
 131 b3994ec5 2003-12-11 devnull 			if(w->rdselfd > 0){
 132 b3994ec5 2003-12-11 devnull 				winunlock(w);
 133 b3994ec5 2003-12-11 devnull 				respond(x, &fc, Einuse);
 134 b3994ec5 2003-12-11 devnull 				return;
 135 b3994ec5 2003-12-11 devnull 			}
 136 b3994ec5 2003-12-11 devnull 			w->rdselfd = tempfile();
 137 b3994ec5 2003-12-11 devnull 			if(w->rdselfd < 0){
 138 b3994ec5 2003-12-11 devnull 				winunlock(w);
 139 b3994ec5 2003-12-11 devnull 				respond(x, &fc, "can't create temp file");
 140 b3994ec5 2003-12-11 devnull 				return;
 141 b3994ec5 2003-12-11 devnull 			}
 142 b3994ec5 2003-12-11 devnull 			w->nopen[q]++;
 143 b3994ec5 2003-12-11 devnull 			q0 = t->q0;
 144 b3994ec5 2003-12-11 devnull 			q1 = t->q1;
 145 b3994ec5 2003-12-11 devnull 			r = fbufalloc();
 146 b3994ec5 2003-12-11 devnull 			s = fbufalloc();
 147 b3994ec5 2003-12-11 devnull 			while(q0 < q1){
 148 b3994ec5 2003-12-11 devnull 				n = q1 - q0;
 149 b3994ec5 2003-12-11 devnull 				if(n > BUFSIZE/UTFmax)
 150 b3994ec5 2003-12-11 devnull 					n = BUFSIZE/UTFmax;
 151 b3994ec5 2003-12-11 devnull 				bufread(&t->file->b, q0, r, n);
 152 b3994ec5 2003-12-11 devnull 				m = snprint(s, BUFSIZE+1, "%.*S", n, r);
 153 b3994ec5 2003-12-11 devnull 				if(write(w->rdselfd, s, m) != m){
 154 b3994ec5 2003-12-11 devnull 					warning(nil, "can't write temp file for pipe command %r\n");
 155 b3994ec5 2003-12-11 devnull 					break;
 156 b3994ec5 2003-12-11 devnull 				}
 157 b3994ec5 2003-12-11 devnull 				q0 += n;
 158 b3994ec5 2003-12-11 devnull 			}
 159 b3994ec5 2003-12-11 devnull 			fbuffree(s);
 160 b3994ec5 2003-12-11 devnull 			fbuffree(r);
 161 b3994ec5 2003-12-11 devnull 			break;
 162 b3994ec5 2003-12-11 devnull 		case QWwrsel:
 163 b3994ec5 2003-12-11 devnull 			w->nopen[q]++;
 164 b3994ec5 2003-12-11 devnull 			seq++;
 165 b3994ec5 2003-12-11 devnull 			filemark(t->file);
 166 b3994ec5 2003-12-11 devnull 			cut(t, t, nil, FALSE, TRUE, nil, 0);
 167 be22ae2d 2004-03-26 devnull 			w->wrselrange = range(t->q1, t->q1);
 168 b3994ec5 2003-12-11 devnull 			w->nomark = TRUE;
 169 b3994ec5 2003-12-11 devnull 			break;
 170 b3994ec5 2003-12-11 devnull 		case QWeditout:
 171 b3994ec5 2003-12-11 devnull 			if(editing == FALSE){
 172 b3994ec5 2003-12-11 devnull 				winunlock(w);
 173 b3994ec5 2003-12-11 devnull 				respond(x, &fc, Eperm);
 174 b3994ec5 2003-12-11 devnull 				return;
 175 b3994ec5 2003-12-11 devnull 			}
 176 be22ae2d 2004-03-26 devnull 			w->wrselrange = range(t->q1, t->q1);
 177 b3994ec5 2003-12-11 devnull 			break;
 178 b3994ec5 2003-12-11 devnull 		}
 179 b3994ec5 2003-12-11 devnull 		winunlock(w);
 180 b3994ec5 2003-12-11 devnull 	}
 181 b3994ec5 2003-12-11 devnull 	fc.qid = x->f->qid;
 182 b3994ec5 2003-12-11 devnull 	fc.iounit = messagesize-IOHDRSZ;
 183 b3994ec5 2003-12-11 devnull 	x->f->open = TRUE;
 184 b3994ec5 2003-12-11 devnull 	respond(x, &fc, nil);
 185 b3994ec5 2003-12-11 devnull }
 186 b3994ec5 2003-12-11 devnull 
 187 b3994ec5 2003-12-11 devnull void
 188 b3994ec5 2003-12-11 devnull xfidclose(Xfid *x)
 189 b3994ec5 2003-12-11 devnull {
 190 b3994ec5 2003-12-11 devnull 	Fcall fc;
 191 b3994ec5 2003-12-11 devnull 	Window *w;
 192 b3994ec5 2003-12-11 devnull 	int q;
 193 b3994ec5 2003-12-11 devnull 	Text *t;
 194 b3994ec5 2003-12-11 devnull 
 195 b3994ec5 2003-12-11 devnull 	w = x->f->w;
 196 b3994ec5 2003-12-11 devnull 	x->f->busy = FALSE;
 197 49588d5d 2003-12-17 devnull 	x->f->w = nil;
 198 b3994ec5 2003-12-11 devnull 	if(x->f->open == FALSE){
 199 b3994ec5 2003-12-11 devnull 		if(w != nil)
 200 b3994ec5 2003-12-11 devnull 			winclose(w);
 201 b3994ec5 2003-12-11 devnull 		respond(x, &fc, nil);
 202 b3994ec5 2003-12-11 devnull 		return;
 203 b3994ec5 2003-12-11 devnull 	}
 204 b3994ec5 2003-12-11 devnull 
 205 b3994ec5 2003-12-11 devnull 	x->f->open = FALSE;
 206 b3994ec5 2003-12-11 devnull 	if(w){
 207 b3994ec5 2003-12-11 devnull 		winlock(w, 'E');
 208 b3994ec5 2003-12-11 devnull 		q = FILE(x->f->qid);
 209 b3994ec5 2003-12-11 devnull 		switch(q){
 210 b3994ec5 2003-12-11 devnull 		case QWctl:
 211 b3994ec5 2003-12-11 devnull 			if(w->ctlfid!=~0 && w->ctlfid==x->f->fid){
 212 b3994ec5 2003-12-11 devnull 				w->ctlfid = ~0;
 213 b3994ec5 2003-12-11 devnull 				qunlock(&w->ctllock);
 214 b3994ec5 2003-12-11 devnull 			}
 215 b3994ec5 2003-12-11 devnull 			break;
 216 b3994ec5 2003-12-11 devnull 		case QWdata:
 217 b3994ec5 2003-12-11 devnull 			w->nomark = FALSE;
 218 b3994ec5 2003-12-11 devnull 			/* fall through */
 219 b3994ec5 2003-12-11 devnull 		case QWaddr:
 220 b3994ec5 2003-12-11 devnull 		case QWevent:	/* BUG: do we need to shut down Xfid? */
 221 b3994ec5 2003-12-11 devnull 			if(--w->nopen[q] == 0){
 222 b3994ec5 2003-12-11 devnull 				if(q == QWdata)
 223 b3994ec5 2003-12-11 devnull 					w->nomark = FALSE;
 224 b3994ec5 2003-12-11 devnull 				if(q==QWevent && !w->isdir && w->col!=nil){
 225 b3994ec5 2003-12-11 devnull 					w->filemenu = TRUE;
 226 b3994ec5 2003-12-11 devnull 					winsettag(w);
 227 b3994ec5 2003-12-11 devnull 				}
 228 b3994ec5 2003-12-11 devnull 				if(q == QWevent){
 229 b3994ec5 2003-12-11 devnull 					free(w->dumpstr);
 230 b3994ec5 2003-12-11 devnull 					free(w->dumpdir);
 231 b3994ec5 2003-12-11 devnull 					w->dumpstr = nil;
 232 b3994ec5 2003-12-11 devnull 					w->dumpdir = nil;
 233 b3994ec5 2003-12-11 devnull 				}
 234 b3994ec5 2003-12-11 devnull 			}
 235 b3994ec5 2003-12-11 devnull 			break;
 236 b3994ec5 2003-12-11 devnull 		case QWrdsel:
 237 b3994ec5 2003-12-11 devnull 			close(w->rdselfd);
 238 b3994ec5 2003-12-11 devnull 			w->rdselfd = 0;
 239 b3994ec5 2003-12-11 devnull 			break;
 240 b3994ec5 2003-12-11 devnull 		case QWwrsel:
 241 b3994ec5 2003-12-11 devnull 			w->nomark = FALSE;
 242 b3994ec5 2003-12-11 devnull 			t = &w->body;
 243 b3994ec5 2003-12-11 devnull 			/* before: only did this if !w->noscroll, but that didn't seem right in practice */
 244 b3994ec5 2003-12-11 devnull 			textshow(t, min(w->wrselrange.q0, t->file->b.nc),
 245 b3994ec5 2003-12-11 devnull 				min(w->wrselrange.q1, t->file->b.nc), 1);
 246 b3994ec5 2003-12-11 devnull 			textscrdraw(t);
 247 b3994ec5 2003-12-11 devnull 			break;
 248 b3994ec5 2003-12-11 devnull 		}
 249 b3994ec5 2003-12-11 devnull 		winunlock(w);
 250 b3994ec5 2003-12-11 devnull 		winclose(w);
 251 b3994ec5 2003-12-11 devnull 	}
 252 b3994ec5 2003-12-11 devnull 	respond(x, &fc, nil);
 253 b3994ec5 2003-12-11 devnull }
 254 b3994ec5 2003-12-11 devnull 
 255 b3994ec5 2003-12-11 devnull void
 256 b3994ec5 2003-12-11 devnull xfidread(Xfid *x)
 257 b3994ec5 2003-12-11 devnull {
 258 b3994ec5 2003-12-11 devnull 	Fcall fc;
 259 b3994ec5 2003-12-11 devnull 	int n, q;
 260 b3994ec5 2003-12-11 devnull 	uint off;
 261 b3994ec5 2003-12-11 devnull 	char *b;
 262 b3994ec5 2003-12-11 devnull 	char buf[128];
 263 b3994ec5 2003-12-11 devnull 	Window *w;
 264 b3994ec5 2003-12-11 devnull 
 265 b3994ec5 2003-12-11 devnull 	q = FILE(x->f->qid);
 266 b3994ec5 2003-12-11 devnull 	w = x->f->w;
 267 b3994ec5 2003-12-11 devnull 	if(w == nil){
 268 b3994ec5 2003-12-11 devnull 		fc.count = 0;
 269 b3994ec5 2003-12-11 devnull 		switch(q){
 270 b3994ec5 2003-12-11 devnull 		case Qcons:
 271 b3994ec5 2003-12-11 devnull 		case Qlabel:
 272 b3994ec5 2003-12-11 devnull 			break;
 273 b3994ec5 2003-12-11 devnull 		case Qindex:
 274 b3994ec5 2003-12-11 devnull 			xfidindexread(x);
 275 b3994ec5 2003-12-11 devnull 			return;
 276 b3994ec5 2003-12-11 devnull 		default:
 277 b3994ec5 2003-12-11 devnull 			warning(nil, "unknown qid %d\n", q);
 278 b3994ec5 2003-12-11 devnull 			break;
 279 b3994ec5 2003-12-11 devnull 		}
 280 b3994ec5 2003-12-11 devnull 		respond(x, &fc, nil);
 281 b3994ec5 2003-12-11 devnull 		return;
 282 b3994ec5 2003-12-11 devnull 	}
 283 b3994ec5 2003-12-11 devnull 	winlock(w, 'F');
 284 b3994ec5 2003-12-11 devnull 	if(w->col == nil){
 285 b3994ec5 2003-12-11 devnull 		winunlock(w);
 286 b3994ec5 2003-12-11 devnull 		respond(x, &fc, Edel);
 287 b3994ec5 2003-12-11 devnull 		return;
 288 b3994ec5 2003-12-11 devnull 	}
 289 b3994ec5 2003-12-11 devnull 	off = x->fcall.offset;
 290 b3994ec5 2003-12-11 devnull 	switch(q){
 291 b3994ec5 2003-12-11 devnull 	case QWaddr:
 292 b3994ec5 2003-12-11 devnull 		textcommit(&w->body, TRUE);
 293 b3994ec5 2003-12-11 devnull 		clampaddr(w);
 294 b3994ec5 2003-12-11 devnull 		sprint(buf, "%11d %11d ", w->addr.q0, w->addr.q1);
 295 b3994ec5 2003-12-11 devnull 		goto Readbuf;
 296 b3994ec5 2003-12-11 devnull 
 297 b3994ec5 2003-12-11 devnull 	case QWbody:
 298 b3994ec5 2003-12-11 devnull 		xfidutfread(x, &w->body, w->body.file->b.nc, QWbody);
 299 b3994ec5 2003-12-11 devnull 		break;
 300 b3994ec5 2003-12-11 devnull 
 301 b3994ec5 2003-12-11 devnull 	case QWctl:
 302 b3994ec5 2003-12-11 devnull 		winctlprint(w, buf, 1);
 303 b3994ec5 2003-12-11 devnull 		goto Readbuf;
 304 b3994ec5 2003-12-11 devnull 
 305 b3994ec5 2003-12-11 devnull 	Readbuf:
 306 b3994ec5 2003-12-11 devnull 		n = strlen(buf);
 307 b3994ec5 2003-12-11 devnull 		if(off > n)
 308 b3994ec5 2003-12-11 devnull 			off = n;
 309 b3994ec5 2003-12-11 devnull 		if(off+x->fcall.count > n)
 310 b3994ec5 2003-12-11 devnull 			x->fcall.count = n-off;
 311 b3994ec5 2003-12-11 devnull 		fc.count = x->fcall.count;
 312 b3994ec5 2003-12-11 devnull 		fc.data = buf+off;
 313 b3994ec5 2003-12-11 devnull 		respond(x, &fc, nil);
 314 b3994ec5 2003-12-11 devnull 		break;
 315 b3994ec5 2003-12-11 devnull 
 316 b3994ec5 2003-12-11 devnull 	case QWevent:
 317 b3994ec5 2003-12-11 devnull 		xfideventread(x, w);
 318 b3994ec5 2003-12-11 devnull 		break;
 319 b3994ec5 2003-12-11 devnull 
 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);
 324 b3994ec5 2003-12-11 devnull 			break;
 325 b3994ec5 2003-12-11 devnull 		}
 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;
 328 b3994ec5 2003-12-11 devnull 		break;
 329 b3994ec5 2003-12-11 devnull 
 330 b3994ec5 2003-12-11 devnull 	case QWtag:
 331 b3994ec5 2003-12-11 devnull 		xfidutfread(x, &w->tag, w->tag.file->b.nc, QWtag);
 332 b3994ec5 2003-12-11 devnull 		break;
 333 b3994ec5 2003-12-11 devnull 
 334 b3994ec5 2003-12-11 devnull 	case QWrdsel:
 335 b3994ec5 2003-12-11 devnull 		seek(w->rdselfd, off, 0);
 336 b3994ec5 2003-12-11 devnull 		n = x->fcall.count;
 337 b3994ec5 2003-12-11 devnull 		if(n > BUFSIZE)
 338 b3994ec5 2003-12-11 devnull 			n = BUFSIZE;
 339 b3994ec5 2003-12-11 devnull 		b = fbufalloc();
 340 b3994ec5 2003-12-11 devnull 		n = read(w->rdselfd, b, n);
 341 b3994ec5 2003-12-11 devnull 		if(n < 0){
 342 b3994ec5 2003-12-11 devnull 			respond(x, &fc, "I/O error in temp file");
 343 b3994ec5 2003-12-11 devnull 			break;
 344 b3994ec5 2003-12-11 devnull 		}
 345 b3994ec5 2003-12-11 devnull 		fc.count = n;
 346 b3994ec5 2003-12-11 devnull 		fc.data = b;
 347 b3994ec5 2003-12-11 devnull 		respond(x, &fc, nil);
 348 b3994ec5 2003-12-11 devnull 		fbuffree(b);
 349 b3994ec5 2003-12-11 devnull 		break;
 350 b3994ec5 2003-12-11 devnull 
 351 b3994ec5 2003-12-11 devnull 	default:
 352 b3994ec5 2003-12-11 devnull 		sprint(buf, "unknown qid %d in read", q);
 353 b3994ec5 2003-12-11 devnull 		respond(x, &fc, nil);
 354 b3994ec5 2003-12-11 devnull 	}
 355 b3994ec5 2003-12-11 devnull 	winunlock(w);
 356 b3994ec5 2003-12-11 devnull }
 357 b3994ec5 2003-12-11 devnull 
 358 b3994ec5 2003-12-11 devnull void
 359 b3994ec5 2003-12-11 devnull xfidwrite(Xfid *x)
 360 b3994ec5 2003-12-11 devnull {
 361 b3994ec5 2003-12-11 devnull 	Fcall fc;
 362 b3994ec5 2003-12-11 devnull 	int c, cnt, qid, q, nb, nr, eval;
 363 b3994ec5 2003-12-11 devnull 	char buf[64], *err;
 364 b3994ec5 2003-12-11 devnull 	Window *w;
 365 b3994ec5 2003-12-11 devnull 	Rune *r;
 366 b3994ec5 2003-12-11 devnull 	Range a;
 367 b3994ec5 2003-12-11 devnull 	Text *t;
 368 b3994ec5 2003-12-11 devnull 	uint q0, tq0, tq1;
 369 b3994ec5 2003-12-11 devnull 
 370 b3994ec5 2003-12-11 devnull 	qid = FILE(x->f->qid);
 371 b3994ec5 2003-12-11 devnull 	w = x->f->w;
 372 b3994ec5 2003-12-11 devnull 	if(w){
 373 b3994ec5 2003-12-11 devnull 		c = 'F';
 374 b3994ec5 2003-12-11 devnull 		if(qid==QWtag || qid==QWbody)
 375 b3994ec5 2003-12-11 devnull 			c = 'E';
 376 b3994ec5 2003-12-11 devnull 		winlock(w, c);
 377 b3994ec5 2003-12-11 devnull 		if(w->col == nil){
 378 b3994ec5 2003-12-11 devnull 			winunlock(w);
 379 b3994ec5 2003-12-11 devnull 			respond(x, &fc, Edel);
 380 b3994ec5 2003-12-11 devnull 			return;
 381 b3994ec5 2003-12-11 devnull 		}
 382 b3994ec5 2003-12-11 devnull 	}
 383 b3994ec5 2003-12-11 devnull 	x->fcall.data[x->fcall.count] = 0;
 384 b3994ec5 2003-12-11 devnull 	switch(qid){
 385 b3994ec5 2003-12-11 devnull 	case Qcons:
 386 5a8e63b2 2004-02-29 devnull 		w = errorwin(x->f->mntdir, 'X');
 387 b3994ec5 2003-12-11 devnull 		t=&w->body;
 388 b3994ec5 2003-12-11 devnull 		goto BodyTag;
 389 b3994ec5 2003-12-11 devnull 
 390 b3994ec5 2003-12-11 devnull 	case Qlabel:
 391 b3994ec5 2003-12-11 devnull 		fc.count = x->fcall.count;
 392 b3994ec5 2003-12-11 devnull 		respond(x, &fc, nil);
 393 b3994ec5 2003-12-11 devnull 		break;
 394 b3994ec5 2003-12-11 devnull 
 395 b3994ec5 2003-12-11 devnull 	case QWaddr:
 396 b3994ec5 2003-12-11 devnull 		x->fcall.data[x->fcall.count] = 0;
 397 b3994ec5 2003-12-11 devnull 		r = bytetorune(x->fcall.data, &nr);
 398 b3994ec5 2003-12-11 devnull 		t = &w->body;
 399 b3994ec5 2003-12-11 devnull 		wincommit(w, t);
 400 b3994ec5 2003-12-11 devnull 		eval = TRUE;
 401 b3994ec5 2003-12-11 devnull 		a = address(x->f->mntdir, t, w->limit, w->addr, r, 0, nr, rgetc, &eval, (uint*)&nb);
 402 b3994ec5 2003-12-11 devnull 		free(r);
 403 b3994ec5 2003-12-11 devnull 		if(nb < nr){
 404 b3994ec5 2003-12-11 devnull 			respond(x, &fc, Ebadaddr);
 405 b3994ec5 2003-12-11 devnull 			break;
 406 b3994ec5 2003-12-11 devnull 		}
 407 b3994ec5 2003-12-11 devnull 		if(!eval){
 408 b3994ec5 2003-12-11 devnull 			respond(x, &fc, Eaddr);
 409 b3994ec5 2003-12-11 devnull 			break;
 410 b3994ec5 2003-12-11 devnull 		}
 411 b3994ec5 2003-12-11 devnull 		w->addr = a;
 412 b3994ec5 2003-12-11 devnull 		fc.count = x->fcall.count;
 413 b3994ec5 2003-12-11 devnull 		respond(x, &fc, nil);
 414 b3994ec5 2003-12-11 devnull 		break;
 415 b3994ec5 2003-12-11 devnull 
 416 b3994ec5 2003-12-11 devnull 	case Qeditout:
 417 b3994ec5 2003-12-11 devnull 	case QWeditout:
 418 b3994ec5 2003-12-11 devnull 		r = bytetorune(x->fcall.data, &nr);
 419 b3994ec5 2003-12-11 devnull 		if(w)
 420 b3994ec5 2003-12-11 devnull 			err = edittext(w, w->wrselrange.q1, r, nr);
 421 b3994ec5 2003-12-11 devnull 		else
 422 b3994ec5 2003-12-11 devnull 			err = edittext(nil, 0, r, nr);
 423 b3994ec5 2003-12-11 devnull 		free(r);
 424 b3994ec5 2003-12-11 devnull 		if(err != nil){
 425 b3994ec5 2003-12-11 devnull 			respond(x, &fc, err);
 426 b3994ec5 2003-12-11 devnull 			break;
 427 b3994ec5 2003-12-11 devnull 		}
 428 b3994ec5 2003-12-11 devnull 		fc.count = x->fcall.count;
 429 b3994ec5 2003-12-11 devnull 		respond(x, &fc, nil);
 430 b3994ec5 2003-12-11 devnull 		break;
 431 b3994ec5 2003-12-11 devnull 
 432 b3994ec5 2003-12-11 devnull 	case QWbody:
 433 b3994ec5 2003-12-11 devnull 	case QWwrsel:
 434 b3994ec5 2003-12-11 devnull 		t = &w->body;
 435 b3994ec5 2003-12-11 devnull 		goto BodyTag;
 436 b3994ec5 2003-12-11 devnull 
 437 b3994ec5 2003-12-11 devnull 	case QWctl:
 438 b3994ec5 2003-12-11 devnull 		xfidctlwrite(x, w);
 439 b3994ec5 2003-12-11 devnull 		break;
 440 b3994ec5 2003-12-11 devnull 
 441 b3994ec5 2003-12-11 devnull 	case QWdata:
 442 b3994ec5 2003-12-11 devnull 		a = w->addr;
 443 b3994ec5 2003-12-11 devnull 		t = &w->body;
 444 b3994ec5 2003-12-11 devnull 		wincommit(w, t);
 445 b3994ec5 2003-12-11 devnull 		if(a.q0>t->file->b.nc || a.q1>t->file->b.nc){
 446 b3994ec5 2003-12-11 devnull 			respond(x, &fc, Eaddr);
 447 b3994ec5 2003-12-11 devnull 			break;
 448 b3994ec5 2003-12-11 devnull 		}
 449 b3994ec5 2003-12-11 devnull 		r = runemalloc(x->fcall.count);
 450 b3994ec5 2003-12-11 devnull 		cvttorunes(x->fcall.data, x->fcall.count, r, &nb, &nr, nil);
 451 b3994ec5 2003-12-11 devnull 		if(w->nomark == FALSE){
 452 b3994ec5 2003-12-11 devnull 			seq++;
 453 b3994ec5 2003-12-11 devnull 			filemark(t->file);
 454 b3994ec5 2003-12-11 devnull 		}
 455 b3994ec5 2003-12-11 devnull 		q0 = a.q0;
 456 b3994ec5 2003-12-11 devnull 		if(a.q1 > q0){
 457 b3994ec5 2003-12-11 devnull 			textdelete(t, q0, a.q1, TRUE);
 458 b3994ec5 2003-12-11 devnull 			w->addr.q1 = q0;
 459 b3994ec5 2003-12-11 devnull 		}
 460 b3994ec5 2003-12-11 devnull 		tq0 = t->q0;
 461 b3994ec5 2003-12-11 devnull 		tq1 = t->q1;
 462 b3994ec5 2003-12-11 devnull 		textinsert(t, q0, r, nr, TRUE);
 463 b3994ec5 2003-12-11 devnull 		if(tq0 >= q0)
 464 b3994ec5 2003-12-11 devnull 			tq0 += nr;
 465 b3994ec5 2003-12-11 devnull 		if(tq1 >= q0)
 466 b3994ec5 2003-12-11 devnull 			tq1 += nr;
 467 b3994ec5 2003-12-11 devnull 		textsetselect(t, tq0, tq1);
 468 b3994ec5 2003-12-11 devnull 		if(!t->w->noscroll)
 469 b3994ec5 2003-12-11 devnull 			textshow(t, q0, q0+nr, 0);
 470 b3994ec5 2003-12-11 devnull 		textscrdraw(t);
 471 b3994ec5 2003-12-11 devnull 		winsettag(w);
 472 b3994ec5 2003-12-11 devnull 		free(r);
 473 b3994ec5 2003-12-11 devnull 		w->addr.q0 += nr;
 474 b3994ec5 2003-12-11 devnull 		w->addr.q1 = w->addr.q0;
 475 b3994ec5 2003-12-11 devnull 		fc.count = x->fcall.count;
 476 b3994ec5 2003-12-11 devnull 		respond(x, &fc, nil);
 477 b3994ec5 2003-12-11 devnull 		break;
 478 b3994ec5 2003-12-11 devnull 
 479 b3994ec5 2003-12-11 devnull 	case QWevent:
 480 b3994ec5 2003-12-11 devnull 		xfideventwrite(x, w);
 481 b3994ec5 2003-12-11 devnull 		break;
 482 b3994ec5 2003-12-11 devnull 
 483 b3994ec5 2003-12-11 devnull 	case QWtag:
 484 b3994ec5 2003-12-11 devnull 		t = &w->tag;
 485 b3994ec5 2003-12-11 devnull 		goto BodyTag;
 486 b3994ec5 2003-12-11 devnull 
 487 b3994ec5 2003-12-11 devnull 	BodyTag:
 488 b3994ec5 2003-12-11 devnull 		q = x->f->nrpart;
 489 b3994ec5 2003-12-11 devnull 		cnt = x->fcall.count;
 490 b3994ec5 2003-12-11 devnull 		if(q > 0){
 491 b3994ec5 2003-12-11 devnull 			memmove(x->fcall.data+q, x->fcall.data, cnt);	/* there's room; see fsysproc */
 492 b3994ec5 2003-12-11 devnull 			memmove(x->fcall.data, x->f->rpart, q);
 493 b3994ec5 2003-12-11 devnull 			cnt += q;
 494 b3994ec5 2003-12-11 devnull 			x->f->nrpart = 0;
 495 b3994ec5 2003-12-11 devnull 		}
 496 b3994ec5 2003-12-11 devnull 		r = runemalloc(cnt);
 497 b3994ec5 2003-12-11 devnull 		cvttorunes(x->fcall.data, cnt-UTFmax, r, &nb, &nr, nil);
 498 b3994ec5 2003-12-11 devnull 		/* approach end of buffer */
 499 b3994ec5 2003-12-11 devnull 		while(fullrune(x->fcall.data+nb, cnt-nb)){
 500 b3994ec5 2003-12-11 devnull 			c = nb;
 501 b3994ec5 2003-12-11 devnull 			nb += chartorune(&r[nr], x->fcall.data+c);
 502 b3994ec5 2003-12-11 devnull 			if(r[nr])
 503 b3994ec5 2003-12-11 devnull 				nr++;
 504 b3994ec5 2003-12-11 devnull 		}
 505 b3994ec5 2003-12-11 devnull 		if(nb < cnt){
 506 b3994ec5 2003-12-11 devnull 			memmove(x->f->rpart, x->fcall.data+nb, cnt-nb);
 507 b3994ec5 2003-12-11 devnull 			x->f->nrpart = cnt-nb;
 508 b3994ec5 2003-12-11 devnull 		}
 509 b3994ec5 2003-12-11 devnull 		if(nr > 0){
 510 b3994ec5 2003-12-11 devnull 			wincommit(w, t);
 511 b3994ec5 2003-12-11 devnull 			if(qid == QWwrsel){
 512 b3994ec5 2003-12-11 devnull 				q0 = w->wrselrange.q1;
 513 b3994ec5 2003-12-11 devnull 				if(q0 > t->file->b.nc)
 514 b3994ec5 2003-12-11 devnull 					q0 = t->file->b.nc;
 515 b3994ec5 2003-12-11 devnull 			}else
 516 b3994ec5 2003-12-11 devnull 				q0 = t->file->b.nc;
 517 b3994ec5 2003-12-11 devnull 			if(qid == QWtag)
 518 b3994ec5 2003-12-11 devnull 				textinsert(t, q0, r, nr, TRUE);
 519 b3994ec5 2003-12-11 devnull 			else{
 520 b3994ec5 2003-12-11 devnull 				if(w->nomark == FALSE){
 521 b3994ec5 2003-12-11 devnull 					seq++;
 522 b3994ec5 2003-12-11 devnull 					filemark(t->file);
 523 b3994ec5 2003-12-11 devnull 				}
 524 b3994ec5 2003-12-11 devnull 				q0 = textbsinsert(t, q0, r, nr, TRUE, &nr);
 525 b3994ec5 2003-12-11 devnull 				textsetselect(t, t->q0, t->q1);	/* insert could leave it somewhere else */
 526 b3994ec5 2003-12-11 devnull 				if(qid!=QWwrsel && !t->w->noscroll)
 527 b3994ec5 2003-12-11 devnull 					textshow(t, q0+nr, q0+nr, 1);
 528 b3994ec5 2003-12-11 devnull 				textscrdraw(t);
 529 b3994ec5 2003-12-11 devnull 			}
 530 b3994ec5 2003-12-11 devnull 			winsettag(w);
 531 b3994ec5 2003-12-11 devnull 			if(qid == QWwrsel)
 532 b3994ec5 2003-12-11 devnull 				w->wrselrange.q1 += nr;
 533 b3994ec5 2003-12-11 devnull 			free(r);
 534 b3994ec5 2003-12-11 devnull 		}
 535 b3994ec5 2003-12-11 devnull 		fc.count = x->fcall.count;
 536 b3994ec5 2003-12-11 devnull 		respond(x, &fc, nil);
 537 b3994ec5 2003-12-11 devnull 		break;
 538 b3994ec5 2003-12-11 devnull 
 539 b3994ec5 2003-12-11 devnull 	default:
 540 b3994ec5 2003-12-11 devnull 		sprint(buf, "unknown qid %d in write", qid);
 541 b3994ec5 2003-12-11 devnull 		respond(x, &fc, buf);
 542 b3994ec5 2003-12-11 devnull 		break;
 543 b3994ec5 2003-12-11 devnull 	}
 544 b3994ec5 2003-12-11 devnull 	if(w)
 545 b3994ec5 2003-12-11 devnull 		winunlock(w);
 546 b3994ec5 2003-12-11 devnull }
 547 b3994ec5 2003-12-11 devnull 
 548 b3994ec5 2003-12-11 devnull void
 549 b3994ec5 2003-12-11 devnull xfidctlwrite(Xfid *x, Window *w)
 550 b3994ec5 2003-12-11 devnull {
 551 b3994ec5 2003-12-11 devnull 	Fcall fc;
 552 b3994ec5 2003-12-11 devnull 	int i, m, n, nb, nr, nulls;
 553 b3994ec5 2003-12-11 devnull 	Rune *r;
 554 b3994ec5 2003-12-11 devnull 	char *err, *p, *pp, *q, *e;
 555 b3994ec5 2003-12-11 devnull 	int isfbuf, scrdraw, settag;
 556 b3994ec5 2003-12-11 devnull 	Text *t;
 557 b3994ec5 2003-12-11 devnull 
 558 b3994ec5 2003-12-11 devnull 	err = nil;
 559 b3994ec5 2003-12-11 devnull 	e = x->fcall.data+x->fcall.count;
 560 b3994ec5 2003-12-11 devnull 	scrdraw = FALSE;
 561 b3994ec5 2003-12-11 devnull 	settag = FALSE;
 562 b3994ec5 2003-12-11 devnull 	isfbuf = TRUE;
 563 b3994ec5 2003-12-11 devnull 	if(x->fcall.count < RBUFSIZE)
 564 b3994ec5 2003-12-11 devnull 		r = fbufalloc();
 565 b3994ec5 2003-12-11 devnull 	else{
 566 b3994ec5 2003-12-11 devnull 		isfbuf = FALSE;
 567 b3994ec5 2003-12-11 devnull 		r = emalloc(x->fcall.count*UTFmax+1);
 568 b3994ec5 2003-12-11 devnull 	}
 569 b3994ec5 2003-12-11 devnull 	x->fcall.data[x->fcall.count] = 0;
 570 b3994ec5 2003-12-11 devnull 	textcommit(&w->tag, TRUE);
 571 b3994ec5 2003-12-11 devnull 	for(n=0; n<x->fcall.count; n+=m){
 572 b3994ec5 2003-12-11 devnull 		p = x->fcall.data+n;
 573 b3994ec5 2003-12-11 devnull 		if(strncmp(p, "lock", 4) == 0){	/* make window exclusive use */
 574 b3994ec5 2003-12-11 devnull 			qlock(&w->ctllock);
 575 b3994ec5 2003-12-11 devnull 			w->ctlfid = x->f->fid;
 576 b3994ec5 2003-12-11 devnull 			m = 4;
 577 b3994ec5 2003-12-11 devnull 		}else
 578 b3994ec5 2003-12-11 devnull 		if(strncmp(p, "unlock", 6) == 0){	/* release exclusive use */
 579 b3994ec5 2003-12-11 devnull 			w->ctlfid = ~0;
 580 b3994ec5 2003-12-11 devnull 			qunlock(&w->ctllock);
 581 b3994ec5 2003-12-11 devnull 			m = 6;
 582 b3994ec5 2003-12-11 devnull 		}else
 583 b3994ec5 2003-12-11 devnull 		if(strncmp(p, "clean", 5) == 0){	/* mark window 'clean', seq=0 */
 584 b3994ec5 2003-12-11 devnull 			t = &w->body;
 585 b3994ec5 2003-12-11 devnull 			t->eq0 = ~0;
 586 b3994ec5 2003-12-11 devnull 			filereset(t->file);
 587 b3994ec5 2003-12-11 devnull 			t->file->mod = FALSE;
 588 b3994ec5 2003-12-11 devnull 			w->dirty = FALSE;
 589 b3994ec5 2003-12-11 devnull 			settag = TRUE;
 590 b3994ec5 2003-12-11 devnull 			m = 5;
 591 b3994ec5 2003-12-11 devnull 		}else
 592 b3994ec5 2003-12-11 devnull 		if(strncmp(p, "dirty", 5) == 0){	/* mark window 'dirty' */
 593 b3994ec5 2003-12-11 devnull 			t = &w->body;
 594 b3994ec5 2003-12-11 devnull 			/* doesn't change sequence number, so "Put" won't appear.  it shouldn't. */
 595 b3994ec5 2003-12-11 devnull 			t->file->mod = TRUE;
 596 b3994ec5 2003-12-11 devnull 			w->dirty = TRUE;
 597 b3994ec5 2003-12-11 devnull 			settag = TRUE;
 598 b3994ec5 2003-12-11 devnull 			m = 5;
 599 b3994ec5 2003-12-11 devnull 		}else
 600 b3994ec5 2003-12-11 devnull 		if(strncmp(p, "show", 4) == 0){	/* show dot */
 601 b3994ec5 2003-12-11 devnull 			t = &w->body;
 602 b3994ec5 2003-12-11 devnull 			textshow(t, t->q0, t->q1, 1);
 603 b3994ec5 2003-12-11 devnull 			m = 4;
 604 b3994ec5 2003-12-11 devnull 		}else
 605 b3994ec5 2003-12-11 devnull 		if(strncmp(p, "name ", 5) == 0){	/* set file name */
 606 b3994ec5 2003-12-11 devnull 			pp = p+5;
 607 b3994ec5 2003-12-11 devnull 			m = 5;
 608 b3994ec5 2003-12-11 devnull 			q = memchr(pp, '\n', e-pp);
 609 b3994ec5 2003-12-11 devnull 			if(q==nil || q==pp){
 610 b3994ec5 2003-12-11 devnull 				err = Ebadctl;
 611 b3994ec5 2003-12-11 devnull 				break;
 612 b3994ec5 2003-12-11 devnull 			}
 613 b3994ec5 2003-12-11 devnull 			*q = 0;
 614 b3994ec5 2003-12-11 devnull 			nulls = FALSE;
 615 b3994ec5 2003-12-11 devnull 			cvttorunes(pp, q-pp, r, &nb, &nr, &nulls);
 616 b3994ec5 2003-12-11 devnull 			if(nulls){
 617 b3994ec5 2003-12-11 devnull 				err = "nulls in file name";
 618 b3994ec5 2003-12-11 devnull 				break;
 619 b3994ec5 2003-12-11 devnull 			}
 620 b3994ec5 2003-12-11 devnull 			for(i=0; i<nr; i++)
 621 b3994ec5 2003-12-11 devnull 				if(r[i] <= ' '){
 622 b3994ec5 2003-12-11 devnull 					err = "bad character in file name";
 623 b3994ec5 2003-12-11 devnull 					goto out;
 624 b3994ec5 2003-12-11 devnull 				}
 625 b3994ec5 2003-12-11 devnull out:
 626 b3994ec5 2003-12-11 devnull 			seq++;
 627 b3994ec5 2003-12-11 devnull 			filemark(w->body.file);
 628 b3994ec5 2003-12-11 devnull 			winsetname(w, r, nr);
 629 b3994ec5 2003-12-11 devnull 			m += (q+1) - pp;
 630 b3994ec5 2003-12-11 devnull 		}else
 631 b3994ec5 2003-12-11 devnull 		if(strncmp(p, "dump ", 5) == 0){	/* set dump string */
 632 b3994ec5 2003-12-11 devnull 			pp = p+5;
 633 b3994ec5 2003-12-11 devnull 			m = 5;
 634 b3994ec5 2003-12-11 devnull 			q = memchr(pp, '\n', e-pp);
 635 b3994ec5 2003-12-11 devnull 			if(q==nil || q==pp){
 636 b3994ec5 2003-12-11 devnull 				err = Ebadctl;
 637 b3994ec5 2003-12-11 devnull 				break;
 638 b3994ec5 2003-12-11 devnull 			}
 639 b3994ec5 2003-12-11 devnull 			*q = 0;
 640 b3994ec5 2003-12-11 devnull 			nulls = FALSE;
 641 b3994ec5 2003-12-11 devnull 			cvttorunes(pp, q-pp, r, &nb, &nr, &nulls);
 642 b3994ec5 2003-12-11 devnull 			if(nulls){
 643 b3994ec5 2003-12-11 devnull 				err = "nulls in dump string";
 644 b3994ec5 2003-12-11 devnull 				break;
 645 b3994ec5 2003-12-11 devnull 			}
 646 b3994ec5 2003-12-11 devnull 			w->dumpstr = runetobyte(r, nr);
 647 b3994ec5 2003-12-11 devnull 			m += (q+1) - pp;
 648 b3994ec5 2003-12-11 devnull 		}else
 649 b3994ec5 2003-12-11 devnull 		if(strncmp(p, "dumpdir ", 8) == 0){	/* set dump directory */
 650 b3994ec5 2003-12-11 devnull 			pp = p+8;
 651 b3994ec5 2003-12-11 devnull 			m = 8;
 652 b3994ec5 2003-12-11 devnull 			q = memchr(pp, '\n', e-pp);
 653 b3994ec5 2003-12-11 devnull 			if(q==nil || q==pp){
 654 b3994ec5 2003-12-11 devnull 				err = Ebadctl;
 655 b3994ec5 2003-12-11 devnull 				break;
 656 b3994ec5 2003-12-11 devnull 			}
 657 b3994ec5 2003-12-11 devnull 			*q = 0;
 658 b3994ec5 2003-12-11 devnull 			nulls = FALSE;
 659 b3994ec5 2003-12-11 devnull 			cvttorunes(pp, q-pp, r, &nb, &nr, &nulls);
 660 b3994ec5 2003-12-11 devnull 			if(nulls){
 661 b3994ec5 2003-12-11 devnull 				err = "nulls in dump directory string";
 662 b3994ec5 2003-12-11 devnull 				break;
 663 b3994ec5 2003-12-11 devnull 			}
 664 b3994ec5 2003-12-11 devnull 			w->dumpdir = runetobyte(r, nr);
 665 b3994ec5 2003-12-11 devnull 			m += (q+1) - pp;
 666 b3994ec5 2003-12-11 devnull 		}else
 667 b3994ec5 2003-12-11 devnull 		if(strncmp(p, "delete", 6) == 0){	/* delete for sure */
 668 b3994ec5 2003-12-11 devnull 			colclose(w->col, w, TRUE);
 669 b3994ec5 2003-12-11 devnull 			m = 6;
 670 b3994ec5 2003-12-11 devnull 		}else
 671 b3994ec5 2003-12-11 devnull 		if(strncmp(p, "del", 3) == 0){	/* delete, but check dirty */
 672 b3994ec5 2003-12-11 devnull 			if(!winclean(w, TRUE)){
 673 b3994ec5 2003-12-11 devnull 				err = "file dirty";
 674 b3994ec5 2003-12-11 devnull 				break;
 675 b3994ec5 2003-12-11 devnull 			}
 676 b3994ec5 2003-12-11 devnull 			colclose(w->col, w, TRUE);
 677 b3994ec5 2003-12-11 devnull 			m = 3;
 678 b3994ec5 2003-12-11 devnull 		}else
 679 b3994ec5 2003-12-11 devnull 		if(strncmp(p, "get", 3) == 0){	/* get file */
 680 b3994ec5 2003-12-11 devnull 			get(&w->body, nil, nil, FALSE, XXX, nil, 0);
 681 b3994ec5 2003-12-11 devnull 			m = 3;
 682 b3994ec5 2003-12-11 devnull 		}else
 683 b3994ec5 2003-12-11 devnull 		if(strncmp(p, "put", 3) == 0){	/* put file */
 684 b3994ec5 2003-12-11 devnull 			put(&w->body, nil, nil, XXX, XXX, nil, 0);
 685 b3994ec5 2003-12-11 devnull 			m = 3;
 686 b3994ec5 2003-12-11 devnull 		}else
 687 b3994ec5 2003-12-11 devnull 		if(strncmp(p, "dot=addr", 8) == 0){	/* set dot */
 688 b3994ec5 2003-12-11 devnull 			textcommit(&w->body, TRUE);
 689 b3994ec5 2003-12-11 devnull 			clampaddr(w);
 690 b3994ec5 2003-12-11 devnull 			w->body.q0 = w->addr.q0;
 691 b3994ec5 2003-12-11 devnull 			w->body.q1 = w->addr.q1;
 692 b3994ec5 2003-12-11 devnull 			textsetselect(&w->body, w->body.q0, w->body.q1);
 693 b3994ec5 2003-12-11 devnull 			settag = TRUE;
 694 b3994ec5 2003-12-11 devnull 			m = 8;
 695 b3994ec5 2003-12-11 devnull 		}else
 696 b3994ec5 2003-12-11 devnull 		if(strncmp(p, "addr=dot", 8) == 0){	/* set addr */
 697 b3994ec5 2003-12-11 devnull 			w->addr.q0 = w->body.q0;
 698 b3994ec5 2003-12-11 devnull 			w->addr.q1 = w->body.q1;
 699 b3994ec5 2003-12-11 devnull 			m = 8;
 700 b3994ec5 2003-12-11 devnull 		}else
 701 b3994ec5 2003-12-11 devnull 		if(strncmp(p, "limit=addr", 10) == 0){	/* set limit */
 702 b3994ec5 2003-12-11 devnull 			textcommit(&w->body, TRUE);
 703 b3994ec5 2003-12-11 devnull 			clampaddr(w);
 704 b3994ec5 2003-12-11 devnull 			w->limit.q0 = w->addr.q0;
 705 b3994ec5 2003-12-11 devnull 			w->limit.q1 = w->addr.q1;
 706 b3994ec5 2003-12-11 devnull 			m = 10;
 707 b3994ec5 2003-12-11 devnull 		}else
 708 b3994ec5 2003-12-11 devnull 		if(strncmp(p, "nomark", 6) == 0){	/* turn off automatic marking */
 709 b3994ec5 2003-12-11 devnull 			w->nomark = TRUE;
 710 b3994ec5 2003-12-11 devnull 			m = 6;
 711 b3994ec5 2003-12-11 devnull 		}else
 712 b3994ec5 2003-12-11 devnull 		if(strncmp(p, "mark", 4) == 0){	/* mark file */
 713 b3994ec5 2003-12-11 devnull 			seq++;
 714 b3994ec5 2003-12-11 devnull 			filemark(w->body.file);
 715 b3994ec5 2003-12-11 devnull 			settag = TRUE;
 716 b3994ec5 2003-12-11 devnull 			m = 4;
 717 b3994ec5 2003-12-11 devnull 		}else
 718 b3994ec5 2003-12-11 devnull 		if(strncmp(p, "noscroll", 8) == 0){	/* turn off automatic scrolling */
 719 b3994ec5 2003-12-11 devnull 			w->noscroll = TRUE;
 720 b3994ec5 2003-12-11 devnull 			m = 8;
 721 b3994ec5 2003-12-11 devnull 		}else
 722 b3994ec5 2003-12-11 devnull 		if(strncmp(p, "cleartag", 8) == 0){	/* wipe tag right of bar */
 723 b3994ec5 2003-12-11 devnull 			wincleartag(w);
 724 b3994ec5 2003-12-11 devnull 			settag = TRUE;
 725 b3994ec5 2003-12-11 devnull 			m = 8;
 726 b3994ec5 2003-12-11 devnull 		}else
 727 b3994ec5 2003-12-11 devnull 		if(strncmp(p, "scroll", 6) == 0){	/* turn on automatic scrolling (writes to body only) */
 728 b3994ec5 2003-12-11 devnull 			w->noscroll = FALSE;
 729 b3994ec5 2003-12-11 devnull 			m = 6;
 730 b3994ec5 2003-12-11 devnull 		}else{
 731 b3994ec5 2003-12-11 devnull 			err = Ebadctl;
 732 b3994ec5 2003-12-11 devnull 			break;
 733 b3994ec5 2003-12-11 devnull 		}
 734 b3994ec5 2003-12-11 devnull 		while(p[m] == '\n')
 735 b3994ec5 2003-12-11 devnull 			m++;
 736 b3994ec5 2003-12-11 devnull 	}
 737 b3994ec5 2003-12-11 devnull 
 738 b3994ec5 2003-12-11 devnull 	if(isfbuf)
 739 b3994ec5 2003-12-11 devnull 		fbuffree(r);
 740 b3994ec5 2003-12-11 devnull 	else
 741 b3994ec5 2003-12-11 devnull 		free(r);
 742 b3994ec5 2003-12-11 devnull 	if(err)
 743 b3994ec5 2003-12-11 devnull 		n = 0;
 744 b3994ec5 2003-12-11 devnull 	fc.count = n;
 745 b3994ec5 2003-12-11 devnull 	respond(x, &fc, err);
 746 b3994ec5 2003-12-11 devnull 	if(settag)
 747 b3994ec5 2003-12-11 devnull 		winsettag(w);
 748 b3994ec5 2003-12-11 devnull 	if(scrdraw)
 749 b3994ec5 2003-12-11 devnull 		textscrdraw(&w->body);
 750 b3994ec5 2003-12-11 devnull }
 751 b3994ec5 2003-12-11 devnull 
 752 b3994ec5 2003-12-11 devnull void
 753 b3994ec5 2003-12-11 devnull xfideventwrite(Xfid *x, Window *w)
 754 b3994ec5 2003-12-11 devnull {
 755 b3994ec5 2003-12-11 devnull 	Fcall fc;
 756 b3994ec5 2003-12-11 devnull 	int m, n;
 757 b3994ec5 2003-12-11 devnull 	Rune *r;
 758 b3994ec5 2003-12-11 devnull 	char *err, *p, *q;
 759 b3994ec5 2003-12-11 devnull 	int isfbuf;
 760 b3994ec5 2003-12-11 devnull 	Text *t;
 761 b3994ec5 2003-12-11 devnull 	int c;
 762 b3994ec5 2003-12-11 devnull 	uint q0, q1;
 763 b3994ec5 2003-12-11 devnull 
 764 b3994ec5 2003-12-11 devnull 	err = nil;
 765 b3994ec5 2003-12-11 devnull 	isfbuf = TRUE;
 766 b3994ec5 2003-12-11 devnull 	if(x->fcall.count < RBUFSIZE)
 767 b3994ec5 2003-12-11 devnull 		r = fbufalloc();
 768 b3994ec5 2003-12-11 devnull 	else{
 769 b3994ec5 2003-12-11 devnull 		isfbuf = FALSE;
 770 b3994ec5 2003-12-11 devnull 		r = emalloc(x->fcall.count*UTFmax+1);
 771 b3994ec5 2003-12-11 devnull 	}
 772 b3994ec5 2003-12-11 devnull 	for(n=0; n<x->fcall.count; n+=m){
 773 b3994ec5 2003-12-11 devnull 		p = x->fcall.data+n;
 774 b3994ec5 2003-12-11 devnull 		w->owner = *p++;	/* disgusting */
 775 b3994ec5 2003-12-11 devnull 		c = *p++;
 776 b3994ec5 2003-12-11 devnull 		while(*p == ' ')
 777 b3994ec5 2003-12-11 devnull 			p++;
 778 b3994ec5 2003-12-11 devnull 		q0 = strtoul(p, &q, 10);
 779 b3994ec5 2003-12-11 devnull 		if(q == p)
 780 b3994ec5 2003-12-11 devnull 			goto Rescue;
 781 b3994ec5 2003-12-11 devnull 		p = q;
 782 b3994ec5 2003-12-11 devnull 		while(*p == ' ')
 783 b3994ec5 2003-12-11 devnull 			p++;
 784 b3994ec5 2003-12-11 devnull 		q1 = strtoul(p, &q, 10);
 785 b3994ec5 2003-12-11 devnull 		if(q == p)
 786 b3994ec5 2003-12-11 devnull 			goto Rescue;
 787 b3994ec5 2003-12-11 devnull 		p = q;
 788 b3994ec5 2003-12-11 devnull 		while(*p == ' ')
 789 b3994ec5 2003-12-11 devnull 			p++;
 790 b3994ec5 2003-12-11 devnull 		if(*p++ != '\n')
 791 b3994ec5 2003-12-11 devnull 			goto Rescue;
 792 b3994ec5 2003-12-11 devnull 		m = p-(x->fcall.data+n);
 793 b3994ec5 2003-12-11 devnull 		if('a'<=c && c<='z')
 794 b3994ec5 2003-12-11 devnull 			t = &w->tag;
 795 b3994ec5 2003-12-11 devnull 		else if('A'<=c && c<='Z')
 796 b3994ec5 2003-12-11 devnull 			t = &w->body;
 797 b3994ec5 2003-12-11 devnull 		else
 798 b3994ec5 2003-12-11 devnull 			goto Rescue;
 799 b3994ec5 2003-12-11 devnull 		if(q0>t->file->b.nc || q1>t->file->b.nc || q0>q1)
 800 b3994ec5 2003-12-11 devnull 			goto Rescue;
 801 b3994ec5 2003-12-11 devnull 
 802 b3994ec5 2003-12-11 devnull 		qlock(&row.lk);	/* just like mousethread */
 803 b3994ec5 2003-12-11 devnull 		switch(c){
 804 b3994ec5 2003-12-11 devnull 		case 'x':
 805 b3994ec5 2003-12-11 devnull 		case 'X':
 806 b3994ec5 2003-12-11 devnull 			execute(t, q0, q1, TRUE, nil);
 807 b3994ec5 2003-12-11 devnull 			break;
 808 b3994ec5 2003-12-11 devnull 		case 'l':
 809 b3994ec5 2003-12-11 devnull 		case 'L':
 810 b3994ec5 2003-12-11 devnull 			look3(t, q0, q1, TRUE);
 811 b3994ec5 2003-12-11 devnull 			break;
 812 b3994ec5 2003-12-11 devnull 		default:
 813 b3994ec5 2003-12-11 devnull 			qunlock(&row.lk);
 814 b3994ec5 2003-12-11 devnull 			goto Rescue;
 815 b3994ec5 2003-12-11 devnull 		}
 816 b3994ec5 2003-12-11 devnull 		qunlock(&row.lk);
 817 b3994ec5 2003-12-11 devnull 
 818 b3994ec5 2003-12-11 devnull 	}
 819 b3994ec5 2003-12-11 devnull 
 820 b3994ec5 2003-12-11 devnull     Out:
 821 b3994ec5 2003-12-11 devnull 	if(isfbuf)
 822 b3994ec5 2003-12-11 devnull 		fbuffree(r);
 823 b3994ec5 2003-12-11 devnull 	else
 824 b3994ec5 2003-12-11 devnull 		free(r);
 825 b3994ec5 2003-12-11 devnull 	if(err)
 826 b3994ec5 2003-12-11 devnull 		n = 0;
 827 b3994ec5 2003-12-11 devnull 	fc.count = n;
 828 b3994ec5 2003-12-11 devnull 	respond(x, &fc, err);
 829 b3994ec5 2003-12-11 devnull 	return;
 830 b3994ec5 2003-12-11 devnull 
 831 b3994ec5 2003-12-11 devnull     Rescue:
 832 b3994ec5 2003-12-11 devnull 	err = Ebadevent;
 833 b3994ec5 2003-12-11 devnull 	goto Out;
 834 b3994ec5 2003-12-11 devnull }
 835 b3994ec5 2003-12-11 devnull 
 836 b3994ec5 2003-12-11 devnull void
 837 b3994ec5 2003-12-11 devnull xfidutfread(Xfid *x, Text *t, uint q1, int qid)
 838 b3994ec5 2003-12-11 devnull {
 839 b3994ec5 2003-12-11 devnull 	Fcall fc;
 840 b3994ec5 2003-12-11 devnull 	Window *w;
 841 b3994ec5 2003-12-11 devnull 	Rune *r;
 842 b3994ec5 2003-12-11 devnull 	char *b, *b1;
 843 b3994ec5 2003-12-11 devnull 	uint q, off, boff;
 844 b3994ec5 2003-12-11 devnull 	int m, n, nr, nb;
 845 b3994ec5 2003-12-11 devnull 
 846 b3994ec5 2003-12-11 devnull 	w = t->w;
 847 b3994ec5 2003-12-11 devnull 	wincommit(w, t);
 848 b3994ec5 2003-12-11 devnull 	off = x->fcall.offset;
 849 b3994ec5 2003-12-11 devnull 	r = fbufalloc();
 850 b3994ec5 2003-12-11 devnull 	b = fbufalloc();
 851 b3994ec5 2003-12-11 devnull 	b1 = fbufalloc();
 852 b3994ec5 2003-12-11 devnull 	n = 0;
 853 b3994ec5 2003-12-11 devnull 	if(qid==w->utflastqid && off>=w->utflastboff && w->utflastq<=q1){
 854 b3994ec5 2003-12-11 devnull 		boff = w->utflastboff;
 855 b3994ec5 2003-12-11 devnull 		q = w->utflastq;
 856 b3994ec5 2003-12-11 devnull 	}else{
 857 b3994ec5 2003-12-11 devnull 		/* BUG: stupid code: scan from beginning */
 858 b3994ec5 2003-12-11 devnull 		boff = 0;
 859 b3994ec5 2003-12-11 devnull 		q = 0;
 860 b3994ec5 2003-12-11 devnull 	}
 861 b3994ec5 2003-12-11 devnull 	w->utflastqid = qid;
 862 b3994ec5 2003-12-11 devnull 	while(q<q1 && n<x->fcall.count){
 863 b3994ec5 2003-12-11 devnull 		/*
 864 b3994ec5 2003-12-11 devnull 		 * Updating here avoids partial rune problem: we're always on a
 865 b3994ec5 2003-12-11 devnull 		 * char boundary. The cost is we will usually do one more read
 866 b3994ec5 2003-12-11 devnull 		 * than we really need, but that's better than being n^2.
 867 b3994ec5 2003-12-11 devnull 		 */
 868 b3994ec5 2003-12-11 devnull 		w->utflastboff = boff;
 869 b3994ec5 2003-12-11 devnull 		w->utflastq = q;
 870 b3994ec5 2003-12-11 devnull 		nr = q1-q;
 871 b3994ec5 2003-12-11 devnull 		if(nr > BUFSIZE/UTFmax)
 872 b3994ec5 2003-12-11 devnull 			nr = BUFSIZE/UTFmax;
 873 b3994ec5 2003-12-11 devnull 		bufread(&t->file->b, q, r, nr);
 874 b3994ec5 2003-12-11 devnull 		nb = snprint(b, BUFSIZE+1, "%.*S", nr, r);
 875 b3994ec5 2003-12-11 devnull 		if(boff >= off){
 876 b3994ec5 2003-12-11 devnull 			m = nb;
 877 b3994ec5 2003-12-11 devnull 			if(boff+m > off+x->fcall.count)
 878 b3994ec5 2003-12-11 devnull 				m = off+x->fcall.count - boff;
 879 b3994ec5 2003-12-11 devnull 			memmove(b1+n, b, m);
 880 b3994ec5 2003-12-11 devnull 			n += m;
 881 b3994ec5 2003-12-11 devnull 		}else if(boff+nb > off){
 882 b3994ec5 2003-12-11 devnull 			if(n != 0)
 883 b3994ec5 2003-12-11 devnull 				error("bad count in utfrune");
 884 b3994ec5 2003-12-11 devnull 			m = nb - (off-boff);
 885 b3994ec5 2003-12-11 devnull 			if(m > x->fcall.count)
 886 b3994ec5 2003-12-11 devnull 				m = x->fcall.count;
 887 b3994ec5 2003-12-11 devnull 			memmove(b1, b+(off-boff), m);
 888 b3994ec5 2003-12-11 devnull 			n += m;
 889 b3994ec5 2003-12-11 devnull 		}
 890 b3994ec5 2003-12-11 devnull 		boff += nb;
 891 b3994ec5 2003-12-11 devnull 		q += nr;
 892 b3994ec5 2003-12-11 devnull 	}
 893 b3994ec5 2003-12-11 devnull 	fbuffree(r);
 894 b3994ec5 2003-12-11 devnull 	fbuffree(b);
 895 b3994ec5 2003-12-11 devnull 	fc.count = n;
 896 b3994ec5 2003-12-11 devnull 	fc.data = b1;
 897 b3994ec5 2003-12-11 devnull 	respond(x, &fc, nil);
 898 b3994ec5 2003-12-11 devnull 	fbuffree(b1);
 899 b3994ec5 2003-12-11 devnull }
 900 b3994ec5 2003-12-11 devnull 
 901 b3994ec5 2003-12-11 devnull int
 902 b3994ec5 2003-12-11 devnull xfidruneread(Xfid *x, Text *t, uint q0, uint q1)
 903 b3994ec5 2003-12-11 devnull {
 904 b3994ec5 2003-12-11 devnull 	Fcall fc;
 905 b3994ec5 2003-12-11 devnull 	Window *w;
 906 b3994ec5 2003-12-11 devnull 	Rune *r, junk;
 907 b3994ec5 2003-12-11 devnull 	char *b, *b1;
 908 b3994ec5 2003-12-11 devnull 	uint q, boff;
 909 b3994ec5 2003-12-11 devnull 	int i, rw, m, n, nr, nb;
 910 b3994ec5 2003-12-11 devnull 
 911 b3994ec5 2003-12-11 devnull 	w = t->w;
 912 b3994ec5 2003-12-11 devnull 	wincommit(w, t);
 913 b3994ec5 2003-12-11 devnull 	r = fbufalloc();
 914 b3994ec5 2003-12-11 devnull 	b = fbufalloc();
 915 b3994ec5 2003-12-11 devnull 	b1 = fbufalloc();
 916 b3994ec5 2003-12-11 devnull 	n = 0;
 917 b3994ec5 2003-12-11 devnull 	q = q0;
 918 b3994ec5 2003-12-11 devnull 	boff = 0;
 919 b3994ec5 2003-12-11 devnull 	while(q<q1 && n<x->fcall.count){
 920 b3994ec5 2003-12-11 devnull 		nr = q1-q;
 921 b3994ec5 2003-12-11 devnull 		if(nr > BUFSIZE/UTFmax)
 922 b3994ec5 2003-12-11 devnull 			nr = BUFSIZE/UTFmax;
 923 b3994ec5 2003-12-11 devnull 		bufread(&t->file->b, q, r, nr);
 924 b3994ec5 2003-12-11 devnull 		nb = snprint(b, BUFSIZE+1, "%.*S", nr, r);
 925 b3994ec5 2003-12-11 devnull 		m = nb;
 926 b3994ec5 2003-12-11 devnull 		if(boff+m > x->fcall.count){
 927 b3994ec5 2003-12-11 devnull 			i = x->fcall.count - boff;
 928 b3994ec5 2003-12-11 devnull 			/* copy whole runes only */
 929 b3994ec5 2003-12-11 devnull 			m = 0;
 930 b3994ec5 2003-12-11 devnull 			nr = 0;
 931 b3994ec5 2003-12-11 devnull 			while(m < i){
 932 b3994ec5 2003-12-11 devnull 				rw = chartorune(&junk, b+m);
 933 b3994ec5 2003-12-11 devnull 				if(m+rw > i)
 934 b3994ec5 2003-12-11 devnull 					break;
 935 b3994ec5 2003-12-11 devnull 				m += rw;
 936 b3994ec5 2003-12-11 devnull 				nr++;
 937 b3994ec5 2003-12-11 devnull 			}
 938 b3994ec5 2003-12-11 devnull 			if(m == 0)
 939 b3994ec5 2003-12-11 devnull 				break;
 940 b3994ec5 2003-12-11 devnull 		}
 941 b3994ec5 2003-12-11 devnull 		memmove(b1+n, b, m);
 942 b3994ec5 2003-12-11 devnull 		n += m;
 943 b3994ec5 2003-12-11 devnull 		boff += nb;
 944 b3994ec5 2003-12-11 devnull 		q += nr;
 945 b3994ec5 2003-12-11 devnull 	}
 946 b3994ec5 2003-12-11 devnull 	fbuffree(r);
 947 b3994ec5 2003-12-11 devnull 	fbuffree(b);
 948 b3994ec5 2003-12-11 devnull 	fc.count = n;
 949 b3994ec5 2003-12-11 devnull 	fc.data = b1;
 950 b3994ec5 2003-12-11 devnull 	respond(x, &fc, nil);
 951 b3994ec5 2003-12-11 devnull 	fbuffree(b1);
 952 b3994ec5 2003-12-11 devnull 	return q-q0;
 953 b3994ec5 2003-12-11 devnull }
 954 b3994ec5 2003-12-11 devnull 
 955 b3994ec5 2003-12-11 devnull void
 956 b3994ec5 2003-12-11 devnull xfideventread(Xfid *x, Window *w)
 957 b3994ec5 2003-12-11 devnull {
 958 b3994ec5 2003-12-11 devnull 	Fcall fc;
 959 b3994ec5 2003-12-11 devnull 	char *b;
 960 b3994ec5 2003-12-11 devnull 	int i, n;
 961 b3994ec5 2003-12-11 devnull 
 962 b3994ec5 2003-12-11 devnull 	i = 0;
 963 b3994ec5 2003-12-11 devnull 	x->flushed = FALSE;
 964 b3994ec5 2003-12-11 devnull 	while(w->nevents == 0){
 965 b3994ec5 2003-12-11 devnull 		if(i){
 966 b3994ec5 2003-12-11 devnull 			if(!x->flushed)
 967 b3994ec5 2003-12-11 devnull 				respond(x, &fc, "window shut down");
 968 b3994ec5 2003-12-11 devnull 			return;
 969 b3994ec5 2003-12-11 devnull 		}
 970 b3994ec5 2003-12-11 devnull 		w->eventx = x;
 971 b3994ec5 2003-12-11 devnull 		winunlock(w);
 972 b3994ec5 2003-12-11 devnull 		recvp(x->c);
 973 b3994ec5 2003-12-11 devnull 		winlock(w, 'F');
 974 b3994ec5 2003-12-11 devnull 		i++;
 975 b3994ec5 2003-12-11 devnull 	}
 976 b3994ec5 2003-12-11 devnull 
 977 b3994ec5 2003-12-11 devnull 	n = w->nevents;
 978 b3994ec5 2003-12-11 devnull 	if(n > x->fcall.count)
 979 b3994ec5 2003-12-11 devnull 		n = x->fcall.count;
 980 b3994ec5 2003-12-11 devnull 	fc.count = n;
 981 b3994ec5 2003-12-11 devnull 	fc.data = w->events;
 982 b3994ec5 2003-12-11 devnull 	respond(x, &fc, nil);
 983 b3994ec5 2003-12-11 devnull 	b = w->events;
 984 b3994ec5 2003-12-11 devnull 	w->events = estrdup(w->events+n);
 985 b3994ec5 2003-12-11 devnull 	free(b);
 986 b3994ec5 2003-12-11 devnull 	w->nevents -= n;
 987 b3994ec5 2003-12-11 devnull }
 988 b3994ec5 2003-12-11 devnull 
 989 b3994ec5 2003-12-11 devnull void
 990 b3994ec5 2003-12-11 devnull xfidindexread(Xfid *x)
 991 b3994ec5 2003-12-11 devnull {
 992 b3994ec5 2003-12-11 devnull 	Fcall fc;
 993 b3994ec5 2003-12-11 devnull 	int i, j, m, n, nmax, isbuf, cnt, off;
 994 b3994ec5 2003-12-11 devnull 	Window *w;
 995 b3994ec5 2003-12-11 devnull 	char *b;
 996 b3994ec5 2003-12-11 devnull 	Rune *r;
 997 b3994ec5 2003-12-11 devnull 	Column *c;
 998 b3994ec5 2003-12-11 devnull 
 999 b3994ec5 2003-12-11 devnull 	qlock(&row.lk);
1000 b3994ec5 2003-12-11 devnull 	nmax = 0;
1001 b3994ec5 2003-12-11 devnull 	for(j=0; j<row.ncol; j++){
1002 b3994ec5 2003-12-11 devnull 		c = row.col[j];
1003 b3994ec5 2003-12-11 devnull 		for(i=0; i<c->nw; i++){
1004 b3994ec5 2003-12-11 devnull 			w = c->w[i];
1005 b3994ec5 2003-12-11 devnull 			nmax += Ctlsize + w->tag.file->b.nc*UTFmax + 1;
1006 b3994ec5 2003-12-11 devnull 		}
1007 b3994ec5 2003-12-11 devnull 	}
1008 b3994ec5 2003-12-11 devnull 	nmax++;
1009 b3994ec5 2003-12-11 devnull 	isbuf = (nmax<=RBUFSIZE);
1010 b3994ec5 2003-12-11 devnull 	if(isbuf)
1011 b3994ec5 2003-12-11 devnull 		b = (char*)x->buf;
1012 b3994ec5 2003-12-11 devnull 	else
1013 b3994ec5 2003-12-11 devnull 		b = emalloc(nmax);
1014 b3994ec5 2003-12-11 devnull 	r = fbufalloc();
1015 b3994ec5 2003-12-11 devnull 	n = 0;
1016 b3994ec5 2003-12-11 devnull 	for(j=0; j<row.ncol; j++){
1017 b3994ec5 2003-12-11 devnull 		c = row.col[j];
1018 b3994ec5 2003-12-11 devnull 		for(i=0; i<c->nw; i++){
1019 b3994ec5 2003-12-11 devnull 			w = c->w[i];
1020 b3994ec5 2003-12-11 devnull 			/* only show the currently active window of a set */
1021 b3994ec5 2003-12-11 devnull 			if(w->body.file->curtext != &w->body)
1022 b3994ec5 2003-12-11 devnull 				continue;
1023 b3994ec5 2003-12-11 devnull 			winctlprint(w, b+n, 0);
1024 b3994ec5 2003-12-11 devnull 			n += Ctlsize;
1025 b3994ec5 2003-12-11 devnull 			m = min(RBUFSIZE, w->tag.file->b.nc);
1026 b3994ec5 2003-12-11 devnull 			bufread(&w->tag.file->b, 0, r, m);
1027 b3994ec5 2003-12-11 devnull 			m = n + snprint(b+n, nmax-n-1, "%.*S", m, r);
1028 b3994ec5 2003-12-11 devnull 			while(n<m && b[n]!='\n')
1029 b3994ec5 2003-12-11 devnull 				n++;
1030 b3994ec5 2003-12-11 devnull 			b[n++] = '\n';
1031 b3994ec5 2003-12-11 devnull 		}
1032 b3994ec5 2003-12-11 devnull 	}
1033 b3994ec5 2003-12-11 devnull 	qunlock(&row.lk);
1034 b3994ec5 2003-12-11 devnull 	off = x->fcall.offset;
1035 b3994ec5 2003-12-11 devnull 	cnt = x->fcall.count;
1036 b3994ec5 2003-12-11 devnull 	if(off > n)
1037 b3994ec5 2003-12-11 devnull 		off = n;
1038 b3994ec5 2003-12-11 devnull 	if(off+cnt > n)
1039 b3994ec5 2003-12-11 devnull 		cnt = n-off;
1040 b3994ec5 2003-12-11 devnull 	fc.count = cnt;
1041 b3994ec5 2003-12-11 devnull 	memmove(r, b+off, cnt);
1042 b3994ec5 2003-12-11 devnull 	fc.data = (char*)r;
1043 b3994ec5 2003-12-11 devnull 	if(!isbuf)
1044 b3994ec5 2003-12-11 devnull 		free(b);
1045 b3994ec5 2003-12-11 devnull 	respond(x, &fc, nil);
1046 b3994ec5 2003-12-11 devnull 	fbuffree(r);
1047 b3994ec5 2003-12-11 devnull }