ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2025-01-13 22:50:23 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: giac: Use G-expressions.

Browse source 
* gnu/packages/algebra.scm (giac)[arguments]: Use G-expressions.
This commit is contained in:
Nicolas Goaziou 2022-03-11 02:05:04 +01:00
parent cc9ab4b895
commit c5895b5d23
No known key found for this signature in database
GPG key ID: DA00B4F048E92F2D
1 changed files with 32 additions and 31 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

29
gnu/packages/algebra.scm
View file

@ -69,6 +69,7 @@ (define-module (gnu packages algebra)
#:use-module (guix build-system python) #:use-module (guix build-system python)
#:use-module (guix build-system r) #:use-module (guix build-system r)
#:use-module (guix download) #:use-module (guix download)
#:use-module (guix gexp)
#:use-module (guix git-download) #:use-module (guix git-download)
#:use-module (guix hg-download) #:use-module (guix hg-download)
#:use-module ((guix licenses) #:prefix license:) #:use-module ((guix licenses) #:prefix license:)
@ -343,11 +344,12 @@ (define-public giac
(base32 "0wgqa2nxpv652348fxpchx5zvaj6ssc403jxwsdp5ky9pdpap2zs")))) (base32 "0wgqa2nxpv652348fxpchx5zvaj6ssc403jxwsdp5ky9pdpap2zs"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
`(#:modules ((ice-9 ftw) (list
#:modules '((ice-9 ftw)
(guix build utils) (guix build utils)
(guix build gnu-build-system)) (guix build gnu-build-system))
#:phases #:phases
(modify-phases %standard-phases #~(modify-phases %standard-phases
(add-after 'unpack 'patch-bin-cp (add-after 'unpack 'patch-bin-cp
;; Some Makefiles contain hard-coded "/bin/cp". ;; Some Makefiles contain hard-coded "/bin/cp".
(lambda _ (lambda _
@ -360,22 +362,21 @@ (define-public giac
(substitute* "check/Makefile.in" (substitute* "check/Makefile.in"
(("chk_fhan11") "")))) (("chk_fhan11") ""))))
(add-after 'install 'fix-doc (add-after 'install 'fix-doc
(lambda* (#:key outputs #:allow-other-keys) (lambda _
(let ((out (assoc-ref outputs "out"))) ;; Most French documentation has a non-commercial license, so we
;; Most French documentation has a non-commercial ;; need to remove it.
;; license, so we need to remove it. (with-directory-excursion
(with-directory-excursion (string-append out "/share/giac/doc/fr") (string-append #$output "/share/giac/doc/fr")
(for-each delete-file-recursively (for-each delete-file-recursively
'("cascas" "casexo" "casgeo" "casrouge" "cassim" '("cascas" "casexo" "casgeo" "casrouge" "cassim"
"castor"))) "castor")))
;; Remove duplicate documentation in ;; Remove duplicate documentation in "%out/share/doc/giac/",
;; "%out/share/doc/giac/", where Xcas does not expect ;; where Xcas does not expect to find it.
;; to find it. (delete-file-recursively
(delete-file-recursively (string-append out "/share/doc/giac"))))) (string-append #$output "/share/doc/giac"))))
(add-after 'install 'remove-unnecessary-executable (add-after 'install 'remove-unnecessary-executable
(lambda* (#:key outputs #:allow-other-keys) (lambda _
(let ((out (assoc-ref outputs "out"))) (delete-file (string-append #$output "/bin/xcasnew")))))))
(delete-file (string-append out "/bin/xcasnew"))))))))
(inputs (inputs
;; TODO: Add libnauty, unbundle "libmicropython.a". ;; TODO: Add libnauty, unbundle "libmicropython.a".
(list ao (list ao