gnu: lsof: Use 'modify-phases' syntax.
* gnu/packages/lsof.scm (lsof)[arguments]: Use 'modify-phases' syntax.
This commit is contained in:
parent
d5fa9fd1fe
commit
b6ea329a32
|
@ -1,5 +1,6 @@
|
|||
;;; GNU Guix --- Functional package management for GNU
|
||||
;;; Copyright © 2013 Andreas Enge <andreas@enge.fr>
|
||||
;;; Copyright © 2017 Efraim Flashner <efraim@flashner.co.il>
|
||||
;;;
|
||||
;;; This file is part of GNU Guix.
|
||||
;;;
|
||||
|
@ -57,31 +58,27 @@
|
|||
(arguments
|
||||
`(#:tests? #f ; no test target
|
||||
#:phases
|
||||
(alist-replace
|
||||
'unpack
|
||||
(lambda* (#:key source #:allow-other-keys)
|
||||
(let ((unpack (assoc-ref %standard-phases 'unpack)))
|
||||
(unpack #:source source)
|
||||
(unpack #:source (car (find-files "." "\\.tar$")))))
|
||||
(alist-replace
|
||||
'configure
|
||||
(lambda _
|
||||
(setenv "LSOF_CC" "gcc")
|
||||
(setenv "LSOF_MAKE" "make")
|
||||
(system* "./Configure" "linux"))
|
||||
(alist-replace
|
||||
'install
|
||||
(lambda* (#:key outputs #:allow-other-keys)
|
||||
(let ((out (assoc-ref outputs "out")))
|
||||
(mkdir out)
|
||||
(mkdir (string-append out "/bin"))
|
||||
(copy-file "lsof" (string-append out "/bin/lsof"))
|
||||
(mkdir (string-append out "/share"))
|
||||
(mkdir (string-append out "/share/man"))
|
||||
(mkdir (string-append out "/share/man/man8"))
|
||||
(copy-file "lsof.8" (string-append out "/share/man/man8/lsof.8"))
|
||||
))
|
||||
%standard-phases)))))
|
||||
(modify-phases %standard-phases
|
||||
(replace 'unpack
|
||||
(lambda* (#:key source #:allow-other-keys)
|
||||
(let ((unpack (assoc-ref %standard-phases 'unpack)))
|
||||
(unpack #:source source)
|
||||
(unpack #:source (car (find-files "." "\\.tar$"))))))
|
||||
(replace 'configure
|
||||
(lambda _
|
||||
(setenv "LSOF_CC" "gcc")
|
||||
(setenv "LSOF_MAKE" "make")
|
||||
(zero? (system* "./Configure" "linux"))))
|
||||
(replace 'install
|
||||
(lambda* (#:key outputs #:allow-other-keys)
|
||||
(let ((out (assoc-ref outputs "out")))
|
||||
(mkdir out)
|
||||
(mkdir (string-append out "/bin"))
|
||||
(copy-file "lsof" (string-append out "/bin/lsof"))
|
||||
(mkdir (string-append out "/share"))
|
||||
(mkdir (string-append out "/share/man"))
|
||||
(mkdir (string-append out "/share/man/man8"))
|
||||
(copy-file "lsof.8" (string-append out "/share/man/man8/lsof.8"))))))))
|
||||
(synopsis "Display information about open files")
|
||||
(description
|
||||
"Lsof stands for LiSt Open Files, and it does just that.
|
||||
|
|
Loading…
Reference in New Issue