Functions open-fileno and fileno.

* stream.c (fd_k): New keyword variable.
(stdio_get_prop): Handle the :fd property by returning
the file descriptor.
(open_fileno): New function.
(stream_init): Initialize fd_k, and register fileno and open-fileno.

* stream.h (open_fileno): Declared.

* txr.1: Documented open-fileno and fileno.

* utf8.c (w_fdopen): New function.

* utf8.h (w_fdopen): Declared.

1 files changed, 1 insertions, 0 deletions

diff --git a/stream.h b/stream.h
index b6fc957f..48432e9f 100644
--- a/stream.h
+++ b/stream.h
@@ -117,6 +117,7 @@ val get_string(val stream, val nchars, val close_after_p);
 val statf(val path);
 val open_directory(val path);
 val open_file(val path, val mode_str);
+val open_fileno(val fd, val mode_str);
 val open_tail(val path, val mode_str, val seek_end_p);
 val open_command(val path, val mode_str);
 val open_process(val path, val mode_str, val args);