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 static	Point		prevmouse;
 15 b3994ec5 2003-12-11 devnull static	Window	*mousew;
 16 be22ae2d 2004-03-26 devnull 
 17 be22ae2d 2004-03-26 devnull Range
 18 be22ae2d 2004-03-26 devnull range(int q0, int q1)
 19 be22ae2d 2004-03-26 devnull {
 20 be22ae2d 2004-03-26 devnull 	Range r;
 21 be22ae2d 2004-03-26 devnull 
 22 be22ae2d 2004-03-26 devnull 	r.q0 = q0;
 23 be22ae2d 2004-03-26 devnull 	r.q1 = q1;
 24 be22ae2d 2004-03-26 devnull 	return r;
 25 be22ae2d 2004-03-26 devnull }
 26 b3994ec5 2003-12-11 devnull 
 27 8ad51794 2004-03-25 devnull Runestr
 28 8ad51794 2004-03-25 devnull runestr(Rune *r, uint n)
 29 8ad51794 2004-03-25 devnull {
 30 8ad51794 2004-03-25 devnull 	Runestr rs;
 31 8ad51794 2004-03-25 devnull 
 32 8ad51794 2004-03-25 devnull 	rs.r = r;
 33 8ad51794 2004-03-25 devnull 	rs.nr = n;
 34 8ad51794 2004-03-25 devnull 	return rs;
 35 8ad51794 2004-03-25 devnull }
 36 8ad51794 2004-03-25 devnull 
 37 b3994ec5 2003-12-11 devnull void
 38 b3994ec5 2003-12-11 devnull cvttorunes(char *p, int n, Rune *r, int *nb, int *nr, int *nulls)
 39 b3994ec5 2003-12-11 devnull {
 40 b3994ec5 2003-12-11 devnull 	uchar *q;
 41 b3994ec5 2003-12-11 devnull 	Rune *s;
 42 b3994ec5 2003-12-11 devnull 	int j, w;
 43 b3994ec5 2003-12-11 devnull 
 44 b3994ec5 2003-12-11 devnull 	/*
 45 b3994ec5 2003-12-11 devnull 	 * Always guaranteed that n bytes may be interpreted
 46 b3994ec5 2003-12-11 devnull 	 * without worrying about partial runes.  This may mean
 47 b3994ec5 2003-12-11 devnull 	 * reading up to UTFmax-1 more bytes than n; the caller
 48 b3994ec5 2003-12-11 devnull 	 * knows this.  If n is a firm limit, the caller should
 49 b3994ec5 2003-12-11 devnull 	 * set p[n] = 0.
 50 b3994ec5 2003-12-11 devnull 	 */
 51 b3994ec5 2003-12-11 devnull 	q = (uchar*)p;
 52 b3994ec5 2003-12-11 devnull 	s = r;
 53 b3994ec5 2003-12-11 devnull 	for(j=0; j<n; j+=w){
 54 b3994ec5 2003-12-11 devnull 		if(*q < Runeself){
 55 b3994ec5 2003-12-11 devnull 			w = 1;
 56 b3994ec5 2003-12-11 devnull 			*s = *q++;
 57 b3994ec5 2003-12-11 devnull 		}else{
 58 b3994ec5 2003-12-11 devnull 			w = chartorune(s, (char*)q);
 59 b3994ec5 2003-12-11 devnull 			q += w;
 60 b3994ec5 2003-12-11 devnull 		}
 61 b3994ec5 2003-12-11 devnull 		if(*s)
 62 b3994ec5 2003-12-11 devnull 			s++;
 63 b3994ec5 2003-12-11 devnull 		else if(nulls)
 64 b3994ec5 2003-12-11 devnull 			*nulls = TRUE;
 65 b3994ec5 2003-12-11 devnull 	}
 66 b3994ec5 2003-12-11 devnull 	*nb = (char*)q-p;
 67 b3994ec5 2003-12-11 devnull 	*nr = s-r;
 68 b3994ec5 2003-12-11 devnull }
 69 b3994ec5 2003-12-11 devnull 
 70 b3994ec5 2003-12-11 devnull void
 71 b3994ec5 2003-12-11 devnull error(char *s)
 72 b3994ec5 2003-12-11 devnull {
 73 b3994ec5 2003-12-11 devnull 	fprint(2, "acme: %s: %r\n", s);
 74 37c7bc13 2005-07-13 devnull 	threadexitsall(nil);
 75 b3994ec5 2003-12-11 devnull }
 76 b3994ec5 2003-12-11 devnull 
 77 b3994ec5 2003-12-11 devnull Window*
 78 b3994ec5 2003-12-11 devnull errorwin1(Rune *dir, int ndir, Rune **incl, int nincl)
 79 b3994ec5 2003-12-11 devnull {
 80 b3994ec5 2003-12-11 devnull 	Window *w;
 81 b3994ec5 2003-12-11 devnull 	Rune *r;
 82 b3994ec5 2003-12-11 devnull 	int i, n;
 83 b3994ec5 2003-12-11 devnull 	static Rune Lpluserrors[] = { '+', 'E', 'r', 'r', 'o', 'r', 's', 0 };
 84 b3994ec5 2003-12-11 devnull 
 85 5a8e63b2 2004-02-29 devnull 	r = runemalloc(ndir+8);
 86 6d7fdb24 2004-12-27 devnull 	if((n = ndir) != 0){
 87 b3994ec5 2003-12-11 devnull 		runemove(r, dir, ndir);
 88 5a8e63b2 2004-02-29 devnull 		r[n++] = L'/';
 89 5a8e63b2 2004-02-29 devnull 	}
 90 b3994ec5 2003-12-11 devnull 	runemove(r+n, Lpluserrors, 7);
 91 b3994ec5 2003-12-11 devnull 	n += 7;
 92 b3994ec5 2003-12-11 devnull 	w = lookfile(r, n);
 93 b3994ec5 2003-12-11 devnull 	if(w == nil){
 94 b3994ec5 2003-12-11 devnull 		if(row.ncol == 0)
 95 b3994ec5 2003-12-11 devnull 			if(rowadd(&row, nil, -1) == nil)
 96 b3994ec5 2003-12-11 devnull 				error("can't create column to make error window");
 97 b3994ec5 2003-12-11 devnull 		w = coladd(row.col[row.ncol-1], nil, nil, -1);
 98 b3994ec5 2003-12-11 devnull 		w->filemenu = FALSE;
 99 b3994ec5 2003-12-11 devnull 		winsetname(w, r, n);
100 b3994ec5 2003-12-11 devnull 	}
101 b3994ec5 2003-12-11 devnull 	free(r);
102 b3994ec5 2003-12-11 devnull 	for(i=nincl; --i>=0; ){
103 b3994ec5 2003-12-11 devnull 		n = runestrlen(incl[i]);
104 b3994ec5 2003-12-11 devnull 		r = runemalloc(n);
105 b3994ec5 2003-12-11 devnull 		runemove(r, incl[i], n);
106 b3994ec5 2003-12-11 devnull 		winaddincl(w, r, n);
107 b3994ec5 2003-12-11 devnull 	}
108 5a8e63b2 2004-02-29 devnull 	w->autoindent = globalautoindent;
109 b3994ec5 2003-12-11 devnull 	return w;
110 b3994ec5 2003-12-11 devnull }
111 b3994ec5 2003-12-11 devnull 
112 b3994ec5 2003-12-11 devnull /* make new window, if necessary; return with it locked */
113 b3994ec5 2003-12-11 devnull Window*
114 5a8e63b2 2004-02-29 devnull errorwin(Mntdir *md, int owner)
115 b3994ec5 2003-12-11 devnull {
116 b3994ec5 2003-12-11 devnull 	Window *w;
117 b3994ec5 2003-12-11 devnull 
118 b3994ec5 2003-12-11 devnull 	for(;;){
119 b3994ec5 2003-12-11 devnull 		if(md == nil)
120 b3994ec5 2003-12-11 devnull 			w = errorwin1(nil, 0, nil, 0);
121 b3994ec5 2003-12-11 devnull 		else
122 b3994ec5 2003-12-11 devnull 			w = errorwin1(md->dir, md->ndir, md->incl, md->nincl);
123 5a8e63b2 2004-02-29 devnull 		winlock(w, owner);
124 b3994ec5 2003-12-11 devnull 		if(w->col != nil)
125 b3994ec5 2003-12-11 devnull 			break;
126 b3994ec5 2003-12-11 devnull 		/* window was deleted too fast */
127 5a8e63b2 2004-02-29 devnull 		winunlock(w);
128 b3994ec5 2003-12-11 devnull 	}
129 b3994ec5 2003-12-11 devnull 	return w;
130 b3994ec5 2003-12-11 devnull }
131 b3994ec5 2003-12-11 devnull 
132 9d01e221 2005-01-30 devnull /*
133 9d01e221 2005-01-30 devnull  * Incoming window should be locked. 
134 9d01e221 2005-01-30 devnull  * It will be unlocked and returned window
135 9d01e221 2005-01-30 devnull  * will be locked in its place.
136 9d01e221 2005-01-30 devnull  */
137 9d01e221 2005-01-30 devnull Window*
138 9d01e221 2005-01-30 devnull errorwinforwin(Window *w)
139 9d01e221 2005-01-30 devnull {
140 9d01e221 2005-01-30 devnull 	int i, n, nincl, owner;
141 9d01e221 2005-01-30 devnull 	Rune **incl;
142 9d01e221 2005-01-30 devnull 	Runestr dir;
143 9d01e221 2005-01-30 devnull 	Text *t;
144 9d01e221 2005-01-30 devnull 
145 9d01e221 2005-01-30 devnull 	t = &w->body;
146 9d01e221 2005-01-30 devnull 	dir = dirname(t, nil, 0);
147 9d01e221 2005-01-30 devnull 	if(dir.nr==1 && dir.r[0]=='.'){	/* sigh */
148 9d01e221 2005-01-30 devnull 		free(dir.r);
149 9d01e221 2005-01-30 devnull 		dir.r = nil;
150 9d01e221 2005-01-30 devnull 		dir.nr = 0;
151 9d01e221 2005-01-30 devnull 	}
152 9d01e221 2005-01-30 devnull 	incl = nil;
153 9d01e221 2005-01-30 devnull 	nincl = w->nincl;
154 9d01e221 2005-01-30 devnull 	if(nincl > 0){
155 9d01e221 2005-01-30 devnull 		incl = emalloc(nincl*sizeof(Rune*));
156 9d01e221 2005-01-30 devnull 		for(i=0; i<nincl; i++){
157 9d01e221 2005-01-30 devnull 			n = runestrlen(w->incl[i]);
158 9d01e221 2005-01-30 devnull 			incl[i] = runemalloc(n+1);
159 9d01e221 2005-01-30 devnull 			runemove(incl[i], w->incl[i], n);
160 9d01e221 2005-01-30 devnull 		}
161 9d01e221 2005-01-30 devnull 	}
162 9d01e221 2005-01-30 devnull 	owner = w->owner;
163 9d01e221 2005-01-30 devnull 	winunlock(w);
164 9d01e221 2005-01-30 devnull 	for(;;){
165 9d01e221 2005-01-30 devnull 		w = errorwin1(dir.r, dir.nr, incl, nincl);
166 9d01e221 2005-01-30 devnull 		winlock(w, owner);
167 9d01e221 2005-01-30 devnull 		if(w->col != nil)
168 9d01e221 2005-01-30 devnull 			break;
169 9d01e221 2005-01-30 devnull 		/* window deleted too fast */
170 9d01e221 2005-01-30 devnull 		winunlock(w);
171 9d01e221 2005-01-30 devnull 	}
172 9d01e221 2005-01-30 devnull 	return w;
173 9d01e221 2005-01-30 devnull }
174 9d01e221 2005-01-30 devnull 
175 5a8e63b2 2004-02-29 devnull typedef struct Warning Warning;
176 5a8e63b2 2004-02-29 devnull 
177 5a8e63b2 2004-02-29 devnull struct Warning{
178 5a8e63b2 2004-02-29 devnull 	Mntdir *md;
179 5a8e63b2 2004-02-29 devnull 	Buffer buf;
180 5a8e63b2 2004-02-29 devnull 	Warning *next;
181 5a8e63b2 2004-02-29 devnull };
182 5a8e63b2 2004-02-29 devnull 
183 5a8e63b2 2004-02-29 devnull static Warning *warnings;
184 5a8e63b2 2004-02-29 devnull 
185 5a8e63b2 2004-02-29 devnull static
186 5a8e63b2 2004-02-29 devnull void
187 5a8e63b2 2004-02-29 devnull addwarningtext(Mntdir *md, Rune *r, int nr)
188 b3994ec5 2003-12-11 devnull {
189 5a8e63b2 2004-02-29 devnull 	Warning *warn;
190 5a8e63b2 2004-02-29 devnull 	
191 5a8e63b2 2004-02-29 devnull 	for(warn = warnings; warn; warn=warn->next){
192 5a8e63b2 2004-02-29 devnull 		if(warn->md == md){
193 5a8e63b2 2004-02-29 devnull 			bufinsert(&warn->buf, warn->buf.nc, r, nr);
194 5a8e63b2 2004-02-29 devnull 			return;
195 5a8e63b2 2004-02-29 devnull 		}
196 5a8e63b2 2004-02-29 devnull 	}
197 5a8e63b2 2004-02-29 devnull 	warn = emalloc(sizeof(Warning));
198 5a8e63b2 2004-02-29 devnull 	warn->next = warnings;
199 8ad51794 2004-03-25 devnull 	warn->md = md;
200 8ad51794 2004-03-25 devnull 	if(md)
201 8ad51794 2004-03-25 devnull 		fsysincid(md);
202 5a8e63b2 2004-02-29 devnull 	warnings = warn;
203 5a8e63b2 2004-02-29 devnull 	bufinsert(&warn->buf, 0, r, nr);
204 8ad51794 2004-03-25 devnull 	nbsendp(cwarn, 0);
205 5a8e63b2 2004-02-29 devnull }
206 5a8e63b2 2004-02-29 devnull 
207 8ad51794 2004-03-25 devnull /* called while row is locked */
208 5a8e63b2 2004-02-29 devnull void
209 8ad51794 2004-03-25 devnull flushwarnings(void)
210 5a8e63b2 2004-02-29 devnull {
211 5a8e63b2 2004-02-29 devnull 	Warning *warn, *next;
212 b3994ec5 2003-12-11 devnull 	Window *w;
213 b3994ec5 2003-12-11 devnull 	Text *t;
214 5a8e63b2 2004-02-29 devnull 	int owner, nr, q0, n;
215 5a8e63b2 2004-02-29 devnull 	Rune *r;
216 b3994ec5 2003-12-11 devnull 
217 5a8e63b2 2004-02-29 devnull 	for(warn=warnings; warn; warn=next) {
218 5a8e63b2 2004-02-29 devnull 		w = errorwin(warn->md, 'E');
219 5a8e63b2 2004-02-29 devnull 		t = &w->body;
220 5a8e63b2 2004-02-29 devnull 		owner = w->owner;
221 5a8e63b2 2004-02-29 devnull 		if(owner == 0)
222 5a8e63b2 2004-02-29 devnull 			w->owner = 'E';
223 5a8e63b2 2004-02-29 devnull 		wincommit(w, t);
224 5a8e63b2 2004-02-29 devnull 		/*
225 5a8e63b2 2004-02-29 devnull 		 * Most commands don't generate much output. For instance,
226 5a8e63b2 2004-02-29 devnull 		 * Edit ,>cat goes through /dev/cons and is already in blocks
227 5a8e63b2 2004-02-29 devnull 		 * because of the i/o system, but a few can.  Edit ,p will
228 5a8e63b2 2004-02-29 devnull 		 * put the entire result into a single hunk.  So it's worth doing
229 5a8e63b2 2004-02-29 devnull 		 * this in blocks (and putting the text in a buffer in the first
230 5a8e63b2 2004-02-29 devnull 		 * place), to avoid a big memory footprint.
231 5a8e63b2 2004-02-29 devnull 		 */
232 5a8e63b2 2004-02-29 devnull 		r = fbufalloc();
233 5a8e63b2 2004-02-29 devnull 		q0 = t->file->b.nc;
234 5a8e63b2 2004-02-29 devnull 		for(n = 0; n < warn->buf.nc; n += nr){
235 5a8e63b2 2004-02-29 devnull 			nr = warn->buf.nc - n;
236 5a8e63b2 2004-02-29 devnull 			if(nr > RBUFSIZE)
237 5a8e63b2 2004-02-29 devnull 				nr = RBUFSIZE;
238 5a8e63b2 2004-02-29 devnull 			bufread(&warn->buf, n, r, nr);
239 5a8e63b2 2004-02-29 devnull 			textbsinsert(t, t->file->b.nc, r, nr, TRUE, &nr);
240 5a8e63b2 2004-02-29 devnull 		}
241 5a8e63b2 2004-02-29 devnull 		textshow(t, q0, t->file->b.nc, 1);
242 5a8e63b2 2004-02-29 devnull 		free(r);
243 5a8e63b2 2004-02-29 devnull 		winsettag(t->w);
244 5a8e63b2 2004-02-29 devnull 		textscrdraw(t);
245 5a8e63b2 2004-02-29 devnull 		w->owner = owner;
246 5a8e63b2 2004-02-29 devnull 		w->dirty = FALSE;
247 b3994ec5 2003-12-11 devnull 		winunlock(w);
248 5a8e63b2 2004-02-29 devnull 		bufclose(&warn->buf);
249 5a8e63b2 2004-02-29 devnull 		next = warn->next;
250 8ad51794 2004-03-25 devnull 		if(warn->md)
251 8ad51794 2004-03-25 devnull 			fsysdelid(warn->md);
252 5a8e63b2 2004-02-29 devnull 		free(warn);
253 5a8e63b2 2004-02-29 devnull 	}
254 5a8e63b2 2004-02-29 devnull 	warnings = nil;
255 b3994ec5 2003-12-11 devnull }
256 b3994ec5 2003-12-11 devnull 
257 b3994ec5 2003-12-11 devnull void
258 b3994ec5 2003-12-11 devnull warning(Mntdir *md, char *s, ...)
259 b3994ec5 2003-12-11 devnull {
260 b3994ec5 2003-12-11 devnull 	Rune *r;
261 b3994ec5 2003-12-11 devnull 	va_list arg;
262 b3994ec5 2003-12-11 devnull 
263 b3994ec5 2003-12-11 devnull 	va_start(arg, s);
264 b3994ec5 2003-12-11 devnull 	r = runevsmprint(s, arg);
265 b3994ec5 2003-12-11 devnull 	va_end(arg);
266 5a8e63b2 2004-02-29 devnull 	if(r == nil)
267 5a8e63b2 2004-02-29 devnull 		error("runevsmprint failed");
268 5a8e63b2 2004-02-29 devnull 	addwarningtext(md, r, runestrlen(r));
269 b3994ec5 2003-12-11 devnull }
270 b3994ec5 2003-12-11 devnull 
271 b3994ec5 2003-12-11 devnull int
272 b3994ec5 2003-12-11 devnull runeeq(Rune *s1, uint n1, Rune *s2, uint n2)
273 b3994ec5 2003-12-11 devnull {
274 b3994ec5 2003-12-11 devnull 	if(n1 != n2)
275 b3994ec5 2003-12-11 devnull 		return FALSE;
276 b3994ec5 2003-12-11 devnull 	return memcmp(s1, s2, n1*sizeof(Rune)) == 0;
277 b3994ec5 2003-12-11 devnull }
278 b3994ec5 2003-12-11 devnull 
279 b3994ec5 2003-12-11 devnull uint
280 b3994ec5 2003-12-11 devnull min(uint a, uint b)
281 b3994ec5 2003-12-11 devnull {
282 b3994ec5 2003-12-11 devnull 	if(a < b)
283 b3994ec5 2003-12-11 devnull 		return a;
284 b3994ec5 2003-12-11 devnull 	return b;
285 b3994ec5 2003-12-11 devnull }
286 b3994ec5 2003-12-11 devnull 
287 b3994ec5 2003-12-11 devnull uint
288 b3994ec5 2003-12-11 devnull max(uint a, uint b)
289 b3994ec5 2003-12-11 devnull {
290 b3994ec5 2003-12-11 devnull 	if(a > b)
291 b3994ec5 2003-12-11 devnull 		return a;
292 b3994ec5 2003-12-11 devnull 	return b;
293 b3994ec5 2003-12-11 devnull }
294 b3994ec5 2003-12-11 devnull 
295 b3994ec5 2003-12-11 devnull char*
296 b3994ec5 2003-12-11 devnull runetobyte(Rune *r, int n)
297 b3994ec5 2003-12-11 devnull {
298 b3994ec5 2003-12-11 devnull 	char *s;
299 b3994ec5 2003-12-11 devnull 
300 b3994ec5 2003-12-11 devnull 	if(r == nil)
301 b3994ec5 2003-12-11 devnull 		return nil;
302 b3994ec5 2003-12-11 devnull 	s = emalloc(n*UTFmax+1);
303 b3994ec5 2003-12-11 devnull 	setmalloctag(s, getcallerpc(&r));
304 b3994ec5 2003-12-11 devnull 	snprint(s, n*UTFmax+1, "%.*S", n, r);
305 b3994ec5 2003-12-11 devnull 	return s;
306 b3994ec5 2003-12-11 devnull }
307 b3994ec5 2003-12-11 devnull 
308 b3994ec5 2003-12-11 devnull Rune*
309 b3994ec5 2003-12-11 devnull bytetorune(char *s, int *ip)
310 b3994ec5 2003-12-11 devnull {
311 b3994ec5 2003-12-11 devnull 	Rune *r;
312 b3994ec5 2003-12-11 devnull 	int nb, nr;
313 b3994ec5 2003-12-11 devnull 
314 b3994ec5 2003-12-11 devnull 	nb = strlen(s);
315 b3994ec5 2003-12-11 devnull 	r = runemalloc(nb+1);
316 b3994ec5 2003-12-11 devnull 	cvttorunes(s, nb, r, &nb, &nr, nil);
317 b3994ec5 2003-12-11 devnull 	r[nr] = '\0';
318 b3994ec5 2003-12-11 devnull 	*ip = nr;
319 b3994ec5 2003-12-11 devnull 	return r;
320 b3994ec5 2003-12-11 devnull }
321 b3994ec5 2003-12-11 devnull 
322 b3994ec5 2003-12-11 devnull int
323 b3994ec5 2003-12-11 devnull isalnum(Rune c)
324 b3994ec5 2003-12-11 devnull {
325 b3994ec5 2003-12-11 devnull 	/*
326 b3994ec5 2003-12-11 devnull 	 * Hard to get absolutely right.  Use what we know about ASCII
327 b3994ec5 2003-12-11 devnull 	 * and assume anything above the Latin control characters is
328 b3994ec5 2003-12-11 devnull 	 * potentially an alphanumeric.
329 b3994ec5 2003-12-11 devnull 	 */
330 b3994ec5 2003-12-11 devnull 	if(c <= ' ')
331 b3994ec5 2003-12-11 devnull 		return FALSE;
332 b3994ec5 2003-12-11 devnull 	if(0x7F<=c && c<=0xA0)
333 b3994ec5 2003-12-11 devnull 		return FALSE;
334 b3994ec5 2003-12-11 devnull 	if(utfrune("!\"#$%&'()*+,-./:;<=>?@[\\]^`{|}~", c))
335 b3994ec5 2003-12-11 devnull 		return FALSE;
336 b3994ec5 2003-12-11 devnull 	return TRUE;
337 b3994ec5 2003-12-11 devnull }
338 b3994ec5 2003-12-11 devnull 
339 b3994ec5 2003-12-11 devnull int
340 b3994ec5 2003-12-11 devnull rgetc(void *v, uint n)
341 b3994ec5 2003-12-11 devnull {
342 b3994ec5 2003-12-11 devnull 	return ((Rune*)v)[n];
343 b3994ec5 2003-12-11 devnull }
344 b3994ec5 2003-12-11 devnull 
345 b3994ec5 2003-12-11 devnull int
346 b3994ec5 2003-12-11 devnull tgetc(void *a, uint n)
347 b3994ec5 2003-12-11 devnull {
348 b3994ec5 2003-12-11 devnull 	Text *t;
349 b3994ec5 2003-12-11 devnull 
350 b3994ec5 2003-12-11 devnull 	t = a;
351 b3994ec5 2003-12-11 devnull 	if(n >= t->file->b.nc)
352 b3994ec5 2003-12-11 devnull 		return 0;
353 b3994ec5 2003-12-11 devnull 	return textreadc(t, n);
354 b3994ec5 2003-12-11 devnull }
355 b3994ec5 2003-12-11 devnull 
356 b3994ec5 2003-12-11 devnull Rune*
357 b3994ec5 2003-12-11 devnull skipbl(Rune *r, int n, int *np)
358 b3994ec5 2003-12-11 devnull {
359 15680d56 2004-03-05 devnull 	while(n>0 && (*r==' ' || *r=='\t' || *r=='\n')){
360 b3994ec5 2003-12-11 devnull 		--n;
361 b3994ec5 2003-12-11 devnull 		r++;
362 b3994ec5 2003-12-11 devnull 	}
363 b3994ec5 2003-12-11 devnull 	*np = n;
364 b3994ec5 2003-12-11 devnull 	return r;
365 b3994ec5 2003-12-11 devnull }
366 b3994ec5 2003-12-11 devnull 
367 b3994ec5 2003-12-11 devnull Rune*
368 b3994ec5 2003-12-11 devnull findbl(Rune *r, int n, int *np)
369 b3994ec5 2003-12-11 devnull {
370 0d0df317 2004-03-05 devnull 	while(n>0 && *r!=' ' && *r!='\t' && *r!='\n'){
371 b3994ec5 2003-12-11 devnull 		--n;
372 b3994ec5 2003-12-11 devnull 		r++;
373 b3994ec5 2003-12-11 devnull 	}
374 b3994ec5 2003-12-11 devnull 	*np = n;
375 b3994ec5 2003-12-11 devnull 	return r;
376 b3994ec5 2003-12-11 devnull }
377 b3994ec5 2003-12-11 devnull 
378 b3994ec5 2003-12-11 devnull void
379 b3994ec5 2003-12-11 devnull savemouse(Window *w)
380 b3994ec5 2003-12-11 devnull {
381 b3994ec5 2003-12-11 devnull 	prevmouse = mouse->xy;
382 b3994ec5 2003-12-11 devnull 	mousew = w;
383 b3994ec5 2003-12-11 devnull }
384 b3994ec5 2003-12-11 devnull 
385 b3994ec5 2003-12-11 devnull void
386 b3994ec5 2003-12-11 devnull restoremouse(Window *w)
387 b3994ec5 2003-12-11 devnull {
388 b3994ec5 2003-12-11 devnull 	if(mousew!=nil && mousew==w)
389 b3994ec5 2003-12-11 devnull 		moveto(mousectl, prevmouse);
390 b3994ec5 2003-12-11 devnull 	mousew = nil;
391 b3994ec5 2003-12-11 devnull }
392 b3994ec5 2003-12-11 devnull 
393 b3994ec5 2003-12-11 devnull void
394 b3994ec5 2003-12-11 devnull clearmouse()
395 b3994ec5 2003-12-11 devnull {
396 b3994ec5 2003-12-11 devnull 	mousew = nil;
397 b3994ec5 2003-12-11 devnull }
398 b3994ec5 2003-12-11 devnull 
399 b3994ec5 2003-12-11 devnull char*
400 b3994ec5 2003-12-11 devnull estrdup(char *s)
401 b3994ec5 2003-12-11 devnull {
402 b3994ec5 2003-12-11 devnull 	char *t;
403 b3994ec5 2003-12-11 devnull 
404 b3994ec5 2003-12-11 devnull 	t = strdup(s);
405 b3994ec5 2003-12-11 devnull 	if(t == nil)
406 b3994ec5 2003-12-11 devnull 		error("strdup failed");
407 b3994ec5 2003-12-11 devnull 	setmalloctag(t, getcallerpc(&s));
408 b3994ec5 2003-12-11 devnull 	return t;
409 b3994ec5 2003-12-11 devnull }
410 b3994ec5 2003-12-11 devnull 
411 b3994ec5 2003-12-11 devnull void*
412 b3994ec5 2003-12-11 devnull emalloc(uint n)
413 b3994ec5 2003-12-11 devnull {
414 b3994ec5 2003-12-11 devnull 	void *p;
415 b3994ec5 2003-12-11 devnull 
416 b3994ec5 2003-12-11 devnull 	p = malloc(n);
417 b3994ec5 2003-12-11 devnull 	if(p == nil){
418 b3994ec5 2003-12-11 devnull 		fprint(2, "allocating %d from %lux: %r\n", n, getcallerpc(&n));
419 b3994ec5 2003-12-11 devnull 		*(int*)0=0;
420 b3994ec5 2003-12-11 devnull 		error("malloc failed");
421 b3994ec5 2003-12-11 devnull 	}
422 b3994ec5 2003-12-11 devnull 	setmalloctag(p, getcallerpc(&n));
423 b3994ec5 2003-12-11 devnull 	memset(p, 0, n);
424 b3994ec5 2003-12-11 devnull 	return p;
425 b3994ec5 2003-12-11 devnull }
426 b3994ec5 2003-12-11 devnull 
427 b3994ec5 2003-12-11 devnull void*
428 b3994ec5 2003-12-11 devnull erealloc(void *p, uint n)
429 b3994ec5 2003-12-11 devnull {
430 b3994ec5 2003-12-11 devnull 	p = realloc(p, n);
431 b3994ec5 2003-12-11 devnull 	if(p == nil){
432 b3994ec5 2003-12-11 devnull 		fprint(2, "reallocating %d: %r\n", n);
433 b3994ec5 2003-12-11 devnull 		error("realloc failed");
434 b3994ec5 2003-12-11 devnull 	}
435 b3994ec5 2003-12-11 devnull 	setmalloctag(p, getcallerpc(&n));
436 b3994ec5 2003-12-11 devnull 	return p;
437 b3994ec5 2003-12-11 devnull }
438 b3994ec5 2003-12-11 devnull 
439 b3994ec5 2003-12-11 devnull /*
440 b3994ec5 2003-12-11 devnull  * Heuristic city.
441 b3994ec5 2003-12-11 devnull  */
442 b3994ec5 2003-12-11 devnull Window*
443 b3994ec5 2003-12-11 devnull makenewwindow(Text *t)
444 b3994ec5 2003-12-11 devnull {
445 b3994ec5 2003-12-11 devnull 	Column *c;
446 b3994ec5 2003-12-11 devnull 	Window *w, *bigw, *emptyw;
447 b3994ec5 2003-12-11 devnull 	Text *emptyb;
448 b3994ec5 2003-12-11 devnull 	int i, y, el;
449 b3994ec5 2003-12-11 devnull 
450 b3994ec5 2003-12-11 devnull 	if(activecol)
451 b3994ec5 2003-12-11 devnull 		c = activecol;
452 b3994ec5 2003-12-11 devnull 	else if(seltext && seltext->col)
453 b3994ec5 2003-12-11 devnull 		c = seltext->col;
454 b3994ec5 2003-12-11 devnull 	else if(t && t->col)
455 b3994ec5 2003-12-11 devnull 		c = t->col;
456 b3994ec5 2003-12-11 devnull 	else{
457 b3994ec5 2003-12-11 devnull 		if(row.ncol==0 && rowadd(&row, nil, -1)==nil)
458 b3994ec5 2003-12-11 devnull 			error("can't make column");
459 b3994ec5 2003-12-11 devnull 		c = row.col[row.ncol-1];
460 b3994ec5 2003-12-11 devnull 	}
461 b3994ec5 2003-12-11 devnull 	activecol = c;
462 b3994ec5 2003-12-11 devnull 	if(t==nil || t->w==nil || c->nw==0)
463 b3994ec5 2003-12-11 devnull 		return coladd(c, nil, nil, -1);
464 b3994ec5 2003-12-11 devnull 
465 b3994ec5 2003-12-11 devnull 	/* find biggest window and biggest blank spot */
466 b3994ec5 2003-12-11 devnull 	emptyw = c->w[0];
467 b3994ec5 2003-12-11 devnull 	bigw = emptyw;
468 b3994ec5 2003-12-11 devnull 	for(i=1; i<c->nw; i++){
469 b3994ec5 2003-12-11 devnull 		w = c->w[i];
470 b3994ec5 2003-12-11 devnull 		/* use >= to choose one near bottom of screen */
471 b3994ec5 2003-12-11 devnull 		if(w->body.fr.maxlines >= bigw->body.fr.maxlines)
472 b3994ec5 2003-12-11 devnull 			bigw = w;
473 b3994ec5 2003-12-11 devnull 		if(w->body.fr.maxlines-w->body.fr.nlines >= emptyw->body.fr.maxlines-emptyw->body.fr.nlines)
474 b3994ec5 2003-12-11 devnull 			emptyw = w;
475 b3994ec5 2003-12-11 devnull 	}
476 b3994ec5 2003-12-11 devnull 	emptyb = &emptyw->body;
477 b3994ec5 2003-12-11 devnull 	el = emptyb->fr.maxlines-emptyb->fr.nlines;
478 b3994ec5 2003-12-11 devnull 	/* if empty space is big, use it */
479 b3994ec5 2003-12-11 devnull 	if(el>15 || (el>3 && el>(bigw->body.fr.maxlines-1)/2))
480 b3994ec5 2003-12-11 devnull 		y = emptyb->fr.r.min.y+emptyb->fr.nlines*font->height;
481 b3994ec5 2003-12-11 devnull 	else{
482 b3994ec5 2003-12-11 devnull 		/* if this window is in column and isn't much smaller, split it */
483 b3994ec5 2003-12-11 devnull 		if(t->col==c && Dy(t->w->r)>2*Dy(bigw->r)/3)
484 b3994ec5 2003-12-11 devnull 			bigw = t->w;
485 b3994ec5 2003-12-11 devnull 		y = (bigw->r.min.y + bigw->r.max.y)/2;
486 b3994ec5 2003-12-11 devnull 	}
487 b3994ec5 2003-12-11 devnull 	w = coladd(c, nil, nil, y);
488 b3994ec5 2003-12-11 devnull 	if(w->body.fr.maxlines < 2)
489 b3994ec5 2003-12-11 devnull 		colgrow(w->col, w, 1);
490 b3994ec5 2003-12-11 devnull 	return w;
491 b3994ec5 2003-12-11 devnull }