utils: Add 'concatenate-files' function.

* nonguix/build/utils.scm (concatenate-files): New function.

1 files changed, 16 insertions, 1 deletions

diff --git a/nonguix/build/utils.scm b/nonguix/build/utils.scm
index b520769..a5442ea 100644
--- a/nonguix/build/utils.scm
+++ b/nonguix/build/utils.scm
@@ -1,5 +1,6 @@
 ;;; GNU Guix --- Functional package management for GNU
 ;;; Copyright © 2019 Pierre Neidhardt <mail@ambrevar.xyz>
+;;; Copyright © 2020 Alex Griffin <a@ajgrf.com>
 ;;;
 ;;; This file is not part of GNU Guix.
 ;;;
@@ -20,9 +21,11 @@
   #:use-module (ice-9 match)
   #:use-module (ice-9 binary-ports)
   #:use-module (guix build utils)
+  #:use-module (srfi srfi-26)
   #:export (64-bit?
             make-desktop-entry-file
-            make-wrapper))
+            make-wrapper
+            concatenate-files))
 
 (define (64-bit? file)
   "Return true if ELF file is in 64-bit format, false otherwise.
@@ -183,3 +186,15 @@ contents:
               (dirname real-file)
               (canonicalize-path real-file))))
   (chmod wrapper #o755))
+
+(define (concatenate-files files result)
+  "Make RESULT the concatenation of all of FILES."
+  (define (dump file port)
+    (put-bytevector
+     port
+     (call-with-input-file file
+       get-bytevector-all)))
+
+  (call-with-output-file result
+    (lambda (port)
+      (for-each (cut dump <> port) files))))