From d7a93957e27bbfe6eaebc25b9d539f82dd9e4df3 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Fri, 27 Oct 2017 23:35:58 -0700
Subject: New convenience I/O functions for buffers.
* lisplib.c (getput_set_entries): New autoload entries for
file-get-buf, file-put-buf, file-append-buf, command-get-buf
and command-put-buf.
* share/txr/stdlib/getput.tl (sys:get-buf-common): New
function.
(file-get-buf, file-put-buf, file-append-buf, command-get-buf,
command-put-buf): New functions.
* txr.1: Documented.
---
lisplib.c | 2 ++
1 file changed, 2 insertions(+)
(limited to 'lisplib.c')
diff --git a/lisplib.c b/lisplib.c
index 1782e671..3e437542 100644
--- a/lisplib.c
+++ b/lisplib.c
@@ -440,9 +440,11 @@ static val getput_set_entries(val dlt, val fun)
lit("file-get"), lit("file-put"), lit("file-append"),
lit("file-get-string"), lit("file-put-string"), lit("file-append-string"),
lit("file-get-lines"), lit("file-put-lines"), lit("file-append-lines"),
+ lit("file-get-buf"), lit("file-put-buf"), lit("file-append-buf"),
lit("command-get"), lit("command-put"),
lit("command-get-string"), lit("command-put-string"),
lit("command-get-lines"), lit("command-put-lines"),
+ lit("command-get-buf"), lit("command-put-buf"),
nil
};
set_dlt_entries(dlt, name, fun);
--
cgit v1.2.3