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