1 /* $NetBSD: ex_shell.c,v 1.3 2014/01/26 21:43:45 christos Exp $ */
2 /*-
3 * Copyright (c) 1992, 1993, 1994
4 * The Regents of the University of California. All rights reserved.
5 * Copyright (c) 1992, 1993, 1994, 1995, 1996
6 * Keith Bostic. All rights reserved.
7 *
8 * See the LICENSE file for redistribution information.
9 */
10
11 #include "config.h"
12
13 #include <sys/cdefs.h>
14 #if 0
15 #ifndef lint
16 static const char sccsid[] = "Id: ex_shell.c,v 10.42 2003/11/05 17:11:54 skimo Exp (Berkeley) Date: 2003/11/05 17:11:54 ";
17 #endif /* not lint */
18 #else
19 __RCSID("$NetBSD: ex_shell.c,v 1.3 2014/01/26 21:43:45 christos Exp $");
20 #endif
21
22 #include <sys/param.h>
23 #include <sys/queue.h>
24 #include <sys/wait.h>
25
26 #include <bitstring.h>
27 #include <ctype.h>
28 #include <errno.h>
29 #include <limits.h>
30 #include <signal.h>
31 #include <stdio.h>
32 #include <stdlib.h>
33 #include <string.h>
34 #include <unistd.h>
35
36 #include "../common/common.h"
37
38 static const char *sigmsg __P((int));
39
40 /*
41 * ex_shell -- :sh[ell]
42 * Invoke the program named in the SHELL environment variable
43 * with the argument -i.
44 *
45 * PUBLIC: int ex_shell __P((SCR *, EXCMD *));
46 */
47 int
ex_shell(SCR * sp,EXCMD * cmdp)48 ex_shell(SCR *sp, EXCMD *cmdp)
49 {
50 int rval;
51 char buf[MAXPATHLEN];
52
53 /* We'll need a shell. */
54 if (opts_empty(sp, O_SHELL, 0))
55 return (1);
56
57 /*
58 * XXX
59 * Assumes all shells use -i.
60 */
61 (void)snprintf(buf, sizeof(buf), "%s -i", O_STR(sp, O_SHELL));
62
63 /* Restore the window name. */
64 (void)sp->gp->scr_rename(sp, NULL, 0);
65
66 /* If we're still in a vi screen, move out explicitly. */
67 rval = ex_exec_proc(sp, cmdp, buf, NULL, !F_ISSET(sp, SC_SCR_EXWROTE));
68
69 /* Set the window name. */
70 (void)sp->gp->scr_rename(sp, sp->frp->name, 1);
71
72 /*
73 * !!!
74 * Historically, vi didn't require a continue message after the
75 * return of the shell. Match it.
76 */
77 F_SET(sp, SC_EX_WAIT_NO);
78
79 return (rval);
80 }
81
82 /*
83 * ex_exec_proc --
84 * Run a separate process.
85 *
86 * PUBLIC: int ex_exec_proc __P((SCR *, EXCMD *, const char *, const char *, int));
87 */
88 int
ex_exec_proc(SCR * sp,EXCMD * cmdp,const char * cmd,const char * msg,int need_newline)89 ex_exec_proc(SCR *sp, EXCMD *cmdp, const char *cmd, const char *msg, int need_newline)
90 {
91 GS *gp;
92 const char *name;
93 pid_t pid;
94
95 gp = sp->gp;
96
97 /* We'll need a shell. */
98 if (opts_empty(sp, O_SHELL, 0))
99 return (1);
100
101 /* Enter ex mode. */
102 if (F_ISSET(sp, SC_VI)) {
103 if (gp->scr_screen(sp, SC_EX)) {
104 ex_wemsg(sp, cmdp->cmd->name, EXM_NOCANON);
105 return (1);
106 }
107 (void)gp->scr_attr(sp, SA_ALTERNATE, 0);
108 F_SET(sp, SC_SCR_EX | SC_SCR_EXWROTE);
109 }
110
111 /* Put out additional newline, message. */
112 if (need_newline)
113 (void)ex_puts(sp, "\n");
114 if (msg != NULL) {
115 (void)ex_puts(sp, msg);
116 (void)ex_puts(sp, "\n");
117 }
118 (void)ex_fflush(sp);
119
120 switch (pid = vfork()) {
121 case -1: /* Error. */
122 msgq(sp, M_SYSERR, "vfork");
123 return (1);
124 case 0: /* Utility. */
125 if (gp->scr_child)
126 gp->scr_child(sp);
127 if ((name = strrchr(O_STR(sp, O_SHELL), '/')) == NULL)
128 name = O_STR(sp, O_SHELL);
129 else
130 ++name;
131 execl(O_STR(sp, O_SHELL), name, "-c", cmd, (char *)NULL);
132 msgq_str(sp, M_SYSERR, O_STR(sp, O_SHELL), "execl: %s");
133 _exit(127);
134 /* NOTREACHED */
135 default: /* Parent. */
136 return (proc_wait(sp, (long)pid, cmd, 0, 0));
137 }
138 /* NOTREACHED */
139 }
140
141 /*
142 * proc_wait --
143 * Wait for one of the processes.
144 *
145 * !!!
146 * The pid_t type varies in size from a short to a long depending on the
147 * system. It has to be cast into something or the standard promotion
148 * rules get you. I'm using a long based on the belief that nobody is
149 * going to make it unsigned and it's unlikely to be a quad.
150 *
151 * PUBLIC: int proc_wait __P((SCR *, long, const char *, int, int));
152 */
153 int
proc_wait(SCR * sp,long int pid,const char * cmd,int silent,int okpipe)154 proc_wait(SCR *sp, long int pid, const char *cmd, int silent, int okpipe)
155 {
156 size_t len;
157 int nf, pstat;
158 char *p;
159
160 /* Wait for the utility, ignoring interruptions. */
161 for (;;) {
162 errno = 0;
163 if (waitpid((pid_t)pid, &pstat, 0) != -1)
164 break;
165 if (errno != EINTR) {
166 msgq(sp, M_SYSERR, "waitpid");
167 return (1);
168 }
169 }
170
171 /*
172 * Display the utility's exit status. Ignore SIGPIPE from the
173 * parent-writer, as that only means that the utility chose to
174 * exit before reading all of its input.
175 */
176 if (WIFSIGNALED(pstat) && (!okpipe || WTERMSIG(pstat) != SIGPIPE)) {
177 for (; isblank((unsigned char)*cmd); ++cmd);
178 p = msg_print(sp, cmd, &nf);
179 len = strlen(p);
180 msgq(sp, M_ERR, "%.*s%s: received signal: %s%s",
181 (int)MIN(len, 20), p, len > 20 ? " ..." : "",
182 sigmsg(WTERMSIG(pstat)),
183 WCOREDUMP(pstat) ? "; core dumped" : "");
184 if (nf)
185 FREE_SPACE(sp, p, 0);
186 return (1);
187 }
188
189 if (WIFEXITED(pstat) && WEXITSTATUS(pstat)) {
190 /*
191 * Remain silent for "normal" errors when doing shell file
192 * name expansions, they almost certainly indicate nothing
193 * more than a failure to match.
194 *
195 * Remain silent for vi read filter errors. It's historic
196 * practice.
197 */
198 if (!silent) {
199 for (; isblank((unsigned char)*cmd); ++cmd);
200 p = msg_print(sp, cmd, &nf);
201 len = strlen(p);
202 msgq(sp, M_ERR, "%.*s%s: exited with status %d",
203 (int)MIN(len, 20), p, len > 20 ? " ..." : "",
204 WEXITSTATUS(pstat));
205 if (nf)
206 FREE_SPACE(sp, p, 0);
207 }
208 return (1);
209 }
210 return (0);
211 }
212
213 /*
214 * XXX
215 * The sys_siglist[] table in the C library has this information, but there's
216 * no portable way to get to it. (Believe me, I tried.)
217 */
218 typedef struct _sigs {
219 int number; /* signal number */
220 const char *message; /* related message */
221 } SIGS;
222
223 SIGS const sigs[] = {
224 #ifdef SIGABRT
225 { SIGABRT, "Abort trap" },
226 #endif
227 #ifdef SIGALRM
228 { SIGALRM, "Alarm clock" },
229 #endif
230 #ifdef SIGBUS
231 { SIGBUS, "Bus error" },
232 #endif
233 #ifdef SIGCLD
234 { SIGCLD, "Child exited or stopped" },
235 #endif
236 #ifdef SIGCHLD
237 { SIGCHLD, "Child exited" },
238 #endif
239 #ifdef SIGCONT
240 { SIGCONT, "Continued" },
241 #endif
242 #ifdef SIGDANGER
243 { SIGDANGER, "System crash imminent" },
244 #endif
245 #ifdef SIGEMT
246 { SIGEMT, "EMT trap" },
247 #endif
248 #ifdef SIGFPE
249 { SIGFPE, "Floating point exception" },
250 #endif
251 #ifdef SIGGRANT
252 { SIGGRANT, "HFT monitor mode granted" },
253 #endif
254 #ifdef SIGHUP
255 { SIGHUP, "Hangup" },
256 #endif
257 #ifdef SIGILL
258 { SIGILL, "Illegal instruction" },
259 #endif
260 #ifdef SIGINFO
261 { SIGINFO, "Information request" },
262 #endif
263 #ifdef SIGINT
264 { SIGINT, "Interrupt" },
265 #endif
266 #ifdef SIGIO
267 { SIGIO, "I/O possible" },
268 #endif
269 #ifdef SIGIOT
270 { SIGIOT, "IOT trap" },
271 #endif
272 #ifdef SIGKILL
273 { SIGKILL, "Killed" },
274 #endif
275 #ifdef SIGLOST
276 { SIGLOST, "Record lock" },
277 #endif
278 #ifdef SIGMIGRATE
279 { SIGMIGRATE, "Migrate process to another CPU" },
280 #endif
281 #ifdef SIGMSG
282 { SIGMSG, "HFT input data pending" },
283 #endif
284 #ifdef SIGPIPE
285 { SIGPIPE, "Broken pipe" },
286 #endif
287 #ifdef SIGPOLL
288 { SIGPOLL, "I/O possible" },
289 #endif
290 #ifdef SIGPRE
291 { SIGPRE, "Programming error" },
292 #endif
293 #ifdef SIGPROF
294 { SIGPROF, "Profiling timer expired" },
295 #endif
296 #ifdef SIGPWR
297 { SIGPWR, "Power failure imminent" },
298 #endif
299 #ifdef SIGRETRACT
300 { SIGRETRACT, "HFT monitor mode retracted" },
301 #endif
302 #ifdef SIGQUIT
303 { SIGQUIT, "Quit" },
304 #endif
305 #ifdef SIGSAK
306 { SIGSAK, "Secure Attention Key" },
307 #endif
308 #ifdef SIGSEGV
309 { SIGSEGV, "Segmentation fault" },
310 #endif
311 #ifdef SIGSOUND
312 { SIGSOUND, "HFT sound sequence completed" },
313 #endif
314 #ifdef SIGSTOP
315 { SIGSTOP, "Suspended (signal)" },
316 #endif
317 #ifdef SIGSYS
318 { SIGSYS, "Bad system call" },
319 #endif
320 #ifdef SIGTERM
321 { SIGTERM, "Terminated" },
322 #endif
323 #ifdef SIGTRAP
324 { SIGTRAP, "Trace/BPT trap" },
325 #endif
326 #ifdef SIGTSTP
327 { SIGTSTP, "Suspended" },
328 #endif
329 #ifdef SIGTTIN
330 { SIGTTIN, "Stopped (tty input)" },
331 #endif
332 #ifdef SIGTTOU
333 { SIGTTOU, "Stopped (tty output)" },
334 #endif
335 #ifdef SIGURG
336 { SIGURG, "Urgent I/O condition" },
337 #endif
338 #ifdef SIGUSR1
339 { SIGUSR1, "User defined signal 1" },
340 #endif
341 #ifdef SIGUSR2
342 { SIGUSR2, "User defined signal 2" },
343 #endif
344 #ifdef SIGVTALRM
345 { SIGVTALRM, "Virtual timer expired" },
346 #endif
347 #ifdef SIGWINCH
348 { SIGWINCH, "Window size changes" },
349 #endif
350 #ifdef SIGXCPU
351 { SIGXCPU, "Cputime limit exceeded" },
352 #endif
353 #ifdef SIGXFSZ
354 { SIGXFSZ, "Filesize limit exceeded" },
355 #endif
356 };
357
358 /*
359 * sigmsg --
360 * Return a pointer to a message describing a signal.
361 */
362 static const char *
sigmsg(int signo)363 sigmsg(int signo)
364 {
365 static char buf[40];
366 const SIGS *sigp;
367 size_t n;
368
369 for (n = 0,
370 sigp = &sigs[0]; n < sizeof(sigs) / sizeof(sigs[0]); ++n, ++sigp)
371 if (sigp->number == signo)
372 return (sigp->message);
373 (void)snprintf(buf, sizeof(buf), "Unknown signal: %d", signo);
374 return (buf);
375 }
376