base64: integrate with buffers.

* filter.c (base64_encode): Handle an object of either string
or buffer type by using make_byte_input_stream.
(base64_decode_buf): New function.
(filter_init): Register base64-decode-buf intrinsic.

* filter.h (base64_decode_buf): Declared.

* stream.c (make_byte_input_stream): New function.

* stream.h (make_byte_input_stream): Declared.

* txr.1: Updated.

1 files changed, 17 insertions, 0 deletions

diff --git a/stream.c b/stream.c
index 666e0c30..027c1c94 100644
--- a/stream.c
+++ b/stream.c
@@ -4588,6 +4588,23 @@ val path_cat(val dir_name, val base_name)
   return scat(lit("/"), dir_name, base_name, nao);
 }
 
+val make_byte_input_stream(val obj)
+{
+  val self = lit("make-byte-input-stream");
+
+  switch (type(obj)) {
+  case LIT:
+  case STR:
+  case LSTR:
+    return make_string_byte_input_stream(obj);
+  case BUF:
+    return make_buf_stream(obj);
+  default:
+    uw_throwf(file_error_s, lit("~a: ~s is neither a string nor buffer"),
+              self, obj, nao);
+  }
+}
+
 void stream_init(void)
 {
   prot1(&ap_regex);