1 /* Copyright (C) 1993, 1997-2002, 2003 Free Software Foundation, Inc.
2 This file is part of the GNU C Library.
3 Written by Per Bothner <bothner@cygnus.com>.
5 The GNU C Library is free software; you can redistribute it and/or
6 modify it under the terms of the GNU Lesser General Public
7 License as published by the Free Software Foundation; either
8 version 2.1 of the License, or (at your option) any later version.
10 The GNU C Library is distributed in the hope that it will be useful,
11 but WITHOUT ANY WARRANTY; without even the implied warranty of
12 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
13 Lesser General Public License for more details.
15 You should have received a copy of the GNU Lesser General Public
16 License along with the GNU C Library; if not, write to the Free
17 Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
20 As a special exception, if you link the code in this file with
21 files compiled with a GNU compiler to produce an executable,
22 that does not cause the resulting executable to be covered by
23 the GNU Lesser General Public License. This exception does not
24 however invalidate any other reasons why the executable file
25 might be covered by the GNU Lesser General Public License.
26 This exception applies to code released by its copyright holders
27 in files containing the exception. */
30 # define _POSIX_SOURCE
41 # include <shlib-compat.h>
43 #include <sys/types.h>
48 #define _IO_fork __vfork
50 #define _IO_fork vfork /* defined in libiberty, if needed */
52 extern _IO_pid_t _IO_fork
__P ((void));
55 #endif /* _IO_HAVE_SYS_WAIT */
59 #define _IO_pipe __pipe
63 extern int _IO_pipe
__P ((int des
[2]));
68 #define _IO_dup2 __dup2
72 extern int _IO_dup2
__P ((int fd
, int fd2
));
77 #define _IO_waitpid __waitpid
79 #define _IO_waitpid waitpid
84 #define _IO_execl execl
87 #define _IO__exit _exit
92 #define _IO_close __close
94 #define _IO_close close
100 struct _IO_FILE_plus file
;
101 /* Following fields must match those in class procbuf (procbuf.h) */
103 struct _IO_proc_file
*next
;
105 typedef struct _IO_proc_file _IO_proc_file
;
107 static struct _IO_jump_t _IO_proc_jumps
;
108 static struct _IO_jump_t _IO_wproc_jumps
;
110 static struct _IO_proc_file
*proc_file_chain
;
113 static _IO_lock_t proc_file_chain_lock
= _IO_lock_initializer
;
116 unlock (void *not_used
)
118 _IO_lock_unlock (proc_file_chain_lock
);
123 _IO_new_proc_open (fp
, command
, mode
)
128 #if _IO_HAVE_SYS_WAIT
129 volatile int read_or_write
;
130 volatile int parent_end
, child_end
;
133 if (_IO_file_is_open (fp
))
135 if (_IO_pipe (pipe_fds
) < 0)
137 if (mode
[0] == 'r' && mode
[1] == '\0')
139 parent_end
= pipe_fds
[0];
140 child_end
= pipe_fds
[1];
141 read_or_write
= _IO_NO_WRITES
;
143 else if (mode
[0] == 'w' && mode
[1] == '\0')
145 parent_end
= pipe_fds
[1];
146 child_end
= pipe_fds
[0];
147 read_or_write
= _IO_NO_READS
;
151 _IO_close (pipe_fds
[0]);
152 _IO_close (pipe_fds
[1]);
153 __set_errno (EINVAL
);
156 ((_IO_proc_file
*) fp
)->pid
= child_pid
= _IO_fork ();
159 int child_std_end
= mode
[0] == 'r' ? 1 : 0;
160 struct _IO_proc_file
*p
;
162 _IO_close (parent_end
);
163 if (child_end
!= child_std_end
)
165 _IO_dup2 (child_end
, child_std_end
);
166 _IO_close (child_end
);
168 /* POSIX.2: "popen() shall ensure that any streams from previous
169 popen() calls that remain open in the parent process are closed
170 in the new child process." */
171 for (p
= proc_file_chain
; p
; p
= p
->next
)
172 _IO_close (_IO_fileno ((_IO_FILE
*) p
));
174 _IO_execl ("/bin/sh", "sh", "-c", command
, (char *) 0);
177 _IO_close (child_end
);
180 _IO_close (parent_end
);
183 _IO_fileno (fp
) = parent_end
;
185 /* Link into proc_file_chain. */
187 _IO_cleanup_region_start_noarg (unlock
);
188 _IO_lock_lock (proc_file_chain_lock
);
190 ((_IO_proc_file
*) fp
)->next
= proc_file_chain
;
191 proc_file_chain
= (_IO_proc_file
*) fp
;
193 _IO_lock_unlock (proc_file_chain_lock
);
194 _IO_cleanup_region_end (0);
197 _IO_mask_flags (fp
, read_or_write
, _IO_NO_READS
|_IO_NO_WRITES
);
199 #else /* !_IO_HAVE_SYS_WAIT */
205 _IO_new_popen (command
, mode
)
211 struct _IO_proc_file fpx
;
215 struct _IO_wide_data wd
;
219 new_f
= (struct locked_FILE
*) malloc (sizeof (struct locked_FILE
));
223 new_f
->fpx
.file
.file
._lock
= &new_f
->lock
;
225 fp
= &new_f
->fpx
.file
.file
;
226 _IO_no_init (fp
, 0, 0, &new_f
->wd
, &_IO_wproc_jumps
);
227 _IO_JUMPS (&new_f
->fpx
.file
) = &_IO_proc_jumps
;
228 _IO_new_file_init (&new_f
->fpx
.file
);
229 #if !_IO_UNIFIED_JUMPTABLES
230 new_f
->fpx
.file
.vtable
= NULL
;
232 if (_IO_new_proc_open (fp
, command
, mode
) != NULL
)
233 return (_IO_FILE
*) &new_f
->fpx
.file
;
234 INTUSE(_IO_un_link
) (&new_f
->fpx
.file
);
240 _IO_new_proc_close (fp
)
243 /* This is not name-space clean. FIXME! */
244 #if _IO_HAVE_SYS_WAIT
246 _IO_proc_file
**ptr
= &proc_file_chain
;
250 /* Unlink from proc_file_chain. */
252 _IO_cleanup_region_start_noarg (unlock
);
253 _IO_lock_lock (proc_file_chain_lock
);
255 for ( ; *ptr
!= NULL
; ptr
= &(*ptr
)->next
)
257 if (*ptr
== (_IO_proc_file
*) fp
)
265 _IO_lock_unlock (proc_file_chain_lock
);
266 _IO_cleanup_region_end (0);
269 if (status
< 0 || _IO_close (_IO_fileno(fp
)) < 0)
271 /* POSIX.2 Rationale: "Some historical implementations either block
272 or ignore the signals SIGINT, SIGQUIT, and SIGHUP while waiting
273 for the child process to terminate. Since this behavior is not
274 described in POSIX.2, such implementations are not conforming." */
277 wait_pid
= _IO_waitpid (((_IO_proc_file
*) fp
)->pid
, &wstatus
, 0);
279 while (wait_pid
== -1 && errno
== EINTR
);
283 #else /* !_IO_HAVE_SYS_WAIT */
288 static struct _IO_jump_t _IO_proc_jumps
= {
290 JUMP_INIT(finish
, _IO_new_file_finish
),
291 JUMP_INIT(overflow
, _IO_new_file_overflow
),
292 JUMP_INIT(underflow
, _IO_new_file_underflow
),
293 JUMP_INIT(uflow
, INTUSE(_IO_default_uflow
)),
294 JUMP_INIT(pbackfail
, INTUSE(_IO_default_pbackfail
)),
295 JUMP_INIT(xsputn
, _IO_new_file_xsputn
),
296 JUMP_INIT(xsgetn
, INTUSE(_IO_default_xsgetn
)),
297 JUMP_INIT(seekoff
, _IO_new_file_seekoff
),
298 JUMP_INIT(seekpos
, _IO_default_seekpos
),
299 JUMP_INIT(setbuf
, _IO_new_file_setbuf
),
300 JUMP_INIT(sync
, _IO_new_file_sync
),
301 JUMP_INIT(doallocate
, INTUSE(_IO_file_doallocate
)),
302 JUMP_INIT(read
, INTUSE(_IO_file_read
)),
303 JUMP_INIT(write
, _IO_new_file_write
),
304 JUMP_INIT(seek
, INTUSE(_IO_file_seek
)),
305 JUMP_INIT(close
, _IO_new_proc_close
),
306 JUMP_INIT(stat
, INTUSE(_IO_file_stat
)),
307 JUMP_INIT(showmanyc
, _IO_default_showmanyc
),
308 JUMP_INIT(imbue
, _IO_default_imbue
)
311 static struct _IO_jump_t _IO_wproc_jumps
= {
313 JUMP_INIT(finish
, _IO_new_file_finish
),
314 JUMP_INIT(overflow
, _IO_new_file_overflow
),
315 JUMP_INIT(underflow
, _IO_new_file_underflow
),
316 JUMP_INIT(uflow
, INTUSE(_IO_default_uflow
)),
317 JUMP_INIT(pbackfail
, INTUSE(_IO_default_pbackfail
)),
318 JUMP_INIT(xsputn
, _IO_new_file_xsputn
),
319 JUMP_INIT(xsgetn
, INTUSE(_IO_default_xsgetn
)),
320 JUMP_INIT(seekoff
, _IO_new_file_seekoff
),
321 JUMP_INIT(seekpos
, _IO_default_seekpos
),
322 JUMP_INIT(setbuf
, _IO_new_file_setbuf
),
323 JUMP_INIT(sync
, _IO_new_file_sync
),
324 JUMP_INIT(doallocate
, INTUSE(_IO_file_doallocate
)),
325 JUMP_INIT(read
, INTUSE(_IO_file_read
)),
326 JUMP_INIT(write
, _IO_new_file_write
),
327 JUMP_INIT(seek
, INTUSE(_IO_file_seek
)),
328 JUMP_INIT(close
, _IO_new_proc_close
),
329 JUMP_INIT(stat
, INTUSE(_IO_file_stat
)),
330 JUMP_INIT(showmanyc
, _IO_default_showmanyc
),
331 JUMP_INIT(imbue
, _IO_default_imbue
)
334 strong_alias (_IO_new_popen
, __new_popen
)
335 versioned_symbol (libc
, _IO_new_popen
, _IO_popen
, GLIBC_2_1
);
336 versioned_symbol (libc
, __new_popen
, popen
, GLIBC_2_1
);
337 versioned_symbol (libc
, _IO_new_proc_open
, _IO_proc_open
, GLIBC_2_1
);
338 versioned_symbol (libc
, _IO_new_proc_close
, _IO_proc_close
, GLIBC_2_1
);