* eval.c (eval_init): Register streamp, real_time_stream_p,

stream_get_prop and stream_set_prop as intrinsics.

* stream.c (stream_get_prop): New function.

* stream.h (stream_get_prop): Declared.

* syslog.c (syslog_get_prop): Bugfix: check for prio_k not real_time_k.

* txr.1: Updated.

1 files changed, 12 insertions, 0 deletions

diff --git a/stream.c b/stream.c
index 66dc5c30..6f60e7cf 100644
--- a/stream.c
+++ b/stream.c
@@ -1051,6 +1051,18 @@ val stream_set_prop(val stream, val ind, val prop)
   }
 }
 
+val stream_get_prop(val stream, val ind)
+{
+  type_check (stream, COBJ);
+  type_assert (stream->co.cls == stream_s, (lit("~a is not a stream"),
+                                            stream, nao));
+
+  {
+    struct strm_ops *ops = (struct strm_ops *) stream->co.ops;
+    return ops->get_prop ? ops->get_prop(stream, ind) : nil;
+  }
+}
+
 val real_time_stream_p(val obj)
 {
   if (streamp(obj)) {