mirror/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2025-01-31 06:46:50 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

build-system/julia: Log more details.

Browse source 
* guix/build/julia-build-system.scm (check): Define ‘test-file’ and
print its value.
(link-depot): Define ‘target’ and print its value.
(julia-create-package-toml): Print package info.

Change-Id: I5fa538ddd56e18ffb1c3eea8f951e991fc4ca4cf
This commit is contained in:
Ludovic Courtès 2025-01-08 10:16:56 +01:00
parent e1b87bd651
commit 1c9984fc2a
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 16 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

21
guix/build/julia-build-system.scm
View file

@ -3,6 +3,7 @@
;;; Copyright © 2021 Jean-Baptiste Volatier <jbv@pm.me>
;;; Copyright © 2021, 2022 Simon Tournier <zimon.toutoune@gmail.com>
;;; Copyright © 2022 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2025 Ludovic Courtès <ludo@gnu.org>
;;;
;;; This file is part of GNU Guix.
;;;
@ -109,6 +110,8 @@ (define* (check #:key tests? source inputs outputs julia-package-name
(let* ((out (assoc-ref outputs "out"))
(package (or julia-package-name (project.toml->name "Project.toml")))
(builddir (string-append out "/share/julia/"))
(test-file (string-append builddir "loadpath/"
package "/test/runtests.jl"))
(job-count (if parallel-tests?
(parallel-job-count)
1))
@ -116,6 +119,9 @@ (define* (check #:key tests? source inputs outputs julia-package-name
;; than specify the exact count to use, so zero must be specified
;; to disable parallel processing...
(additional-procs (max 0 (1- job-count))))
(format (current-error-port) "running tests from '~a'~%"
test-file)
;; With a patch, SOURCE_DATE_EPOCH is honored
(setenv "SOURCE_DATE_EPOCH" "1")
(setenv "JULIA_DEPOT_PATH" builddir)
@ -125,6 +131,7 @@ (define* (check #:key tests? source inputs outputs julia-package-name
"")))
(setenv "JULIA_CPU_THREADS" (number->string job-count))
(setenv "HOME" "/tmp")
(apply invoke "julia"
`("--depwarn=yes"
,@(if (and parallel-tests? (< 0 additional-procs))
@ -133,8 +140,7 @@ (define* (check #:key tests? source inputs outputs julia-package-name
(list (string-append "--procs="
(number->string additional-procs)))
'())
,(string-append builddir "loadpath/"
package "/test/runtests.jl"))))))
,test-file)))))
(define* (link-depot #:key source inputs outputs
julia-package-name julia-package-uuid
@ -170,9 +176,12 @@ (define* (link-depot #:key source inputs outputs
;; Where XXXX is a slug encoding the package UUID and SHA1 of the files
;; Here we create a link with the correct path to enable julia to find the
;; package
(mkdir-p (string-append out "/share/julia/packages/" package-name))
(symlink package-dir (string-append out "/share/julia/packages/"
package-name "/" slug))))
(let ((target (string-append out "/share/julia/packages/" package-name
"/" slug)))
(format (current-error-port) "linking '~a' to '~a'~%"
target package-dir)
(mkdir-p (dirname target))
(symlink package-dir target))))
(define* (julia-create-package-toml location
name uuid version
@ -182,6 +191,8 @@ (define* (julia-create-package-toml location
(file "Project.toml"))
"Some packages are not using the new Project.toml dependency specifications.
Write this FILE manually, so that Julia can find its dependencies."
(format (current-error-port) "creating '~a' for package ~a/~a/~a~%"
file name uuid version)
(let ((f (open-file
(string-append location "/" file)
"w")))