seasharp/Rosenthal
1
0
Fork 0
mirror of https://codeberg.org/hako/Rosenthal.git synced 2026-03-12 21:04:22 +00:00
Code Issues Packages Projects Releases Wiki Activity

rosenthal: alloy-bin: Switch to gnu-build-system for proper cross build support.

Browse Source
This commit is contained in:
Hilton Chain 2026-02-13 15:27:44 +08:00
parent 9f069f714d
commit a42b6b4d24
No known key found for this signature in database
GPG Key ID: ACC66D09CA528292
1 changed files with 30 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

49
modules/rosenthal/packages/binaries.scm
View File

@ -17,6 +17,7 @@
;; Guix origin methods
#:use-module (guix download)
;; Guix build systems
#:use-module (guix build-system gnu)
#:use-module (guix build-system copy)
;; Guix packages
#:use-module (gnu packages base)
@ -491,37 +492,47 @@ rather a set of labels for each log stream.")
(name "alloy-bin")
(version "")
(source #f)
(build-system copy-build-system)
(build-system gnu-build-system)
(arguments
(list
#:install-plan
(match (or (and=> (%current-target-system) platform-target->system)
(%current-system))
("aarch64-linux"
#~'(("alloy-linux-arm64" "bin/alloy")))
(_
#~'(("alloy-linux-amd64" "bin/alloy"))))
#:modules
'((ice-9 match)
(guix build copy-build-system)
(guix build utils))
`((ice-9 match)
,@%default-gnu-modules)
#:phases
#~(modify-phases %standard-phases
(add-after 'install 'patch-elf
(delete 'bootstrap)
(delete 'configure)
(delete 'build)
(delete 'check)
(replace 'install
(lambda _
(let ((name "alloy")
(let ((src
(match #$(or (and=> (%current-target-system)
platform-target->system)
(%current-system))
("aarch64-linux"
"alloy-linux-arm64")
(_
"alloy-linux-amd64")))
(dst (in-vicinity #$output "bin/alloy")))
(mkdir-p (dirname dst))
(copy-file src dst))))
(add-after 'install 'patch-elf
(lambda* (#:key inputs #:allow-other-keys)
(let ((ld.so (search-input-file inputs #$(glibc-dynamic-linker)))
(dest (in-vicinity #$output "bin"))
(ld.so #$(file-append glibc (glibc-dynamic-linker))))
(name "alloy"))
(with-directory-excursion dest
(invoke "patchelf" "--set-interpreter" ld.so name)
(chmod name #o555)))))
(add-after 'patch-elf 'install-extras
(lambda* (#:key native-inputs inputs #:allow-other-keys)
(lambda* (#:key native-inputs inputs outputs #:allow-other-keys)
(let ((alloy
(if #$(%current-target-system)
(search-input-file (or native-inputs inputs)
"bin/alloy")
(in-vicinity #$output "bin/alloy"))))
(search-input-file
(if #$(%current-target-system)
native-inputs
outputs)
"bin/alloy")))
(for-each
(match-lambda
((shell . file)