mirror/guix
mirror/guix
1
Fork 0
mirror of https://https.git.savannah.gnu.org/git/guix.git/ synced 2025-07-14 19:10:49 +02:00
Code Releases Activity

gnu: fasthenry: Use GEXPs.

Browse source 
* gnu/packages/engineering.scm (fasthenry): Use GEXPs.

Change-Id: I045469fc002fc7c05067974dc82516c1e3af9ab7
This commit is contained in:
Artyom V. Poptsov 2025-03-22 20:57:02 +03:00
parent d9adaebcc2
commit 79886293a8
No known key found for this signature in database
GPG key ID: 935EBE0736DC857E
1 changed files with 21 additions and 22 deletions
Download patch file Download diff file Expand all files Collapse all files

19
gnu/packages/engineering.scm
View file

@ -777,28 +777,27 @@ multipole-accelerated algorithm.")
(native-inputs (list gcc-9))
(build-system gnu-build-system)
(arguments
`(#:make-flags '("CC=gcc" "RM=rm" "SHELL=sh" "all")
(list #:make-flags #~(list "CC=gcc" "RM=rm" "SHELL=sh" "all")
#:parallel-build? #f
#:tests? #f ;; no tests-suite
#:modules ((srfi srfi-1)
#:modules `((srfi srfi-1)
,@%default-gnu-modules)
#:phases
(modify-phases %standard-phases
#~(modify-phases %standard-phases
(delete 'configure)
(replace 'install
(lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(data (string-append out "/share"))
(bin (string-append out "/bin"))
(doc (string-append data "/doc/" ,name "-" ,version))
(lambda _
(let* ((data (string-append #$output "/share"))
(bin (string-append #$output "/bin"))
(doc (string-append data "/doc/"
#$name "-" #$version))
(examples (string-append doc "/examples")))
(with-directory-excursion "bin"
(for-each (lambda (f)
(install-file f bin))
(find-files "." ".*")))
(copy-recursively "doc" doc)
(copy-recursively "examples" examples)
#t))))))
(copy-recursively "examples" examples)))))))
(home-page "https://www.rle.mit.edu/cpg/research_codes.htm")
(synopsis "Multipole-accelerated inductance analysis program")
(description