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