1 /* $NetBSD: popen.c,v 1.32 2012/06/25 22:32:43 abs Exp $ */
4 * Copyright (c) 1988, 1993
5 * The Regents of the University of California. All rights reserved.
7 * This code is derived from software written by Ken Arnold and
8 * published in UNIX Review, Vol. 6, No. 8.
10 * Redistribution and use in source and binary forms, with or without
11 * modification, are permitted provided that the following conditions
13 * 1. Redistributions of source code must retain the above copyright
14 * notice, this list of conditions and the following disclaimer.
15 * 2. Redistributions in binary form must reproduce the above copyright
16 * notice, this list of conditions and the following disclaimer in the
17 * documentation and/or other materials provided with the distribution.
18 * 3. Neither the name of the University nor the names of its contributors
19 * may be used to endorse or promote products derived from this software
20 * without specific prior written permission.
22 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
23 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
24 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
25 * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
26 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
27 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
28 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
29 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
30 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
31 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
35 #include <sys/cdefs.h>
36 #if defined(LIBC_SCCS) && !defined(lint)
38 static char sccsid
[] = "@(#)popen.c 8.3 (Berkeley) 5/3/95";
40 __RCSID("$NetBSD: popen.c,v 1.32 2012/06/25 22:32:43 abs Exp $");
42 #endif /* LIBC_SCCS and not lint */
44 #include "namespace.h"
45 #include <sys/param.h>
47 #include <sys/socket.h>
60 #include "reentrant.h"
63 __weak_alias(popen
,_popen
)
64 __weak_alias(pclose
,_pclose
)
77 static rwlock_t pidlist_lock
= RWLOCK_INITIALIZER
;
81 popen(const char *command
, const char *type
)
83 struct pid
*cur
, *old
;
85 const char * volatile xtype
= type
;
86 int pdes
[2], pid
, serrno
;
90 _DIAGASSERT(command
!= NULL
);
91 _DIAGASSERT(xtype
!= NULL
);
93 flags
= strchr(xtype
, 'e') ? O_CLOEXEC
: 0;
94 if (strchr(xtype
, '+')) {
95 int stype
= flags
? (SOCK_STREAM
| SOCK_CLOEXEC
) : SOCK_STREAM
;
98 if (socketpair(AF_LOCAL
, stype
, 0, pdes
) < 0)
102 xtype
= strrchr(xtype
, 'r') ? "r" : "w";
103 if (pipe2(pdes
, flags
) == -1)
107 if ((cur
= malloc(sizeof(struct pid
))) == NULL
) {
108 (void)close(pdes
[0]);
109 (void)close(pdes
[1]);
115 rwlock_rdlock(&pidlist_lock
);
117 (void)rwlock_rdlock(&pidlist_lock
);
118 #endif /* defined(__minix) */
119 (void)__readlockenv();
120 switch (pid
= vfork()) {
121 case -1: /* Error. */
125 rwlock_unlock(&pidlist_lock
);
127 (void)rwlock_unlock(&pidlist_lock
);
128 #endif /* defined(__minix) */
130 (void)close(pdes
[0]);
131 (void)close(pdes
[1]);
136 /* POSIX.2 B.3.2.2 "popen() shall ensure that any streams
137 from previous popen() calls that remain open in the
138 parent process are closed in the new child process. */
139 for (old
= pidlist
; old
; old
= old
->next
)
141 close(old
->fd
); /* don't allow a flush */
143 close(fileno(old
->fp
)); /* don't allow a flush */
147 (void)close(pdes
[0]);
148 if (pdes
[1] != STDOUT_FILENO
) {
149 (void)dup2(pdes
[1], STDOUT_FILENO
);
150 (void)close(pdes
[1]);
153 (void)dup2(STDOUT_FILENO
, STDIN_FILENO
);
155 (void)close(pdes
[1]);
156 if (pdes
[0] != STDIN_FILENO
) {
157 (void)dup2(pdes
[0], STDIN_FILENO
);
158 (void)close(pdes
[0]);
162 execl(_PATH_BSHELL
, "sh", "-c", command
, NULL
);
168 /* Parent; assume fdopen can't fail. */
170 iop
= fdopen(pdes
[0], xtype
);
174 (void)close(pdes
[1]);
176 iop
= fdopen(pdes
[1], xtype
);
180 (void)close(pdes
[0]);
183 /* Link into list of file descriptors. */
189 rwlock_unlock(&pidlist_lock
);
191 (void)rwlock_unlock(&pidlist_lock
);
192 #endif /* defined(__minix) */
199 * Pclose returns -1 if stream is not associated with a `popened' command,
200 * if already `pclosed', or waitpid returns an error.
205 struct pid
*cur
, *last
;
209 _DIAGASSERT(iop
!= NULL
);
211 rwlock_wrlock(&pidlist_lock
);
213 /* Find the appropriate file pointer. */
214 for (last
= NULL
, cur
= pidlist
; cur
; last
= cur
, cur
= cur
->next
)
219 rwlock_unlock(&pidlist_lock
);
221 (void)rwlock_unlock(&pidlist_lock
);
222 #endif /* defined(__minix) */
228 /* Remove the entry from the linked list. */
232 last
->next
= cur
->next
;
235 rwlock_unlock(&pidlist_lock
);
237 (void)rwlock_unlock(&pidlist_lock
);
238 #endif /* defined(__minix) */
241 pid
= waitpid(cur
->pid
, &pstat
, 0);
242 } while (pid
== -1 && errno
== EINTR
);
246 return (pid
== -1 ? -1 : pstat
);