From 9da084f7a68d81cb204654c37ad7e7c0e2d82c20 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Sun, 13 Feb 2022 12:38:33 -0800 Subject: New function: cat-files. * lisplib.c (copy_file_instantiate): Trigger autoload on cat-files. * stdlib/copy-file.tl (cat-files): New function. * txr.1: Documented. * stdlib/doc-syms.tl: Updated. --- stdlib/copy-file.tl | 13 +++++++++++++ stdlib/doc-syms.tl | 1 + 2 files changed, 14 insertions(+) (limited to 'stdlib') diff --git a/stdlib/copy-file.tl b/stdlib/copy-file.tl index 50408aca..beab2fbc 100644 --- a/stdlib/copy-file.tl +++ b/stdlib/copy-file.tl @@ -87,6 +87,19 @@ (skip `skip copying @path` (exc . args) (return)) (retry `retry copying @path` (exc . args)))))) +(defun cat-files (to-path . from-paths) + (let ((buf (make-buf copy-size))) + (with-stream (ost (open-file to-path "wb")) + (each ((from-path from-paths)) + (with-stream (ist (open-file from-path "b")) + (while (eql (len buf) copy-size) + (fill-buf-adjust buf 0 ist) + (put-buf buf 0 ost))) + (buf-set-length buf copy-size))) + (buf-set-length buf 0) + (buf-trim buf) + nil)) + (defun do-tweak-obj (to-path st opts link-p) (when (and opts.perms (not link-p)) (chmod to-path st.mode)) diff --git a/stdlib/doc-syms.tl b/stdlib/doc-syms.tl index 754a0ae6..8a472752 100644 --- a/stdlib/doc-syms.tl +++ b/stdlib/doc-syms.tl @@ -269,6 +269,7 @@ ("casequal*" "N-02FB71A2") ("cases" "N-039458F2") ("cat" "N-03336E1B") + ("cat-files" "N-01249D65") ("cat-str" "N-00B6ACE3") ("cat-streams" "N-020BF082") ("cat-vec" "N-01AEB28B") -- cgit v1.2.3