1.0.45.22: non-racy RUN-PROGRAM :PTY on OpenBSD
[sbcl.git] / src / runtime / run-program.c
1 /*
2  * support for the Lisp function RUN-PROGRAM and friends
3  */
4
5 /*
6  * This software is part of the SBCL system. See the README file for
7  * more information.
8  *
9  * This software is derived from the CMU CL system, which was
10  * written at Carnegie Mellon University and released into the
11  * public domain. The software is in the public domain and is
12  * provided with absolutely no warranty. See the COPYING and CREDITS
13  * files for more information.
14  */
15
16 #include "sbcl.h"
17
18 #ifndef LISP_FEATURE_WIN32
19
20 #include <stdlib.h>
21 #include <sys/file.h>
22 #include <sys/types.h>
23 #include <signal.h>
24 #include <sys/stat.h>
25 #include <fcntl.h>
26 #include <sys/ioctl.h>
27 #include <unistd.h>
28
29 #include <sys/ioctl.h>
30 #include <termios.h>
31
32 #ifdef LISP_FEATURE_OPENBSD
33 /* FIXME: there has to be a better way to avoid ./util.h here */
34 #include </usr/include/util.h>
35 #endif
36
37 /* borrowed from detachtty's detachtty.c, in turn borrowed from APUE
38  * example code found at
39  * http://www.yendor.com/programming/unix/apue/pty/main.c
40
41 -brkint
42
43  */
44
45 int set_noecho(int fd)
46 {
47     struct termios  stermios;
48
49     if (tcgetattr(fd, &stermios) < 0) return 0;
50
51     stermios.c_lflag &= ~(  ECHO | /* ECHOE |  ECHOK | */  ECHONL);
52     stermios.c_oflag |= (ONLCR);
53     stermios.c_iflag &= ~(BRKINT);
54     stermios.c_iflag |= (ICANON|ICRNL);
55
56     stermios.c_cc[VERASE]=0177;
57     if (tcsetattr(fd, TCSANOW, &stermios) < 0) return 0;
58     return 1;
59 }
60
61 #if defined(LISP_FEATURE_OPENBSD)
62
63 int
64 set_pty(char *pty_name)
65 {
66     int fd;
67
68     if ((fd = open(pty_name, O_RDWR, 0)) == -1 ||
69         login_tty(fd) == -1)
70         return (0);
71     return (set_noecho(STDIN_FILENO));
72 }
73
74 #else /* !LISP_FEATURE_OPENBSD */
75
76 int
77 set_pty(char *pty_name)
78 {
79     int fd;
80
81 #if !defined(LISP_FEATURE_HPUX) && !defined(SVR4)
82     fd = open("/dev/tty", O_RDWR, 0);
83     if (fd >= 0) {
84         ioctl(fd, TIOCNOTTY, 0);
85         close(fd);
86     }
87 #endif
88     if ((fd = open(pty_name, O_RDWR, 0)) == -1)
89         return (-1);
90     dup2(fd, 0);
91     set_noecho(0);
92     dup2(fd, 1);
93     dup2(fd, 2);
94     close(fd);
95     return (0);
96 }
97
98 #endif /* !LISP_FEATURE_OPENBSD */
99
100 extern char **environ;
101 int spawn(char *program, char *argv[], int sin, int sout, int serr,
102           int search, char *envp[], char *pty_name, int wait)
103 {
104     int pid = fork();
105     int fd;
106     sigset_t sset;
107
108     if (pid != 0)
109         return pid;
110
111     /* Put us in our own process group, but only if we need not
112      * share stdin with our parent. In the latter case we claim
113      * control of the terminal. */
114     if (sin >= 0) {
115 #if defined(LISP_FEATURE_HPUX) || defined(LISP_FEATURE_OPENBSD)
116       setsid();
117 #elif defined(LISP_FEATURE_DARWIN)
118       setpgid(0, getpid());
119 #elif defined(SVR4) || defined(__linux__) || defined(__osf__)
120       setpgrp();
121 #else
122       setpgrp(0, getpid());
123 #endif
124     } else {
125       tcsetpgrp(0, getpgrp());
126     }
127
128     /* unblock signals */
129     sigemptyset(&sset);
130     sigprocmask(SIG_SETMASK, &sset, NULL);
131
132     /* If we are supposed to be part of some other pty, go for it. */
133     if (pty_name)
134         set_pty(pty_name);
135     else {
136     /* Set up stdin, stdout, and stderr */
137     if (sin >= 0)
138         dup2(sin, 0);
139     if (sout >= 0)
140         dup2(sout, 1);
141     if (serr >= 0)
142         dup2(serr, 2);
143     }
144     /* Close all other fds. */
145 #ifdef SVR4
146     for (fd = sysconf(_SC_OPEN_MAX)-1; fd >= 3; fd--)
147         close(fd);
148 #else
149     for (fd = getdtablesize()-1; fd >= 3; fd--)
150         close(fd);
151 #endif
152
153     environ = envp;
154     /* Exec the program. */
155     if (search)
156       execvp(program, argv);
157     else
158       execv(program, argv);
159
160     exit (1);
161 }
162 #else  /* !LISP_FEATURE_WIN32 */
163
164 #  include <windows.h>
165 #  include <process.h>
166 #  include <stdio.h>
167 #  include <stdlib.h>
168 #  include <fcntl.h>
169 #  include <io.h>
170
171 #define   READ_HANDLE  0
172 #define   WRITE_HANDLE 1
173
174 /* These functions do not attempt to deal with wchar_t variations. */
175
176 /* Get the value of _environ maintained by MSVCRT */
177 char **msvcrt_environ ( void ) {
178     return ( _environ );
179 }
180
181 /* Set up in, out, err pipes and spawn a program, waiting or otherwise. */
182 HANDLE spawn (
183     const char *program,
184     const char *const *argv,
185     int in,
186     int out,
187     int err,
188     int search,
189     char *envp,
190     char *ptyname,
191     int wait
192     )
193 {
194     int stdout_backup, stdin_backup, stderr_backup, wait_mode;
195     HANDLE hProcess;
196     HANDLE hReturn;
197
198     /* Duplicate and save the original stdin/out/err handles. */
199     stdout_backup = _dup (  _fileno ( stdout ) );
200     stdin_backup  = _dup (  _fileno ( stdin  ) );
201     stderr_backup = _dup (  _fileno ( stderr ) );
202
203     /* If we are not using stdin/out/err
204      * then duplicate the new pipes to current stdin/out/err handles.
205      *
206      * Default std fds are used if in, out or err parameters
207      * are -1. */
208
209     hReturn = (HANDLE)-1;
210     hProcess = (HANDLE)-1;
211     if ( ( out >= 0 ) && ( out != _fileno ( stdout ) ) ) {
212         if ( _dup2 ( out, _fileno ( stdout ) ) != 0 ) goto error_exit;
213     }
214     if ( ( in >= 0 ) && ( in != _fileno ( stdin ) ) ) {
215         if ( _dup2 ( in,  _fileno ( stdin )  ) != 0 ) goto error_exit_out;
216     }
217     if ( ( err >= 0 ) && ( err != _fileno ( stderr ) ) ) {
218         if ( _dup2 ( err, _fileno ( stderr ) ) != 0 ) goto error_exit_in;
219     }
220
221     /* Set the wait mode. */
222     if ( 0 == wait ) {
223         wait_mode = P_NOWAIT;
224     } else {
225         wait_mode = P_WAIT;
226     }
227
228     /* Spawn process given on the command line*/
229     if (search)
230         hProcess = (HANDLE) spawnvp ( wait_mode, program, argv );
231     else
232         hProcess = (HANDLE) spawnv ( wait_mode, program, argv );
233
234     /* Now that the process is launched, replace the original
235      * in/out/err handles and close the backups. */
236
237     if ( _dup2 ( stderr_backup, _fileno ( stderr ) ) != 0 ) goto error_exit;
238  error_exit_in:
239     if ( _dup2 ( stdin_backup,  _fileno ( stdin )  ) != 0 ) goto error_exit;
240  error_exit_out:
241     if ( _dup2 ( stdout_backup, _fileno ( stdout ) ) != 0 ) goto error_exit;
242
243     hReturn = hProcess;
244
245  error_exit:
246     close ( stdout_backup );
247     close ( stdin_backup  );
248     close ( stderr_backup );
249
250     return hReturn;
251
252 }
253
254
255 #endif /* !LISP_FEATURE_WIN32 */