me/guix
Archived
1
0
Fork 0
Code Activity

gnu: stex: Get machine type dynamically.

Browse source 
* gnu/packages/chez.scm (stex)[arguments]: Run 'scheme' to determine
the machine type.

Signed-off-by: Ludovic Courtès <ludo@gnu.org>
This commit is contained in:
Philip McGrath 2022-05-09 02:02:47 -04:00 • committed by Ludovic Courtès
parent 7ea79beda3
commit 9f88d8b72d
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 12 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
gnu/packages/chez.scm
View file

@ -602,6 +602,10 @@ Chez Scheme.")))
("src" "lib/stex/") ("src" "lib/stex/")
("Mf-stex" "lib/stex/") ("Mf-stex" "lib/stex/")
("Makefile.template" "lib/stex/")) ("Makefile.template" "lib/stex/"))
#:modules
'((guix build copy-build-system)
(guix build utils)
(ice-9 popen))
#:phases #:phases
#~(modify-phases %standard-phases #~(modify-phases %standard-phases
(add-before 'install 'patch-sources (add-before 'install 'patch-sources
@ -633,8 +637,14 @@ Chez Scheme.")))
(define makefile (define makefile
(string-append (getcwd) "/Makefile")) (string-append (getcwd) "/Makefile"))
(define machine (define machine
#$(and=> (nix-system->chez-machine) (let ((pipe (open-pipe* OPEN_BOTH scheme "-q")))
chez-machine->threaded)) ;; try to not be wrong for cross-compilation
;; (avoid #% reader abbreviation for Guile)
(write '(($primitive $target-machine)) pipe)
(force-output pipe)
(let ((sym (read pipe)))
(close-pipe pipe)
(symbol->string sym))))
(with-directory-excursion (with-directory-excursion
(search-input-directory outputs "/lib/stex") (search-input-directory outputs "/lib/stex")
(invoke "make" (invoke "make"