From 177964f81055367da1b7aec8638dfc8a63ec99c5 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Fri, 7 Feb 2020 19:01:35 -0800 Subject: file-put-buf: new argument; also, new file-place-buf Like file-put-buf but doesn't overwrite the file. * lisplib.c (getput_set_entries): New autoload for file-place-buf. * share/txr/stdlib/getput.tl (file-put-buf): New argument for seeking into the file. (file-place-buf): New function. * txr.1: Documented. --- lisplib.c | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'lisplib.c') diff --git a/lisplib.c b/lisplib.c index 73e9f286..8fc31c9a 100644 --- a/lisplib.c +++ b/lisplib.c @@ -516,7 +516,8 @@ 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("file-get-buf"), lit("file-put-buf"), + lit("file-place-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"), -- cgit v1.2.3