gnu: maxima: Ensure binutils are available at runtime.

* gnu/packages/maths.scm (maxima)[arguments]: Use modify-phases syntax.
Modify 'post-install' phase.
This commit is contained in:
Kei Kebreau 2017-07-08 18:57:15 -04:00
parent 6b2eafaaa8
commit 0093b1262b
No known key found for this signature in database
GPG key ID: E6A5EE3C19467A0D

View file

@ -2097,19 +2097,22 @@ (define-public maxima
;; '/tmp/nix-build-maxima-*', which won't exist at run time. ;; '/tmp/nix-build-maxima-*', which won't exist at run time.
;; Work around that. ;; Work around that.
#:make-flags (list "TMPDIR=/tmp") #:make-flags (list "TMPDIR=/tmp")
#:phases (alist-cons-before #:phases
'check 'pre-check (modify-phases %standard-phases
(add-before 'check 'pre-check
(lambda _ (lambda _
(chmod "src/maxima" #o555)) (chmod "src/maxima" #o555)
#t))
;; Make sure the doc and emacs files are found in the ;; Make sure the doc and emacs files are found in the
;; standard location. Also configure maxima to find gnuplot ;; standard location. Also configure maxima to find gnuplot
;; without having it on the PATH. ;; without having it on the PATH.
(alist-cons-after (add-after 'install 'post-install
'install 'post-install
(lambda* (#:key outputs inputs #:allow-other-keys) (lambda* (#:key outputs inputs #:allow-other-keys)
(let* ((gnuplot (assoc-ref inputs "gnuplot")) (let* ((gnuplot (assoc-ref inputs "gnuplot"))
(out (assoc-ref outputs "out")) (out (assoc-ref outputs "out"))
(datadir (string-append out "/share/maxima/" ,version))) (datadir (string-append out "/share/maxima/" ,version))
(binutils (string-append (assoc-ref inputs "binutils")
"/bin")))
(with-directory-excursion out (with-directory-excursion out
(mkdir-p "share/emacs") (mkdir-p "share/emacs")
(mkdir-p "share/doc") (mkdir-p "share/doc")
@ -2125,8 +2128,12 @@ (define-public maxima
(format out "~a ~s~a~%" (format out "~a ~s~a~%"
"(setf $gnuplot_command " "(setf $gnuplot_command "
(string-append gnuplot "/bin/gnuplot") ")") (string-append gnuplot "/bin/gnuplot") ")")
(dump-port in out)))))) (dump-port in out))))
%standard-phases)))) ;; Ensure that Maxima will have access to the GNU binutils
;; components at runtime.
(wrap-program (string-append out "/bin/maxima")
`("PATH" prefix (,binutils))))
#t)))))
(home-page "http://maxima.sourceforge.net") (home-page "http://maxima.sourceforge.net")
(synopsis "Numeric and symbolic expression manipulation") (synopsis "Numeric and symbolic expression manipulation")
(description "Maxima is a system for the manipulation of symbolic and (description "Maxima is a system for the manipulation of symbolic and