diff options
author | Kaz Kylheku <kaz@kylheku.com> | 2017-10-27 23:35:58 -0700 |
---|---|---|
committer | Kaz Kylheku <kaz@kylheku.com> | 2017-10-27 23:35:58 -0700 |
commit | d7a93957e27bbfe6eaebc25b9d539f82dd9e4df3 (patch) | |
tree | 6166a78493e11d5f78243354cab0fa886b2ba355 /lisplib.c | |
parent | d73170b75f91bd13c0a2a93ac7aa51afa9a294c8 (diff) | |
download | txr-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.c | 2 |
1 files changed, 2 insertions, 0 deletions
@@ -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); |