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.

1 files changed, 13 insertions, 0 deletions

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))