1 /* Copyright (C) 1993, 1997, 1998, 1999, 2000 Free Software Foundation, Inc.
2 This file is part of the GNU IO Library.
3 Written by Per Bothner <bothner@cygnus.com>.
5 This library is free software; you can redistribute it and/or
6 modify it under the terms of the GNU General Public License as
7 published by the Free Software Foundation; either version 2, or (at
8 your option) any later version.
10 This library is distributed in the hope that it will be useful, but
11 WITHOUT ANY WARRANTY; without even the implied warranty of
12 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
13 General Public License for more details.
15 You should have received a copy of the GNU General Public License
16 along with this library; see the file COPYING. If not, write to
17 the Free Software Foundation, 59 Temple Place - Suite 330, Boston,
20 As a special exception, if you link this library with files
21 compiled with a GNU compiler to produce an executable, this does
22 not cause the resulting executable to be covered by the GNU General
23 Public License. This exception does not however invalidate any
24 other reasons why the executable file might be covered by the GNU
25 General Public License. */
28 # define _POSIX_SOURCE
39 # include <shlib-compat.h>
41 #include <sys/types.h>
46 #define _IO_fork __vfork
48 #define _IO_fork vfork /* defined in libiberty, if needed */
50 extern _IO_pid_t _IO_fork
__P ((void));
53 #endif /* _IO_HAVE_SYS_WAIT */
57 #define _IO_pipe __pipe
61 extern int _IO_pipe
__P ((int des
[2]));
66 #define _IO_dup2 __dup2
70 extern int _IO_dup2
__P ((int fd
, int fd2
));
75 #define _IO_waitpid __waitpid
77 #define _IO_waitpid waitpid
82 #define _IO_execl execl
85 #define _IO__exit _exit
90 #define _IO_close __close
92 #define _IO_close close
98 struct _IO_FILE_plus file
;
99 /* Following fields must match those in class procbuf (procbuf.h) */
101 struct _IO_proc_file
*next
;
103 typedef struct _IO_proc_file _IO_proc_file
;
105 static struct _IO_jump_t _IO_wproc_jumps
;
107 static struct _IO_proc_file
*proc_file_chain
;
110 _IO_new_proc_open (fp
, command
, mode
)
115 #if _IO_HAVE_SYS_WAIT
116 volatile int read_or_write
;
117 volatile int parent_end
, child_end
;
120 if (_IO_file_is_open (fp
))
122 if (_IO_pipe (pipe_fds
) < 0)
124 if (mode
[0] == 'r' && mode
[1] == '\0')
126 parent_end
= pipe_fds
[0];
127 child_end
= pipe_fds
[1];
128 read_or_write
= _IO_NO_WRITES
;
130 else if (mode
[0] == 'w' && mode
[1] == '\0')
132 parent_end
= pipe_fds
[1];
133 child_end
= pipe_fds
[0];
134 read_or_write
= _IO_NO_READS
;
138 _IO_close (pipe_fds
[0]);
139 _IO_close (pipe_fds
[1]);
140 __set_errno (EINVAL
);
143 ((_IO_proc_file
*) fp
)->pid
= child_pid
= _IO_fork ();
146 int child_std_end
= mode
[0] == 'r' ? 1 : 0;
147 struct _IO_proc_file
*p
;
149 _IO_close (parent_end
);
150 if (child_end
!= child_std_end
)
152 _IO_dup2 (child_end
, child_std_end
);
153 _IO_close (child_end
);
155 /* POSIX.2: "popen() shall ensure that any streams from previous
156 popen() calls that remain open in the parent process are closed
157 in the new child process." */
158 for (p
= proc_file_chain
; p
; p
= p
->next
)
159 _IO_close (_IO_fileno ((_IO_FILE
*) p
));
161 _IO_execl ("/bin/sh", "sh", "-c", command
, (char *) 0);
164 _IO_close (child_end
);
167 _IO_close (parent_end
);
170 _IO_fileno (fp
) = parent_end
;
172 /* Link into proc_file_chain. */
173 ((_IO_proc_file
*) fp
)->next
= proc_file_chain
;
174 proc_file_chain
= (_IO_proc_file
*) fp
;
176 _IO_mask_flags (fp
, read_or_write
, _IO_NO_READS
|_IO_NO_WRITES
);
178 #else /* !_IO_HAVE_SYS_WAIT */
184 _IO_new_popen (command
, mode
)
190 struct _IO_proc_file fpx
;
194 struct _IO_wide_data wd
;
198 new_f
= (struct locked_FILE
*) malloc (sizeof (struct locked_FILE
));
202 new_f
->fpx
.file
.file
._lock
= &new_f
->lock
;
204 fp
= &new_f
->fpx
.file
.file
;
205 _IO_no_init (fp
, 0, 0, &new_f
->wd
, &_IO_wproc_jumps
);
206 _IO_JUMPS (fp
) = &_IO_proc_jumps
;
207 _IO_new_file_init (fp
);
208 #if !_IO_UNIFIED_JUMPTABLES
209 new_f
->fpx
.file
.vtable
= NULL
;
211 if (_IO_new_proc_open (fp
, command
, mode
) != NULL
)
219 _IO_new_proc_close (fp
)
222 /* This is not name-space clean. FIXME! */
223 #if _IO_HAVE_SYS_WAIT
225 _IO_proc_file
**ptr
= &proc_file_chain
;
229 /* Unlink from proc_file_chain. */
230 for ( ; *ptr
!= NULL
; ptr
= &(*ptr
)->next
)
232 if (*ptr
== (_IO_proc_file
*) fp
)
240 if (status
< 0 || _IO_close (_IO_fileno(fp
)) < 0)
242 /* POSIX.2 Rationale: "Some historical implementations either block
243 or ignore the signals SIGINT, SIGQUIT, and SIGHUP while waiting
244 for the child process to terminate. Since this behavior is not
245 described in POSIX.2, such implementations are not conforming." */
248 wait_pid
= _IO_waitpid (((_IO_proc_file
*) fp
)->pid
, &wstatus
, 0);
250 while (wait_pid
== -1 && errno
== EINTR
);
254 #else /* !_IO_HAVE_SYS_WAIT */
259 struct _IO_jump_t _IO_proc_jumps
= {
261 JUMP_INIT(finish
, _IO_new_file_finish
),
262 JUMP_INIT(overflow
, _IO_new_file_overflow
),
263 JUMP_INIT(underflow
, _IO_new_file_underflow
),
264 JUMP_INIT(uflow
, _IO_default_uflow
),
265 JUMP_INIT(pbackfail
, _IO_default_pbackfail
),
266 JUMP_INIT(xsputn
, _IO_new_file_xsputn
),
267 JUMP_INIT(xsgetn
, _IO_default_xsgetn
),
268 JUMP_INIT(seekoff
, _IO_new_file_seekoff
),
269 JUMP_INIT(seekpos
, _IO_default_seekpos
),
270 JUMP_INIT(setbuf
, _IO_new_file_setbuf
),
271 JUMP_INIT(sync
, _IO_new_file_sync
),
272 JUMP_INIT(doallocate
, _IO_file_doallocate
),
273 JUMP_INIT(read
, _IO_file_read
),
274 JUMP_INIT(write
, _IO_new_file_write
),
275 JUMP_INIT(seek
, _IO_file_seek
),
276 JUMP_INIT(close
, _IO_new_proc_close
),
277 JUMP_INIT(stat
, _IO_file_stat
),
278 JUMP_INIT(showmanyc
, _IO_default_showmanyc
),
279 JUMP_INIT(imbue
, _IO_default_imbue
)
282 static struct _IO_jump_t _IO_wproc_jumps
= {
284 JUMP_INIT(finish
, _IO_new_file_finish
),
285 JUMP_INIT(overflow
, _IO_new_file_overflow
),
286 JUMP_INIT(underflow
, _IO_new_file_underflow
),
287 JUMP_INIT(uflow
, _IO_default_uflow
),
288 JUMP_INIT(pbackfail
, _IO_default_pbackfail
),
289 JUMP_INIT(xsputn
, _IO_new_file_xsputn
),
290 JUMP_INIT(xsgetn
, _IO_default_xsgetn
),
291 JUMP_INIT(seekoff
, _IO_new_file_seekoff
),
292 JUMP_INIT(seekpos
, _IO_default_seekpos
),
293 JUMP_INIT(setbuf
, _IO_new_file_setbuf
),
294 JUMP_INIT(sync
, _IO_new_file_sync
),
295 JUMP_INIT(doallocate
, _IO_file_doallocate
),
296 JUMP_INIT(read
, _IO_file_read
),
297 JUMP_INIT(write
, _IO_new_file_write
),
298 JUMP_INIT(seek
, _IO_file_seek
),
299 JUMP_INIT(close
, _IO_new_proc_close
),
300 JUMP_INIT(stat
, _IO_file_stat
),
301 JUMP_INIT(showmanyc
, _IO_default_showmanyc
),
302 JUMP_INIT(imbue
, _IO_default_imbue
)
305 strong_alias (_IO_new_popen
, __new_popen
)
306 versioned_symbol (libc
, _IO_new_popen
, _IO_popen
, GLIBC_2_1
);
307 versioned_symbol (libc
, __new_popen
, popen
, GLIBC_2_1
);
308 versioned_symbol (libc
, _IO_new_proc_open
, _IO_proc_open
, GLIBC_2_1
);
309 versioned_symbol (libc
, _IO_new_proc_close
, _IO_proc_close
, GLIBC_2_1
);