quasiliterals: buffers in hex, separation for strings and buffers.

In this commit, output variables in the TXR Pattern language and
in TXR Lisp quasiliterals now support separator strings for values
that are strings and buffers.  Values which are buffers appear

1 files changed, 24 insertions, 0 deletions

diff --git a/buf.c b/buf.c
index 625b9f60..452b1fcc 100644
--- a/buf.c
+++ b/buf.c
@@ -887,6 +887,30 @@ val buf_pprint(val buf, val stream_in)
   return t;
 }
 
+val buf_str_sep(val buf, val sep, val self)
+{
+  struct buf *b = buf_handle(buf, self);
+  ucnum len = c_unum(b->len, self);
+  val ret = null_string;
+
+  if (len > 0) {
+    val stream = make_string_output_stream();
+    ucnum i = 0;
+
+    goto first;
+
+    while (i < len) {
+      put_string(sep, stream);
+    first:
+      format(stream, lit("~,02x"), num_fast(b->data[i++]), nao);
+    }
+
+    ret = get_string_from_stream(stream);
+  }
+
+  return ret;
+}
+
 void buf_hex(val buf, char *hex, size_t sz, int caps)
 {
   val self = lit("buf-hex");