36 EXPORT	void	vexec		__PR((ewin_t *wp));
37 EXPORT	void	vtexec		__PR((ewin_t *wp));
38 EXPORT	void	vsexec		__PR((ewin_t *wp));
39 LOCAL	void	execcmd		__PR((ewin_t *wp, Uchar(*)(ewin_t *wp)));
40 LOCAL	void	doexec		__PR((ewin_t *wp, FILE *f));
41 LOCAL	void	execute		__PR((ewin_t *wp));
42 EXPORT	int	spawncmd	__PR((ewin_t *wp, char *name, char *arg));
44 LOCAL	Uchar	exbufgetc	__PR((ewin_t *wp));
45 LOCAL	Uchar	extakegetc	__PR((ewin_t *wp));
51 vexec(wp)  in vexec()  argument
52 	ewin_t	*wp;  in vexec()
56 	if (! (exblen = getcmdline(wp, cmdline, sizeof (cmdline), "Execute: ")))
59 	execcmd(wp, exbufgetc);
60 	macro_reinit(wp);
67 vtexec(wp)  in vtexec()  argument
68 	ewin_t	*wp;  in vtexec()
76 	execcmd(wp, extakegetc);
83 vsexec(wp)  in vsexec()  argument
84 	ewin_t	*wp;  in vsexec()
87 	epos_t	begin = min(wp->dot, wp->mark);
88 	epos_t	end   = max(wp->dot, wp->mark);
90 	if (! wp->markvalid) {
91 		nomarkmsg(wp);
97 		execcmd(wp, exbufgetc);
107 execcmd(wp, nextc)  in execcmd()  argument
108 	ewin_t	*wp;  in execcmd()
109 	Uchar (*nextc) __PR((ewin_t *wp));
117 	if ((f = opensyserr(wp, execname, "ctwb")) == NULL)
121 	for (;;) switch (c = (*nextc)(wp)) {
127 		if ((c = (*nextc)(wp)) != '\\') {
130 				c = (*nextc)(wp);
133 			if (!(tfpath = findtake(wp, tbuf)))
151 		doexec(wp, f);
157 doexec(wp, f)  in doexec()  argument
158 	ewin_t	*wp;  in doexec()
165 	if (!wp->modflg && !mflag) {
171 		execute(wp);
172 		vredisp(wp);
175 	if (wp->modflg)
176 		writeerr(wp, "FILE MODIFIED!");
178 	switch (c = getcmdchar(wp, NULL, "EXECUTING. PUT EDITS?(Y/W/N/F/!) ")) {
181 		abortmsg(wp);
187 		if (!writebuf(wp, c == '!'))
194 		if (!bakbuf(wp, c == 'f' || c == 'F'))
197 		execute(wp);
198 		fchange(wp, wp->curfile);
199 		newwindow(wp);
203 		execute(wp);
204 		vredisp(wp);
214 execute(wp)  in execute()  argument
215 	ewin_t	*wp;  in execute()
219 	backuptake(wp);
221 		spawncmd(wp, DEFSHELL, C execname);
223 		spawncmd(wp, sh, C execname);
224 	loadtake(wp);
225 	wait_for_confirm(wp);
233 spawncmd(wp, name, arg)  in spawncmd()  argument
234 	ewin_t	*wp;  in spawncmd()
252 	rsttmodes(wp);
271 	settmodes(wp);
274 	writeerr(wp, "Fork/exec not available");
299 exbufgetc(wp)  in exbufgetc()  argument
300 	ewin_t	*wp;  in exbufgetc()
305 		amt = extract(wp, exbpos, exbase, (int)min(exblen, XBUFSIZE));
320 extakegetc(wp)  in extakegetc()  argument
321 	ewin_t	*wp;  in extakegetc()
327 		amt = readsyserr(wp, takefile, exbase, (int)min(exblen, XBUFSIZE), UC TAKEBUF);