TakeV/guix
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

gnu: lpsolve: Update phase style.

Browse source 
* gnu/packages/maths.scm (lpsolve)[arguments]: Use INVOKE and
INSTALL-FILE, and end phases with #t.
This commit is contained in:
Tobias Geerinckx-Rice 2018-02-21 05:15:55 +01:00
parent be5dc5fb18
commit 6c96b5452c
No known key found for this signature in database
GPG key ID: 0DB0FF884F556D79
1 changed files with 9 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
gnu/packages/maths.scm
View file

@ -3073,16 +3073,17 @@ (define-public lpsolve
(("isnan\\(0\\)") "isnan(0.)")))))
(build-system gnu-build-system)
(arguments
`(#:tests? #f ; no check target
`(#:tests? #f ; no check target
#:phases
(modify-phases %standard-phases
(delete 'configure)
(delete 'configure) ; no configure script
(replace 'build
(lambda _
(and (with-directory-excursion "lpsolve55"
(zero? (system* "bash" "ccc")))
(with-directory-excursion "lp_solve"
(zero? (system* "bash" "ccc"))))))
(with-directory-excursion "lpsolve55"
(invoke "bash" "ccc"))
(with-directory-excursion "lp_solve"
(invoke "bash" "ccc"))
#t))
(replace 'install
(lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
@ -3091,11 +3092,8 @@ (define-public lpsolve
;; This is where LibreOffice expects to find the header
;; files, and where they are installed by Debian.
(include (string-append out "/include/lpsolve")))
(mkdir-p lib)
(copy-file "lpsolve55/bin/ux64/liblpsolve55.a"
(string-append lib "/liblpsolve55.a"))
(copy-file "lpsolve55/bin/ux64/liblpsolve55.so"
(string-append lib "/liblpsolve55.so"))
(install-file "lpsolve55/bin/ux64/liblpsolve55.a" lib)
(install-file "lpsolve55/bin/ux64/liblpsolve55.so" lib)
(install-file "lp_solve/bin/ux64/lp_solve" bin)
;; Install a subset of the header files as on Debian