summaryrefslogtreecommitdiffstats
path: root/lisplib.c
diff options
context:
space:
mode:
authorKaz Kylheku <kaz@kylheku.com>2017-10-27 23:35:58 -0700
committerKaz Kylheku <kaz@kylheku.com>2017-10-27 23:35:58 -0700
commitd7a93957e27bbfe6eaebc25b9d539f82dd9e4df3 (patch)
tree6166a78493e11d5f78243354cab0fa886b2ba355 /lisplib.c
parentd73170b75f91bd13c0a2a93ac7aa51afa9a294c8 (diff)
downloadtxr-d7a93957e27bbfe6eaebc25b9d539f82dd9e4df3.tar.gz
txr-d7a93957e27bbfe6eaebc25b9d539f82dd9e4df3.tar.bz2
txr-d7a93957e27bbfe6eaebc25b9d539f82dd9e4df3.zip
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.
Diffstat (limited to 'lisplib.c')
-rw-r--r--lisplib.c2
1 files changed, 2 insertions, 0 deletions
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);