bugfix: missing gzip support in open-command.

* stream.c (pipe_close_status_helper): New function,
factored out of pipe_close and used by it, and
also by gzio_close.
(pipe_close): Call pipe_close, which now contains
the classification of process wait status codes.
(open_fileno): Now takes optional pid argument.
If this specified, then make_pipevp_stream is used.
(open_subprocess): Use the open_fileno function, rather than
fopen. This simplifies things too, except that we have to
catch exception.  Pass pid to the newly added parameter of
open_fileno so that we obtain a proper pipe stream that will
wait for the process to terminate when closed.
(mkstemp_wrap): Pass nil for pid argument of open_fileno.
(stream_init): Update registration of open-fileno.

* gzio.c (struct gzio_handle): New member, pid.
(gzio_close): If there is a nonzero pid, wait for the
process to terminate.
(make_gzio_stream): Initialize h->pid to zero.
(make_gzio_pipe_stream): New function.

* parser.c (lino_fdopen): Pass nil for pid argument
of open_fileno.

* gzio.h (make_gzio_pipe_stream): Declared.

* tests/018/gzip.tl: New test.

1 files changed, 3 insertions, 0 deletions

diff --git a/gzio.h b/gzio.h
index 4b5e9ee9..ae888728 100644
--- a/gzio.h
+++ b/gzio.h
@@ -33,3 +33,6 @@ gzFile w_gzopen_mode(const wchar_t *wname, const wchar_t *wmode,
 gzFile w_gzdopen_mode(int fd, const wchar_t *wmode,
                       const struct stdio_mode m, val self);
 val make_gzio_stream(gzFile f, int fd, val descr, int is_output);
+#if HAVE_FORK_STUFF
+val make_gzio_pipe_stream(gzFile f, int fd, val descr, int is_output, pid_t pid);
+#endif