1 /* Copyright (C) 1998,99,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. */
27 #include <shlib-compat.h>
28 #if SHLIB_COMPAT (libc, GLIBC_2_0, GLIBC_2_1)
30 #define _IO_USE_OLD_IO_FILE
32 # define _POSIX_SOURCE
44 #include <sys/types.h>
49 #define _IO_fork __vfork
51 #define _IO_fork vfork /* defined in libiberty, if needed */
53 extern _IO_pid_t _IO_fork
__P ((void));
56 #endif /* _IO_HAVE_SYS_WAIT */
60 #define _IO_pipe __pipe
64 extern int _IO_pipe
__P ((int des
[2]));
69 #define _IO_dup2 __dup2
73 extern int _IO_dup2
__P ((int fd
, int fd2
));
78 #define _IO_waitpid __waitpid
80 #define _IO_waitpid waitpid
85 #define _IO_execl execl
88 #define _IO__exit _exit
93 #define _IO_close __close
95 #define _IO_close close
101 struct _IO_FILE_plus file
;
102 /* Following fields must match those in class procbuf (procbuf.h) */
104 struct _IO_proc_file
*next
;
106 typedef struct _IO_proc_file _IO_proc_file
;
108 static struct _IO_proc_file
*old_proc_file_chain
;
111 _IO_old_proc_open (fp
, command
, mode
)
116 #if _IO_HAVE_SYS_WAIT
117 volatile int read_or_write
;
118 volatile int parent_end
, child_end
;
121 if (_IO_file_is_open (fp
))
123 if (_IO_pipe (pipe_fds
) < 0)
125 if (mode
[0] == 'r' && mode
[1] == '\0')
127 parent_end
= pipe_fds
[0];
128 child_end
= pipe_fds
[1];
129 read_or_write
= _IO_NO_WRITES
;
131 else if (mode
[0] == 'w' && mode
[1] == '\0')
133 parent_end
= pipe_fds
[1];
134 child_end
= pipe_fds
[0];
135 read_or_write
= _IO_NO_READS
;
139 __set_errno (EINVAL
);
142 ((_IO_proc_file
*) fp
)->pid
= child_pid
= _IO_fork ();
145 int child_std_end
= mode
[0] == 'r' ? 1 : 0;
146 struct _IO_proc_file
*p
;
148 _IO_close (parent_end
);
149 if (child_end
!= child_std_end
)
151 _IO_dup2 (child_end
, child_std_end
);
152 _IO_close (child_end
);
154 /* POSIX.2: "popen() shall ensure that any streams from previous
155 popen() calls that remain open in the parent process are closed
156 in the new child process." */
157 for (p
= old_proc_file_chain
; p
; p
= p
->next
)
158 _IO_close (_IO_fileno ((_IO_FILE
*) p
));
160 _IO_execl ("/bin/sh", "sh", "-c", command
, (char *) 0);
163 _IO_close (child_end
);
166 _IO_close (parent_end
);
169 _IO_fileno (fp
) = parent_end
;
171 /* Link into old_proc_file_chain. */
172 ((_IO_proc_file
*) fp
)->next
= old_proc_file_chain
;
173 old_proc_file_chain
= (_IO_proc_file
*) fp
;
175 _IO_mask_flags (fp
, read_or_write
, _IO_NO_READS
|_IO_NO_WRITES
);
177 #else /* !_IO_HAVE_SYS_WAIT */
183 _IO_old_popen (command
, mode
)
189 struct _IO_proc_file fpx
;
196 new_f
= (struct locked_FILE
*) malloc (sizeof (struct locked_FILE
));
200 new_f
->fpx
.file
.file
._lock
= &new_f
->lock
;
202 fp
= &new_f
->fpx
.file
.file
;
204 _IO_JUMPS (fp
) = &_IO_old_proc_jumps
;
205 _IO_old_file_init (fp
);
206 #if !_IO_UNIFIED_JUMPTABLES
207 new_f
->fpx
.file
.vtable
= NULL
;
209 if (_IO_old_proc_open (fp
, command
, mode
) != NULL
)
217 _IO_old_proc_close (fp
)
220 /* This is not name-space clean. FIXME! */
221 #if _IO_HAVE_SYS_WAIT
223 _IO_proc_file
**ptr
= &old_proc_file_chain
;
227 /* Unlink from old_proc_file_chain. */
228 for ( ; *ptr
!= NULL
; ptr
= &(*ptr
)->next
)
230 if (*ptr
== (_IO_proc_file
*) fp
)
238 if (status
< 0 || _IO_close (_IO_fileno(fp
)) < 0)
240 /* POSIX.2 Rationale: "Some historical implementations either block
241 or ignore the signals SIGINT, SIGQUIT, and SIGHUP while waiting
242 for the child process to terminate. Since this behavior is not
243 described in POSIX.2, such implementations are not conforming." */
246 wait_pid
= _IO_waitpid (((_IO_proc_file
*) fp
)->pid
, &wstatus
, 0);
248 while (wait_pid
== -1 && errno
== EINTR
);
252 #else /* !_IO_HAVE_SYS_WAIT */
257 struct _IO_jump_t _IO_old_proc_jumps
= {
259 JUMP_INIT(finish
, _IO_old_file_finish
),
260 JUMP_INIT(overflow
, _IO_old_file_overflow
),
261 JUMP_INIT(underflow
, _IO_old_file_underflow
),
262 JUMP_INIT(uflow
, _IO_default_uflow
),
263 JUMP_INIT(pbackfail
, _IO_default_pbackfail
),
264 JUMP_INIT(xsputn
, _IO_old_file_xsputn
),
265 JUMP_INIT(xsgetn
, _IO_default_xsgetn
),
266 JUMP_INIT(seekoff
, _IO_old_file_seekoff
),
267 JUMP_INIT(seekpos
, _IO_default_seekpos
),
268 JUMP_INIT(setbuf
, _IO_old_file_setbuf
),
269 JUMP_INIT(sync
, _IO_old_file_sync
),
270 JUMP_INIT(doallocate
, _IO_file_doallocate
),
271 JUMP_INIT(read
, _IO_file_read
),
272 JUMP_INIT(write
, _IO_old_file_write
),
273 JUMP_INIT(seek
, _IO_file_seek
),
274 JUMP_INIT(close
, _IO_old_proc_close
),
275 JUMP_INIT(stat
, _IO_file_stat
),
276 JUMP_INIT(showmanyc
, _IO_default_showmanyc
),
277 JUMP_INIT(imbue
, _IO_default_imbue
)
280 strong_alias (_IO_old_popen
, __old_popen
)
281 compat_symbol (libc
, _IO_old_popen
, _IO_popen
, GLIBC_2_0
);
282 compat_symbol (libc
, __old_popen
, popen
, GLIBC_2_0
);
283 compat_symbol (libc
, _IO_old_proc_open
, _IO_proc_open
, GLIBC_2_0
);
284 compat_symbol (libc
, _IO_old_proc_close
, _IO_proc_close
, GLIBC_2_0
);