1 e830a908 2005-11-06 devnull #include <u.h>
2 e830a908 2005-11-06 devnull #include <libc.h>
3 e830a908 2005-11-06 devnull #include <draw.h>
4 e830a908 2005-11-06 devnull #include <thread.h>
5 e830a908 2005-11-06 devnull #include <cursor.h>
6 e830a908 2005-11-06 devnull #include <mouse.h>
7 e830a908 2005-11-06 devnull #include <keyboard.h>
8 e830a908 2005-11-06 devnull #include <frame.h>
9 e830a908 2005-11-06 devnull #include <fcall.h>
10 0c7f940a 2005-11-07 devnull #include <9pclient.h>
11 e830a908 2005-11-06 devnull #include <plumb.h>
12 e830a908 2005-11-06 devnull #include <complete.h>
13 e830a908 2005-11-06 devnull #include "dat.h"
14 e830a908 2005-11-06 devnull #include "fns.h"
16 e830a908 2005-11-06 devnull #define MOVEIT if(0)
20 e830a908 2005-11-06 devnull HiWater = 640000, /* max size of history */
21 e830a908 2005-11-06 devnull LoWater = 400000, /* min size of history after max'ed */
22 cbeb0b26 2006-04-01 devnull MinWater = 20000 /* room to leave available when reallocating */
25 e830a908 2005-11-06 devnull static int topped;
26 e830a908 2005-11-06 devnull static int id;
28 e830a908 2005-11-06 devnull static Image *cols[NCOL];
29 e830a908 2005-11-06 devnull static Image *grey;
30 e830a908 2005-11-06 devnull static Image *darkgrey;
31 e830a908 2005-11-06 devnull static Cursor *lastcursor;
32 e830a908 2005-11-06 devnull static Image *titlecol;
33 e830a908 2005-11-06 devnull static Image *lighttitlecol;
34 e830a908 2005-11-06 devnull static Image *holdcol;
35 e830a908 2005-11-06 devnull static Image *lightholdcol;
36 e830a908 2005-11-06 devnull static Image *paleholdcol;
39 e830a908 2005-11-06 devnull wmk(Image *i, Mousectl *mc, Channel *ck, Channel *cctl, int scrolling)
41 e830a908 2005-11-06 devnull Window *w;
42 e830a908 2005-11-06 devnull Rectangle r;
44 e830a908 2005-11-06 devnull if(cols[0] == nil){
45 e830a908 2005-11-06 devnull /* greys are multiples of 0x11111100+0xFF, 14* being palest */
46 e830a908 2005-11-06 devnull grey = allocimage(display, Rect(0,0,1,1), CMAP8, 1, 0xEEEEEEFF);
47 e830a908 2005-11-06 devnull darkgrey = allocimage(display, Rect(0,0,1,1), CMAP8, 1, 0x666666FF);
48 e830a908 2005-11-06 devnull cols[BACK] = display->white;
49 e830a908 2005-11-06 devnull cols[HIGH] = allocimage(display, Rect(0,0,1,1), CMAP8, 1, 0xCCCCCCFF);
50 e830a908 2005-11-06 devnull cols[BORD] = allocimage(display, Rect(0,0,1,1), CMAP8, 1, 0x999999FF);
51 e830a908 2005-11-06 devnull cols[TEXT] = display->black;
52 e830a908 2005-11-06 devnull cols[HTEXT] = display->black;
53 e830a908 2005-11-06 devnull titlecol = allocimage(display, Rect(0,0,1,1), CMAP8, 1, DGreygreen);
54 e830a908 2005-11-06 devnull lighttitlecol = allocimage(display, Rect(0,0,1,1), CMAP8, 1, DPalegreygreen);
55 e830a908 2005-11-06 devnull holdcol = allocimage(display, Rect(0,0,1,1), CMAP8, 1, DMedblue);
56 e830a908 2005-11-06 devnull lightholdcol = allocimage(display, Rect(0,0,1,1), CMAP8, 1, DGreyblue);
57 e830a908 2005-11-06 devnull paleholdcol = allocimage(display, Rect(0,0,1,1), CMAP8, 1, DPalegreyblue);
59 e830a908 2005-11-06 devnull w = emalloc(sizeof(Window));
60 e830a908 2005-11-06 devnull w->screenr = i->r;
61 e830a908 2005-11-06 devnull r = insetrect(i->r, Selborder+1);
62 e830a908 2005-11-06 devnull w->i = i;
63 e830a908 2005-11-06 devnull w->mc = *mc;
64 e830a908 2005-11-06 devnull w->ck = ck;
65 e830a908 2005-11-06 devnull w->cctl = cctl;
66 e830a908 2005-11-06 devnull w->cursorp = nil;
67 e830a908 2005-11-06 devnull w->conswrite = chancreate(sizeof(Conswritemesg), 0);
68 e830a908 2005-11-06 devnull w->consread = chancreate(sizeof(Consreadmesg), 0);
69 e830a908 2005-11-06 devnull w->mouseread = chancreate(sizeof(Mousereadmesg), 0);
70 e830a908 2005-11-06 devnull w->wctlread = chancreate(sizeof(Consreadmesg), 0);
71 e830a908 2005-11-06 devnull w->scrollr = r;
72 e830a908 2005-11-06 devnull w->scrollr.max.x = r.min.x+Scrollwid;
73 e830a908 2005-11-06 devnull w->lastsr = ZR;
74 e830a908 2005-11-06 devnull r.min.x += Scrollwid+Scrollgap;
75 e830a908 2005-11-06 devnull frinit(&w->f, r, font, i, cols);
76 e830a908 2005-11-06 devnull w->f.maxtab = maxtab*stringwidth(font, "0");
77 e830a908 2005-11-06 devnull w->topped = ++topped;
78 e830a908 2005-11-06 devnull w->id = ++id;
79 e830a908 2005-11-06 devnull w->notefd = -1;
80 e830a908 2005-11-06 devnull w->scrolling = scrolling;
81 e830a908 2005-11-06 devnull w->dir = estrdup(startdir);
82 e830a908 2005-11-06 devnull w->label = estrdup("<unnamed>");
83 e830a908 2005-11-06 devnull r = insetrect(w->i->r, Selborder);
84 e830a908 2005-11-06 devnull draw(w->i, r, cols[BACK], nil, w->f.entire.min);
85 e830a908 2005-11-06 devnull wborder(w, Selborder);
86 e830a908 2005-11-06 devnull wscrdraw(w);
87 e830a908 2005-11-06 devnull incref(&w->ref); /* ref will be removed after mounting; avoids delete before ready to be deleted */
88 e830a908 2005-11-06 devnull return w;
92 e830a908 2005-11-06 devnull wsetname(Window *w)
94 e830a908 2005-11-06 devnull int i, n;
95 e830a908 2005-11-06 devnull char err[ERRMAX];
97 e830a908 2005-11-06 devnull n = sprint(w->name, "window.%d.%d", w->id, w->namecount++);
98 e830a908 2005-11-06 devnull for(i='A'; i<='Z'; i++){
99 e830a908 2005-11-06 devnull if(nameimage(w->i, w->name, 1) > 0)
101 e830a908 2005-11-06 devnull errstr(err, sizeof err);
102 e830a908 2005-11-06 devnull if(strcmp(err, "image name in use") != 0)
104 e830a908 2005-11-06 devnull w->name[n] = i;
105 e830a908 2005-11-06 devnull w->name[n+1] = 0;
107 e830a908 2005-11-06 devnull w->name[0] = 0;
108 e830a908 2005-11-06 devnull fprint(2, "rio: setname failed: %s\n", err);
112 e830a908 2005-11-06 devnull wresize(Window *w, Image *i, int move)
114 e830a908 2005-11-06 devnull Rectangle r, or;
116 e830a908 2005-11-06 devnull or = w->i->r;
117 e830a908 2005-11-06 devnull if(move || (Dx(or)==Dx(i->r) && Dy(or)==Dy(i->r)))
118 e830a908 2005-11-06 devnull draw(i, i->r, w->i, nil, w->i->r.min);
119 e830a908 2005-11-06 devnull if(w->i != i){
120 e830a908 2005-11-06 devnull fprint(2, "res %p %p\n", w->i, i);
121 e830a908 2005-11-06 devnull freeimage(w->i);
122 e830a908 2005-11-06 devnull w->i = i;
124 cbeb0b26 2006-04-01 devnull /* wsetname(w); */
125 cbeb0b26 2006-04-01 devnull /*XXX w->mc.image = i; */
126 e830a908 2005-11-06 devnull r = insetrect(i->r, Selborder+1);
127 e830a908 2005-11-06 devnull w->scrollr = r;
128 e830a908 2005-11-06 devnull w->scrollr.max.x = r.min.x+Scrollwid;
129 e830a908 2005-11-06 devnull w->lastsr = ZR;
130 e830a908 2005-11-06 devnull r.min.x += Scrollwid+Scrollgap;
131 e830a908 2005-11-06 devnull if(move)
132 e830a908 2005-11-06 devnull frsetrects(&w->f, r, w->i);
134 e830a908 2005-11-06 devnull frclear(&w->f, FALSE);
135 e830a908 2005-11-06 devnull frinit(&w->f, r, w->f.font, w->i, cols);
136 e830a908 2005-11-06 devnull wsetcols(w);
137 e830a908 2005-11-06 devnull w->f.maxtab = maxtab*stringwidth(w->f.font, "0");
138 e830a908 2005-11-06 devnull r = insetrect(w->i->r, Selborder);
139 e830a908 2005-11-06 devnull draw(w->i, r, cols[BACK], nil, w->f.entire.min);
140 e830a908 2005-11-06 devnull wfill(w);
141 e830a908 2005-11-06 devnull wsetselect(w, w->q0, w->q1);
142 e830a908 2005-11-06 devnull wscrdraw(w);
144 e830a908 2005-11-06 devnull wborder(w, Selborder);
145 e830a908 2005-11-06 devnull w->topped = ++topped;
146 e830a908 2005-11-06 devnull w->resized = TRUE;
147 e830a908 2005-11-06 devnull w->mouse.counter++;
151 e830a908 2005-11-06 devnull wrefresh(Window *w, Rectangle r)
153 e830a908 2005-11-06 devnull /* USED(r); */
155 e830a908 2005-11-06 devnull /* BUG: rectangle is ignored */
156 e830a908 2005-11-06 devnull if(w == input)
157 e830a908 2005-11-06 devnull wborder(w, Selborder);
159 e830a908 2005-11-06 devnull wborder(w, Unselborder);
160 e830a908 2005-11-06 devnull if(w->mouseopen)
162 e830a908 2005-11-06 devnull draw(w->i, insetrect(w->i->r, Borderwidth), w->f.cols[BACK], nil, w->i->r.min);
163 e830a908 2005-11-06 devnull w->f.ticked = 0;
164 e830a908 2005-11-06 devnull if(w->f.p0 > 0)
165 e830a908 2005-11-06 devnull frdrawsel(&w->f, frptofchar(&w->f, 0), 0, w->f.p0, 0);
166 e830a908 2005-11-06 devnull if(w->f.p1 < w->f.nchars)
167 e830a908 2005-11-06 devnull frdrawsel(&w->f, frptofchar(&w->f, w->f.p1), w->f.p1, w->f.nchars, 0);
168 e830a908 2005-11-06 devnull frdrawsel(&w->f, frptofchar(&w->f, w->f.p0), w->f.p0, w->f.p1, 1);
169 e830a908 2005-11-06 devnull w->lastsr = ZR;
170 e830a908 2005-11-06 devnull wscrdraw(w);
174 e830a908 2005-11-06 devnull wclose(Window *w)
178 e830a908 2005-11-06 devnull i = decref(&w->ref);
179 e830a908 2005-11-06 devnull if(i > 0)
180 e830a908 2005-11-06 devnull return 0;
181 e830a908 2005-11-06 devnull if(i < 0)
182 e830a908 2005-11-06 devnull error("negative ref count");
183 e830a908 2005-11-06 devnull if(!w->deleted)
184 e830a908 2005-11-06 devnull wclosewin(w);
185 e830a908 2005-11-06 devnull wsendctlmesg(w, Exited, ZR, nil);
186 e830a908 2005-11-06 devnull return 1;
191 e830a908 2005-11-06 devnull winctl(void *arg)
193 f535642f 2005-11-10 devnull Rune *rp, *bp, *up, *kbdr;
194 e830a908 2005-11-06 devnull uint qh;
195 e830a908 2005-11-06 devnull int nr, nb, c, wid, i, npart, initial, lastb;
196 e830a908 2005-11-06 devnull char *s, *t, part[3];
197 e830a908 2005-11-06 devnull Window *w;
198 e830a908 2005-11-06 devnull Mousestate *mp, m;
199 e830a908 2005-11-06 devnull enum { WKey, WMouse, WMouseread, WCtl, WCwrite, WCread, WWread, NWALT };
200 e830a908 2005-11-06 devnull Alt alts[NWALT+1];
201 e830a908 2005-11-06 devnull Mousereadmesg mrm;
202 e830a908 2005-11-06 devnull Conswritemesg cwm;
203 e830a908 2005-11-06 devnull Consreadmesg crm;
204 e830a908 2005-11-06 devnull Consreadmesg cwrm;
205 e830a908 2005-11-06 devnull Stringpair pair;
206 e830a908 2005-11-06 devnull Wctlmesg wcm;
207 e830a908 2005-11-06 devnull char buf[4*12+1];
209 e830a908 2005-11-06 devnull w = arg;
210 e830a908 2005-11-06 devnull snprint(buf, sizeof buf, "winctl-id%d", w->id);
211 e830a908 2005-11-06 devnull threadsetname(buf);
213 e830a908 2005-11-06 devnull mrm.cm = chancreate(sizeof(Mouse), 0);
214 e830a908 2005-11-06 devnull cwm.cw = chancreate(sizeof(Stringpair), 0);
215 e830a908 2005-11-06 devnull crm.c1 = chancreate(sizeof(Stringpair), 0);
216 e830a908 2005-11-06 devnull crm.c2 = chancreate(sizeof(Stringpair), 0);
217 e830a908 2005-11-06 devnull cwrm.c1 = chancreate(sizeof(Stringpair), 0);
218 e830a908 2005-11-06 devnull cwrm.c2 = chancreate(sizeof(Stringpair), 0);
221 e830a908 2005-11-06 devnull alts[WKey].c = w->ck;
222 e830a908 2005-11-06 devnull alts[WKey].v = &kbdr;
223 e830a908 2005-11-06 devnull alts[WKey].op = CHANRCV;
224 e830a908 2005-11-06 devnull alts[WMouse].c = w->mc.c;
225 e830a908 2005-11-06 devnull alts[WMouse].v = &w->mc.m;
226 e830a908 2005-11-06 devnull alts[WMouse].op = CHANRCV;
227 e830a908 2005-11-06 devnull alts[WMouseread].c = w->mouseread;
228 e830a908 2005-11-06 devnull alts[WMouseread].v = &mrm;
229 e830a908 2005-11-06 devnull alts[WMouseread].op = CHANSND;
230 e830a908 2005-11-06 devnull alts[WCtl].c = w->cctl;
231 e830a908 2005-11-06 devnull alts[WCtl].v = &wcm;
232 e830a908 2005-11-06 devnull alts[WCtl].op = CHANRCV;
233 e830a908 2005-11-06 devnull alts[WCwrite].c = w->conswrite;
234 e830a908 2005-11-06 devnull alts[WCwrite].v = &cwm;
235 e830a908 2005-11-06 devnull alts[WCwrite].op = CHANSND;
236 e830a908 2005-11-06 devnull alts[WCread].c = w->consread;
237 e830a908 2005-11-06 devnull alts[WCread].v = &crm;
238 e830a908 2005-11-06 devnull alts[WCread].op = CHANSND;
239 e830a908 2005-11-06 devnull alts[WWread].c = w->wctlread;
240 e830a908 2005-11-06 devnull alts[WWread].v = &cwrm;
241 e830a908 2005-11-06 devnull alts[WWread].op = CHANSND;
242 e830a908 2005-11-06 devnull alts[NWALT].op = CHANEND;
244 e830a908 2005-11-06 devnull npart = 0;
245 e830a908 2005-11-06 devnull lastb = -1;
246 e830a908 2005-11-06 devnull for(;;){
247 e830a908 2005-11-06 devnull if(w->mouseopen && w->mouse.counter != w->mouse.lastcounter)
248 e830a908 2005-11-06 devnull alts[WMouseread].op = CHANSND;
250 e830a908 2005-11-06 devnull alts[WMouseread].op = CHANNOP;
251 e830a908 2005-11-06 devnull if(!w->scrolling && !w->mouseopen && w->qh>w->org+w->f.nchars)
252 e830a908 2005-11-06 devnull alts[WCwrite].op = CHANNOP;
254 e830a908 2005-11-06 devnull alts[WCwrite].op = CHANSND;
255 e830a908 2005-11-06 devnull if(w->deleted || !w->wctlready)
256 e830a908 2005-11-06 devnull alts[WWread].op = CHANNOP;
258 e830a908 2005-11-06 devnull alts[WWread].op = CHANSND;
259 e830a908 2005-11-06 devnull /* this code depends on NL and EOT fitting in a single byte */
260 e830a908 2005-11-06 devnull /* kind of expensive for each loop; worth precomputing? */
261 e830a908 2005-11-06 devnull if(w->holding)
262 e830a908 2005-11-06 devnull alts[WCread].op = CHANNOP;
263 e830a908 2005-11-06 devnull else if(npart || (w->rawing && w->nraw>0))
264 e830a908 2005-11-06 devnull alts[WCread].op = CHANSND;
266 e830a908 2005-11-06 devnull alts[WCread].op = CHANNOP;
267 e830a908 2005-11-06 devnull for(i=w->qh; i<w->nr; i++){
268 e830a908 2005-11-06 devnull c = w->r[i];
269 e830a908 2005-11-06 devnull if(c=='\n' || c=='\004'){
270 e830a908 2005-11-06 devnull alts[WCread].op = CHANSND;
275 e830a908 2005-11-06 devnull switch(alt(alts)){
276 e830a908 2005-11-06 devnull case WKey:
277 e830a908 2005-11-06 devnull for(i=0; kbdr[i]!=L'\0'; i++)
278 e830a908 2005-11-06 devnull wkeyctl(w, kbdr[i]);
279 cbeb0b26 2006-04-01 devnull /* wkeyctl(w, r); */
280 cbeb0b26 2006-04-01 devnull /* while(nbrecv(w->ck, &r)) */
281 cbeb0b26 2006-04-01 devnull /* wkeyctl(w, r); */
283 e830a908 2005-11-06 devnull case WMouse:
284 e830a908 2005-11-06 devnull if(w->mouseopen) {
285 e830a908 2005-11-06 devnull w->mouse.counter++;
287 e830a908 2005-11-06 devnull /* queue click events */
288 e830a908 2005-11-06 devnull if(!w->mouse.qfull && lastb != w->mc.m.buttons) { /* add to ring */
289 e830a908 2005-11-06 devnull mp = &w->mouse.queue[w->mouse.wi];
290 e830a908 2005-11-06 devnull if(++w->mouse.wi == nelem(w->mouse.queue))
291 e830a908 2005-11-06 devnull w->mouse.wi = 0;
292 e830a908 2005-11-06 devnull if(w->mouse.wi == w->mouse.ri)
293 e830a908 2005-11-06 devnull w->mouse.qfull = TRUE;
294 e830a908 2005-11-06 devnull mp->m = w->mc.m;
295 e830a908 2005-11-06 devnull mp->counter = w->mouse.counter;
296 e830a908 2005-11-06 devnull lastb = w->mc.m.buttons;
299 e830a908 2005-11-06 devnull wmousectl(w);
301 e830a908 2005-11-06 devnull case WMouseread:
302 e830a908 2005-11-06 devnull /* send a queued event or, if the queue is empty, the current state */
303 e830a908 2005-11-06 devnull /* if the queue has filled, we discard all the events it contained. */
304 e830a908 2005-11-06 devnull /* the intent is to discard frantic clicking by the user during long latencies. */
305 e830a908 2005-11-06 devnull w->mouse.qfull = FALSE;
306 e830a908 2005-11-06 devnull if(w->mouse.wi != w->mouse.ri) {
307 e830a908 2005-11-06 devnull m = w->mouse.queue[w->mouse.ri];
308 e830a908 2005-11-06 devnull if(++w->mouse.ri == nelem(w->mouse.queue))
309 e830a908 2005-11-06 devnull w->mouse.ri = 0;
310 cbeb0b26 2006-04-01 devnull } else {
311 cbeb0b26 2006-04-01 devnull m.m = w->mc.m;
312 cbeb0b26 2006-04-01 devnull m.counter = w->mouse.counter;
314 e830a908 2005-11-06 devnull w->mouse.lastcounter = m.counter;
315 e830a908 2005-11-06 devnull send(mrm.cm, &m.m);
316 e830a908 2005-11-06 devnull continue;
317 e830a908 2005-11-06 devnull case WCtl:
318 e830a908 2005-11-06 devnull if(wctlmesg(w, wcm.type, wcm.r, wcm.image) == Exited){
319 e830a908 2005-11-06 devnull chanfree(crm.c1);
320 e830a908 2005-11-06 devnull chanfree(crm.c2);
321 e830a908 2005-11-06 devnull chanfree(mrm.cm);
322 e830a908 2005-11-06 devnull chanfree(cwm.cw);
323 e830a908 2005-11-06 devnull chanfree(cwrm.c1);
324 e830a908 2005-11-06 devnull chanfree(cwrm.c2);
325 e830a908 2005-11-06 devnull threadexits(nil);
327 e830a908 2005-11-06 devnull continue;
328 e830a908 2005-11-06 devnull case WCwrite:
329 e830a908 2005-11-06 devnull recv(cwm.cw, &pair);
330 e830a908 2005-11-06 devnull rp = pair.s;
331 e830a908 2005-11-06 devnull nr = pair.ns;
332 c21d0ab4 2005-11-11 devnull bp = rp;
333 c21d0ab4 2005-11-11 devnull up = rp;
334 f535642f 2005-11-10 devnull initial = 0;
335 f535642f 2005-11-10 devnull for(i=0; i<nr; i++){
336 f535642f 2005-11-10 devnull switch(*bp){
339 f535642f 2005-11-10 devnull case '\b':
340 f535642f 2005-11-10 devnull if(up == rp)
341 f535642f 2005-11-10 devnull initial++;
345 f535642f 2005-11-10 devnull case '\r':
346 f535642f 2005-11-10 devnull while(i<nr-1 && *(bp+1) == '\r'){
350 f535642f 2005-11-10 devnull if(i<nr-1 && *(bp+1) != '\n'){
351 f535642f 2005-11-10 devnull while(up > rp && *(up-1) != '\n')
353 f535642f 2005-11-10 devnull if(up == rp)
354 540eaf98 2005-11-26 devnull initial = wbswidth(w, '\r');
355 f535642f 2005-11-10 devnull }else if(i == nr-1)
356 f535642f 2005-11-10 devnull *up = '\n';
358 f535642f 2005-11-10 devnull default:
359 f535642f 2005-11-10 devnull *up++ = *bp;
364 f535642f 2005-11-10 devnull if(initial){
365 f535642f 2005-11-10 devnull if(initial > w->qh)
366 f535642f 2005-11-10 devnull initial = w->qh;
367 f535642f 2005-11-10 devnull qh = w->qh - initial;
368 f535642f 2005-11-10 devnull wdelete(w, qh, qh+initial);
369 f535642f 2005-11-10 devnull w->qh = qh;
371 c21d0ab4 2005-11-11 devnull nr = up - rp;
372 e830a908 2005-11-06 devnull w->qh = winsert(w, rp, nr, w->qh)+nr;
373 e830a908 2005-11-06 devnull if(w->scrolling || w->mouseopen)
374 e830a908 2005-11-06 devnull wshow(w, w->qh);
375 e830a908 2005-11-06 devnull wsetselect(w, w->q0, w->q1);
376 e830a908 2005-11-06 devnull wscrdraw(w);
377 e830a908 2005-11-06 devnull free(rp);
379 e830a908 2005-11-06 devnull case WCread:
380 e830a908 2005-11-06 devnull recv(crm.c1, &pair);
381 e830a908 2005-11-06 devnull t = pair.s;
382 e830a908 2005-11-06 devnull nb = pair.ns;
383 e830a908 2005-11-06 devnull i = npart;
384 e830a908 2005-11-06 devnull npart = 0;
386 e830a908 2005-11-06 devnull memmove(t, part, i);
387 e830a908 2005-11-06 devnull while(i<nb && (w->qh<w->nr || w->nraw>0)){
388 e830a908 2005-11-06 devnull if(w->qh == w->nr){
389 e830a908 2005-11-06 devnull wid = runetochar(t+i, &w->raw[0]);
390 e830a908 2005-11-06 devnull w->nraw--;
391 e830a908 2005-11-06 devnull runemove(w->raw, w->raw+1, w->nraw);
393 e830a908 2005-11-06 devnull wid = runetochar(t+i, &w->r[w->qh++]);
394 e830a908 2005-11-06 devnull c = t[i]; /* knows break characters fit in a byte */
395 e830a908 2005-11-06 devnull i += wid;
396 e830a908 2005-11-06 devnull if(!w->rawing && (c == '\n' || c=='\004')){
397 cbeb0b26 2006-04-01 devnull /* if(c == '\004') */
398 cbeb0b26 2006-04-01 devnull /* i--; */
402 cbeb0b26 2006-04-01 devnull /* if(i==nb && w->qh<w->nr && w->r[w->qh]=='\004') */
403 cbeb0b26 2006-04-01 devnull /* w->qh++; */
404 e830a908 2005-11-06 devnull if(i > nb){
405 e830a908 2005-11-06 devnull npart = i-nb;
406 e830a908 2005-11-06 devnull memmove(part, t+nb, npart);
409 e830a908 2005-11-06 devnull pair.s = t;
410 e830a908 2005-11-06 devnull pair.ns = i;
411 e830a908 2005-11-06 devnull send(crm.c2, &pair);
412 e830a908 2005-11-06 devnull continue;
413 e830a908 2005-11-06 devnull case WWread:
414 e830a908 2005-11-06 devnull w->wctlready = 0;
415 e830a908 2005-11-06 devnull recv(cwrm.c1, &pair);
416 e830a908 2005-11-06 devnull if(w->deleted || w->i==nil)
417 e830a908 2005-11-06 devnull pair.ns = sprint(pair.s, "");
419 e830a908 2005-11-06 devnull s = "visible";
420 e830a908 2005-11-06 devnull for(i=0; i<nhidden; i++)
421 e830a908 2005-11-06 devnull if(hidden[i] == w){
422 e830a908 2005-11-06 devnull s = "hidden";
425 e830a908 2005-11-06 devnull t = "notcurrent";
426 e830a908 2005-11-06 devnull if(w == input)
427 e830a908 2005-11-06 devnull t = "current";
428 e830a908 2005-11-06 devnull pair.ns = snprint(pair.s, pair.ns, "%11d %11d %11d %11d %s %s ",
429 e830a908 2005-11-06 devnull w->i->r.min.x, w->i->r.min.y, w->i->r.max.x, w->i->r.max.y, t, s);
431 e830a908 2005-11-06 devnull send(cwrm.c2, &pair);
432 e830a908 2005-11-06 devnull continue;
434 e830a908 2005-11-06 devnull if(!w->deleted)
435 e830a908 2005-11-06 devnull flushimage(display, 1);
440 e830a908 2005-11-06 devnull waddraw(Window *w, Rune *r, int nr)
442 e830a908 2005-11-06 devnull w->raw = runerealloc(w->raw, w->nraw+nr);
443 e830a908 2005-11-06 devnull runemove(w->raw+w->nraw, r, nr);
444 e830a908 2005-11-06 devnull w->nraw += nr;
448 e830a908 2005-11-06 devnull * Need to do this in a separate proc because if process we're interrupting
449 e830a908 2005-11-06 devnull * is dying and trying to print tombstone, kernel is blocked holding p->debug lock.
452 e830a908 2005-11-06 devnull interruptproc(void *v)
454 e830a908 2005-11-06 devnull int *notefd;
456 e830a908 2005-11-06 devnull notefd = v;
457 e830a908 2005-11-06 devnull write(*notefd, "interrupt", 9);
458 e830a908 2005-11-06 devnull free(notefd);
462 e830a908 2005-11-06 devnull windfilewidth(Window *w, uint q0, int oneelement)
468 e830a908 2005-11-06 devnull while(q > 0){
469 e830a908 2005-11-06 devnull r = w->r[q-1];
470 e830a908 2005-11-06 devnull if(r<=' ')
472 e830a908 2005-11-06 devnull if(oneelement && r=='/')
476 e830a908 2005-11-06 devnull return q0-q;
480 e830a908 2005-11-06 devnull showcandidates(Window *w, Completion *c)
484 e830a908 2005-11-06 devnull Rune *rp;
485 e830a908 2005-11-06 devnull uint nr, qline, q0;
486 e830a908 2005-11-06 devnull char *s;
488 e830a908 2005-11-06 devnull runefmtstrinit(&f);
489 e830a908 2005-11-06 devnull if (c->nmatch == 0)
490 e830a908 2005-11-06 devnull s = "[no matches in ";
492 e830a908 2005-11-06 devnull s = "[";
493 e830a908 2005-11-06 devnull if(c->nfile > 32)
494 e830a908 2005-11-06 devnull fmtprint(&f, "%s%d files]\n", s, c->nfile);
496 e830a908 2005-11-06 devnull fmtprint(&f, "%s", s);
497 e830a908 2005-11-06 devnull for(i=0; i<c->nfile; i++){
498 e830a908 2005-11-06 devnull if(i > 0)
499 e830a908 2005-11-06 devnull fmtprint(&f, " ");
500 e830a908 2005-11-06 devnull fmtprint(&f, "%s", c->filename[i]);
502 e830a908 2005-11-06 devnull fmtprint(&f, "]\n");
504 e830a908 2005-11-06 devnull /* place text at beginning of line before host point */
505 e830a908 2005-11-06 devnull qline = w->qh;
506 e830a908 2005-11-06 devnull while(qline>0 && w->r[qline-1] != '\n')
507 e830a908 2005-11-06 devnull qline--;
509 e830a908 2005-11-06 devnull rp = runefmtstrflush(&f);
510 e830a908 2005-11-06 devnull nr = runestrlen(rp);
512 e830a908 2005-11-06 devnull q0 = w->q0;
513 e830a908 2005-11-06 devnull q0 += winsert(w, rp, runestrlen(rp), qline) - qline;
514 e830a908 2005-11-06 devnull free(rp);
515 e830a908 2005-11-06 devnull wsetselect(w, q0+nr, q0+nr);
519 e830a908 2005-11-06 devnull namecomplete(Window *w)
521 e830a908 2005-11-06 devnull int nstr, npath;
522 e830a908 2005-11-06 devnull Rune *rp, *path, *str;
523 e830a908 2005-11-06 devnull Completion *c;
524 e830a908 2005-11-06 devnull char *s, *dir, *root;
526 e830a908 2005-11-06 devnull /* control-f: filename completion; works back to white space or / */
527 e830a908 2005-11-06 devnull if(w->q0<w->nr && w->r[w->q0]>' ') /* must be at end of word */
528 e830a908 2005-11-06 devnull return nil;
529 e830a908 2005-11-06 devnull nstr = windfilewidth(w, w->q0, TRUE);
530 e830a908 2005-11-06 devnull str = runemalloc(nstr);
531 e830a908 2005-11-06 devnull runemove(str, w->r+(w->q0-nstr), nstr);
532 e830a908 2005-11-06 devnull npath = windfilewidth(w, w->q0-nstr, FALSE);
533 e830a908 2005-11-06 devnull path = runemalloc(npath);
534 e830a908 2005-11-06 devnull runemove(path, w->r+(w->q0-nstr-npath), npath);
535 e830a908 2005-11-06 devnull rp = nil;
537 e830a908 2005-11-06 devnull /* is path rooted? if not, we need to make it relative to window path */
538 e830a908 2005-11-06 devnull if(npath>0 && path[0]=='/'){
539 e830a908 2005-11-06 devnull dir = malloc(UTFmax*npath+1);
540 e830a908 2005-11-06 devnull sprint(dir, "%.*S", npath, path);
542 e830a908 2005-11-06 devnull if(strcmp(w->dir, "") == 0)
543 e830a908 2005-11-06 devnull root = ".";
545 e830a908 2005-11-06 devnull root = w->dir;
546 e830a908 2005-11-06 devnull dir = malloc(strlen(root)+1+UTFmax*npath+1);
547 e830a908 2005-11-06 devnull sprint(dir, "%s/%.*S", root, npath, path);
549 e830a908 2005-11-06 devnull dir = cleanname(dir);
551 e830a908 2005-11-06 devnull s = smprint("%.*S", nstr, str);
552 e830a908 2005-11-06 devnull c = complete(dir, s);
553 e830a908 2005-11-06 devnull free(s);
554 e830a908 2005-11-06 devnull if(c == nil)
555 e830a908 2005-11-06 devnull goto Return;
557 e830a908 2005-11-06 devnull if(!c->advance)
558 e830a908 2005-11-06 devnull showcandidates(w, c);
560 e830a908 2005-11-06 devnull if(c->advance)
561 e830a908 2005-11-06 devnull rp = runesmprint("%s", c->string);
564 e830a908 2005-11-06 devnull freecompletion(c);
565 e830a908 2005-11-06 devnull free(dir);
566 e830a908 2005-11-06 devnull free(path);
567 e830a908 2005-11-06 devnull free(str);
568 e830a908 2005-11-06 devnull return rp;
572 e830a908 2005-11-06 devnull wkeyctl(Window *w, Rune r)
574 e830a908 2005-11-06 devnull uint q0 ,q1;
575 e830a908 2005-11-06 devnull int n, nb, nr;
576 e830a908 2005-11-06 devnull Rune *rp;
578 e830a908 2005-11-06 devnull if(r == 0)
580 e830a908 2005-11-06 devnull if(w->deleted)
582 e830a908 2005-11-06 devnull w->rawing = rawon();
583 e830a908 2005-11-06 devnull /* navigation keys work only when mouse is not open */
584 e830a908 2005-11-06 devnull if(!w->mouseopen)
585 e830a908 2005-11-06 devnull switch(r){
586 e830a908 2005-11-06 devnull case Kdown:
587 e830a908 2005-11-06 devnull n = w->f.maxlines/3;
588 e830a908 2005-11-06 devnull goto case_Down;
589 e830a908 2005-11-06 devnull case Kscrollonedown:
590 e830a908 2005-11-06 devnull n = mousescrollsize(w->f.maxlines);
591 e830a908 2005-11-06 devnull if(n <= 0)
593 e830a908 2005-11-06 devnull goto case_Down;
594 e830a908 2005-11-06 devnull case Kpgdown:
595 e830a908 2005-11-06 devnull n = 2*w->f.maxlines/3;
596 e830a908 2005-11-06 devnull case_Down:
597 e830a908 2005-11-06 devnull q0 = w->org+frcharofpt(&w->f, Pt(w->f.r.min.x, w->f.r.min.y+n*w->f.font->height));
598 e830a908 2005-11-06 devnull wsetorigin(w, q0, TRUE);
600 e830a908 2005-11-06 devnull case Kup:
601 e830a908 2005-11-06 devnull n = w->f.maxlines/3;
602 e830a908 2005-11-06 devnull goto case_Up;
603 e830a908 2005-11-06 devnull case Kscrolloneup:
604 e830a908 2005-11-06 devnull n = mousescrollsize(w->f.maxlines);
605 e830a908 2005-11-06 devnull if(n <= 0)
607 e830a908 2005-11-06 devnull goto case_Up;
608 e830a908 2005-11-06 devnull case Kpgup:
609 e830a908 2005-11-06 devnull n = 2*w->f.maxlines/3;
610 e830a908 2005-11-06 devnull case_Up:
611 e830a908 2005-11-06 devnull q0 = wbacknl(w, w->org, n);
612 e830a908 2005-11-06 devnull wsetorigin(w, q0, TRUE);
614 e830a908 2005-11-06 devnull case Kleft:
615 e830a908 2005-11-06 devnull if(w->q0 > 0){
616 e830a908 2005-11-06 devnull q0 = w->q0-1;
617 e830a908 2005-11-06 devnull wsetselect(w, q0, q0);
618 e830a908 2005-11-06 devnull wshow(w, q0);
621 e830a908 2005-11-06 devnull case Kright:
622 e830a908 2005-11-06 devnull if(w->q1 < w->nr){
623 e830a908 2005-11-06 devnull q1 = w->q1+1;
624 e830a908 2005-11-06 devnull wsetselect(w, q1, q1);
625 e830a908 2005-11-06 devnull wshow(w, q1);
628 e830a908 2005-11-06 devnull case Khome:
629 e830a908 2005-11-06 devnull wshow(w, 0);
631 e830a908 2005-11-06 devnull case Kend:
632 e830a908 2005-11-06 devnull wshow(w, w->nr);
634 e830a908 2005-11-06 devnull case 0x01: /* ^A: beginning of line */
635 e830a908 2005-11-06 devnull if(w->q0==0 || w->q0==w->qh || w->r[w->q0-1]=='\n')
637 e830a908 2005-11-06 devnull nb = wbswidth(w, 0x15 /* ^U */);
638 e830a908 2005-11-06 devnull wsetselect(w, w->q0-nb, w->q0-nb);
639 e830a908 2005-11-06 devnull wshow(w, w->q0);
641 e830a908 2005-11-06 devnull case 0x05: /* ^E: end of line */
642 e830a908 2005-11-06 devnull q0 = w->q0;
643 e830a908 2005-11-06 devnull while(q0 < w->nr && w->r[q0]!='\n')
645 e830a908 2005-11-06 devnull wsetselect(w, q0, q0);
646 e830a908 2005-11-06 devnull wshow(w, w->q0);
650 e830a908 2005-11-06 devnull * This if used to be below the if(w->rawing ...),
651 e830a908 2005-11-06 devnull * but let's try putting it here. This will allow ESC-processing
652 e830a908 2005-11-06 devnull * to toggle hold mode even in remote SSH connections.
653 e830a908 2005-11-06 devnull * The drawback is that vi-style processing gets harder.
654 e830a908 2005-11-06 devnull * If you find yourself in some weird readline mode, good
655 e830a908 2005-11-06 devnull * luck getting out without ESC. Let's see who complains.
657 e830a908 2005-11-06 devnull if(r==0x1B || (w->holding && r==0x7F)){ /* toggle hold */
658 e830a908 2005-11-06 devnull if(w->holding)
659 e830a908 2005-11-06 devnull --w->holding;
661 e830a908 2005-11-06 devnull w->holding++;
662 e830a908 2005-11-06 devnull wrepaint(w);
663 e830a908 2005-11-06 devnull if(r == 0x1B)
666 e830a908 2005-11-06 devnull if(!w->holding && w->rawing && (w->q0==w->nr || w->mouseopen)){
667 e830a908 2005-11-06 devnull waddraw(w, &r, 1);
670 e830a908 2005-11-06 devnull if(r != 0x7F){
671 e830a908 2005-11-06 devnull wsnarf(w);
672 e830a908 2005-11-06 devnull wcut(w);
674 e830a908 2005-11-06 devnull switch(r){
675 e830a908 2005-11-06 devnull case 0x7F: /* send interrupt */
676 e830a908 2005-11-06 devnull w->qh = w->nr;
677 e830a908 2005-11-06 devnull wshow(w, w->qh);
678 10ab06a7 2005-11-06 devnull winterrupt(w);
680 e830a908 2005-11-06 devnull case 0x06: /* ^F: file name completion */
681 e830a908 2005-11-06 devnull case Kins: /* Insert: file name completion */
682 e830a908 2005-11-06 devnull rp = namecomplete(w);
683 e830a908 2005-11-06 devnull if(rp == nil)
685 e830a908 2005-11-06 devnull nr = runestrlen(rp);
686 e830a908 2005-11-06 devnull q0 = w->q0;
687 e830a908 2005-11-06 devnull q0 = winsert(w, rp, nr, q0);
688 e830a908 2005-11-06 devnull wshow(w, q0+nr);
689 e830a908 2005-11-06 devnull free(rp);
691 e830a908 2005-11-06 devnull case 0x08: /* ^H: erase character */
692 e830a908 2005-11-06 devnull case 0x15: /* ^U: erase line */
693 e830a908 2005-11-06 devnull case 0x17: /* ^W: erase word */
694 e830a908 2005-11-06 devnull if(w->q0==0 || w->q0==w->qh)
696 e830a908 2005-11-06 devnull nb = wbswidth(w, r);
697 e830a908 2005-11-06 devnull q1 = w->q0;
698 e830a908 2005-11-06 devnull q0 = q1-nb;
699 e830a908 2005-11-06 devnull if(q0 < w->org){
700 e830a908 2005-11-06 devnull q0 = w->org;
701 e830a908 2005-11-06 devnull nb = q1-q0;
703 e830a908 2005-11-06 devnull if(nb > 0){
704 e830a908 2005-11-06 devnull wdelete(w, q0, q0+nb);
705 e830a908 2005-11-06 devnull wsetselect(w, q0, q0);
709 e830a908 2005-11-06 devnull /* otherwise ordinary character; just insert */
710 e830a908 2005-11-06 devnull q0 = w->q0;
711 e830a908 2005-11-06 devnull q0 = winsert(w, &r, 1, q0);
712 e830a908 2005-11-06 devnull wshow(w, q0+1);
716 e830a908 2005-11-06 devnull wsetcols(Window *w)
718 e830a908 2005-11-06 devnull if(w->holding)
719 e830a908 2005-11-06 devnull if(w == input)
720 e830a908 2005-11-06 devnull w->f.cols[TEXT] = w->f.cols[HTEXT] = holdcol;
722 e830a908 2005-11-06 devnull w->f.cols[TEXT] = w->f.cols[HTEXT] = lightholdcol;
724 e830a908 2005-11-06 devnull if(w == input)
725 e830a908 2005-11-06 devnull w->f.cols[TEXT] = w->f.cols[HTEXT] = display->black;
727 e830a908 2005-11-06 devnull w->f.cols[TEXT] = w->f.cols[HTEXT] = darkgrey;
731 e830a908 2005-11-06 devnull wrepaint(Window *w)
733 e830a908 2005-11-06 devnull wsetcols(w);
734 dcf4d596 2006-03-30 devnull if(!w->mouseopen){
735 dcf4d596 2006-03-30 devnull if(font->maxdepth > 1)
736 dcf4d596 2006-03-30 devnull draw(w->f.b, w->f.r, cols[BACK], nil, ZP);
737 e830a908 2005-11-06 devnull _frredraw(&w->f, w->f.r.min);
739 e830a908 2005-11-06 devnull if(w == input){
740 e830a908 2005-11-06 devnull wborder(w, Selborder);
741 e830a908 2005-11-06 devnull wsetcursor(w, 0);
743 e830a908 2005-11-06 devnull wborder(w, Unselborder);
747 e830a908 2005-11-06 devnull wbswidth(Window *w, Rune c)
749 e830a908 2005-11-06 devnull uint q, eq, stop;
751 e830a908 2005-11-06 devnull int skipping;
753 e830a908 2005-11-06 devnull /* there is known to be at least one character to erase */
754 e830a908 2005-11-06 devnull if(c == 0x08) /* ^H: erase character */
755 e830a908 2005-11-06 devnull return 1;
756 e830a908 2005-11-06 devnull q = w->q0;
757 e830a908 2005-11-06 devnull stop = 0;
758 e830a908 2005-11-06 devnull if(q > w->qh)
759 e830a908 2005-11-06 devnull stop = w->qh;
760 e830a908 2005-11-06 devnull skipping = TRUE;
761 e830a908 2005-11-06 devnull while(q > stop){
762 e830a908 2005-11-06 devnull r = w->r[q-1];
763 e830a908 2005-11-06 devnull if(r == '\n'){ /* eat at most one more character */
764 540eaf98 2005-11-26 devnull if(q == w->q0 && c != '\r') /* eat the newline */
768 e830a908 2005-11-06 devnull if(c == 0x17){
769 e830a908 2005-11-06 devnull eq = isalnum(r);
770 e830a908 2005-11-06 devnull if(eq && skipping) /* found one; stop skipping */
771 e830a908 2005-11-06 devnull skipping = FALSE;
772 e830a908 2005-11-06 devnull else if(!eq && !skipping)
777 e830a908 2005-11-06 devnull return w->q0-q;
781 e830a908 2005-11-06 devnull wsnarf(Window *w)
783 e830a908 2005-11-06 devnull if(w->q1 == w->q0)
785 e830a908 2005-11-06 devnull nsnarf = w->q1-w->q0;
786 e830a908 2005-11-06 devnull snarf = runerealloc(snarf, nsnarf);
787 e830a908 2005-11-06 devnull snarfversion++; /* maybe modified by parent */
788 e830a908 2005-11-06 devnull runemove(snarf, w->r+w->q0, nsnarf);
789 3fd51250 2005-11-07 devnull rioputsnarf();
793 e830a908 2005-11-06 devnull wcut(Window *w)
795 e830a908 2005-11-06 devnull if(w->q1 == w->q0)
797 e830a908 2005-11-06 devnull wdelete(w, w->q0, w->q1);
798 e830a908 2005-11-06 devnull wsetselect(w, w->q0, w->q0);
802 e830a908 2005-11-06 devnull wpaste(Window *w)
804 e830a908 2005-11-06 devnull uint q0;
806 e830a908 2005-11-06 devnull if(nsnarf == 0)
808 e830a908 2005-11-06 devnull wcut(w);
809 e830a908 2005-11-06 devnull q0 = w->q0;
810 e58459c7 2005-12-29 devnull if(w->rawing && !w->holding && q0==w->nr){
811 e830a908 2005-11-06 devnull waddraw(w, snarf, nsnarf);
812 e830a908 2005-11-06 devnull wsetselect(w, q0, q0);
814 e830a908 2005-11-06 devnull q0 = winsert(w, snarf, nsnarf, w->q0);
815 e830a908 2005-11-06 devnull wsetselect(w, q0, q0+nsnarf);
820 e830a908 2005-11-06 devnull wplumb(Window *w)
822 e830a908 2005-11-06 devnull Plumbmsg *m;
823 0c7f940a 2005-11-07 devnull static CFid *fd;
824 e830a908 2005-11-06 devnull char buf[32];
825 e830a908 2005-11-06 devnull uint p0, p1;
826 e830a908 2005-11-06 devnull Cursor *c;
828 0c7f940a 2005-11-07 devnull if(fd == nil)
829 0c7f940a 2005-11-07 devnull fd = plumbopenfid("send", OWRITE);
830 0c7f940a 2005-11-07 devnull if(fd == nil)
832 e830a908 2005-11-06 devnull m = emalloc(sizeof(Plumbmsg));
833 e830a908 2005-11-06 devnull m->src = estrdup("rio");
834 e830a908 2005-11-06 devnull m->dst = nil;
835 e830a908 2005-11-06 devnull m->wdir = estrdup(w->dir);
836 e830a908 2005-11-06 devnull m->type = estrdup("text");
837 e830a908 2005-11-06 devnull p0 = w->q0;
838 e830a908 2005-11-06 devnull p1 = w->q1;
839 e830a908 2005-11-06 devnull if(w->q1 > w->q0)
840 e830a908 2005-11-06 devnull m->attr = nil;
842 e830a908 2005-11-06 devnull while(p0>0 && w->r[p0-1]!=' ' && w->r[p0-1]!='\t' && w->r[p0-1]!='\n')
844 e830a908 2005-11-06 devnull while(p1<w->nr && w->r[p1]!=' ' && w->r[p1]!='\t' && w->r[p1]!='\n')
846 e830a908 2005-11-06 devnull sprint(buf, "click=%d", w->q0-p0);
847 e830a908 2005-11-06 devnull m->attr = plumbunpackattr(buf);
849 e830a908 2005-11-06 devnull if(p1-p0 > messagesize-1024){
850 e830a908 2005-11-06 devnull plumbfree(m);
851 e830a908 2005-11-06 devnull return; /* too large for 9P */
853 e830a908 2005-11-06 devnull m->data = runetobyte(w->r+p0, p1-p0, &m->ndata);
854 0c7f940a 2005-11-07 devnull if(plumbsendtofid(fd, m) < 0){
855 e830a908 2005-11-06 devnull c = lastcursor;
856 e830a908 2005-11-06 devnull riosetcursor(&query, 1);
857 e830a908 2005-11-06 devnull sleep(300);
858 e830a908 2005-11-06 devnull riosetcursor(c, 1);
860 e830a908 2005-11-06 devnull plumbfree(m);
864 e830a908 2005-11-06 devnull winborder(Window *w, Point xy)
866 e830a908 2005-11-06 devnull return ptinrect(xy, w->screenr) && !ptinrect(xy, insetrect(w->screenr, Selborder));
870 e830a908 2005-11-06 devnull wmousectl(Window *w)
872 e830a908 2005-11-06 devnull int but;
874 e830a908 2005-11-06 devnull if(w->mc.m.buttons == 1)
875 e830a908 2005-11-06 devnull but = 1;
876 e830a908 2005-11-06 devnull else if(w->mc.m.buttons == 2)
877 e830a908 2005-11-06 devnull but = 2;
878 e830a908 2005-11-06 devnull else if(w->mc.m.buttons == 4)
879 e830a908 2005-11-06 devnull but = 3;
881 e830a908 2005-11-06 devnull if(w->mc.m.buttons == 8)
882 e830a908 2005-11-06 devnull wkeyctl(w, Kscrolloneup);
883 e830a908 2005-11-06 devnull if(w->mc.m.buttons == 16)
884 e830a908 2005-11-06 devnull wkeyctl(w, Kscrollonedown);
888 e830a908 2005-11-06 devnull incref(&w->ref); /* hold up window while we track */
889 e830a908 2005-11-06 devnull if(w->deleted)
890 e830a908 2005-11-06 devnull goto Return;
891 e830a908 2005-11-06 devnull if(ptinrect(w->mc.m.xy, w->scrollr)){
893 e830a908 2005-11-06 devnull wscroll(w, but);
894 e830a908 2005-11-06 devnull goto Return;
896 e830a908 2005-11-06 devnull if(but == 1)
897 e830a908 2005-11-06 devnull wselect(w);
898 e830a908 2005-11-06 devnull /* else all is handled by main process */
900 e830a908 2005-11-06 devnull wclose(w);
904 e830a908 2005-11-06 devnull wdelete(Window *w, uint q0, uint q1)
906 e830a908 2005-11-06 devnull uint n, p0, p1;
908 e830a908 2005-11-06 devnull n = q1-q0;
909 e830a908 2005-11-06 devnull if(n == 0)
911 e830a908 2005-11-06 devnull runemove(w->r+q0, w->r+q1, w->nr-q1);
912 e830a908 2005-11-06 devnull w->nr -= n;
913 e830a908 2005-11-06 devnull if(q0 < w->q0)
914 e830a908 2005-11-06 devnull w->q0 -= min(n, w->q0-q0);
915 e830a908 2005-11-06 devnull if(q0 < w->q1)
916 e830a908 2005-11-06 devnull w->q1 -= min(n, w->q1-q0);
917 e830a908 2005-11-06 devnull if(q1 < w->qh)
918 e830a908 2005-11-06 devnull w->qh -= n;
919 e830a908 2005-11-06 devnull else if(q0 < w->qh)
920 e830a908 2005-11-06 devnull w->qh = q0;
921 e830a908 2005-11-06 devnull if(q1 <= w->org)
922 e830a908 2005-11-06 devnull w->org -= n;
923 e830a908 2005-11-06 devnull else if(q0 < w->org+w->f.nchars){
924 e830a908 2005-11-06 devnull p1 = q1 - w->org;
925 e830a908 2005-11-06 devnull if(p1 > w->f.nchars)
926 e830a908 2005-11-06 devnull p1 = w->f.nchars;
927 e830a908 2005-11-06 devnull if(q0 < w->org){
928 e830a908 2005-11-06 devnull w->org = q0;
931 e830a908 2005-11-06 devnull p0 = q0 - w->org;
932 e830a908 2005-11-06 devnull frdelete(&w->f, p0, p1);
933 e830a908 2005-11-06 devnull wfill(w);
938 e830a908 2005-11-06 devnull static Window *clickwin;
939 e830a908 2005-11-06 devnull static uint clickmsec;
940 e830a908 2005-11-06 devnull static Window *selectwin;
941 e830a908 2005-11-06 devnull static uint selectq;
944 e830a908 2005-11-06 devnull * called from frame library
947 e830a908 2005-11-06 devnull framescroll(Frame *f, int dl)
949 e830a908 2005-11-06 devnull if(f != &selectwin->f)
950 e830a908 2005-11-06 devnull error("frameselect not right frame");
951 e830a908 2005-11-06 devnull wframescroll(selectwin, dl);
955 e830a908 2005-11-06 devnull wframescroll(Window *w, int dl)
957 e830a908 2005-11-06 devnull uint q0;
959 e830a908 2005-11-06 devnull if(dl == 0){
960 e830a908 2005-11-06 devnull wscrsleep(w, 100);
963 e830a908 2005-11-06 devnull if(dl < 0){
964 e830a908 2005-11-06 devnull q0 = wbacknl(w, w->org, -dl);
965 e830a908 2005-11-06 devnull if(selectq > w->org+w->f.p0)
966 e830a908 2005-11-06 devnull wsetselect(w, w->org+w->f.p0, selectq);
968 e830a908 2005-11-06 devnull wsetselect(w, selectq, w->org+w->f.p0);
970 e830a908 2005-11-06 devnull if(w->org+w->f.nchars == w->nr)
972 e830a908 2005-11-06 devnull q0 = w->org+frcharofpt(&w->f, Pt(w->f.r.min.x, w->f.r.min.y+dl*w->f.font->height));
973 e830a908 2005-11-06 devnull if(selectq >= w->org+w->f.p1)
974 e830a908 2005-11-06 devnull wsetselect(w, w->org+w->f.p1, selectq);
976 e830a908 2005-11-06 devnull wsetselect(w, selectq, w->org+w->f.p1);
978 e830a908 2005-11-06 devnull wsetorigin(w, q0, TRUE);
982 e830a908 2005-11-06 devnull wselect(Window *w)
984 e830a908 2005-11-06 devnull uint q0, q1;
985 e830a908 2005-11-06 devnull int b, x, y, first;
987 e830a908 2005-11-06 devnull first = 1;
988 e830a908 2005-11-06 devnull selectwin = w;
990 e830a908 2005-11-06 devnull * Double-click immediately if it might make sense.
992 e830a908 2005-11-06 devnull b = w->mc.m.buttons;
993 e830a908 2005-11-06 devnull q0 = w->q0;
994 e830a908 2005-11-06 devnull q1 = w->q1;
995 e830a908 2005-11-06 devnull selectq = w->org+frcharofpt(&w->f, w->mc.m.xy);
996 e830a908 2005-11-06 devnull if(clickwin==w && w->mc.m.msec-clickmsec<500)
997 e830a908 2005-11-06 devnull if(q0==q1 && selectq==w->q0){
998 e830a908 2005-11-06 devnull wdoubleclick(w, &q0, &q1);
999 e830a908 2005-11-06 devnull wsetselect(w, q0, q1);
1000 e830a908 2005-11-06 devnull flushimage(display, 1);
1001 e830a908 2005-11-06 devnull x = w->mc.m.xy.x;
1002 e830a908 2005-11-06 devnull y = w->mc.m.xy.y;
1003 e830a908 2005-11-06 devnull /* stay here until something interesting happens */
1005 e830a908 2005-11-06 devnull readmouse(&w->mc);
1006 e830a908 2005-11-06 devnull while(w->mc.m.buttons==b && abs(w->mc.m.xy.x-x)<3 && abs(w->mc.m.xy.y-y)<3);
1007 e830a908 2005-11-06 devnull w->mc.m.xy.x = x; /* in case we're calling frselect */
1008 e830a908 2005-11-06 devnull w->mc.m.xy.y = y;
1009 e830a908 2005-11-06 devnull q0 = w->q0; /* may have changed */
1010 e830a908 2005-11-06 devnull q1 = w->q1;
1011 e830a908 2005-11-06 devnull selectq = q0;
1013 e830a908 2005-11-06 devnull if(w->mc.m.buttons == b){
1014 e830a908 2005-11-06 devnull w->f.scroll = framescroll;
1015 e830a908 2005-11-06 devnull frselect(&w->f, &w->mc);
1016 e830a908 2005-11-06 devnull /* horrible botch: while asleep, may have lost selection altogether */
1017 e830a908 2005-11-06 devnull if(selectq > w->nr)
1018 e830a908 2005-11-06 devnull selectq = w->org + w->f.p0;
1019 e830a908 2005-11-06 devnull w->f.scroll = nil;
1020 e830a908 2005-11-06 devnull if(selectq < w->org)
1021 e830a908 2005-11-06 devnull q0 = selectq;
1023 e830a908 2005-11-06 devnull q0 = w->org + w->f.p0;
1024 e830a908 2005-11-06 devnull if(selectq > w->org+w->f.nchars)
1025 e830a908 2005-11-06 devnull q1 = selectq;
1027 e830a908 2005-11-06 devnull q1 = w->org+w->f.p1;
1029 e830a908 2005-11-06 devnull if(q0 == q1){
1030 e830a908 2005-11-06 devnull if(q0==w->q0 && clickwin==w && w->mc.m.msec-clickmsec<500){
1031 e830a908 2005-11-06 devnull wdoubleclick(w, &q0, &q1);
1032 e830a908 2005-11-06 devnull clickwin = nil;
1034 e830a908 2005-11-06 devnull clickwin = w;
1035 e830a908 2005-11-06 devnull clickmsec = w->mc.m.msec;
1038 e830a908 2005-11-06 devnull clickwin = nil;
1039 e830a908 2005-11-06 devnull wsetselect(w, q0, q1);
1040 e830a908 2005-11-06 devnull flushimage(display, 1);
1041 e830a908 2005-11-06 devnull while(w->mc.m.buttons){
1042 e830a908 2005-11-06 devnull w->mc.m.msec = 0;
1043 e830a908 2005-11-06 devnull b = w->mc.m.buttons;
1044 e830a908 2005-11-06 devnull if(b & 6){
1045 e830a908 2005-11-06 devnull if(b & 2){
1046 e830a908 2005-11-06 devnull wsnarf(w);
1047 e830a908 2005-11-06 devnull wcut(w);
1049 e830a908 2005-11-06 devnull if(first){
1050 e830a908 2005-11-06 devnull first = 0;
1051 3fd51250 2005-11-07 devnull riogetsnarf();
1053 e830a908 2005-11-06 devnull wpaste(w);
1056 e830a908 2005-11-06 devnull wscrdraw(w);
1057 e830a908 2005-11-06 devnull flushimage(display, 1);
1058 e830a908 2005-11-06 devnull while(w->mc.m.buttons == b)
1059 e830a908 2005-11-06 devnull readmouse(&w->mc);
1060 e830a908 2005-11-06 devnull clickwin = nil;
1065 e830a908 2005-11-06 devnull wsendctlmesg(Window *w, int type, Rectangle r, Image *image)
1067 e830a908 2005-11-06 devnull Wctlmesg wcm;
1069 e830a908 2005-11-06 devnull wcm.type = type;
1070 e830a908 2005-11-06 devnull wcm.r = r;
1071 e830a908 2005-11-06 devnull wcm.image = image;
1072 e830a908 2005-11-06 devnull send(w->cctl, &wcm);
1076 e830a908 2005-11-06 devnull wctlmesg(Window *w, int m, Rectangle r, Image *i)
1078 e830a908 2005-11-06 devnull char buf[64];
1080 e830a908 2005-11-06 devnull switch(m){
1081 e830a908 2005-11-06 devnull default:
1082 e830a908 2005-11-06 devnull error("unknown control message");
1084 e830a908 2005-11-06 devnull case Wakeup:
1086 e830a908 2005-11-06 devnull case Moved:
1087 e830a908 2005-11-06 devnull case Reshaped:
1088 e830a908 2005-11-06 devnull if(w->deleted){
1089 e830a908 2005-11-06 devnull freeimage(i);
1092 e830a908 2005-11-06 devnull w->screenr = r;
1093 e830a908 2005-11-06 devnull strcpy(buf, w->name);
1094 e830a908 2005-11-06 devnull wresize(w, i, m==Moved);
1095 e830a908 2005-11-06 devnull w->wctlready = 1;
1096 e830a908 2005-11-06 devnull if(Dx(r) > 0){
1097 e830a908 2005-11-06 devnull if(w != input)
1098 e830a908 2005-11-06 devnull wcurrent(w);
1099 e830a908 2005-11-06 devnull }else if(w == input)
1100 e830a908 2005-11-06 devnull wcurrent(nil);
1101 e830a908 2005-11-06 devnull flushimage(display, 1);
1103 e830a908 2005-11-06 devnull case Refresh:
1104 e830a908 2005-11-06 devnull if(w->deleted || Dx(w->screenr)<=0 || !rectclip(&r, w->i->r))
1106 e830a908 2005-11-06 devnull if(!w->mouseopen)
1107 e830a908 2005-11-06 devnull wrefresh(w, r);
1108 e830a908 2005-11-06 devnull flushimage(display, 1);
1110 e830a908 2005-11-06 devnull case Movemouse:
1111 e830a908 2005-11-06 devnull if(sweeping || !ptinrect(r.min, w->i->r))
1113 e830a908 2005-11-06 devnull wmovemouse(w, r.min);
1114 e830a908 2005-11-06 devnull case Rawon:
1116 e830a908 2005-11-06 devnull case Rawoff:
1117 e830a908 2005-11-06 devnull if(w->deleted)
1119 e830a908 2005-11-06 devnull while(w->nraw > 0){
1120 e830a908 2005-11-06 devnull wkeyctl(w, w->raw[0]);
1121 e830a908 2005-11-06 devnull --w->nraw;
1122 e830a908 2005-11-06 devnull runemove(w->raw, w->raw+1, w->nraw);
1125 e830a908 2005-11-06 devnull case Holdon:
1126 e830a908 2005-11-06 devnull case Holdoff:
1127 e830a908 2005-11-06 devnull if(w->deleted)
1129 e830a908 2005-11-06 devnull wrepaint(w);
1130 e830a908 2005-11-06 devnull flushimage(display, 1);
1132 e830a908 2005-11-06 devnull case Deleted:
1133 e830a908 2005-11-06 devnull if(w->deleted)
1135 e830a908 2005-11-06 devnull write(w->notefd, "hangup", 6);
1136 e830a908 2005-11-06 devnull wclosewin(w);
1138 e830a908 2005-11-06 devnull case Exited:
1139 e830a908 2005-11-06 devnull frclear(&w->f, TRUE);
1140 e830a908 2005-11-06 devnull close(w->notefd);
1141 e830a908 2005-11-06 devnull chanfree(w->mc.c);
1142 e830a908 2005-11-06 devnull chanfree(w->ck);
1143 e830a908 2005-11-06 devnull chanfree(w->cctl);
1144 e830a908 2005-11-06 devnull chanfree(w->conswrite);
1145 e830a908 2005-11-06 devnull chanfree(w->consread);
1146 e830a908 2005-11-06 devnull chanfree(w->mouseread);
1147 e830a908 2005-11-06 devnull chanfree(w->wctlread);
1148 e830a908 2005-11-06 devnull free(w->raw);
1149 e830a908 2005-11-06 devnull free(w->r);
1150 e830a908 2005-11-06 devnull free(w->dir);
1151 e830a908 2005-11-06 devnull free(w->label);
1152 e830a908 2005-11-06 devnull free(w);
1155 e830a908 2005-11-06 devnull return m;
1159 e830a908 2005-11-06 devnull * Convert back to physical coordinates
1162 e830a908 2005-11-06 devnull wmovemouse(Window *w, Point p)
1164 e830a908 2005-11-06 devnull p.x += w->screenr.min.x-w->i->r.min.x;
1165 e830a908 2005-11-06 devnull p.y += w->screenr.min.y-w->i->r.min.y;
1166 e830a908 2005-11-06 devnull moveto(mousectl, p);
1170 e830a908 2005-11-06 devnull wcurrent(Window *w)
1172 e830a908 2005-11-06 devnull Window *oi;
1174 e830a908 2005-11-06 devnull if(wkeyboard!=nil && w==wkeyboard)
1175 e830a908 2005-11-06 devnull return;
1176 e830a908 2005-11-06 devnull oi = input;
1177 e830a908 2005-11-06 devnull input = w;
1178 e830a908 2005-11-06 devnull if(oi!=w && oi!=nil)
1179 e830a908 2005-11-06 devnull wrepaint(oi);
1180 e830a908 2005-11-06 devnull if(w !=nil){
1181 e830a908 2005-11-06 devnull wrepaint(w);
1182 e830a908 2005-11-06 devnull wsetcursor(w, 0);
1184 e830a908 2005-11-06 devnull if(w != oi){
1185 e830a908 2005-11-06 devnull if(oi){
1186 e830a908 2005-11-06 devnull oi->wctlready = 1;
1187 e830a908 2005-11-06 devnull wsendctlmesg(oi, Wakeup, ZR, nil);
1190 e830a908 2005-11-06 devnull w->wctlready = 1;
1191 e830a908 2005-11-06 devnull wsendctlmesg(w, Wakeup, ZR, nil);
1197 e830a908 2005-11-06 devnull wsetcursor(Window *w, int force)
1199 e830a908 2005-11-06 devnull Cursor *p;
1201 e830a908 2005-11-06 devnull if(w==nil || /*w!=input || */ w->i==nil || Dx(w->screenr)<=0)
1202 e830a908 2005-11-06 devnull p = nil;
1203 e830a908 2005-11-06 devnull else if(wpointto(mouse->xy) == w){
1204 e830a908 2005-11-06 devnull p = w->cursorp;
1205 e830a908 2005-11-06 devnull if(p==nil && w->holding)
1206 e830a908 2005-11-06 devnull p = &whitearrow;
1208 e830a908 2005-11-06 devnull p = nil;
1209 e830a908 2005-11-06 devnull if(!menuing)
1210 e830a908 2005-11-06 devnull riosetcursor(p, force && !menuing);
1214 e830a908 2005-11-06 devnull riosetcursor(Cursor *p, int force)
1216 e830a908 2005-11-06 devnull if(!force && p==lastcursor)
1217 e830a908 2005-11-06 devnull return;
1218 e830a908 2005-11-06 devnull setcursor(mousectl, p);
1219 e830a908 2005-11-06 devnull lastcursor = p;
1222 e830a908 2005-11-06 devnull Window*
1223 e830a908 2005-11-06 devnull wtop(Point pt)
1225 e830a908 2005-11-06 devnull Window *w;
1227 e830a908 2005-11-06 devnull w = wpointto(pt);
1229 e830a908 2005-11-06 devnull if(w->topped == topped)
1230 e830a908 2005-11-06 devnull return nil;
1231 e830a908 2005-11-06 devnull topwindow(w->i);
1232 e830a908 2005-11-06 devnull wcurrent(w);
1233 e830a908 2005-11-06 devnull flushimage(display, 1);
1234 e830a908 2005-11-06 devnull w->topped = ++topped;
1236 e830a908 2005-11-06 devnull return w;
1240 e830a908 2005-11-06 devnull wtopme(Window *w)
1242 e830a908 2005-11-06 devnull if(w!=nil && w->i!=nil && !w->deleted && w->topped!=topped){
1243 e830a908 2005-11-06 devnull topwindow(w->i);
1244 e830a908 2005-11-06 devnull flushimage(display, 1);
1245 e830a908 2005-11-06 devnull w->topped = ++ topped;
1250 e830a908 2005-11-06 devnull wbottomme(Window *w)
1252 e830a908 2005-11-06 devnull if(w!=nil && w->i!=nil && !w->deleted){
1253 e830a908 2005-11-06 devnull bottomwindow(w->i);
1254 e830a908 2005-11-06 devnull flushimage(display, 1);
1255 e830a908 2005-11-06 devnull w->topped = 0;
1259 e830a908 2005-11-06 devnull Window*
1260 e830a908 2005-11-06 devnull wlookid(int id)
1264 e830a908 2005-11-06 devnull for(i=0; i<nwindow; i++)
1265 e830a908 2005-11-06 devnull if(window[i]->id == id)
1266 e830a908 2005-11-06 devnull return window[i];
1267 e830a908 2005-11-06 devnull return nil;
1271 e830a908 2005-11-06 devnull wclosewin(Window *w)
1273 e830a908 2005-11-06 devnull Rectangle r;
1276 e830a908 2005-11-06 devnull w->deleted = TRUE;
1277 e830a908 2005-11-06 devnull if(w == input){
1278 e830a908 2005-11-06 devnull input = nil;
1279 e830a908 2005-11-06 devnull wsetcursor(w, 0);
1281 e830a908 2005-11-06 devnull if(w == wkeyboard)
1282 e830a908 2005-11-06 devnull wkeyboard = nil;
1283 e830a908 2005-11-06 devnull for(i=0; i<nhidden; i++)
1284 e830a908 2005-11-06 devnull if(hidden[i] == w){
1285 e830a908 2005-11-06 devnull --nhidden;
1286 e830a908 2005-11-06 devnull memmove(hidden+i, hidden+i+1, (nhidden-i)*sizeof(hidden[0]));
1289 e830a908 2005-11-06 devnull for(i=0; i<nwindow; i++)
1290 e830a908 2005-11-06 devnull if(window[i] == w){
1291 e830a908 2005-11-06 devnull --nwindow;
1292 e830a908 2005-11-06 devnull memmove(window+i, window+i+1, (nwindow-i)*sizeof(Window*));
1293 e830a908 2005-11-06 devnull w->deleted = TRUE;
1294 e830a908 2005-11-06 devnull r = w->i->r;
1295 e830a908 2005-11-06 devnull /* move it off-screen to hide it, in case client is slow in letting it go */
1296 e830a908 2005-11-06 devnull MOVEIT originwindow(w->i, r.min, view->r.max);
1297 e830a908 2005-11-06 devnull freeimage(w->i);
1298 e830a908 2005-11-06 devnull w->i = nil;
1299 e830a908 2005-11-06 devnull return;
1301 e830a908 2005-11-06 devnull error("unknown window in closewin");
1305 e830a908 2005-11-06 devnull wsetpid(Window *w, int pid, int dolabel)
1307 e830a908 2005-11-06 devnull char buf[128];
1309 e830a908 2005-11-06 devnull w->pid = pid;
1310 e830a908 2005-11-06 devnull if(dolabel){
1311 e830a908 2005-11-06 devnull sprint(buf, "rc %d", pid);
1312 e830a908 2005-11-06 devnull free(w->label);
1313 e830a908 2005-11-06 devnull w->label = estrdup(buf);
1314 10ab06a7 2005-11-06 devnull drawsetlabel(w->label);
1318 96e0eb83 2006-04-01 devnull static Rune left1[] = {
1319 96e0eb83 2006-04-01 devnull '{', '[', '(', '<', 0xAB,
1320 96e0eb83 2006-04-01 devnull 0x207d, 0x2329, 0x27e6, 0x27e8, 0x27ea,
1321 96e0eb83 2006-04-01 devnull 0xfe59, 0xfe5b, 0xfe5d, 0xff08, 0xff3b, 0xff5b,
1324 96e0eb83 2006-04-01 devnull static Rune right1[] = {
1325 96e0eb83 2006-04-01 devnull '}', ']', ')', '>', 0xBB,
1326 96e0eb83 2006-04-01 devnull 0x207e, 0x232a, 0x27e7, 0x27e9, 0x27eb,
1327 96e0eb83 2006-04-01 devnull 0xfe5a, 0xfe5c, 0xfe5e, 0xff09, 0xff3d, 0xff5d,
1330 e830a908 2005-11-06 devnull static Rune left2[] = { '\n', 0 };
1331 e830a908 2005-11-06 devnull static Rune left3[] = { '\'', '"', '`', 0 };
1333 e830a908 2005-11-06 devnull Rune *left[] = {
1339 e830a908 2005-11-06 devnull Rune *right[] = {
1340 e830a908 2005-11-06 devnull right1,
1347 e830a908 2005-11-06 devnull wdoubleclick(Window *w, uint *q0, uint *q1)
1349 e830a908 2005-11-06 devnull int c, i;
1350 e830a908 2005-11-06 devnull Rune *r, *l, *p;
1351 e830a908 2005-11-06 devnull uint q;
1353 e830a908 2005-11-06 devnull for(i=0; left[i]!=nil; i++){
1354 e830a908 2005-11-06 devnull q = *q0;
1355 e830a908 2005-11-06 devnull l = left[i];
1356 e830a908 2005-11-06 devnull r = right[i];
1357 e830a908 2005-11-06 devnull /* try matching character to left, looking right */
1358 e830a908 2005-11-06 devnull if(q == 0)
1359 e830a908 2005-11-06 devnull c = '\n';
1361 e830a908 2005-11-06 devnull c = w->r[q-1];
1362 e830a908 2005-11-06 devnull p = strrune(l, c);
1363 e830a908 2005-11-06 devnull if(p != nil){
1364 e830a908 2005-11-06 devnull if(wclickmatch(w, c, r[p-l], 1, &q))
1365 e830a908 2005-11-06 devnull *q1 = q-(c!='\n');
1366 e830a908 2005-11-06 devnull return;
1368 e830a908 2005-11-06 devnull /* try matching character to right, looking left */
1369 e830a908 2005-11-06 devnull if(q == w->nr)
1370 e830a908 2005-11-06 devnull c = '\n';
1372 e830a908 2005-11-06 devnull c = w->r[q];
1373 e830a908 2005-11-06 devnull p = strrune(r, c);
1374 e830a908 2005-11-06 devnull if(p != nil){
1375 e830a908 2005-11-06 devnull if(wclickmatch(w, c, l[p-r], -1, &q)){
1376 e830a908 2005-11-06 devnull *q1 = *q0+(*q0<w->nr && c=='\n');
1377 e830a908 2005-11-06 devnull *q0 = q;
1378 e830a908 2005-11-06 devnull if(c!='\n' || q!=0 || w->r[0]=='\n')
1379 e830a908 2005-11-06 devnull (*q0)++;
1381 e830a908 2005-11-06 devnull return;
1384 e830a908 2005-11-06 devnull /* try filling out word to right */
1385 e830a908 2005-11-06 devnull while(*q1<w->nr && isalnum(w->r[*q1]))
1386 e830a908 2005-11-06 devnull (*q1)++;
1387 e830a908 2005-11-06 devnull /* try filling out word to left */
1388 e830a908 2005-11-06 devnull while(*q0>0 && isalnum(w->r[*q0-1]))
1389 e830a908 2005-11-06 devnull (*q0)--;
1393 e830a908 2005-11-06 devnull wclickmatch(Window *w, int cl, int cr, int dir, uint *q)
1395 e830a908 2005-11-06 devnull Rune c;
1396 e830a908 2005-11-06 devnull int nest;
1398 e830a908 2005-11-06 devnull nest = 1;
1399 e830a908 2005-11-06 devnull for(;;){
1400 e830a908 2005-11-06 devnull if(dir > 0){
1401 e830a908 2005-11-06 devnull if(*q == w->nr)
1403 e830a908 2005-11-06 devnull c = w->r[*q];
1404 e830a908 2005-11-06 devnull (*q)++;
1406 e830a908 2005-11-06 devnull if(*q == 0)
1408 e830a908 2005-11-06 devnull (*q)--;
1409 e830a908 2005-11-06 devnull c = w->r[*q];
1411 e830a908 2005-11-06 devnull if(c == cr){
1412 e830a908 2005-11-06 devnull if(--nest==0)
1413 e830a908 2005-11-06 devnull return 1;
1414 e830a908 2005-11-06 devnull }else if(c == cl)
1415 e830a908 2005-11-06 devnull nest++;
1417 e830a908 2005-11-06 devnull return cl=='\n' && nest==1;
1422 e830a908 2005-11-06 devnull wbacknl(Window *w, uint p, uint n)
1424 e830a908 2005-11-06 devnull int i, j;
1426 e830a908 2005-11-06 devnull /* look for start of this line if n==0 */
1427 e830a908 2005-11-06 devnull if(n==0 && p>0 && w->r[p-1]!='\n')
1430 e830a908 2005-11-06 devnull while(i-->0 && p>0){
1431 e830a908 2005-11-06 devnull --p; /* it's at a newline now; back over it */
1432 e830a908 2005-11-06 devnull if(p == 0)
1434 e830a908 2005-11-06 devnull /* at 128 chars, call it a line anyway */
1435 e830a908 2005-11-06 devnull for(j=128; --j>0 && p>0; p--)
1436 e830a908 2005-11-06 devnull if(w->r[p-1]=='\n')
1439 e830a908 2005-11-06 devnull return p;
1443 e830a908 2005-11-06 devnull wshow(Window *w, uint q0)
1445 e830a908 2005-11-06 devnull int qe;
1446 e830a908 2005-11-06 devnull int nl;
1447 e830a908 2005-11-06 devnull uint q;
1449 e830a908 2005-11-06 devnull qe = w->org+w->f.nchars;
1450 e830a908 2005-11-06 devnull if(w->org<=q0 && (q0<qe || (q0==qe && qe==w->nr)))
1451 e830a908 2005-11-06 devnull wscrdraw(w);
1453 e830a908 2005-11-06 devnull nl = 4*w->f.maxlines/5;
1454 e830a908 2005-11-06 devnull q = wbacknl(w, q0, nl);
1455 e830a908 2005-11-06 devnull /* avoid going backwards if trying to go forwards - long lines! */
1456 e830a908 2005-11-06 devnull if(!(q0>w->org && q<w->org))
1457 e830a908 2005-11-06 devnull wsetorigin(w, q, TRUE);
1458 e830a908 2005-11-06 devnull while(q0 > w->org+w->f.nchars)
1459 e830a908 2005-11-06 devnull wsetorigin(w, w->org+1, FALSE);
1464 e830a908 2005-11-06 devnull wsetorigin(Window *w, uint org, int exact)
1466 e830a908 2005-11-06 devnull int i, a, fixup;
1467 e830a908 2005-11-06 devnull Rune *r;
1468 e830a908 2005-11-06 devnull uint n;
1470 e830a908 2005-11-06 devnull if(org>0 && !exact){
1471 e830a908 2005-11-06 devnull /* org is an estimate of the char posn; find a newline */
1472 e830a908 2005-11-06 devnull /* don't try harder than 256 chars */
1473 e830a908 2005-11-06 devnull for(i=0; i<256 && org<w->nr; i++){
1474 e830a908 2005-11-06 devnull if(w->r[org] == '\n'){
1481 e830a908 2005-11-06 devnull a = org-w->org;
1482 e830a908 2005-11-06 devnull fixup = 0;
1483 e830a908 2005-11-06 devnull if(a>=0 && a<w->f.nchars){
1484 e830a908 2005-11-06 devnull frdelete(&w->f, 0, a);
1485 e830a908 2005-11-06 devnull fixup = 1; /* frdelete can leave end of last line in wrong selection mode; it doesn't know what follows */
1486 e830a908 2005-11-06 devnull }else if(a<0 && -a<w->f.nchars){
1487 e830a908 2005-11-06 devnull n = w->org - org;
1488 e830a908 2005-11-06 devnull r = runemalloc(n);
1489 e830a908 2005-11-06 devnull runemove(r, w->r+org, n);
1490 e830a908 2005-11-06 devnull frinsert(&w->f, r, r+n, 0);
1491 e830a908 2005-11-06 devnull free(r);
1493 e830a908 2005-11-06 devnull frdelete(&w->f, 0, w->f.nchars);
1494 e830a908 2005-11-06 devnull w->org = org;
1495 e830a908 2005-11-06 devnull wfill(w);
1496 e830a908 2005-11-06 devnull wscrdraw(w);
1497 e830a908 2005-11-06 devnull wsetselect(w, w->q0, w->q1);
1498 e830a908 2005-11-06 devnull if(fixup && w->f.p1 > w->f.p0)
1499 e830a908 2005-11-06 devnull frdrawsel(&w->f, frptofchar(&w->f, w->f.p1-1), w->f.p1-1, w->f.p1, 1);
1503 e830a908 2005-11-06 devnull wsetselect(Window *w, uint q0, uint q1)
1505 e830a908 2005-11-06 devnull int p0, p1;
1507 e830a908 2005-11-06 devnull /* w->f.p0 and w->f.p1 are always right; w->q0 and w->q1 may be off */
1508 e830a908 2005-11-06 devnull w->q0 = q0;
1509 e830a908 2005-11-06 devnull w->q1 = q1;
1510 e830a908 2005-11-06 devnull /* compute desired p0,p1 from q0,q1 */
1511 e830a908 2005-11-06 devnull p0 = q0-w->org;
1512 e830a908 2005-11-06 devnull p1 = q1-w->org;
1513 e830a908 2005-11-06 devnull if(p0 < 0)
1514 e830a908 2005-11-06 devnull p0 = 0;
1515 e830a908 2005-11-06 devnull if(p1 < 0)
1516 e830a908 2005-11-06 devnull p1 = 0;
1517 e830a908 2005-11-06 devnull if(p0 > w->f.nchars)
1518 e830a908 2005-11-06 devnull p0 = w->f.nchars;
1519 e830a908 2005-11-06 devnull if(p1 > w->f.nchars)
1520 e830a908 2005-11-06 devnull p1 = w->f.nchars;
1521 e830a908 2005-11-06 devnull if(p0==w->f.p0 && p1==w->f.p1)
1522 e830a908 2005-11-06 devnull return;
1523 e830a908 2005-11-06 devnull /* screen disagrees with desired selection */
1524 e830a908 2005-11-06 devnull if(w->f.p1<=p0 || p1<=w->f.p0 || p0==p1 || w->f.p1==w->f.p0){
1525 e830a908 2005-11-06 devnull /* no overlap or too easy to bother trying */
1526 e830a908 2005-11-06 devnull frdrawsel(&w->f, frptofchar(&w->f, w->f.p0), w->f.p0, w->f.p1, 0);
1527 e830a908 2005-11-06 devnull frdrawsel(&w->f, frptofchar(&w->f, p0), p0, p1, 1);
1528 e830a908 2005-11-06 devnull goto Return;
1530 e830a908 2005-11-06 devnull /* overlap; avoid unnecessary painting */
1531 e830a908 2005-11-06 devnull if(p0 < w->f.p0){
1532 e830a908 2005-11-06 devnull /* extend selection backwards */
1533 e830a908 2005-11-06 devnull frdrawsel(&w->f, frptofchar(&w->f, p0), p0, w->f.p0, 1);
1534 e830a908 2005-11-06 devnull }else if(p0 > w->f.p0){
1535 e830a908 2005-11-06 devnull /* trim first part of selection */
1536 e830a908 2005-11-06 devnull frdrawsel(&w->f, frptofchar(&w->f, w->f.p0), w->f.p0, p0, 0);
1538 e830a908 2005-11-06 devnull if(p1 > w->f.p1){
1539 e830a908 2005-11-06 devnull /* extend selection forwards */
1540 e830a908 2005-11-06 devnull frdrawsel(&w->f, frptofchar(&w->f, w->f.p1), w->f.p1, p1, 1);
1541 e830a908 2005-11-06 devnull }else if(p1 < w->f.p1){
1542 e830a908 2005-11-06 devnull /* trim last part of selection */
1543 e830a908 2005-11-06 devnull frdrawsel(&w->f, frptofchar(&w->f, p1), p1, w->f.p1, 0);
1546 e830a908 2005-11-06 devnull Return:
1547 e830a908 2005-11-06 devnull w->f.p0 = p0;
1548 e830a908 2005-11-06 devnull w->f.p1 = p1;
1552 e830a908 2005-11-06 devnull winsert(Window *w, Rune *r, int n, uint q0)
1554 e830a908 2005-11-06 devnull uint m;
1556 e830a908 2005-11-06 devnull if(n == 0)
1557 e830a908 2005-11-06 devnull return q0;
1558 e830a908 2005-11-06 devnull if(w->nr+n>HiWater && q0>=w->org && q0>=w->qh){
1559 e830a908 2005-11-06 devnull m = min(HiWater-LoWater, min(w->org, w->qh));
1560 e830a908 2005-11-06 devnull w->org -= m;
1561 e830a908 2005-11-06 devnull w->qh -= m;
1562 e830a908 2005-11-06 devnull if(w->q0 > m)
1563 e830a908 2005-11-06 devnull w->q0 -= m;
1565 e830a908 2005-11-06 devnull w->q0 = 0;
1566 e830a908 2005-11-06 devnull if(w->q1 > m)
1567 e830a908 2005-11-06 devnull w->q1 -= m;
1569 e830a908 2005-11-06 devnull w->q1 = 0;
1570 e830a908 2005-11-06 devnull w->nr -= m;
1571 e830a908 2005-11-06 devnull runemove(w->r, w->r+m, w->nr);
1572 e830a908 2005-11-06 devnull q0 -= m;
1574 e830a908 2005-11-06 devnull if(w->nr+n > w->maxr){
1576 e830a908 2005-11-06 devnull * Minimize realloc breakage:
1577 e830a908 2005-11-06 devnull * Allocate at least MinWater
1578 e830a908 2005-11-06 devnull * Double allocation size each time
1579 e830a908 2005-11-06 devnull * But don't go much above HiWater
1581 e830a908 2005-11-06 devnull m = max(min(2*(w->nr+n), HiWater), w->nr+n)+MinWater;
1582 e830a908 2005-11-06 devnull if(m > HiWater)
1583 e830a908 2005-11-06 devnull m = max(HiWater+MinWater, w->nr+n);
1584 e830a908 2005-11-06 devnull if(m > w->maxr){
1585 e830a908 2005-11-06 devnull w->r = runerealloc(w->r, m);
1586 e830a908 2005-11-06 devnull w->maxr = m;
1589 e830a908 2005-11-06 devnull runemove(w->r+q0+n, w->r+q0, w->nr-q0);
1590 e830a908 2005-11-06 devnull runemove(w->r+q0, r, n);
1591 e830a908 2005-11-06 devnull w->nr += n;
1592 e830a908 2005-11-06 devnull /* if output touches, advance selection, not qh; works best for keyboard and output */
1593 e830a908 2005-11-06 devnull if(q0 <= w->q1)
1594 e830a908 2005-11-06 devnull w->q1 += n;
1595 e830a908 2005-11-06 devnull if(q0 <= w->q0)
1596 e830a908 2005-11-06 devnull w->q0 += n;
1597 e830a908 2005-11-06 devnull if(q0 < w->qh)
1598 e830a908 2005-11-06 devnull w->qh += n;
1599 e830a908 2005-11-06 devnull if(q0 < w->org)
1600 e830a908 2005-11-06 devnull w->org += n;
1601 e830a908 2005-11-06 devnull else if(q0 <= w->org+w->f.nchars)
1602 e830a908 2005-11-06 devnull frinsert(&w->f, r, r+n, q0-w->org);
1603 e830a908 2005-11-06 devnull return q0;
1607 e830a908 2005-11-06 devnull wfill(Window *w)
1609 e830a908 2005-11-06 devnull Rune *rp;
1610 e830a908 2005-11-06 devnull int i, n, m, nl;
1612 e830a908 2005-11-06 devnull if(w->f.lastlinefull)
1613 e830a908 2005-11-06 devnull return;
1614 e830a908 2005-11-06 devnull rp = malloc(messagesize);
1616 e830a908 2005-11-06 devnull n = w->nr-(w->org+w->f.nchars);
1617 e830a908 2005-11-06 devnull if(n == 0)
1619 e830a908 2005-11-06 devnull if(n > 2000) /* educated guess at reasonable amount */
1620 e830a908 2005-11-06 devnull n = 2000;
1621 e830a908 2005-11-06 devnull runemove(rp, w->r+(w->org+w->f.nchars), n);
1623 e830a908 2005-11-06 devnull * it's expensive to frinsert more than we need, so
1624 e830a908 2005-11-06 devnull * count newlines.
1626 e830a908 2005-11-06 devnull nl = w->f.maxlines-w->f.nlines;
1628 e830a908 2005-11-06 devnull for(i=0; i<n; ){
1629 e830a908 2005-11-06 devnull if(rp[i++] == '\n'){
1631 e830a908 2005-11-06 devnull if(m >= nl)
1635 e830a908 2005-11-06 devnull frinsert(&w->f, rp, rp+i, w->f.nchars);
1636 e830a908 2005-11-06 devnull }while(w->f.lastlinefull == FALSE);
1637 e830a908 2005-11-06 devnull free(rp);
1641 e830a908 2005-11-06 devnull wcontents(Window *w, int *ip)
1643 e830a908 2005-11-06 devnull return runetobyte(w->r, w->nr, ip);
