New function: get-line-as-buf

* buf.c (buf_put_bytes, buf_get_bytes): static functions
become external.

* buf.h (buf_put_bytes, buf_get_bytes): Declared.

* stream.c (get_line_as_buf): New fucntnion.
(stream_init): Registered get-line-as-buf intrinsic.

* stream.h (get_line_as_buf): Declared.

* txr.1: Documented.

1 files changed, 2 insertions, 2 deletions

diff --git a/buf.c b/buf.c
index 09bdd0ee..c59c282a 100644
--- a/buf.c
+++ b/buf.c
@@ -397,7 +397,7 @@ val buf_put_buf(val dbuf, val sbuf, val pos)
   return sbuf;
 }
 
-static void buf_put_bytes(val buf, val pos, mem_t *ptr, cnum size, val self)
+void buf_put_bytes(val buf, val pos, mem_t *ptr, cnum size, val self)
 {
   struct buf *b = buf_handle(buf, self);
   cnum p = buf_check_index(b, pos, self);
@@ -589,7 +589,7 @@ val buf_put_cptr(val buf, val pos, val cptr)
   return cptr;
 }
 
-static void buf_get_bytes(val buf, val pos, mem_t *ptr, cnum size, val self)
+void buf_get_bytes(val buf, val pos, mem_t *ptr, cnum size, val self)
 {
   struct buf *b = buf_handle(buf, self);
   cnum p = buf_check_index(b, pos, self);