From 9da084f7a68d81cb204654c37ad7e7c0e2d82c20 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
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