Use macro to initialize strm_ops.

* stream.h (strm_ops_init): New macro.

* stream.c (null_ops, stdio_ops, tail_ops, pipe_ops, string_in_ops,
byte_in_ops, string_out_ops, strlist_out_ops, dir_ops,
cat_stream_ops): Initialize using macro.

* syslog.c (syslog_strm_ops): Likewise.

1 files changed, 9 insertions, 0 deletions

diff --git a/stream.h b/stream.h
index 3b01dee2..9c85cf44 100644
--- a/stream.h
+++ b/stream.h
@@ -47,6 +47,15 @@ struct strm_ops {
   val (*set_prop)(val, val ind, val);
 };
 
+#define strm_ops_init(cobj_init_macro, put_string, put_char, put_byte,      \
+                      get_line, get_char, get_byte, unget_char, unget_byte, \
+                      close, flush, seek, get_prop, set_prop)               \
+{                                                                           \
+    cobj_init_macro, put_string, put_char, put_byte, get_line,              \
+    get_char, get_byte, unget_char, unget_byte,                             \
+    close, flush, seek, get_prop, set_prop                                  \
+}
+
 #define std_input (deref(lookup_var_l(nil, stdin_s)))
 #define std_output (deref(lookup_var_l(nil, stdout_s)))
 #define std_debug (deref(lookup_var_l(nil, stddebug_s)))