mirror/guix
mirror/guix
1
Fork 0
mirror of https://https.git.savannah.gnu.org/git/guix.git/ synced 2025-07-14 11:00:36 +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

43
gnu/packages/engineering.scm
View file

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