Access to file descriptor now via stream virtual.

* stream.c (unimpl_get_fd, null_get_fd): New static functions.
(fill_stream_ops): Set up get_fd function pointer in
strm_ops.
(null_ops): Add null_get_fd.
(stdio_get_fd): New static function.
(stdio_ops, tail_ops, pipe_ops): Specify stdio_get_fd as get_fd
function.
(stream_fd): Rewritten as call to get_fd operation.
(dir_ops, string_in_ops, byte_in_ops, string_out_ops,
strlist_out_ops, cat_stream_ops): Specify null as get_fd
function, to be defaulted by fill_stream_ops.
(delegate_get_fd): New static function.
(record_adapter_ops): Specify delegate_get_fd as get_fd
function.
(stream_init): Change fileno intrinsic registration to point
to stream_fd function.

* stream.h (struct strm_ops): New member, get_fd.
(strm_ops_init): New macro parameter, get_fd.

* syslog.c (syslog_strm_ops): Specify null as get_fd
function.

1 files changed, 1 insertions, 1 deletions

diff --git a/syslog.c b/syslog.c
index e4265e4b..d5766f95 100644
--- a/syslog.c
+++ b/syslog.c
@@ -230,7 +230,7 @@ static_def(struct strm_ops syslog_strm_ops =
                 0, 0, 0, 0, 0, 0, 0, 0, 0,
                 syslog_get_prop,
                 syslog_set_prop,
-                0, 0, 0))
+                0, 0, 0, 0))
 
 val make_syslog_stream(val prio)
 {