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 67dbeee5 2017-10-10 rsc #include <libsec.h>
12 b3994ec5 2003-12-11 devnull #include "dat.h"
13 b3994ec5 2003-12-11 devnull #include "fns.h"
15 b3994ec5 2003-12-11 devnull static Point prevmouse;
16 b3994ec5 2003-12-11 devnull static Window *mousew;
19 be22ae2d 2004-03-26 devnull range(int q0, int q1)
23 be22ae2d 2004-03-26 devnull r.q0 = q0;
24 be22ae2d 2004-03-26 devnull r.q1 = q1;
25 be22ae2d 2004-03-26 devnull return r;
29 8ad51794 2004-03-25 devnull runestr(Rune *r, uint n)
31 8ad51794 2004-03-25 devnull Runestr rs;
33 8ad51794 2004-03-25 devnull rs.r = r;
34 8ad51794 2004-03-25 devnull rs.nr = n;
35 8ad51794 2004-03-25 devnull return rs;
39 b3994ec5 2003-12-11 devnull cvttorunes(char *p, int n, Rune *r, int *nb, int *nr, int *nulls)
41 b3994ec5 2003-12-11 devnull uchar *q;
43 b3994ec5 2003-12-11 devnull int j, w;
46 b3994ec5 2003-12-11 devnull * Always guaranteed that n bytes may be interpreted
47 b3994ec5 2003-12-11 devnull * without worrying about partial runes. This may mean
48 b3994ec5 2003-12-11 devnull * reading up to UTFmax-1 more bytes than n; the caller
49 b3994ec5 2003-12-11 devnull * knows this. If n is a firm limit, the caller should
50 b3994ec5 2003-12-11 devnull * set p[n] = 0.
52 b3994ec5 2003-12-11 devnull q = (uchar*)p;
54 b3994ec5 2003-12-11 devnull for(j=0; j<n; j+=w){
55 b3994ec5 2003-12-11 devnull if(*q < Runeself){
57 b3994ec5 2003-12-11 devnull *s = *q++;
59 b3994ec5 2003-12-11 devnull w = chartorune(s, (char*)q);
64 b3994ec5 2003-12-11 devnull else if(nulls)
65 b3994ec5 2003-12-11 devnull *nulls = TRUE;
67 b3994ec5 2003-12-11 devnull *nb = (char*)q-p;
68 b3994ec5 2003-12-11 devnull *nr = s-r;
72 b3994ec5 2003-12-11 devnull error(char *s)
74 b3994ec5 2003-12-11 devnull fprint(2, "acme: %s: %r\n", s);
75 37c7bc13 2005-07-13 devnull threadexitsall(nil);
79 b3994ec5 2003-12-11 devnull errorwin1(Rune *dir, int ndir, Rune **incl, int nincl)
81 b3994ec5 2003-12-11 devnull Window *w;
83 b3994ec5 2003-12-11 devnull int i, n;
84 b3994ec5 2003-12-11 devnull static Rune Lpluserrors[] = { '+', 'E', 'r', 'r', 'o', 'r', 's', 0 };
86 5a8e63b2 2004-02-29 devnull r = runemalloc(ndir+8);
87 6d7fdb24 2004-12-27 devnull if((n = ndir) != 0){
88 b3994ec5 2003-12-11 devnull runemove(r, dir, ndir);
89 5a8e63b2 2004-02-29 devnull r[n++] = L'/';
91 b3994ec5 2003-12-11 devnull runemove(r+n, Lpluserrors, 7);
93 b3994ec5 2003-12-11 devnull w = lookfile(r, n);
94 b3994ec5 2003-12-11 devnull if(w == nil){
95 b3994ec5 2003-12-11 devnull if(row.ncol == 0)
96 b3994ec5 2003-12-11 devnull if(rowadd(&row, nil, -1) == nil)
97 b3994ec5 2003-12-11 devnull error("can't create column to make error window");
98 b3994ec5 2003-12-11 devnull w = coladd(row.col[row.ncol-1], nil, nil, -1);
99 b3994ec5 2003-12-11 devnull w->filemenu = FALSE;
100 b3994ec5 2003-12-11 devnull winsetname(w, r, n);
101 4a3fb872 2014-04-30 rsc xfidlog(w, "new");
103 b3994ec5 2003-12-11 devnull free(r);
104 b3994ec5 2003-12-11 devnull for(i=nincl; --i>=0; ){
105 b3994ec5 2003-12-11 devnull n = runestrlen(incl[i]);
106 b3994ec5 2003-12-11 devnull r = runemalloc(n);
107 b3994ec5 2003-12-11 devnull runemove(r, incl[i], n);
108 b3994ec5 2003-12-11 devnull winaddincl(w, r, n);
110 5a8e63b2 2004-02-29 devnull w->autoindent = globalautoindent;
111 b3994ec5 2003-12-11 devnull return w;
114 b3994ec5 2003-12-11 devnull /* make new window, if necessary; return with it locked */
116 5a8e63b2 2004-02-29 devnull errorwin(Mntdir *md, int owner)
118 b3994ec5 2003-12-11 devnull Window *w;
120 b3994ec5 2003-12-11 devnull for(;;){
121 b3994ec5 2003-12-11 devnull if(md == nil)
122 b3994ec5 2003-12-11 devnull w = errorwin1(nil, 0, nil, 0);
124 b3994ec5 2003-12-11 devnull w = errorwin1(md->dir, md->ndir, md->incl, md->nincl);
125 5a8e63b2 2004-02-29 devnull winlock(w, owner);
126 b3994ec5 2003-12-11 devnull if(w->col != nil)
128 b3994ec5 2003-12-11 devnull /* window was deleted too fast */
129 5a8e63b2 2004-02-29 devnull winunlock(w);
131 b3994ec5 2003-12-11 devnull return w;
135 9d01e221 2005-01-30 devnull * Incoming window should be locked.
136 9d01e221 2005-01-30 devnull * It will be unlocked and returned window
137 9d01e221 2005-01-30 devnull * will be locked in its place.
140 9d01e221 2005-01-30 devnull errorwinforwin(Window *w)
142 9d01e221 2005-01-30 devnull int i, n, nincl, owner;
143 9d01e221 2005-01-30 devnull Rune **incl;
144 9d01e221 2005-01-30 devnull Runestr dir;
145 9d01e221 2005-01-30 devnull Text *t;
147 9d01e221 2005-01-30 devnull t = &w->body;
148 9d01e221 2005-01-30 devnull dir = dirname(t, nil, 0);
149 9d01e221 2005-01-30 devnull if(dir.nr==1 && dir.r[0]=='.'){ /* sigh */
150 9d01e221 2005-01-30 devnull free(dir.r);
151 9d01e221 2005-01-30 devnull dir.r = nil;
152 9d01e221 2005-01-30 devnull dir.nr = 0;
154 9d01e221 2005-01-30 devnull incl = nil;
155 9d01e221 2005-01-30 devnull nincl = w->nincl;
156 9d01e221 2005-01-30 devnull if(nincl > 0){
157 9d01e221 2005-01-30 devnull incl = emalloc(nincl*sizeof(Rune*));
158 9d01e221 2005-01-30 devnull for(i=0; i<nincl; i++){
159 9d01e221 2005-01-30 devnull n = runestrlen(w->incl[i]);
160 9d01e221 2005-01-30 devnull incl[i] = runemalloc(n+1);
161 9d01e221 2005-01-30 devnull runemove(incl[i], w->incl[i], n);
164 9d01e221 2005-01-30 devnull owner = w->owner;
165 9d01e221 2005-01-30 devnull winunlock(w);
166 9d01e221 2005-01-30 devnull for(;;){
167 9d01e221 2005-01-30 devnull w = errorwin1(dir.r, dir.nr, incl, nincl);
168 9d01e221 2005-01-30 devnull winlock(w, owner);
169 9d01e221 2005-01-30 devnull if(w->col != nil)
171 9d01e221 2005-01-30 devnull /* window deleted too fast */
172 9d01e221 2005-01-30 devnull winunlock(w);
174 9d01e221 2005-01-30 devnull return w;
177 5a8e63b2 2004-02-29 devnull typedef struct Warning Warning;
179 5a8e63b2 2004-02-29 devnull struct Warning{
180 5a8e63b2 2004-02-29 devnull Mntdir *md;
181 5a8e63b2 2004-02-29 devnull Buffer buf;
182 5a8e63b2 2004-02-29 devnull Warning *next;
185 5a8e63b2 2004-02-29 devnull static Warning *warnings;
189 5a8e63b2 2004-02-29 devnull addwarningtext(Mntdir *md, Rune *r, int nr)
191 5a8e63b2 2004-02-29 devnull Warning *warn;
193 5a8e63b2 2004-02-29 devnull for(warn = warnings; warn; warn=warn->next){
194 5a8e63b2 2004-02-29 devnull if(warn->md == md){
195 5a8e63b2 2004-02-29 devnull bufinsert(&warn->buf, warn->buf.nc, r, nr);
199 5a8e63b2 2004-02-29 devnull warn = emalloc(sizeof(Warning));
200 5a8e63b2 2004-02-29 devnull warn->next = warnings;
201 8ad51794 2004-03-25 devnull warn->md = md;
203 8ad51794 2004-03-25 devnull fsysincid(md);
204 5a8e63b2 2004-02-29 devnull warnings = warn;
205 5a8e63b2 2004-02-29 devnull bufinsert(&warn->buf, 0, r, nr);
206 8ad51794 2004-03-25 devnull nbsendp(cwarn, 0);
209 8ad51794 2004-03-25 devnull /* called while row is locked */
211 8ad51794 2004-03-25 devnull flushwarnings(void)
213 5a8e63b2 2004-02-29 devnull Warning *warn, *next;
214 b3994ec5 2003-12-11 devnull Window *w;
215 b3994ec5 2003-12-11 devnull Text *t;
216 5a8e63b2 2004-02-29 devnull int owner, nr, q0, n;
217 5a8e63b2 2004-02-29 devnull Rune *r;
219 5a8e63b2 2004-02-29 devnull for(warn=warnings; warn; warn=next) {
220 5a8e63b2 2004-02-29 devnull w = errorwin(warn->md, 'E');
221 5a8e63b2 2004-02-29 devnull t = &w->body;
222 5a8e63b2 2004-02-29 devnull owner = w->owner;
223 5a8e63b2 2004-02-29 devnull if(owner == 0)
224 5a8e63b2 2004-02-29 devnull w->owner = 'E';
225 5a8e63b2 2004-02-29 devnull wincommit(w, t);
227 5a8e63b2 2004-02-29 devnull * Most commands don't generate much output. For instance,
228 5a8e63b2 2004-02-29 devnull * Edit ,>cat goes through /dev/cons and is already in blocks
229 5a8e63b2 2004-02-29 devnull * because of the i/o system, but a few can. Edit ,p will
230 5a8e63b2 2004-02-29 devnull * put the entire result into a single hunk. So it's worth doing
231 5a8e63b2 2004-02-29 devnull * this in blocks (and putting the text in a buffer in the first
232 5a8e63b2 2004-02-29 devnull * place), to avoid a big memory footprint.
234 5a8e63b2 2004-02-29 devnull r = fbufalloc();
235 5a8e63b2 2004-02-29 devnull q0 = t->file->b.nc;
236 5a8e63b2 2004-02-29 devnull for(n = 0; n < warn->buf.nc; n += nr){
237 5a8e63b2 2004-02-29 devnull nr = warn->buf.nc - n;
238 5a8e63b2 2004-02-29 devnull if(nr > RBUFSIZE)
239 5a8e63b2 2004-02-29 devnull nr = RBUFSIZE;
240 5a8e63b2 2004-02-29 devnull bufread(&warn->buf, n, r, nr);
241 5a8e63b2 2004-02-29 devnull textbsinsert(t, t->file->b.nc, r, nr, TRUE, &nr);
243 5a8e63b2 2004-02-29 devnull textshow(t, q0, t->file->b.nc, 1);
244 5a8e63b2 2004-02-29 devnull free(r);
245 5a8e63b2 2004-02-29 devnull winsettag(t->w);
246 5a8e63b2 2004-02-29 devnull textscrdraw(t);
247 5a8e63b2 2004-02-29 devnull w->owner = owner;
248 5a8e63b2 2004-02-29 devnull w->dirty = FALSE;
249 b3994ec5 2003-12-11 devnull winunlock(w);
250 5a8e63b2 2004-02-29 devnull bufclose(&warn->buf);
251 5a8e63b2 2004-02-29 devnull next = warn->next;
252 8ad51794 2004-03-25 devnull if(warn->md)
253 8ad51794 2004-03-25 devnull fsysdelid(warn->md);
254 5a8e63b2 2004-02-29 devnull free(warn);
256 5a8e63b2 2004-02-29 devnull warnings = nil;
260 b3994ec5 2003-12-11 devnull warning(Mntdir *md, char *s, ...)
262 b3994ec5 2003-12-11 devnull Rune *r;
263 b3994ec5 2003-12-11 devnull va_list arg;
265 b3994ec5 2003-12-11 devnull va_start(arg, s);
266 b3994ec5 2003-12-11 devnull r = runevsmprint(s, arg);
267 b3994ec5 2003-12-11 devnull va_end(arg);
268 5a8e63b2 2004-02-29 devnull if(r == nil)
269 5a8e63b2 2004-02-29 devnull error("runevsmprint failed");
270 5a8e63b2 2004-02-29 devnull addwarningtext(md, r, runestrlen(r));
275 b3994ec5 2003-12-11 devnull runeeq(Rune *s1, uint n1, Rune *s2, uint n2)
277 b3994ec5 2003-12-11 devnull if(n1 != n2)
278 b3994ec5 2003-12-11 devnull return FALSE;
279 b3994ec5 2003-12-11 devnull return memcmp(s1, s2, n1*sizeof(Rune)) == 0;
283 b3994ec5 2003-12-11 devnull min(uint a, uint b)
285 b3994ec5 2003-12-11 devnull if(a < b)
286 b3994ec5 2003-12-11 devnull return a;
287 b3994ec5 2003-12-11 devnull return b;
291 b3994ec5 2003-12-11 devnull max(uint a, uint b)
293 b3994ec5 2003-12-11 devnull if(a > b)
294 b3994ec5 2003-12-11 devnull return a;
295 b3994ec5 2003-12-11 devnull return b;
299 b3994ec5 2003-12-11 devnull runetobyte(Rune *r, int n)
301 b3994ec5 2003-12-11 devnull char *s;
303 b3994ec5 2003-12-11 devnull if(r == nil)
304 b3994ec5 2003-12-11 devnull return nil;
305 b3994ec5 2003-12-11 devnull s = emalloc(n*UTFmax+1);
306 b3994ec5 2003-12-11 devnull setmalloctag(s, getcallerpc(&r));
307 b3994ec5 2003-12-11 devnull snprint(s, n*UTFmax+1, "%.*S", n, r);
308 b3994ec5 2003-12-11 devnull return s;
312 b3994ec5 2003-12-11 devnull bytetorune(char *s, int *ip)
314 b3994ec5 2003-12-11 devnull Rune *r;
315 b3994ec5 2003-12-11 devnull int nb, nr;
317 b3994ec5 2003-12-11 devnull nb = strlen(s);
318 b3994ec5 2003-12-11 devnull r = runemalloc(nb+1);
319 b3994ec5 2003-12-11 devnull cvttorunes(s, nb, r, &nb, &nr, nil);
320 b3994ec5 2003-12-11 devnull r[nr] = '\0';
321 b3994ec5 2003-12-11 devnull *ip = nr;
322 b3994ec5 2003-12-11 devnull return r;
326 b3994ec5 2003-12-11 devnull isalnum(Rune c)
329 b3994ec5 2003-12-11 devnull * Hard to get absolutely right. Use what we know about ASCII
330 b3994ec5 2003-12-11 devnull * and assume anything above the Latin control characters is
331 b3994ec5 2003-12-11 devnull * potentially an alphanumeric.
333 b3994ec5 2003-12-11 devnull if(c <= ' ')
334 b3994ec5 2003-12-11 devnull return FALSE;
335 b3994ec5 2003-12-11 devnull if(0x7F<=c && c<=0xA0)
336 b3994ec5 2003-12-11 devnull return FALSE;
337 b3994ec5 2003-12-11 devnull if(utfrune("!\"#$%&'()*+,-./:;<=>?@[\\]^`{|}~", c))
338 b3994ec5 2003-12-11 devnull return FALSE;
339 b3994ec5 2003-12-11 devnull return TRUE;
343 b3994ec5 2003-12-11 devnull rgetc(void *v, uint n)
345 b3994ec5 2003-12-11 devnull return ((Rune*)v)[n];
349 b3994ec5 2003-12-11 devnull tgetc(void *a, uint n)
351 b3994ec5 2003-12-11 devnull Text *t;
354 b3994ec5 2003-12-11 devnull if(n >= t->file->b.nc)
355 b3994ec5 2003-12-11 devnull return 0;
356 b3994ec5 2003-12-11 devnull return textreadc(t, n);
360 b3994ec5 2003-12-11 devnull skipbl(Rune *r, int n, int *np)
362 15680d56 2004-03-05 devnull while(n>0 && (*r==' ' || *r=='\t' || *r=='\n')){
366 b3994ec5 2003-12-11 devnull *np = n;
367 b3994ec5 2003-12-11 devnull return r;
371 b3994ec5 2003-12-11 devnull findbl(Rune *r, int n, int *np)
373 0d0df317 2004-03-05 devnull while(n>0 && *r!=' ' && *r!='\t' && *r!='\n'){
377 b3994ec5 2003-12-11 devnull *np = n;
378 b3994ec5 2003-12-11 devnull return r;
382 b3994ec5 2003-12-11 devnull savemouse(Window *w)
384 b3994ec5 2003-12-11 devnull prevmouse = mouse->xy;
385 b3994ec5 2003-12-11 devnull mousew = w;
389 b3994ec5 2003-12-11 devnull restoremouse(Window *w)
394 37f8ed24 2012-09-24 rsc if(mousew!=nil && mousew==w) {
395 b3994ec5 2003-12-11 devnull moveto(mousectl, prevmouse);
398 b3994ec5 2003-12-11 devnull mousew = nil;
403 b3994ec5 2003-12-11 devnull clearmouse()
405 b3994ec5 2003-12-11 devnull mousew = nil;
409 b3994ec5 2003-12-11 devnull estrdup(char *s)
411 b3994ec5 2003-12-11 devnull char *t;
413 b3994ec5 2003-12-11 devnull t = strdup(s);
414 b3994ec5 2003-12-11 devnull if(t == nil)
415 b3994ec5 2003-12-11 devnull error("strdup failed");
416 b3994ec5 2003-12-11 devnull setmalloctag(t, getcallerpc(&s));
417 b3994ec5 2003-12-11 devnull return t;
421 b3994ec5 2003-12-11 devnull emalloc(uint n)
423 b3994ec5 2003-12-11 devnull void *p;
425 b3994ec5 2003-12-11 devnull p = malloc(n);
426 734a96bd 2008-03-07 rsc if(p == nil)
427 b3994ec5 2003-12-11 devnull error("malloc failed");
428 b3994ec5 2003-12-11 devnull setmalloctag(p, getcallerpc(&n));
429 b3994ec5 2003-12-11 devnull memset(p, 0, n);
430 b3994ec5 2003-12-11 devnull return p;
434 b3994ec5 2003-12-11 devnull erealloc(void *p, uint n)
436 b3994ec5 2003-12-11 devnull p = realloc(p, n);
437 734a96bd 2008-03-07 rsc if(p == nil)
438 b3994ec5 2003-12-11 devnull error("realloc failed");
439 b3994ec5 2003-12-11 devnull setmalloctag(p, getcallerpc(&n));
440 b3994ec5 2003-12-11 devnull return p;
444 b3994ec5 2003-12-11 devnull * Heuristic city.
447 b3994ec5 2003-12-11 devnull makenewwindow(Text *t)
449 b3994ec5 2003-12-11 devnull Column *c;
450 b3994ec5 2003-12-11 devnull Window *w, *bigw, *emptyw;
451 b3994ec5 2003-12-11 devnull Text *emptyb;
452 b3994ec5 2003-12-11 devnull int i, y, el;
454 b3994ec5 2003-12-11 devnull if(activecol)
455 b3994ec5 2003-12-11 devnull c = activecol;
456 b3994ec5 2003-12-11 devnull else if(seltext && seltext->col)
457 b3994ec5 2003-12-11 devnull c = seltext->col;
458 b3994ec5 2003-12-11 devnull else if(t && t->col)
459 b3994ec5 2003-12-11 devnull c = t->col;
461 b3994ec5 2003-12-11 devnull if(row.ncol==0 && rowadd(&row, nil, -1)==nil)
462 b3994ec5 2003-12-11 devnull error("can't make column");
463 b3994ec5 2003-12-11 devnull c = row.col[row.ncol-1];
465 b3994ec5 2003-12-11 devnull activecol = c;
466 b3994ec5 2003-12-11 devnull if(t==nil || t->w==nil || c->nw==0)
467 b3994ec5 2003-12-11 devnull return coladd(c, nil, nil, -1);
469 b3994ec5 2003-12-11 devnull /* find biggest window and biggest blank spot */
470 b3994ec5 2003-12-11 devnull emptyw = c->w[0];
471 b3994ec5 2003-12-11 devnull bigw = emptyw;
472 b3994ec5 2003-12-11 devnull for(i=1; i<c->nw; i++){
473 b3994ec5 2003-12-11 devnull w = c->w[i];
474 b3994ec5 2003-12-11 devnull /* use >= to choose one near bottom of screen */
475 b3994ec5 2003-12-11 devnull if(w->body.fr.maxlines >= bigw->body.fr.maxlines)
476 b3994ec5 2003-12-11 devnull bigw = w;
477 b3994ec5 2003-12-11 devnull if(w->body.fr.maxlines-w->body.fr.nlines >= emptyw->body.fr.maxlines-emptyw->body.fr.nlines)
478 b3994ec5 2003-12-11 devnull emptyw = w;
480 b3994ec5 2003-12-11 devnull emptyb = &emptyw->body;
481 b3994ec5 2003-12-11 devnull el = emptyb->fr.maxlines-emptyb->fr.nlines;
482 b3994ec5 2003-12-11 devnull /* if empty space is big, use it */
483 b3994ec5 2003-12-11 devnull if(el>15 || (el>3 && el>(bigw->body.fr.maxlines-1)/2))
484 b3994ec5 2003-12-11 devnull y = emptyb->fr.r.min.y+emptyb->fr.nlines*font->height;
486 b3994ec5 2003-12-11 devnull /* if this window is in column and isn't much smaller, split it */
487 b3994ec5 2003-12-11 devnull if(t->col==c && Dy(t->w->r)>2*Dy(bigw->r)/3)
488 b3994ec5 2003-12-11 devnull bigw = t->w;
489 b3994ec5 2003-12-11 devnull y = (bigw->r.min.y + bigw->r.max.y)/2;
491 b3994ec5 2003-12-11 devnull w = coladd(c, nil, nil, y);
492 b3994ec5 2003-12-11 devnull if(w->body.fr.maxlines < 2)
493 b3994ec5 2003-12-11 devnull colgrow(w->col, w, 1);
494 b3994ec5 2003-12-11 devnull return w;