New string compression/decompression functions.

* buf.c (str_compress, str_decompress): New functions.
(buf_init): str-compress, str-decompress intrinsics
registered.

* lib.[ch] (string_utf8_from_buf): New function.

* tests/012/buf.tl: New tests.

* txr.1: Documented.

1 files changed, 10 insertions, 0 deletions

diff --git a/lib.c b/lib.c
index 5916e1c6..b23a883a 100644
--- a/lib.c
+++ b/lib.c
@@ -5381,6 +5381,16 @@ val string_utf8(const char *str)
   return obj;
 }
 
+val string_utf8_from_buf(const char *str, size_t len)
+{
+  val obj = make_obj();
+  obj->st.type = STR;
+  obj->st.str = utf8_dup_from_buf(str, len);
+  obj->st.len = nil;
+  obj->st.alloc = 0;
+  return obj;
+}
+
 val string_8bit(const unsigned char *str)
 {
   size_t l = strlen(coerce(const char *, str)), i;