guix_mirror_bot pushed a commit to branch master
in repository guix.

commit 3c5a4c282f7e5377a14e473ad64f0192fc81ee85
Author: Lee Thompson <[email protected]>
AuthorDate: Wed Oct 1 21:11:02 2025 +0100

    gnu: Add cbqn-combined-source.
    
    * gnu/packages/bqn.scm (cbqn-combined-source): New procedure to generate a
    computed origin with singeli and replxx included.
    
    Change-Id: Ieceee7b06a2bdf6309ab78e32a13c28c3f6c98c3
    Signed-off-by: Liliana Marie Prikler <[email protected]>
---
 gnu/packages/bqn.scm | 37 +++++++++++++++++++++++++++++++++++++
 1 file changed, 37 insertions(+)

diff --git a/gnu/packages/bqn.scm b/gnu/packages/bqn.scm
index 5db5e67c34..64ea3be688 100644
--- a/gnu/packages/bqn.scm
+++ b/gnu/packages/bqn.scm
@@ -204,6 +204,43 @@ by APL.")
                    license:gpl3+
                    license:mpl2.0))))
 
+(define* (cbqn-combined-source name version #:key cbqn-sources replxx-sources 
singeli-sources)
+  (origin
+    (method (@@ (guix packages) computed-origin-method))
+    (file-name (string-append name "-" version ".tar.gz"))
+    (sha256 #f)
+    (uri
+     (delay
+       (with-imported-modules '((guix build utils))
+         #~(begin
+             (use-modules (guix build utils))
+             (let* ((dir (string-append "cbqn" #$version))
+                    (replxx-local-dir "build/replxxLocal")
+                    (singeli-local-dir "build/singeliLocal"))
+
+               (set-path-environment-variable
+                "PATH" '("bin")
+                (list #+(canonical-package bash)
+                      #+(canonical-package coreutils)
+                      #+(canonical-package gzip)
+                      #+(canonical-package tar)))
+               (copy-recursively #+cbqn-sources dir)
+
+               (with-directory-excursion dir
+                 ;; Copy in local replxx and Singeli code
+                 (mkdir replxx-local-dir)
+                 (mkdir singeli-local-dir)
+                 (copy-recursively #+replxx-sources replxx-local-dir)
+                 (copy-recursively #+singeli-sources singeli-local-dir))
+
+               (invoke "tar" "cvfa" #$output
+                       "--mtime=@0"
+                       "--owner=root:0"
+                       "--group=root:0"
+                       "--sort=name"
+                       "--hard-dereference"
+                       dir))))))))
+
 (define-public cbqn
   (package
     (inherit cbqn-bootstrap)

Reply via email to