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 int	winid;
 15 b3994ec5 2003-12-11 devnull 
 16 b3994ec5 2003-12-11 devnull void
 17 b3994ec5 2003-12-11 devnull wininit(Window *w, Window *clone, Rectangle r)
 18 b3994ec5 2003-12-11 devnull {
 19 b3994ec5 2003-12-11 devnull 	Rectangle r1, br;
 20 b3994ec5 2003-12-11 devnull 	File *f;
 21 b3994ec5 2003-12-11 devnull 	Reffont *rf;
 22 b3994ec5 2003-12-11 devnull 	Rune *rp;
 23 b3994ec5 2003-12-11 devnull 	int nc;
 24 b3994ec5 2003-12-11 devnull 
 25 b3994ec5 2003-12-11 devnull 	w->tag.w = w;
 26 b3994ec5 2003-12-11 devnull 	w->body.w = w;
 27 b3994ec5 2003-12-11 devnull 	w->id = ++winid;
 28 b3994ec5 2003-12-11 devnull 	incref(&w->ref);
 29 5a8e63b2 2004-02-29 devnull 	if(globalincref)
 30 5a8e63b2 2004-02-29 devnull 		incref(&w->ref);
 31 b3994ec5 2003-12-11 devnull 	w->ctlfid = ~0;
 32 b3994ec5 2003-12-11 devnull 	w->utflastqid = -1;
 33 b3994ec5 2003-12-11 devnull 	r1 = r;
 34 b3994ec5 2003-12-11 devnull 	r1.max.y = r1.min.y + font->height;
 35 b3994ec5 2003-12-11 devnull 	incref(&reffont.ref);
 36 b3994ec5 2003-12-11 devnull 	f = fileaddtext(nil, &w->tag);
 37 b3994ec5 2003-12-11 devnull 	textinit(&w->tag, f, r1, &reffont, tagcols);
 38 b3994ec5 2003-12-11 devnull 	w->tag.what = Tag;
 39 b3994ec5 2003-12-11 devnull 	/* tag is a copy of the contents, not a tracked image */
 40 b3994ec5 2003-12-11 devnull 	if(clone){
 41 b3994ec5 2003-12-11 devnull 		textdelete(&w->tag, 0, w->tag.file->b.nc, TRUE);
 42 b3994ec5 2003-12-11 devnull 		nc = clone->tag.file->b.nc;
 43 b3994ec5 2003-12-11 devnull 		rp = runemalloc(nc);
 44 b3994ec5 2003-12-11 devnull 		bufread(&clone->tag.file->b, 0, rp, nc);
 45 b3994ec5 2003-12-11 devnull 		textinsert(&w->tag, 0, rp, nc, TRUE);
 46 b3994ec5 2003-12-11 devnull 		free(rp);
 47 b3994ec5 2003-12-11 devnull 		filereset(w->tag.file);
 48 b3994ec5 2003-12-11 devnull 		textsetselect(&w->tag, nc, nc);
 49 b3994ec5 2003-12-11 devnull 	}
 50 c1973705 2004-02-09 devnull //assert(w->body.w == w);
 51 b3994ec5 2003-12-11 devnull 	r1 = r;
 52 b3994ec5 2003-12-11 devnull 	r1.min.y += font->height + 1;
 53 b3994ec5 2003-12-11 devnull 	if(r1.max.y < r1.min.y)
 54 b3994ec5 2003-12-11 devnull 		r1.max.y = r1.min.y;
 55 b3994ec5 2003-12-11 devnull 	f = nil;
 56 b3994ec5 2003-12-11 devnull 	if(clone){
 57 b3994ec5 2003-12-11 devnull 		f = clone->body.file;
 58 b3994ec5 2003-12-11 devnull 		w->body.org = clone->body.org;
 59 b3994ec5 2003-12-11 devnull 		w->isscratch = clone->isscratch;
 60 b3994ec5 2003-12-11 devnull 		rf = rfget(FALSE, FALSE, FALSE, clone->body.reffont->f->name);
 61 b3994ec5 2003-12-11 devnull 	}else
 62 b3994ec5 2003-12-11 devnull 		rf = rfget(FALSE, FALSE, FALSE, nil);
 63 c1973705 2004-02-09 devnull //assert(w->body.w == w);
 64 b3994ec5 2003-12-11 devnull 	f = fileaddtext(f, &w->body);
 65 b3994ec5 2003-12-11 devnull 	w->body.what = Body;
 66 b3994ec5 2003-12-11 devnull 	textinit(&w->body, f, r1, rf, textcols);
 67 b3994ec5 2003-12-11 devnull 	r1.min.y -= 1;
 68 b3994ec5 2003-12-11 devnull 	r1.max.y = r1.min.y+1;
 69 b3994ec5 2003-12-11 devnull 	draw(screen, r1, tagcols[BORD], nil, ZP);
 70 b3994ec5 2003-12-11 devnull 	textscrdraw(&w->body);
 71 b3994ec5 2003-12-11 devnull 	w->r = r;
 72 b3994ec5 2003-12-11 devnull 	w->r.max.y = w->body.fr.r.max.y;
 73 b3994ec5 2003-12-11 devnull 	br.min = w->tag.scrollr.min;
 74 b3994ec5 2003-12-11 devnull 	br.max.x = br.min.x + Dx(button->r);
 75 b3994ec5 2003-12-11 devnull 	br.max.y = br.min.y + Dy(button->r);
 76 b3994ec5 2003-12-11 devnull 	draw(screen, br, button, nil, button->r.min);
 77 b3994ec5 2003-12-11 devnull 	w->filemenu = TRUE;
 78 b3994ec5 2003-12-11 devnull 	w->maxlines = w->body.fr.maxlines;
 79 c1973705 2004-02-09 devnull //assert(w->body.w == w);
 80 b3994ec5 2003-12-11 devnull 	if(clone){
 81 b3994ec5 2003-12-11 devnull 		w->dirty = clone->dirty;
 82 b3994ec5 2003-12-11 devnull 		textsetselect(&w->body, clone->body.q0, clone->body.q1);
 83 b3994ec5 2003-12-11 devnull 		winsettag(w);
 84 b3994ec5 2003-12-11 devnull 	}
 85 b3994ec5 2003-12-11 devnull }
 86 b3994ec5 2003-12-11 devnull 
 87 b3994ec5 2003-12-11 devnull int
 88 b3994ec5 2003-12-11 devnull winresize(Window *w, Rectangle r, int safe)
 89 b3994ec5 2003-12-11 devnull {
 90 b3994ec5 2003-12-11 devnull 	Rectangle r1;
 91 b3994ec5 2003-12-11 devnull 	int y;
 92 b3994ec5 2003-12-11 devnull 	Image *b;
 93 b3994ec5 2003-12-11 devnull 	Rectangle br;
 94 b3994ec5 2003-12-11 devnull 
 95 b3994ec5 2003-12-11 devnull 	r1 = r;
 96 b3994ec5 2003-12-11 devnull 	r1.max.y = r1.min.y + font->height;
 97 b3994ec5 2003-12-11 devnull 	y = r1.max.y;
 98 b3994ec5 2003-12-11 devnull 	if(!safe || !eqrect(w->tag.fr.r, r1)){
 99 b3994ec5 2003-12-11 devnull 		y = textresize(&w->tag, r1);
100 b3994ec5 2003-12-11 devnull 		b = button;
101 b3994ec5 2003-12-11 devnull 		if(w->body.file->mod && !w->isdir && !w->isscratch)
102 b3994ec5 2003-12-11 devnull 			b = modbutton;
103 b3994ec5 2003-12-11 devnull 		br.min = w->tag.scrollr.min;
104 b3994ec5 2003-12-11 devnull 		br.max.x = br.min.x + Dx(b->r);
105 b3994ec5 2003-12-11 devnull 		br.max.y = br.min.y + Dy(b->r);
106 b3994ec5 2003-12-11 devnull 		draw(screen, br, b, nil, b->r.min);
107 b3994ec5 2003-12-11 devnull 	}
108 b3994ec5 2003-12-11 devnull 	if(!safe || !eqrect(w->body.fr.r, r1)){
109 b3994ec5 2003-12-11 devnull 		if(y+1+font->height > r.max.y){		/* no body */
110 b3994ec5 2003-12-11 devnull 			r1.min.y = y;
111 b3994ec5 2003-12-11 devnull 			r1.max.y = y;
112 b3994ec5 2003-12-11 devnull 			textresize(&w->body, r1);
113 b3994ec5 2003-12-11 devnull 			w->r = r;
114 b3994ec5 2003-12-11 devnull 			w->r.max.y = y;
115 b3994ec5 2003-12-11 devnull 			return y;
116 b3994ec5 2003-12-11 devnull 		}
117 b3994ec5 2003-12-11 devnull 		r1 = r;
118 b3994ec5 2003-12-11 devnull 		r1.min.y = y;
119 b3994ec5 2003-12-11 devnull 		r1.max.y = y + 1;
120 b3994ec5 2003-12-11 devnull 		draw(screen, r1, tagcols[BORD], nil, ZP);
121 b3994ec5 2003-12-11 devnull 		r1.min.y = y + 1;
122 b3994ec5 2003-12-11 devnull 		r1.max.y = r.max.y;
123 b3994ec5 2003-12-11 devnull 		y = textresize(&w->body, r1);
124 b3994ec5 2003-12-11 devnull 		w->r = r;
125 b3994ec5 2003-12-11 devnull 		w->r.max.y = y;
126 b3994ec5 2003-12-11 devnull 		textscrdraw(&w->body);
127 b3994ec5 2003-12-11 devnull 	}
128 b3994ec5 2003-12-11 devnull 	w->maxlines = min(w->body.fr.nlines, max(w->maxlines, w->body.fr.maxlines));
129 b3994ec5 2003-12-11 devnull 	return w->r.max.y;
130 b3994ec5 2003-12-11 devnull }
131 b3994ec5 2003-12-11 devnull 
132 b3994ec5 2003-12-11 devnull void
133 b3994ec5 2003-12-11 devnull winlock1(Window *w, int owner)
134 b3994ec5 2003-12-11 devnull {
135 b3994ec5 2003-12-11 devnull 	incref(&w->ref);
136 b3994ec5 2003-12-11 devnull 	qlock(&w->lk);
137 b3994ec5 2003-12-11 devnull 	w->owner = owner;
138 b3994ec5 2003-12-11 devnull }
139 b3994ec5 2003-12-11 devnull 
140 b3994ec5 2003-12-11 devnull void
141 b3994ec5 2003-12-11 devnull winlock(Window *w, int owner)
142 b3994ec5 2003-12-11 devnull {
143 b3994ec5 2003-12-11 devnull 	int i;
144 b3994ec5 2003-12-11 devnull 	File *f;
145 b3994ec5 2003-12-11 devnull 
146 5a8e63b2 2004-02-29 devnull //fprint(2, "winlock %p %d %lux\n", w, owner, getcallerpc(&w));
147 b3994ec5 2003-12-11 devnull 	f = w->body.file;
148 b3994ec5 2003-12-11 devnull 	for(i=0; i<f->ntext; i++)
149 b3994ec5 2003-12-11 devnull 		winlock1(f->text[i]->w, owner);
150 b3994ec5 2003-12-11 devnull }
151 b3994ec5 2003-12-11 devnull 
152 b3994ec5 2003-12-11 devnull void
153 b3994ec5 2003-12-11 devnull winunlock(Window *w)
154 b3994ec5 2003-12-11 devnull {
155 b3994ec5 2003-12-11 devnull 	int i;
156 b3994ec5 2003-12-11 devnull 	File *f;
157 b3994ec5 2003-12-11 devnull 
158 5a8e63b2 2004-02-29 devnull //fprint(2, "winunlock %p %lux\n", w, getcallerpc(&w));
159 b3994ec5 2003-12-11 devnull 	f = w->body.file;
160 b3994ec5 2003-12-11 devnull 	for(i=0; i<f->ntext; i++){
161 b3994ec5 2003-12-11 devnull 		w = f->text[i]->w;
162 b3994ec5 2003-12-11 devnull 		w->owner = 0;
163 b3994ec5 2003-12-11 devnull 		qunlock(&w->lk);
164 b3994ec5 2003-12-11 devnull 		winclose(w);
165 b3994ec5 2003-12-11 devnull 		/* winclose() can change up f->text; beware */
166 b3994ec5 2003-12-11 devnull 		if(f->ntext>0 && w != f->text[i]->w)
167 b3994ec5 2003-12-11 devnull 			--i;	/* winclose() deleted window */
168 b3994ec5 2003-12-11 devnull 	}
169 b3994ec5 2003-12-11 devnull }
170 b3994ec5 2003-12-11 devnull 
171 b3994ec5 2003-12-11 devnull void
172 b3994ec5 2003-12-11 devnull winmousebut(Window *w)
173 b3994ec5 2003-12-11 devnull {
174 b3994ec5 2003-12-11 devnull 	moveto(mousectl, divpt(addpt(w->tag.scrollr.min, w->tag.scrollr.max), 2));
175 b3994ec5 2003-12-11 devnull }
176 b3994ec5 2003-12-11 devnull 
177 b3994ec5 2003-12-11 devnull void
178 b3994ec5 2003-12-11 devnull windirfree(Window *w)
179 b3994ec5 2003-12-11 devnull {
180 b3994ec5 2003-12-11 devnull 	int i;
181 b3994ec5 2003-12-11 devnull 	Dirlist *dl;
182 b3994ec5 2003-12-11 devnull 
183 b3994ec5 2003-12-11 devnull 	if(w->isdir){
184 b3994ec5 2003-12-11 devnull 		for(i=0; i<w->ndl; i++){
185 b3994ec5 2003-12-11 devnull 			dl = w->dlp[i];
186 b3994ec5 2003-12-11 devnull 			free(dl->r);
187 b3994ec5 2003-12-11 devnull 			free(dl);
188 b3994ec5 2003-12-11 devnull 		}
189 b3994ec5 2003-12-11 devnull 		free(w->dlp);
190 b3994ec5 2003-12-11 devnull 	}
191 b3994ec5 2003-12-11 devnull 	w->dlp = nil;
192 b3994ec5 2003-12-11 devnull 	w->ndl = 0;
193 b3994ec5 2003-12-11 devnull }
194 b3994ec5 2003-12-11 devnull 
195 b3994ec5 2003-12-11 devnull void
196 b3994ec5 2003-12-11 devnull winclose(Window *w)
197 b3994ec5 2003-12-11 devnull {
198 b3994ec5 2003-12-11 devnull 	int i;
199 b3994ec5 2003-12-11 devnull 
200 b3994ec5 2003-12-11 devnull 	if(decref(&w->ref) == 0){
201 b3994ec5 2003-12-11 devnull 		windirfree(w);
202 b3994ec5 2003-12-11 devnull 		textclose(&w->tag);
203 b3994ec5 2003-12-11 devnull 		textclose(&w->body);
204 b3994ec5 2003-12-11 devnull 		if(activewin == w)
205 b3994ec5 2003-12-11 devnull 			activewin = nil;
206 b3994ec5 2003-12-11 devnull 		for(i=0; i<w->nincl; i++)
207 b3994ec5 2003-12-11 devnull 			free(w->incl[i]);
208 b3994ec5 2003-12-11 devnull 		free(w->incl);
209 b3994ec5 2003-12-11 devnull 		free(w->events);
210 b3994ec5 2003-12-11 devnull 		free(w);
211 b3994ec5 2003-12-11 devnull 	}
212 b3994ec5 2003-12-11 devnull }
213 b3994ec5 2003-12-11 devnull 
214 b3994ec5 2003-12-11 devnull void
215 b3994ec5 2003-12-11 devnull windelete(Window *w)
216 b3994ec5 2003-12-11 devnull {
217 b3994ec5 2003-12-11 devnull 	Xfid *x;
218 b3994ec5 2003-12-11 devnull 
219 b3994ec5 2003-12-11 devnull 	x = w->eventx;
220 b3994ec5 2003-12-11 devnull 	if(x){
221 b3994ec5 2003-12-11 devnull 		w->nevents = 0;
222 b3994ec5 2003-12-11 devnull 		free(w->events);
223 b3994ec5 2003-12-11 devnull 		w->events = nil;
224 b3994ec5 2003-12-11 devnull 		w->eventx = nil;
225 b3994ec5 2003-12-11 devnull 		sendp(x->c, nil);	/* wake him up */
226 b3994ec5 2003-12-11 devnull 	}
227 b3994ec5 2003-12-11 devnull }
228 b3994ec5 2003-12-11 devnull 
229 b3994ec5 2003-12-11 devnull void
230 b3994ec5 2003-12-11 devnull winundo(Window *w, int isundo)
231 b3994ec5 2003-12-11 devnull {
232 b3994ec5 2003-12-11 devnull 	Text *body;
233 b3994ec5 2003-12-11 devnull 	int i;
234 b3994ec5 2003-12-11 devnull 	File *f;
235 b3994ec5 2003-12-11 devnull 	Window *v;
236 b3994ec5 2003-12-11 devnull 
237 b3994ec5 2003-12-11 devnull 	w->utflastqid = -1;
238 b3994ec5 2003-12-11 devnull 	body = &w->body;
239 b3994ec5 2003-12-11 devnull 	fileundo(body->file, isundo, &body->q0, &body->q1);
240 b3994ec5 2003-12-11 devnull 	textshow(body, body->q0, body->q1, 1);
241 b3994ec5 2003-12-11 devnull 	f = body->file;
242 b3994ec5 2003-12-11 devnull 	for(i=0; i<f->ntext; i++){
243 b3994ec5 2003-12-11 devnull 		v = f->text[i]->w;
244 b3994ec5 2003-12-11 devnull 		v->dirty = (f->seq != v->putseq);
245 b3994ec5 2003-12-11 devnull 		if(v != w){
246 b3994ec5 2003-12-11 devnull 			v->body.q0 = v->body.fr.p0+v->body.org;
247 b3994ec5 2003-12-11 devnull 			v->body.q1 = v->body.fr.p1+v->body.org;
248 b3994ec5 2003-12-11 devnull 		}
249 b3994ec5 2003-12-11 devnull 	}
250 b3994ec5 2003-12-11 devnull 	winsettag(w);
251 b3994ec5 2003-12-11 devnull }
252 b3994ec5 2003-12-11 devnull 
253 b3994ec5 2003-12-11 devnull void
254 b3994ec5 2003-12-11 devnull winsetname(Window *w, Rune *name, int n)
255 b3994ec5 2003-12-11 devnull {
256 b3994ec5 2003-12-11 devnull 	Text *t;
257 b3994ec5 2003-12-11 devnull 	Window *v;
258 b3994ec5 2003-12-11 devnull 	int i;
259 b3994ec5 2003-12-11 devnull 	static Rune Lslashguide[] = { '/', 'g', 'u', 'i', 'd', 'e', 0 };
260 b3994ec5 2003-12-11 devnull 	static Rune Lpluserrors[] = { '+', 'E', 'r', 'r', 'o', 'r', 's', 0 };
261 b3994ec5 2003-12-11 devnull 	t = &w->body;
262 b3994ec5 2003-12-11 devnull 	if(runeeq(t->file->name, t->file->nname, name, n) == TRUE)
263 b3994ec5 2003-12-11 devnull 		return;
264 b3994ec5 2003-12-11 devnull 	w->isscratch = FALSE;
265 b3994ec5 2003-12-11 devnull 	if(n>=6 && runeeq(Lslashguide, 6, name+(n-6), 6))
266 b3994ec5 2003-12-11 devnull 		w->isscratch = TRUE;
267 b3994ec5 2003-12-11 devnull 	else if(n>=7 && runeeq(Lpluserrors, 7, name+(n-7), 7))
268 b3994ec5 2003-12-11 devnull 		w->isscratch = TRUE;
269 b3994ec5 2003-12-11 devnull 	filesetname(t->file, name, n);
270 b3994ec5 2003-12-11 devnull 	for(i=0; i<t->file->ntext; i++){
271 b3994ec5 2003-12-11 devnull 		v = t->file->text[i]->w;
272 b3994ec5 2003-12-11 devnull 		winsettag(v);
273 b3994ec5 2003-12-11 devnull 		v->isscratch = w->isscratch;
274 b3994ec5 2003-12-11 devnull 	}
275 b3994ec5 2003-12-11 devnull }
276 b3994ec5 2003-12-11 devnull 
277 b3994ec5 2003-12-11 devnull void
278 b3994ec5 2003-12-11 devnull wintype(Window *w, Text *t, Rune r)
279 b3994ec5 2003-12-11 devnull {
280 b3994ec5 2003-12-11 devnull 	int i;
281 b3994ec5 2003-12-11 devnull 
282 b3994ec5 2003-12-11 devnull 	texttype(t, r);
283 b3994ec5 2003-12-11 devnull 	if(t->what == Body)
284 b3994ec5 2003-12-11 devnull 		for(i=0; i<t->file->ntext; i++)
285 b3994ec5 2003-12-11 devnull 			textscrdraw(t->file->text[i]);
286 b3994ec5 2003-12-11 devnull 	winsettag(w);
287 b3994ec5 2003-12-11 devnull }
288 b3994ec5 2003-12-11 devnull 
289 b3994ec5 2003-12-11 devnull void
290 b3994ec5 2003-12-11 devnull wincleartag(Window *w)
291 b3994ec5 2003-12-11 devnull {
292 b3994ec5 2003-12-11 devnull 	int i, n;
293 b3994ec5 2003-12-11 devnull 	Rune *r;
294 b3994ec5 2003-12-11 devnull 
295 b3994ec5 2003-12-11 devnull 	/* w must be committed */
296 b3994ec5 2003-12-11 devnull 	n = w->tag.file->b.nc;
297 b3994ec5 2003-12-11 devnull 	r = runemalloc(n);
298 b3994ec5 2003-12-11 devnull 	bufread(&w->tag.file->b, 0, r, n);
299 b3994ec5 2003-12-11 devnull 	for(i=0; i<n; i++)
300 b3994ec5 2003-12-11 devnull 		if(r[i]==' ' || r[i]=='\t')
301 b3994ec5 2003-12-11 devnull 			break;
302 b3994ec5 2003-12-11 devnull 	for(; i<n; i++)
303 b3994ec5 2003-12-11 devnull 		if(r[i] == '|')
304 b3994ec5 2003-12-11 devnull 			break;
305 b3994ec5 2003-12-11 devnull 	if(i == n)
306 b3994ec5 2003-12-11 devnull 		return;
307 b3994ec5 2003-12-11 devnull 	i++;
308 b3994ec5 2003-12-11 devnull 	textdelete(&w->tag, i, n, TRUE);
309 b3994ec5 2003-12-11 devnull 	free(r);
310 b3994ec5 2003-12-11 devnull 	w->tag.file->mod = FALSE;
311 b3994ec5 2003-12-11 devnull 	if(w->tag.q0 > i)
312 b3994ec5 2003-12-11 devnull 		w->tag.q0 = i;
313 b3994ec5 2003-12-11 devnull 	if(w->tag.q1 > i)
314 b3994ec5 2003-12-11 devnull 		w->tag.q1 = i;
315 b3994ec5 2003-12-11 devnull 	textsetselect(&w->tag, w->tag.q0, w->tag.q1);
316 b3994ec5 2003-12-11 devnull }
317 b3994ec5 2003-12-11 devnull 
318 b3994ec5 2003-12-11 devnull void
319 b3994ec5 2003-12-11 devnull winsettag1(Window *w)
320 b3994ec5 2003-12-11 devnull {
321 b3994ec5 2003-12-11 devnull 	int i, j, k, n, bar, dirty;
322 b3994ec5 2003-12-11 devnull 	Rune *new, *old, *r;
323 b3994ec5 2003-12-11 devnull 	Image *b;
324 b3994ec5 2003-12-11 devnull 	uint q0, q1;
325 b3994ec5 2003-12-11 devnull 	Rectangle br;
326 b3994ec5 2003-12-11 devnull 	static Rune Ldelsnarf[] = { ' ', 'D', 'e', 'l', ' ',
327 b3994ec5 2003-12-11 devnull 		'S', 'n', 'a', 'r', 'f', 0 };
328 b3994ec5 2003-12-11 devnull 	static Rune Lundo[] = { ' ', 'U', 'n', 'd', 'o', 0 };
329 b3994ec5 2003-12-11 devnull 	static Rune Lredo[] = { ' ', 'R', 'e', 'd', 'o', 0 };
330 b3994ec5 2003-12-11 devnull 	static Rune Lget[] = { ' ', 'G', 'e', 't', 0 };
331 b3994ec5 2003-12-11 devnull 	static Rune Lput[] = { ' ', 'P', 'u', 't', 0 };
332 b3994ec5 2003-12-11 devnull 	static Rune Llook[] = { ' ', 'L', 'o', 'o', 'k', ' ', 0 };
333 b3994ec5 2003-12-11 devnull 	static Rune Lpipe[] = { ' ', '|', 0 };
334 b3994ec5 2003-12-11 devnull 	/* there are races that get us here with stuff in the tag cache, so we take extra care to sync it */
335 b3994ec5 2003-12-11 devnull 	if(w->tag.ncache!=0 || w->tag.file->mod)
336 b3994ec5 2003-12-11 devnull 		wincommit(w, &w->tag);	/* check file name; also guarantees we can modify tag contents */
337 b3994ec5 2003-12-11 devnull 	old = runemalloc(w->tag.file->b.nc+1);
338 b3994ec5 2003-12-11 devnull 	bufread(&w->tag.file->b, 0, old, w->tag.file->b.nc);
339 b3994ec5 2003-12-11 devnull 	old[w->tag.file->b.nc] = '\0';
340 b3994ec5 2003-12-11 devnull 	for(i=0; i<w->tag.file->b.nc; i++)
341 b3994ec5 2003-12-11 devnull 		if(old[i]==' ' || old[i]=='\t')
342 b3994ec5 2003-12-11 devnull 			break;
343 b3994ec5 2003-12-11 devnull 	if(runeeq(old, i, w->body.file->name, w->body.file->nname) == FALSE){
344 b3994ec5 2003-12-11 devnull 		textdelete(&w->tag, 0, i, TRUE);
345 b3994ec5 2003-12-11 devnull 		textinsert(&w->tag, 0, w->body.file->name, w->body.file->nname, TRUE);
346 b3994ec5 2003-12-11 devnull 		free(old);
347 b3994ec5 2003-12-11 devnull 		old = runemalloc(w->tag.file->b.nc+1);
348 b3994ec5 2003-12-11 devnull 		bufread(&w->tag.file->b, 0, old, w->tag.file->b.nc);
349 b3994ec5 2003-12-11 devnull 		old[w->tag.file->b.nc] = '\0';
350 b3994ec5 2003-12-11 devnull 	}
351 b3994ec5 2003-12-11 devnull 	new = runemalloc(w->body.file->nname+100);
352 b3994ec5 2003-12-11 devnull 	i = 0;
353 b3994ec5 2003-12-11 devnull 	runemove(new+i, w->body.file->name, w->body.file->nname);
354 b3994ec5 2003-12-11 devnull 	i += w->body.file->nname;
355 b3994ec5 2003-12-11 devnull 	runemove(new+i, Ldelsnarf, 10);
356 b3994ec5 2003-12-11 devnull 	i += 10;
357 b3994ec5 2003-12-11 devnull 	if(w->filemenu){
358 b3994ec5 2003-12-11 devnull 		if(w->body.file->delta.nc>0 || w->body.ncache){
359 b3994ec5 2003-12-11 devnull 			runemove(new+i, Lundo, 5);
360 b3994ec5 2003-12-11 devnull 			i += 5;
361 b3994ec5 2003-12-11 devnull 		}
362 b3994ec5 2003-12-11 devnull 		if(w->body.file->epsilon.nc > 0){
363 b3994ec5 2003-12-11 devnull 			runemove(new+i, Lredo, 5);
364 b3994ec5 2003-12-11 devnull 			i += 5;
365 b3994ec5 2003-12-11 devnull 		}
366 b3994ec5 2003-12-11 devnull 		dirty = w->body.file->nname && (w->body.ncache || w->body.file->seq!=w->putseq);
367 b3994ec5 2003-12-11 devnull 		if(!w->isdir && dirty){
368 b3994ec5 2003-12-11 devnull 			runemove(new+i, Lput, 4);
369 b3994ec5 2003-12-11 devnull 			i += 4;
370 b3994ec5 2003-12-11 devnull 		}
371 b3994ec5 2003-12-11 devnull 	}
372 b3994ec5 2003-12-11 devnull 	if(w->isdir){
373 b3994ec5 2003-12-11 devnull 		runemove(new+i, Lget, 4);
374 b3994ec5 2003-12-11 devnull 		i += 4;
375 b3994ec5 2003-12-11 devnull 	}
376 b3994ec5 2003-12-11 devnull 	runemove(new+i, Lpipe, 2);
377 b3994ec5 2003-12-11 devnull 	i += 2;
378 b3994ec5 2003-12-11 devnull 	r = runestrchr(old, '|');
379 b3994ec5 2003-12-11 devnull 	if(r)
380 b3994ec5 2003-12-11 devnull 		k = r-old+1;
381 b3994ec5 2003-12-11 devnull 	else{
382 b3994ec5 2003-12-11 devnull 		k = w->tag.file->b.nc;
383 b3994ec5 2003-12-11 devnull 		if(w->body.file->seq == 0){
384 b3994ec5 2003-12-11 devnull 			runemove(new+i, Llook, 6);
385 b3994ec5 2003-12-11 devnull 			i += 6;
386 b3994ec5 2003-12-11 devnull 		}
387 b3994ec5 2003-12-11 devnull 	}
388 b3994ec5 2003-12-11 devnull 	new[i] = 0;
389 b3994ec5 2003-12-11 devnull 	if(runestrlen(new) != i)
390 b3994ec5 2003-12-11 devnull 		fprint(2, "s '%S' len not %d\n", new, i);
391 b3994ec5 2003-12-11 devnull 	assert(i==runestrlen(new));
392 b3994ec5 2003-12-11 devnull 	if(runeeq(new, i, old, k) == FALSE){
393 b3994ec5 2003-12-11 devnull 		n = k;
394 b3994ec5 2003-12-11 devnull 		if(n > i)
395 b3994ec5 2003-12-11 devnull 			n = i;
396 b3994ec5 2003-12-11 devnull 		for(j=0; j<n; j++)
397 b3994ec5 2003-12-11 devnull 			if(old[j] != new[j])
398 b3994ec5 2003-12-11 devnull 				break;
399 b3994ec5 2003-12-11 devnull 		q0 = w->tag.q0;
400 b3994ec5 2003-12-11 devnull 		q1 = w->tag.q1;
401 b3994ec5 2003-12-11 devnull 		textdelete(&w->tag, j, k, TRUE);
402 b3994ec5 2003-12-11 devnull 		textinsert(&w->tag, j, new+j, i-j, TRUE);
403 b3994ec5 2003-12-11 devnull 		/* try to preserve user selection */
404 b3994ec5 2003-12-11 devnull 		r = runestrchr(old, '|');
405 b3994ec5 2003-12-11 devnull 		if(r){
406 b3994ec5 2003-12-11 devnull 			bar = r-old;
407 b3994ec5 2003-12-11 devnull 			if(q0 > bar){
408 b3994ec5 2003-12-11 devnull 				bar = (runestrchr(new, '|')-new)-bar;
409 b3994ec5 2003-12-11 devnull 				w->tag.q0 = q0+bar;
410 b3994ec5 2003-12-11 devnull 				w->tag.q1 = q1+bar;
411 b3994ec5 2003-12-11 devnull 			}
412 b3994ec5 2003-12-11 devnull 		}
413 b3994ec5 2003-12-11 devnull 	}
414 b3994ec5 2003-12-11 devnull 	free(old);
415 b3994ec5 2003-12-11 devnull 	free(new);
416 b3994ec5 2003-12-11 devnull 	w->tag.file->mod = FALSE;
417 b3994ec5 2003-12-11 devnull 	n = w->tag.file->b.nc+w->tag.ncache;
418 b3994ec5 2003-12-11 devnull 	if(w->tag.q0 > n)
419 b3994ec5 2003-12-11 devnull 		w->tag.q0 = n;
420 b3994ec5 2003-12-11 devnull 	if(w->tag.q1 > n)
421 b3994ec5 2003-12-11 devnull 		w->tag.q1 = n;
422 b3994ec5 2003-12-11 devnull 	textsetselect(&w->tag, w->tag.q0, w->tag.q1);
423 b3994ec5 2003-12-11 devnull 	b = button;
424 b3994ec5 2003-12-11 devnull 	if(!w->isdir && !w->isscratch && (w->body.file->mod || w->body.ncache))
425 b3994ec5 2003-12-11 devnull 		b = modbutton;
426 b3994ec5 2003-12-11 devnull 	br.min = w->tag.scrollr.min;
427 b3994ec5 2003-12-11 devnull 	br.max.x = br.min.x + Dx(b->r);
428 b3994ec5 2003-12-11 devnull 	br.max.y = br.min.y + Dy(b->r);
429 b3994ec5 2003-12-11 devnull 	draw(screen, br, b, nil, b->r.min);
430 b3994ec5 2003-12-11 devnull }
431 b3994ec5 2003-12-11 devnull 
432 b3994ec5 2003-12-11 devnull void
433 b3994ec5 2003-12-11 devnull winsettag(Window *w)
434 b3994ec5 2003-12-11 devnull {
435 b3994ec5 2003-12-11 devnull 	int i;
436 b3994ec5 2003-12-11 devnull 	File *f;
437 b3994ec5 2003-12-11 devnull 	Window *v;
438 b3994ec5 2003-12-11 devnull 
439 b3994ec5 2003-12-11 devnull 	f = w->body.file;
440 b3994ec5 2003-12-11 devnull 	for(i=0; i<f->ntext; i++){
441 b3994ec5 2003-12-11 devnull 		v = f->text[i]->w;
442 b3994ec5 2003-12-11 devnull 		if(v->col->safe || v->body.fr.maxlines>0)
443 b3994ec5 2003-12-11 devnull 			winsettag1(v);
444 b3994ec5 2003-12-11 devnull 	}
445 b3994ec5 2003-12-11 devnull }
446 b3994ec5 2003-12-11 devnull 
447 b3994ec5 2003-12-11 devnull void
448 b3994ec5 2003-12-11 devnull wincommit(Window *w, Text *t)
449 b3994ec5 2003-12-11 devnull {
450 b3994ec5 2003-12-11 devnull 	Rune *r;
451 b3994ec5 2003-12-11 devnull 	int i;
452 b3994ec5 2003-12-11 devnull 	File *f;
453 b3994ec5 2003-12-11 devnull 
454 b3994ec5 2003-12-11 devnull 	textcommit(t, TRUE);
455 b3994ec5 2003-12-11 devnull 	f = t->file;
456 b3994ec5 2003-12-11 devnull 	if(f->ntext > 1)
457 b3994ec5 2003-12-11 devnull 		for(i=0; i<f->ntext; i++)
458 b3994ec5 2003-12-11 devnull 			textcommit(f->text[i], FALSE);	/* no-op for t */
459 b3994ec5 2003-12-11 devnull 	if(t->what == Body)
460 b3994ec5 2003-12-11 devnull 		return;
461 b3994ec5 2003-12-11 devnull 	r = runemalloc(w->tag.file->b.nc);
462 b3994ec5 2003-12-11 devnull 	bufread(&w->tag.file->b, 0, r, w->tag.file->b.nc);
463 b3994ec5 2003-12-11 devnull 	for(i=0; i<w->tag.file->b.nc; i++)
464 b3994ec5 2003-12-11 devnull 		if(r[i]==' ' || r[i]=='\t')
465 b3994ec5 2003-12-11 devnull 			break;
466 b3994ec5 2003-12-11 devnull 	if(runeeq(r, i, w->body.file->name, w->body.file->nname) == FALSE){
467 b3994ec5 2003-12-11 devnull 		seq++;
468 b3994ec5 2003-12-11 devnull 		filemark(w->body.file);
469 b3994ec5 2003-12-11 devnull 		w->body.file->mod = TRUE;
470 b3994ec5 2003-12-11 devnull 		w->dirty = TRUE;
471 b3994ec5 2003-12-11 devnull 		winsetname(w, r, i);
472 b3994ec5 2003-12-11 devnull 		winsettag(w);
473 b3994ec5 2003-12-11 devnull 	}
474 b3994ec5 2003-12-11 devnull 	free(r);
475 b3994ec5 2003-12-11 devnull }
476 b3994ec5 2003-12-11 devnull 
477 b3994ec5 2003-12-11 devnull void
478 b3994ec5 2003-12-11 devnull winaddincl(Window *w, Rune *r, int n)
479 b3994ec5 2003-12-11 devnull {
480 b3994ec5 2003-12-11 devnull 	char *a;
481 b3994ec5 2003-12-11 devnull 	Dir *d;
482 b3994ec5 2003-12-11 devnull 	Runestr rs;
483 b3994ec5 2003-12-11 devnull 
484 b3994ec5 2003-12-11 devnull 	a = runetobyte(r, n);
485 b3994ec5 2003-12-11 devnull 	d = dirstat(a);
486 b3994ec5 2003-12-11 devnull 	if(d == nil){
487 b3994ec5 2003-12-11 devnull 		if(a[0] == '/')
488 b3994ec5 2003-12-11 devnull 			goto Rescue;
489 b3994ec5 2003-12-11 devnull 		rs = dirname(&w->body, r, n);
490 b3994ec5 2003-12-11 devnull 		r = rs.r;
491 b3994ec5 2003-12-11 devnull 		n = rs.nr;
492 b3994ec5 2003-12-11 devnull 		free(a);
493 b3994ec5 2003-12-11 devnull 		a = runetobyte(r, n);
494 b3994ec5 2003-12-11 devnull 		d = dirstat(a);
495 b3994ec5 2003-12-11 devnull 		if(d == nil)
496 b3994ec5 2003-12-11 devnull 			goto Rescue;
497 b3994ec5 2003-12-11 devnull 		r = runerealloc(r, n+1);
498 b3994ec5 2003-12-11 devnull 		r[n] = 0;
499 b3994ec5 2003-12-11 devnull 	}
500 b3994ec5 2003-12-11 devnull 	free(a);
501 b3994ec5 2003-12-11 devnull 	if((d->qid.type&QTDIR) == 0){
502 b3994ec5 2003-12-11 devnull 		free(d);
503 b3994ec5 2003-12-11 devnull 		warning(nil, "%s: not a directory\n", a);
504 b3994ec5 2003-12-11 devnull 		free(r);
505 b3994ec5 2003-12-11 devnull 		return;
506 b3994ec5 2003-12-11 devnull 	}
507 b3994ec5 2003-12-11 devnull 	free(d);
508 b3994ec5 2003-12-11 devnull 	w->nincl++;
509 b3994ec5 2003-12-11 devnull 	w->incl = realloc(w->incl, w->nincl*sizeof(Rune*));
510 b3994ec5 2003-12-11 devnull 	memmove(w->incl+1, w->incl, (w->nincl-1)*sizeof(Rune*));
511 b3994ec5 2003-12-11 devnull 	w->incl[0] = runemalloc(n+1);
512 b3994ec5 2003-12-11 devnull 	runemove(w->incl[0], r, n);
513 b3994ec5 2003-12-11 devnull 	free(r);
514 b3994ec5 2003-12-11 devnull 	return;
515 b3994ec5 2003-12-11 devnull 
516 b3994ec5 2003-12-11 devnull Rescue:
517 b3994ec5 2003-12-11 devnull 	warning(nil, "%s: %r\n", a);
518 b3994ec5 2003-12-11 devnull 	free(r);
519 b3994ec5 2003-12-11 devnull 	free(a);
520 b3994ec5 2003-12-11 devnull 	return;
521 b3994ec5 2003-12-11 devnull }
522 b3994ec5 2003-12-11 devnull 
523 b3994ec5 2003-12-11 devnull int
524 b3994ec5 2003-12-11 devnull winclean(Window *w, int conservative)	/* as it stands, conservative is always TRUE */
525 b3994ec5 2003-12-11 devnull {
526 b3994ec5 2003-12-11 devnull 	if(w->isscratch || w->isdir)	/* don't whine if it's a guide file, error window, etc. */
527 b3994ec5 2003-12-11 devnull 		return TRUE;
528 b3994ec5 2003-12-11 devnull 	if(!conservative && w->nopen[QWevent]>0)
529 b3994ec5 2003-12-11 devnull 		return TRUE;
530 b3994ec5 2003-12-11 devnull 	if(w->dirty){
531 b3994ec5 2003-12-11 devnull 		if(w->body.file->nname)
532 b3994ec5 2003-12-11 devnull 			warning(nil, "%.*S modified\n", w->body.file->nname, w->body.file->name);
533 b3994ec5 2003-12-11 devnull 		else{
534 b3994ec5 2003-12-11 devnull 			if(w->body.file->b.nc < 100)	/* don't whine if it's too small */
535 b3994ec5 2003-12-11 devnull 				return TRUE;
536 b3994ec5 2003-12-11 devnull 			warning(nil, "unnamed file modified\n");
537 b3994ec5 2003-12-11 devnull 		}
538 b3994ec5 2003-12-11 devnull 		w->dirty = FALSE;
539 b3994ec5 2003-12-11 devnull 		return FALSE;
540 b3994ec5 2003-12-11 devnull 	}
541 b3994ec5 2003-12-11 devnull 	return TRUE;
542 b3994ec5 2003-12-11 devnull }
543 b3994ec5 2003-12-11 devnull 
544 b3994ec5 2003-12-11 devnull void
545 b3994ec5 2003-12-11 devnull winctlprint(Window *w, char *buf, int fonts)
546 b3994ec5 2003-12-11 devnull {
547 b3994ec5 2003-12-11 devnull 	int n;
548 b3994ec5 2003-12-11 devnull 
549 b3994ec5 2003-12-11 devnull 	n = sprint(buf, "%11d %11d %11d %11d %11d ", w->id, w->tag.file->b.nc,
550 b3994ec5 2003-12-11 devnull 		w->body.file->b.nc, w->isdir, w->dirty);
551 b3994ec5 2003-12-11 devnull 	if(fonts)
552 b3994ec5 2003-12-11 devnull 		sprint(buf+n, "%11d %s" , Dx(w->body.fr.r), w->body.reffont->f->name);
553 b3994ec5 2003-12-11 devnull }
554 b3994ec5 2003-12-11 devnull 
555 b3994ec5 2003-12-11 devnull void
556 b3994ec5 2003-12-11 devnull winevent(Window *w, char *fmt, ...)
557 b3994ec5 2003-12-11 devnull {
558 b3994ec5 2003-12-11 devnull 	int n;
559 b3994ec5 2003-12-11 devnull 	char *b;
560 b3994ec5 2003-12-11 devnull 	Xfid *x;
561 b3994ec5 2003-12-11 devnull 	va_list arg;
562 b3994ec5 2003-12-11 devnull 
563 b3994ec5 2003-12-11 devnull 	if(w->nopen[QWevent] == 0)
564 b3994ec5 2003-12-11 devnull 		return;
565 b3994ec5 2003-12-11 devnull 	if(w->owner == 0)
566 b3994ec5 2003-12-11 devnull 		error("no window owner");
567 b3994ec5 2003-12-11 devnull 	va_start(arg, fmt);
568 b3994ec5 2003-12-11 devnull 	b = vsmprint(fmt, arg);
569 b3994ec5 2003-12-11 devnull 	va_end(arg);
570 b3994ec5 2003-12-11 devnull 	if(b == nil)
571 b3994ec5 2003-12-11 devnull 		error("vsmprint failed");
572 b3994ec5 2003-12-11 devnull 	n = strlen(b);
573 b3994ec5 2003-12-11 devnull 	w->events = realloc(w->events, w->nevents+1+n);
574 b3994ec5 2003-12-11 devnull 	w->events[w->nevents++] = w->owner;
575 b3994ec5 2003-12-11 devnull 	memmove(w->events+w->nevents, b, n);
576 b3994ec5 2003-12-11 devnull 	free(b);
577 b3994ec5 2003-12-11 devnull 	w->nevents += n;
578 b3994ec5 2003-12-11 devnull 	x = w->eventx;
579 b3994ec5 2003-12-11 devnull 	if(x){
580 b3994ec5 2003-12-11 devnull 		w->eventx = nil;
581 b3994ec5 2003-12-11 devnull 		sendp(x->c, nil);
582 b3994ec5 2003-12-11 devnull 	}
583 b3994ec5 2003-12-11 devnull }