diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2020-02-07 19:01:35 -0800 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2020-02-07 19:01:35 -0800 |
| commit | 177964f81055367da1b7aec8638dfc8a63ec99c5 (patch) | |
| tree | 5f8711876f77c0a3d85adee02bff07344fef5b46 /lisplib.c | |
| parent | 52c1aef14849e0f3f4ecb4f6177c48af3b352631 (diff) | |
| download | txr-177964f81055367da1b7aec8638dfc8a63ec99c5.tar.gz txr-177964f81055367da1b7aec8638dfc8a63ec99c5.tar.bz2 txr-177964f81055367da1b7aec8638dfc8a63ec99c5.zip | |
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.
Diffstat (limited to 'lisplib.c')
| -rw-r--r-- | lisplib.c | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -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"), |