1 8ad51794 2004-03-25 devnull #include <u.h>
  2 42c3794c 2004-10-17 devnull #include <signal.h>
  3 8ad51794 2004-03-25 devnull #include <libc.h>
  4 8ad51794 2004-03-25 devnull #include <ctype.h>
  5 8ad51794 2004-03-25 devnull #include <draw.h>
  6 8ad51794 2004-03-25 devnull #include <thread.h>
  7 8ad51794 2004-03-25 devnull #include <mouse.h>
  8 8ad51794 2004-03-25 devnull #include <cursor.h>
  9 8ad51794 2004-03-25 devnull #include <keyboard.h>
 10 8ad51794 2004-03-25 devnull #include <frame.h>
 11 8ad51794 2004-03-25 devnull #include <plumb.h>
 12 8ad51794 2004-03-25 devnull #include <complete.h>
 13 e830a908 2005-11-06 devnull #define Extern
 14 e830a908 2005-11-06 devnull #include "dat.h"
 15 e830a908 2005-11-06 devnull #include "fns.h"
 16 e830a908 2005-11-06 devnull #include "term.h"
 17 e830a908 2005-11-06 devnull 
 18 bf63f986 2013-08-06 rsc const char *termprog = "9term";
 19 e830a908 2005-11-06 devnull int use9wm;
 20 e830a908 2005-11-06 devnull int mainpid;
 21 93921c48 2006-06-28 devnull int mousepid;
 22 e830a908 2005-11-06 devnull int plumbfd;
 23 e830a908 2005-11-06 devnull int rcpid;
 24 e830a908 2005-11-06 devnull int rcfd;
 25 e830a908 2005-11-06 devnull int sfd;
 26 e830a908 2005-11-06 devnull Window *w;
 27 e830a908 2005-11-06 devnull char *fontname;
 28 e830a908 2005-11-06 devnull 
 29 e830a908 2005-11-06 devnull void derror(Display*, char*);
 30 e830a908 2005-11-06 devnull void	mousethread(void*);
 31 e830a908 2005-11-06 devnull void	keyboardthread(void*);
 32 e830a908 2005-11-06 devnull void winclosethread(void*);
 33 e830a908 2005-11-06 devnull void deletethread(void*);
 34 e830a908 2005-11-06 devnull void rcoutputproc(void*);
 35 e830a908 2005-11-06 devnull void	rcinputproc(void*);
 36 e830a908 2005-11-06 devnull void hangupnote(void*, char*);
 37 e830a908 2005-11-06 devnull void resizethread(void*);
 38 c935adc6 2005-11-10 devnull void	servedevtext(void);
 39 e830a908 2005-11-06 devnull 
 40 e830a908 2005-11-06 devnull int errorshouldabort = 0;
 41 670f7301 2010-05-20 rsc int cooked;
 42 e830a908 2005-11-06 devnull 
 43 e830a908 2005-11-06 devnull void
 44 e830a908 2005-11-06 devnull usage(void)
 45 e830a908 2005-11-06 devnull {
 46 e830a908 2005-11-06 devnull 	fprint(2, "usage: 9term [-s] [-f font] [-W winsize] [cmd ...]\n");
 47 e830a908 2005-11-06 devnull 	threadexitsall("usage");
 48 e830a908 2005-11-06 devnull }
 49 e830a908 2005-11-06 devnull 
 50 e830a908 2005-11-06 devnull void
 51 e830a908 2005-11-06 devnull threadmain(int argc, char *argv[])
 52 e830a908 2005-11-06 devnull {
 53 21d0dda6 2005-11-11 devnull 	char *p;
 54 fa325e9b 2020-01-10 cross 
 55 e830a908 2005-11-06 devnull 	rfork(RFNOTEG);
 56 e830a908 2005-11-06 devnull 	font = nil;
 57 e830a908 2005-11-06 devnull 	_wantfocuschanges = 1;
 58 e830a908 2005-11-06 devnull 	mainpid = getpid();
 59 e830a908 2005-11-06 devnull 	messagesize = 8192;
 60 fa325e9b 2020-01-10 cross 
 61 e830a908 2005-11-06 devnull 	ARGBEGIN{
 62 e830a908 2005-11-06 devnull 	default:
 63 e830a908 2005-11-06 devnull 		usage();
 64 5bd21066 2006-01-18 devnull 	case 'l':
 65 5bd21066 2006-01-18 devnull 		loginshell = TRUE;
 66 5bd21066 2006-01-18 devnull 		break;
 67 e830a908 2005-11-06 devnull 	case 'f':
 68 21d0dda6 2005-11-11 devnull 		fontname = EARGF(usage());
 69 e830a908 2005-11-06 devnull 		break;
 70 e830a908 2005-11-06 devnull 	case 's':
 71 210d461c 2011-10-12 rsc 		scrolling = TRUE;
 72 e830a908 2005-11-06 devnull 		break;
 73 670f7301 2010-05-20 rsc 	case 'c':
 74 670f7301 2010-05-20 rsc 		cooked = TRUE;
 75 670f7301 2010-05-20 rsc 		break;
 76 e830a908 2005-11-06 devnull 	case 'w':	/* started from rio or 9wm */
 77 e830a908 2005-11-06 devnull 		use9wm = TRUE;
 78 e830a908 2005-11-06 devnull 		break;
 79 e830a908 2005-11-06 devnull 	case 'W':
 80 e830a908 2005-11-06 devnull 		winsize = EARGF(usage());
 81 e830a908 2005-11-06 devnull 		break;
 82 e830a908 2005-11-06 devnull 	}ARGEND
 83 fa325e9b 2020-01-10 cross 
 84 21d0dda6 2005-11-11 devnull 	if(fontname)
 85 21d0dda6 2005-11-11 devnull 		putenv("font", fontname);
 86 21d0dda6 2005-11-11 devnull 
 87 e830a908 2005-11-06 devnull 	p = getenv("tabstop");
 88 e830a908 2005-11-06 devnull 	if(p == 0)
 89 e830a908 2005-11-06 devnull 		p = getenv("TABSTOP");
 90 e830a908 2005-11-06 devnull 	if(p && maxtab <= 0)
 91 e830a908 2005-11-06 devnull 		maxtab = strtoul(p, 0, 0);
 92 e830a908 2005-11-06 devnull 	if(maxtab <= 0)
 93 e830a908 2005-11-06 devnull 		maxtab = 4;
 94 e830a908 2005-11-06 devnull 	free(p);
 95 fa325e9b 2020-01-10 cross 
 96 e830a908 2005-11-06 devnull 	startdir = ".";
 97 21d0dda6 2005-11-11 devnull 
 98 98df7c80 2006-06-25 devnull 	if(initdraw(derror, fontname, "9term") < 0)
 99 98df7c80 2006-06-25 devnull 		sysfatal("initdraw: %r");
100 98df7c80 2006-06-25 devnull 
101 e830a908 2005-11-06 devnull 	notify(hangupnote);
102 e830a908 2005-11-06 devnull 	noteenable("sys: child");
103 fa325e9b 2020-01-10 cross 
104 e830a908 2005-11-06 devnull 	mousectl = initmouse(nil, screen);
105 e830a908 2005-11-06 devnull 	if(mousectl == nil)
106 e830a908 2005-11-06 devnull 		error("cannot find mouse");
107 e830a908 2005-11-06 devnull 	keyboardctl = initkeyboard(nil);
108 e830a908 2005-11-06 devnull 	if(keyboardctl == nil)
109 e830a908 2005-11-06 devnull 		error("cannot find keyboard");
110 e830a908 2005-11-06 devnull 	mouse = &mousectl->m;
111 e830a908 2005-11-06 devnull 
112 e830a908 2005-11-06 devnull 	winclosechan = chancreate(sizeof(Window*), 0);
113 e830a908 2005-11-06 devnull 	deletechan = chancreate(sizeof(char*), 0);
114 e830a908 2005-11-06 devnull 
115 e830a908 2005-11-06 devnull 	timerinit();
116 c21d0ab4 2005-11-11 devnull 	servedevtext();
117 e830a908 2005-11-06 devnull 	rcpid = rcstart(argc, argv, &rcfd, &sfd);
118 210d461c 2011-10-12 rsc 	w = new(screen, FALSE, scrolling, rcpid, ".", nil, nil);
119 e830a908 2005-11-06 devnull 
120 e830a908 2005-11-06 devnull 	threadcreate(keyboardthread, nil, STACK);
121 e830a908 2005-11-06 devnull 	threadcreate(mousethread, nil, STACK);
122 e830a908 2005-11-06 devnull 	threadcreate(resizethread, nil, STACK);
123 c935adc6 2005-11-10 devnull 
124 e830a908 2005-11-06 devnull 	proccreate(rcoutputproc, nil, STACK);
125 e830a908 2005-11-06 devnull 	proccreate(rcinputproc, nil, STACK);
126 e830a908 2005-11-06 devnull }
127 e830a908 2005-11-06 devnull 
128 e830a908 2005-11-06 devnull void
129 e830a908 2005-11-06 devnull derror(Display *d, char *errorstr)
130 e830a908 2005-11-06 devnull {
131 e830a908 2005-11-06 devnull 	USED(d);
132 e830a908 2005-11-06 devnull 	error(errorstr);
133 e830a908 2005-11-06 devnull }
134 e830a908 2005-11-06 devnull 
135 e830a908 2005-11-06 devnull void
136 e830a908 2005-11-06 devnull hangupnote(void *a, char *msg)
137 e830a908 2005-11-06 devnull {
138 e830a908 2005-11-06 devnull 	if(getpid() != mainpid)
139 e830a908 2005-11-06 devnull 		noted(NDFLT);
140 93921c48 2006-06-28 devnull 	if(strcmp(msg, "hangup") == 0){
141 93921c48 2006-06-28 devnull 		postnote(PNPROC, rcpid, "hangup");
142 93921c48 2006-06-28 devnull 		noted(NDFLT);
143 93921c48 2006-06-28 devnull 	}
144 e830a908 2005-11-06 devnull 	if(strstr(msg, "child")){
145 e830a908 2005-11-06 devnull 		char buf[128];
146 e830a908 2005-11-06 devnull 		int n;
147 e830a908 2005-11-06 devnull 
148 e830a908 2005-11-06 devnull 		n = awaitnohang(buf, sizeof buf-1);
149 e830a908 2005-11-06 devnull 		if(n > 0){
150 e830a908 2005-11-06 devnull 			buf[n] = 0;
151 e830a908 2005-11-06 devnull 			if(atoi(buf) == rcpid)
152 e830a908 2005-11-06 devnull 				threadexitsall(0);
153 e830a908 2005-11-06 devnull 		}
154 e830a908 2005-11-06 devnull 		noted(NCONT);
155 e830a908 2005-11-06 devnull 	}
156 e830a908 2005-11-06 devnull 	noted(NDFLT);
157 e830a908 2005-11-06 devnull }
158 e830a908 2005-11-06 devnull 
159 e830a908 2005-11-06 devnull void
160 e830a908 2005-11-06 devnull keyboardthread(void *v)
161 e830a908 2005-11-06 devnull {
162 e830a908 2005-11-06 devnull 	Rune buf[2][20], *rp;
163 e830a908 2005-11-06 devnull 	int i, n;
164 e830a908 2005-11-06 devnull 
165 e830a908 2005-11-06 devnull 	USED(v);
166 e830a908 2005-11-06 devnull 	threadsetname("keyboardthread");
167 e830a908 2005-11-06 devnull 	n = 0;
168 e830a908 2005-11-06 devnull 	for(;;){
169 e830a908 2005-11-06 devnull 		rp = buf[n];
170 e830a908 2005-11-06 devnull 		n = 1-n;
171 e830a908 2005-11-06 devnull 		recv(keyboardctl->c, rp);
172 e830a908 2005-11-06 devnull 		for(i=1; i<nelem(buf[0])-1; i++)
173 e830a908 2005-11-06 devnull 			if(nbrecv(keyboardctl->c, rp+i) <= 0)
174 e830a908 2005-11-06 devnull 				break;
175 e830a908 2005-11-06 devnull 		rp[i] = L'\0';
176 e830a908 2005-11-06 devnull 		sendp(w->ck, rp);
177 e830a908 2005-11-06 devnull 	}
178 e830a908 2005-11-06 devnull }
179 e830a908 2005-11-06 devnull 
180 e830a908 2005-11-06 devnull void
181 e830a908 2005-11-06 devnull resizethread(void *v)
182 e830a908 2005-11-06 devnull {
183 c935adc6 2005-11-10 devnull 	Point p;
184 fa325e9b 2020-01-10 cross 
185 e830a908 2005-11-06 devnull 	USED(v);
186 fa325e9b 2020-01-10 cross 
187 baa6e34b 2005-11-30 devnull 	for(;;){
188 c935adc6 2005-11-10 devnull 		p = stringsize(display->defaultfont, "0");
189 c935adc6 2005-11-10 devnull 		if(p.x && p.y)
190 fa325e9b 2020-01-10 cross 			updatewinsize(Dy(screen->r)/p.y, (Dx(screen->r)-Scrollwid-2)/p.x,
191 c935adc6 2005-11-10 devnull 				Dx(screen->r), Dy(screen->r));
192 bcc96c1d 2005-11-11 devnull 		wresize(w, screen, 0);
193 bcc96c1d 2005-11-11 devnull 		flushimage(display, 1);
194 baa6e34b 2005-11-30 devnull 		if(recv(mousectl->resizec, nil) != 1)
195 baa6e34b 2005-11-30 devnull 			break;
196 baa6e34b 2005-11-30 devnull 		if(getwindow(display, Refnone) < 0)
197 baa6e34b 2005-11-30 devnull 			sysfatal("can't reattach to window");
198 e830a908 2005-11-06 devnull 	}
199 e830a908 2005-11-06 devnull }
200 fa325e9b 2020-01-10 cross 
201 e830a908 2005-11-06 devnull void
202 e830a908 2005-11-06 devnull mousethread(void *v)
203 e830a908 2005-11-06 devnull {
204 e830a908 2005-11-06 devnull 	int sending;
205 e830a908 2005-11-06 devnull 	Mouse tmp;
206 e830a908 2005-11-06 devnull 
207 e830a908 2005-11-06 devnull 	USED(v);
208 e830a908 2005-11-06 devnull 
209 e830a908 2005-11-06 devnull 	sending = FALSE;
210 e830a908 2005-11-06 devnull 	threadsetname("mousethread");
211 e830a908 2005-11-06 devnull 	while(readmouse(mousectl) >= 0){
212 e830a908 2005-11-06 devnull 		if(sending){
213 e830a908 2005-11-06 devnull 		Send:
214 e830a908 2005-11-06 devnull 			/* send to window */
215 e830a908 2005-11-06 devnull 			if(mouse->buttons == 0)
216 e830a908 2005-11-06 devnull 				sending = FALSE;
217 e830a908 2005-11-06 devnull 			else
218 e830a908 2005-11-06 devnull 				wsetcursor(w, 0);
219 e830a908 2005-11-06 devnull 			tmp = mousectl->m;
220 e830a908 2005-11-06 devnull 			send(w->mc.c, &tmp);
221 e830a908 2005-11-06 devnull 			continue;
222 e830a908 2005-11-06 devnull 		}
223 3b7ca01f 2009-08-11 t.lainson 		if((mouse->buttons&(1|8|16)) || ptinrect(mouse->xy, w->scrollr)){
224 e830a908 2005-11-06 devnull 			sending = TRUE;
225 e830a908 2005-11-06 devnull 			goto Send;
226 e830a908 2005-11-06 devnull 		}else if(mouse->buttons&2)
227 e830a908 2005-11-06 devnull 			button2menu(w);
228 e830a908 2005-11-06 devnull 		else
229 d879e173 2005-11-26 devnull 			bouncemouse(mouse);
230 e830a908 2005-11-06 devnull 	}
231 e830a908 2005-11-06 devnull }
232 fa325e9b 2020-01-10 cross 
233 e830a908 2005-11-06 devnull void
234 e830a908 2005-11-06 devnull wborder(Window *w, int type)
235 e830a908 2005-11-06 devnull {
236 e830a908 2005-11-06 devnull }
237 e830a908 2005-11-06 devnull 
238 e830a908 2005-11-06 devnull Window*
239 e830a908 2005-11-06 devnull wpointto(Point pt)
240 e830a908 2005-11-06 devnull {
241 e830a908 2005-11-06 devnull 	return w;
242 e830a908 2005-11-06 devnull }
243 e830a908 2005-11-06 devnull 
244 e830a908 2005-11-06 devnull Window*
245 210d461c 2011-10-12 rsc new(Image *i, int hideit, int scrollit, int pid, char *dir, char *cmd, char **argv)
246 e830a908 2005-11-06 devnull {
247 e830a908 2005-11-06 devnull 	Window *w;
248 e830a908 2005-11-06 devnull 	Mousectl *mc;
249 e830a908 2005-11-06 devnull 	Channel *cm, *ck, *cctl;
250 e830a908 2005-11-06 devnull 
251 e830a908 2005-11-06 devnull 	if(i == nil)
252 e830a908 2005-11-06 devnull 		return nil;
253 e830a908 2005-11-06 devnull 	cm = chancreate(sizeof(Mouse), 0);
254 e830a908 2005-11-06 devnull 	ck = chancreate(sizeof(Rune*), 0);
255 e830a908 2005-11-06 devnull 	cctl = chancreate(sizeof(Wctlmesg), 4);
256 e830a908 2005-11-06 devnull 	if(cm==nil || ck==nil || cctl==nil)
257 e830a908 2005-11-06 devnull 		error("new: channel alloc failed");
258 e830a908 2005-11-06 devnull 	mc = emalloc(sizeof(Mousectl));
259 e830a908 2005-11-06 devnull 	*mc = *mousectl;
260 cbeb0b26 2006-04-01 devnull /*	mc->image = i; */
261 e830a908 2005-11-06 devnull 	mc->c = cm;
262 210d461c 2011-10-12 rsc 	w = wmk(i, mc, ck, cctl, scrollit);
263 e830a908 2005-11-06 devnull 	free(mc);	/* wmk copies *mc */
264 e830a908 2005-11-06 devnull 	window = erealloc(window, ++nwindow*sizeof(Window*));
265 e830a908 2005-11-06 devnull 	window[nwindow-1] = w;
266 e830a908 2005-11-06 devnull 	if(hideit){
267 e830a908 2005-11-06 devnull 		hidden[nhidden++] = w;
268 e830a908 2005-11-06 devnull 		w->screenr = ZR;
269 e830a908 2005-11-06 devnull 	}
270 7fe619f7 2005-12-29 devnull 	threadcreate(winctl, w, STACK);
271 e830a908 2005-11-06 devnull 	if(!hideit)
272 e830a908 2005-11-06 devnull 		wcurrent(w);
273 e830a908 2005-11-06 devnull 	flushimage(display, 1);
274 e830a908 2005-11-06 devnull 	wsetpid(w, pid, 1);
275 e830a908 2005-11-06 devnull 	wsetname(w);
276 e830a908 2005-11-06 devnull 	if(dir)
277 e830a908 2005-11-06 devnull 		w->dir = estrdup(dir);
278 e830a908 2005-11-06 devnull 	return w;
279 e830a908 2005-11-06 devnull }
280 e830a908 2005-11-06 devnull 
281 e830a908 2005-11-06 devnull /*
282 e830a908 2005-11-06 devnull  * Button 2 menu.  Extra entry for always cook
283 e830a908 2005-11-06 devnull  */
284 e830a908 2005-11-06 devnull 
285 e830a908 2005-11-06 devnull enum
286 e830a908 2005-11-06 devnull {
287 e830a908 2005-11-06 devnull 	Cut,
288 e830a908 2005-11-06 devnull 	Paste,
289 e830a908 2005-11-06 devnull 	Snarf,
290 e830a908 2005-11-06 devnull 	Plumb,
291 a4e59b37 2020-01-07 crossd 	Look,
292 e830a908 2005-11-06 devnull 	Send,
293 210d461c 2011-10-12 rsc 	Scroll,
294 cbeb0b26 2006-04-01 devnull 	Cook
295 e830a908 2005-11-06 devnull };
296 e830a908 2005-11-06 devnull 
297 e830a908 2005-11-06 devnull char		*menu2str[] = {
298 e830a908 2005-11-06 devnull 	"cut",
299 e830a908 2005-11-06 devnull 	"paste",
300 e830a908 2005-11-06 devnull 	"snarf",
301 e830a908 2005-11-06 devnull 	"plumb",
302 a4e59b37 2020-01-07 crossd 	"look",
303 e830a908 2005-11-06 devnull 	"send",
304 e830a908 2005-11-06 devnull 	"cook",
305 210d461c 2011-10-12 rsc 	"scroll",
306 e830a908 2005-11-06 devnull 	nil
307 e830a908 2005-11-06 devnull };
308 e830a908 2005-11-06 devnull 
309 e830a908 2005-11-06 devnull 
310 e830a908 2005-11-06 devnull Menu menu2 =
311 e830a908 2005-11-06 devnull {
312 e830a908 2005-11-06 devnull 	menu2str
313 e830a908 2005-11-06 devnull };
314 e830a908 2005-11-06 devnull 
315 e830a908 2005-11-06 devnull Rune newline[] = { '\n' };
316 e830a908 2005-11-06 devnull 
317 e830a908 2005-11-06 devnull void
318 e830a908 2005-11-06 devnull button2menu(Window *w)
319 e830a908 2005-11-06 devnull {
320 e830a908 2005-11-06 devnull 	if(w->deleted)
321 e830a908 2005-11-06 devnull 		return;
322 e830a908 2005-11-06 devnull 	incref(&w->ref);
323 210d461c 2011-10-12 rsc 	if(w->scrolling)
324 210d461c 2011-10-12 rsc 		menu2str[Scroll] = "noscroll";
325 210d461c 2011-10-12 rsc 	else
326 210d461c 2011-10-12 rsc 		menu2str[Scroll] = "scroll";
327 e830a908 2005-11-06 devnull 	if(cooked)
328 e830a908 2005-11-06 devnull 		menu2str[Cook] = "nocook";
329 e830a908 2005-11-06 devnull 	else
330 e830a908 2005-11-06 devnull 		menu2str[Cook] = "cook";
331 e830a908 2005-11-06 devnull 
332 e830a908 2005-11-06 devnull 	switch(menuhit(2, mousectl, &menu2, wscreen)){
333 e830a908 2005-11-06 devnull 	case Cut:
334 e830a908 2005-11-06 devnull 		wsnarf(w);
335 e830a908 2005-11-06 devnull 		wcut(w);
336 e830a908 2005-11-06 devnull 		wscrdraw(w);
337 e830a908 2005-11-06 devnull 		break;
338 e830a908 2005-11-06 devnull 
339 e830a908 2005-11-06 devnull 	case Snarf:
340 e830a908 2005-11-06 devnull 		wsnarf(w);
341 e830a908 2005-11-06 devnull 		break;
342 e830a908 2005-11-06 devnull 
343 e830a908 2005-11-06 devnull 	case Paste:
344 3fd51250 2005-11-07 devnull 		riogetsnarf();
345 e830a908 2005-11-06 devnull 		wpaste(w);
346 e830a908 2005-11-06 devnull 		wscrdraw(w);
347 e830a908 2005-11-06 devnull 		break;
348 e830a908 2005-11-06 devnull 
349 e830a908 2005-11-06 devnull 	case Plumb:
350 e830a908 2005-11-06 devnull 		wplumb(w);
351 a4e59b37 2020-01-07 crossd 		break;
352 a4e59b37 2020-01-07 crossd 
353 a4e59b37 2020-01-07 crossd 	case Look:
354 a4e59b37 2020-01-07 crossd 		wlook(w);
355 e830a908 2005-11-06 devnull 		break;
356 e830a908 2005-11-06 devnull 
357 e830a908 2005-11-06 devnull 	case Send:
358 3fd51250 2005-11-07 devnull 		riogetsnarf();
359 e830a908 2005-11-06 devnull 		wsnarf(w);
360 e830a908 2005-11-06 devnull 		if(nsnarf == 0)
361 e830a908 2005-11-06 devnull 			break;
362 e830a908 2005-11-06 devnull 		if(w->rawing){
363 e830a908 2005-11-06 devnull 			waddraw(w, snarf, nsnarf);
364 e830a908 2005-11-06 devnull 			if(snarf[nsnarf-1]!='\n' && snarf[nsnarf-1]!='\004')
365 e830a908 2005-11-06 devnull 				waddraw(w, newline, 1);
366 e830a908 2005-11-06 devnull 		}else{
367 e830a908 2005-11-06 devnull 			winsert(w, snarf, nsnarf, w->nr);
368 e830a908 2005-11-06 devnull 			if(snarf[nsnarf-1]!='\n' && snarf[nsnarf-1]!='\004')
369 e830a908 2005-11-06 devnull 				winsert(w, newline, 1, w->nr);
370 e830a908 2005-11-06 devnull 		}
371 e830a908 2005-11-06 devnull 		wsetselect(w, w->nr, w->nr);
372 e830a908 2005-11-06 devnull 		wshow(w, w->nr);
373 e830a908 2005-11-06 devnull 		break;
374 210d461c 2011-10-12 rsc 
375 210d461c 2011-10-12 rsc 	case Scroll:
376 210d461c 2011-10-12 rsc 		if(w->scrolling ^= 1)
377 210d461c 2011-10-12 rsc 			wshow(w, w->nr);
378 210d461c 2011-10-12 rsc 		break;
379 e830a908 2005-11-06 devnull 	case Cook:
380 e830a908 2005-11-06 devnull 		cooked ^= 1;
381 e830a908 2005-11-06 devnull 		break;
382 e830a908 2005-11-06 devnull 	}
383 e830a908 2005-11-06 devnull 	wclose(w);
384 e830a908 2005-11-06 devnull 	wsendctlmesg(w, Wakeup, ZR, nil);
385 e830a908 2005-11-06 devnull 	flushimage(display, 1);
386 e830a908 2005-11-06 devnull }
387 e830a908 2005-11-06 devnull 
388 e830a908 2005-11-06 devnull int
389 e830a908 2005-11-06 devnull rawon(void)
390 e830a908 2005-11-06 devnull {
391 e830a908 2005-11-06 devnull 	return !cooked && !isecho(sfd);
392 e830a908 2005-11-06 devnull }
393 e830a908 2005-11-06 devnull 
394 e830a908 2005-11-06 devnull /*
395 e830a908 2005-11-06 devnull  * I/O with child rc.
396 e830a908 2005-11-06 devnull  */
397 e830a908 2005-11-06 devnull 
398 e830a908 2005-11-06 devnull int label(Rune*, int);
399 e830a908 2005-11-06 devnull 
400 e830a908 2005-11-06 devnull void
401 e830a908 2005-11-06 devnull rcoutputproc(void *arg)
402 e830a908 2005-11-06 devnull {
403 e830a908 2005-11-06 devnull 	int i, cnt, n, nb, nr;
404 e830a908 2005-11-06 devnull 	static char data[9000];
405 e830a908 2005-11-06 devnull 	Conswritemesg cwm;
406 e830a908 2005-11-06 devnull 	Rune *r;
407 e830a908 2005-11-06 devnull 	Stringpair pair;
408 fa325e9b 2020-01-10 cross 
409 e830a908 2005-11-06 devnull 	i = 0;
410 e830a908 2005-11-06 devnull 	cnt = 0;
411 e830a908 2005-11-06 devnull 	for(;;){
412 e830a908 2005-11-06 devnull 		/* XXX Let typing have a go -- maybe there's a rubout waiting. */
413 e830a908 2005-11-06 devnull 		i = 1-i;
414 e830a908 2005-11-06 devnull 		n = read(rcfd, data+cnt, sizeof data-cnt);
415 e830a908 2005-11-06 devnull 		if(n <= 0){
416 e830a908 2005-11-06 devnull 			if(n < 0)
417 e830a908 2005-11-06 devnull 				fprint(2, "9term: rc read error: %r\n");
418 e830a908 2005-11-06 devnull 			threadexitsall("eof on rc output");
419 e830a908 2005-11-06 devnull 		}
420 ef5c6a6e 2010-09-03 rsc 		n = echocancel(data+cnt, n);
421 ef5c6a6e 2010-09-03 rsc 		if(n == 0)
422 ef5c6a6e 2010-09-03 rsc 			continue;
423 e830a908 2005-11-06 devnull 		cnt += n;
424 e830a908 2005-11-06 devnull 		r = runemalloc(cnt);
425 e830a908 2005-11-06 devnull 		cvttorunes(data, cnt-UTFmax, r, &nb, &nr, nil);
426 e830a908 2005-11-06 devnull 		/* approach end of buffer */
427 e830a908 2005-11-06 devnull 		while(fullrune(data+nb, cnt-nb)){
428 e830a908 2005-11-06 devnull 			nb += chartorune(&r[nr], data+nb);
429 e830a908 2005-11-06 devnull 			if(r[nr])
430 e830a908 2005-11-06 devnull 				nr++;
431 e830a908 2005-11-06 devnull 		}
432 e830a908 2005-11-06 devnull 		if(nb < cnt)
433 e830a908 2005-11-06 devnull 			memmove(data, data+nb, cnt-nb);
434 e830a908 2005-11-06 devnull 		cnt -= nb;
435 fa325e9b 2020-01-10 cross 
436 e830a908 2005-11-06 devnull 		nr = label(r, nr);
437 e830a908 2005-11-06 devnull 		if(nr == 0)
438 e830a908 2005-11-06 devnull 			continue;
439 fa325e9b 2020-01-10 cross 
440 e830a908 2005-11-06 devnull 		recv(w->conswrite, &cwm);
441 e830a908 2005-11-06 devnull 		pair.s = r;
442 e830a908 2005-11-06 devnull 		pair.ns = nr;
443 e830a908 2005-11-06 devnull 		send(cwm.cw, &pair);
444 e830a908 2005-11-06 devnull 	}
445 10ab06a7 2005-11-06 devnull }
446 10ab06a7 2005-11-06 devnull 
447 10ab06a7 2005-11-06 devnull void
448 10ab06a7 2005-11-06 devnull winterrupt(Window *w)
449 10ab06a7 2005-11-06 devnull {
450 10ab06a7 2005-11-06 devnull 	char rubout[1];
451 fa325e9b 2020-01-10 cross 
452 10ab06a7 2005-11-06 devnull 	USED(w);
453 10ab06a7 2005-11-06 devnull 	rubout[0] = getintr(sfd);
454 10ab06a7 2005-11-06 devnull 	write(rcfd, rubout, 1);
455 e830a908 2005-11-06 devnull }
456 e830a908 2005-11-06 devnull 
457 be7485e1 2017-01-09 rsc int
458 c819ee64 2017-01-09 rsc intrc(void)
459 c819ee64 2017-01-09 rsc {
460 be7485e1 2017-01-09 rsc 	return getintr(sfd);
461 be7485e1 2017-01-09 rsc }
462 be7485e1 2017-01-09 rsc 
463 e830a908 2005-11-06 devnull /*
464 e830a908 2005-11-06 devnull  * Process in-band messages about window title changes.
465 e830a908 2005-11-06 devnull  * The messages are of the form:
466 e830a908 2005-11-06 devnull  *
467 e830a908 2005-11-06 devnull  *	\033];xxx\007
468 e830a908 2005-11-06 devnull  *
469 e830a908 2005-11-06 devnull  * where xxx is the new directory.  This format was chosen
470 e830a908 2005-11-06 devnull  * because it changes the label on xterm windows.
471 e830a908 2005-11-06 devnull  */
472 e830a908 2005-11-06 devnull int
473 e830a908 2005-11-06 devnull label(Rune *sr, int n)
474 e830a908 2005-11-06 devnull {
475 e830a908 2005-11-06 devnull 	Rune *sl, *el, *er, *r;
476 e830a908 2005-11-06 devnull 	char *p, *dir;
477 fa325e9b 2020-01-10 cross 
478 e830a908 2005-11-06 devnull 	er = sr+n;
479 e830a908 2005-11-06 devnull 	for(r=er-1; r>=sr; r--)
480 e830a908 2005-11-06 devnull 		if(*r == '\007')
481 e830a908 2005-11-06 devnull 			break;
482 e830a908 2005-11-06 devnull 	if(r < sr)
483 e830a908 2005-11-06 devnull 		return n;
484 e830a908 2005-11-06 devnull 
485 e830a908 2005-11-06 devnull 	el = r+1;
486 e830a908 2005-11-06 devnull 	for(sl=el-3; sl>=sr; sl--)
487 e830a908 2005-11-06 devnull 		if(sl[0]=='\033' && sl[1]==']' && sl[2]==';')
488 e830a908 2005-11-06 devnull 			break;
489 e830a908 2005-11-06 devnull 	if(sl < sr)
490 e830a908 2005-11-06 devnull 		return n;
491 e830a908 2005-11-06 devnull 
492 e830a908 2005-11-06 devnull 	dir = smprint("%.*S", (el-1)-(sl+3), sl+3);
493 e830a908 2005-11-06 devnull 	if(dir){
494 0e881c05 2011-10-11 rsc 		if(strcmp(dir, "*9term-hold+") == 0) {
495 0e881c05 2011-10-11 rsc 			w->holding = 1;
496 0e881c05 2011-10-11 rsc 			wrepaint(w);
497 f1825251 2011-10-13 rsc 			flushimage(display, 1);
498 0e881c05 2011-10-11 rsc 		} else {
499 0e881c05 2011-10-11 rsc 			drawsetlabel(dir);
500 0e881c05 2011-10-11 rsc 			free(w->dir);
501 0e881c05 2011-10-11 rsc 			w->dir = dir;
502 0e881c05 2011-10-11 rsc 		}
503 e830a908 2005-11-06 devnull 	}
504 e830a908 2005-11-06 devnull 
505 e830a908 2005-11-06 devnull 	/* remove trailing /-sysname if present */
506 e830a908 2005-11-06 devnull 	p = strrchr(dir, '/');
507 e830a908 2005-11-06 devnull 	if(p && *(p+1) == '-'){
508 e830a908 2005-11-06 devnull 		if(p == dir)
509 e830a908 2005-11-06 devnull 			p++;
510 e830a908 2005-11-06 devnull 		*p = 0;
511 e830a908 2005-11-06 devnull 	}
512 e830a908 2005-11-06 devnull 
513 e830a908 2005-11-06 devnull 	runemove(sl, el, er-el);
514 e830a908 2005-11-06 devnull 	n -= (el-sl);
515 e830a908 2005-11-06 devnull 	return n;
516 e830a908 2005-11-06 devnull }
517 e830a908 2005-11-06 devnull 
518 e830a908 2005-11-06 devnull void
519 e830a908 2005-11-06 devnull rcinputproc(void *arg)
520 e830a908 2005-11-06 devnull {
521 e830a908 2005-11-06 devnull 	static char data[9000];
522 e830a908 2005-11-06 devnull 	Consreadmesg crm;
523 e830a908 2005-11-06 devnull 	Channel *c1, *c2;
524 e830a908 2005-11-06 devnull 	Stringpair pair;
525 e830a908 2005-11-06 devnull 
526 e830a908 2005-11-06 devnull 	for(;;){
527 e830a908 2005-11-06 devnull 		recv(w->consread, &crm);
528 e830a908 2005-11-06 devnull 		c1 = crm.c1;
529 e830a908 2005-11-06 devnull 		c2 = crm.c2;
530 fa325e9b 2020-01-10 cross 
531 e830a908 2005-11-06 devnull 		pair.s = data;
532 e830a908 2005-11-06 devnull 		pair.ns = sizeof data;
533 e830a908 2005-11-06 devnull 		send(c1, &pair);
534 e830a908 2005-11-06 devnull 		recv(c2, &pair);
535 ef5c6a6e 2010-09-03 rsc 
536 ef5c6a6e 2010-09-03 rsc 		if(isecho(sfd))
537 ef5c6a6e 2010-09-03 rsc 			echoed(pair.s, pair.ns);
538 e830a908 2005-11-06 devnull 		if(write(rcfd, pair.s, pair.ns) < 0)
539 e830a908 2005-11-06 devnull 			threadexitsall(nil);
540 3fd51250 2005-11-07 devnull 	}
541 3fd51250 2005-11-07 devnull }
542 3fd51250 2005-11-07 devnull 
543 c935adc6 2005-11-10 devnull /*
544 c935adc6 2005-11-10 devnull  * Snarf buffer - rio uses runes internally
545 c935adc6 2005-11-10 devnull  */
546 3fd51250 2005-11-07 devnull void
547 3fd51250 2005-11-07 devnull rioputsnarf(void)
548 3fd51250 2005-11-07 devnull {
549 3fd51250 2005-11-07 devnull 	char *s;
550 fa325e9b 2020-01-10 cross 
551 3fd51250 2005-11-07 devnull 	s = smprint("%.*S", nsnarf, snarf);
552 3fd51250 2005-11-07 devnull 	if(s){
553 3fd51250 2005-11-07 devnull 		putsnarf(s);
554 3fd51250 2005-11-07 devnull 		free(s);
555 e830a908 2005-11-06 devnull 	}
556 e830a908 2005-11-06 devnull }
557 e830a908 2005-11-06 devnull 
558 3fd51250 2005-11-07 devnull void
559 3fd51250 2005-11-07 devnull riogetsnarf(void)
560 3fd51250 2005-11-07 devnull {
561 3fd51250 2005-11-07 devnull 	char *s;
562 3fd51250 2005-11-07 devnull 	int n, nb, nulls;
563 3fd51250 2005-11-07 devnull 
564 3fd51250 2005-11-07 devnull 	s = getsnarf();
565 3fd51250 2005-11-07 devnull 	if(s == nil)
566 3fd51250 2005-11-07 devnull 		return;
567 3fd51250 2005-11-07 devnull 	n = strlen(s)+1;
568 3fd51250 2005-11-07 devnull 	free(snarf);
569 3fd51250 2005-11-07 devnull 	snarf = runemalloc(n);
570 3fd51250 2005-11-07 devnull 	cvttorunes(s, n, snarf, &nb, &nsnarf, &nulls);
571 3fd51250 2005-11-07 devnull 	free(s);
572 3fd51250 2005-11-07 devnull }
573 c935adc6 2005-11-10 devnull 
574 c935adc6 2005-11-10 devnull /*
575 c935adc6 2005-11-10 devnull  * Clumsy hack to make " and "" work.
576 c935adc6 2005-11-10 devnull  * Then again, what's not a clumsy hack here in Unix land?
577 c935adc6 2005-11-10 devnull  */
578 c935adc6 2005-11-10 devnull 
579 c935adc6 2005-11-10 devnull char adir[100];
580 c935adc6 2005-11-10 devnull char thesocket[100];
581 c935adc6 2005-11-10 devnull int afd;
582 c935adc6 2005-11-10 devnull 
583 c935adc6 2005-11-10 devnull void listenproc(void*);
584 c935adc6 2005-11-10 devnull void textproc(void*);
585 c935adc6 2005-11-10 devnull 
586 c935adc6 2005-11-10 devnull void
587 c935adc6 2005-11-10 devnull removethesocket(void)
588 c935adc6 2005-11-10 devnull {
589 c935adc6 2005-11-10 devnull 	if(thesocket[0])
590 c935adc6 2005-11-10 devnull 		if(remove(thesocket) < 0)
591 c935adc6 2005-11-10 devnull 			fprint(2, "remove %s: %r\n", thesocket);
592 c935adc6 2005-11-10 devnull }
593 c935adc6 2005-11-10 devnull 
594 c935adc6 2005-11-10 devnull void
595 c935adc6 2005-11-10 devnull servedevtext(void)
596 c935adc6 2005-11-10 devnull {
597 c935adc6 2005-11-10 devnull 	char buf[100];
598 c935adc6 2005-11-10 devnull 
599 c935adc6 2005-11-10 devnull 	snprint(buf, sizeof buf, "unix!/tmp/9term-text.%d", getpid());
600 c935adc6 2005-11-10 devnull 
601 c935adc6 2005-11-10 devnull 	if((afd = announce(buf, adir)) < 0){
602 c935adc6 2005-11-10 devnull 		putenv("text9term", "");
603 c935adc6 2005-11-10 devnull 		return;
604 c935adc6 2005-11-10 devnull 	}
605 c935adc6 2005-11-10 devnull 
606 c935adc6 2005-11-10 devnull 	putenv("text9term", buf);
607 c935adc6 2005-11-10 devnull 	proccreate(listenproc, nil, STACK);
608 c935adc6 2005-11-10 devnull 	strcpy(thesocket, buf+5);
609 c935adc6 2005-11-10 devnull 	atexit(removethesocket);
610 c935adc6 2005-11-10 devnull }
611 c935adc6 2005-11-10 devnull 
612 c935adc6 2005-11-10 devnull void
613 c935adc6 2005-11-10 devnull listenproc(void *arg)
614 c935adc6 2005-11-10 devnull {
615 c935adc6 2005-11-10 devnull 	int fd;
616 c935adc6 2005-11-10 devnull 	char dir[100];
617 c935adc6 2005-11-10 devnull 
618 bcc96c1d 2005-11-11 devnull 	threadsetname("listen %s", thesocket);
619 c935adc6 2005-11-10 devnull 	USED(arg);
620 c935adc6 2005-11-10 devnull 	for(;;){
621 c935adc6 2005-11-10 devnull 		fd = listen(adir, dir);
622 c935adc6 2005-11-10 devnull 		if(fd < 0){
623 c935adc6 2005-11-10 devnull 			close(afd);
624 c935adc6 2005-11-10 devnull 			return;
625 c935adc6 2005-11-10 devnull 		}
626 e58459c7 2005-12-29 devnull 		proccreate(textproc, (void*)(uintptr)fd, STACK);
627 c935adc6 2005-11-10 devnull 	}
628 c935adc6 2005-11-10 devnull }
629 c935adc6 2005-11-10 devnull 
630 c935adc6 2005-11-10 devnull void
631 c935adc6 2005-11-10 devnull textproc(void *arg)
632 c935adc6 2005-11-10 devnull {
633 c935adc6 2005-11-10 devnull 	int fd, i, x, n, end;
634 c935adc6 2005-11-10 devnull 	Rune r;
635 c935adc6 2005-11-10 devnull 	char buf[4096], *p, *ep;
636 c935adc6 2005-11-10 devnull 
637 bcc96c1d 2005-11-11 devnull 	threadsetname("textproc");
638 e58459c7 2005-12-29 devnull 	fd = (uintptr)arg;
639 c935adc6 2005-11-10 devnull 	p = buf;
640 c935adc6 2005-11-10 devnull 	ep = buf+sizeof buf;
641 c21d0ab4 2005-11-11 devnull 	if(w == nil){
642 c21d0ab4 2005-11-11 devnull 		close(fd);
643 c21d0ab4 2005-11-11 devnull 		return;
644 c21d0ab4 2005-11-11 devnull 	}
645 c935adc6 2005-11-10 devnull 	end = w->org+w->nr;	/* avoid possible output loop */
646 c935adc6 2005-11-10 devnull 	for(i=w->org;; i++){
647 c935adc6 2005-11-10 devnull 		if(i >= end || ep-p < UTFmax){
648 c935adc6 2005-11-10 devnull 			for(x=0; x<p-buf; x+=n)
649 c935adc6 2005-11-10 devnull 				if((n = write(fd, buf+x, (p-x)-buf)) <= 0)
650 c935adc6 2005-11-10 devnull 					goto break2;
651 fa325e9b 2020-01-10 cross 
652 c935adc6 2005-11-10 devnull 			if(i >= end)
653 c935adc6 2005-11-10 devnull 				break;
654 c935adc6 2005-11-10 devnull 			p = buf;
655 c935adc6 2005-11-10 devnull 		}
656 c935adc6 2005-11-10 devnull 		if(i < w->org)
657 c935adc6 2005-11-10 devnull 			i = w->org;
658 c935adc6 2005-11-10 devnull 		r = w->r[i-w->org];
659 c935adc6 2005-11-10 devnull 		if(r < Runeself)
660 c935adc6 2005-11-10 devnull 			*p++ = r;
661 c935adc6 2005-11-10 devnull 		else
662 c935adc6 2005-11-10 devnull 			p += runetochar(p, &r);
663 c935adc6 2005-11-10 devnull 	}
664 c935adc6 2005-11-10 devnull break2:
665 c935adc6 2005-11-10 devnull 	close(fd);
666 c935adc6 2005-11-10 devnull }