Maxim Cournoyer
parent
46ecaa46b5
commit
d1be2661ca
|
|
@ -32,76 +32,76 @@
|
|||
|
||||
(define-public lsof
|
||||
(package
|
||||
(name "lsof")
|
||||
(version "4.94.0")
|
||||
(source
|
||||
(origin
|
||||
(method git-fetch)
|
||||
(uri (git-reference
|
||||
(url "https://github.com/lsof-org/lsof")
|
||||
(commit version)))
|
||||
(file-name (git-file-name name version))
|
||||
(sha256
|
||||
(base32 "0yxv2jg6rnzys49lyrz9yjb4knamah4xvlqj596y6ix3vm4k3chp"))
|
||||
(patches (search-patches "lsof-fatal-test-failures.patch"))))
|
||||
(build-system gnu-build-system)
|
||||
(native-inputs
|
||||
`(("groff" ,groff) ; for soelim
|
||||
("perl" ,perl)))
|
||||
(arguments
|
||||
`(#:phases
|
||||
(modify-phases %standard-phases
|
||||
(replace 'configure
|
||||
(lambda _
|
||||
(setenv "LSOF_CC" ,(cc-for-target))
|
||||
(setenv "LSOF_MAKE" "make")
|
||||
(name "lsof")
|
||||
(version "4.94.0")
|
||||
(source
|
||||
(origin
|
||||
(method git-fetch)
|
||||
(uri (git-reference
|
||||
(url "https://github.com/lsof-org/lsof")
|
||||
(commit version)))
|
||||
(file-name (git-file-name name version))
|
||||
(sha256
|
||||
(base32 "0yxv2jg6rnzys49lyrz9yjb4knamah4xvlqj596y6ix3vm4k3chp"))
|
||||
(patches (search-patches "lsof-fatal-test-failures.patch"))))
|
||||
(build-system gnu-build-system)
|
||||
(native-inputs
|
||||
`(("groff" ,groff) ; for soelim
|
||||
("perl" ,perl)))
|
||||
(arguments
|
||||
`(#:phases
|
||||
(modify-phases %standard-phases
|
||||
(replace 'configure
|
||||
(lambda _
|
||||
(setenv "LSOF_CC" ,(cc-for-target))
|
||||
(setenv "LSOF_MAKE" "make")
|
||||
|
||||
;; By default, the makefile captures the output of 'uname -a'.
|
||||
;; Provide a fixed output instead to make builds reproducible.
|
||||
(setenv "LSOF_SYSINFO"
|
||||
(string-append "GNU/" (utsname:sysname (uname))
|
||||
" (GNU Guix)"))
|
||||
;; By default, the makefile captures the output of 'uname -a'.
|
||||
;; Provide a fixed output instead to make builds reproducible.
|
||||
(setenv "LSOF_SYSINFO"
|
||||
(string-append "GNU/" (utsname:sysname (uname))
|
||||
" (GNU Guix)"))
|
||||
|
||||
(invoke "./Configure" "linux")))
|
||||
(add-after 'configure 'patch-timestamps
|
||||
(lambda _
|
||||
(substitute* "Makefile"
|
||||
(("`date`") "`date --date=@1`"))))
|
||||
(add-after 'build 'build-man-page
|
||||
(lambda _
|
||||
(with-output-to-file "lsof.8"
|
||||
(lambda _ (invoke "soelim" "Lsof.8")))))
|
||||
(add-before 'check 'disable-failing-tests
|
||||
(lambda _
|
||||
(substitute* "tests/Makefile"
|
||||
;; Fails with ‘ERROR!!! client gethostbyaddr() failure’.
|
||||
(("(STDTST=.*) LTsock" _ prefix) prefix)
|
||||
;; LTnfs fails without access to a remote NFS server, and LTlock
|
||||
;; fails when run on a Btrfs file system (see:
|
||||
;; https://github.com/lsof-org/lsof/issues/152).
|
||||
(("OPTTST=[[:space:]]*LTbigf LTdnlc LTlock LTnfs")
|
||||
"OPTTST = LTbigf LTdnlc"))))
|
||||
(replace 'check
|
||||
(lambda* (#:key tests? #:allow-other-keys)
|
||||
(when tests?
|
||||
(with-directory-excursion "tests"
|
||||
;; Tests refuse to run on ‘unvalidated’ platforms.
|
||||
(make-file-writable "TestDB")
|
||||
(invoke "./Add2TestDB")
|
||||
(invoke "./Configure" "linux")))
|
||||
(add-after 'configure 'patch-timestamps
|
||||
(lambda _
|
||||
(substitute* "Makefile"
|
||||
(("`date`") "`date --date=@1`"))))
|
||||
(add-after 'build 'build-man-page
|
||||
(lambda _
|
||||
(with-output-to-file "lsof.8"
|
||||
(lambda _ (invoke "soelim" "Lsof.8")))))
|
||||
(add-before 'check 'disable-failing-tests
|
||||
(lambda _
|
||||
(substitute* "tests/Makefile"
|
||||
;; Fails with ‘ERROR!!! client gethostbyaddr() failure’.
|
||||
(("(STDTST=.*) LTsock" _ prefix) prefix)
|
||||
;; LTnfs fails without access to a remote NFS server, and LTlock
|
||||
;; fails when run on a Btrfs file system (see:
|
||||
;; https://github.com/lsof-org/lsof/issues/152).
|
||||
(("OPTTST=[[:space:]]*LTbigf LTdnlc LTlock LTnfs")
|
||||
"OPTTST = LTbigf LTdnlc"))))
|
||||
(replace 'check
|
||||
(lambda* (#:key tests? #:allow-other-keys)
|
||||
(when tests?
|
||||
(with-directory-excursion "tests"
|
||||
;; Tests refuse to run on ‘unvalidated’ platforms.
|
||||
(make-file-writable "TestDB")
|
||||
(invoke "./Add2TestDB")
|
||||
|
||||
;; The ‘standard’ tests suggest running ‘optional’ ones as well.
|
||||
(invoke "make" "standard" "optional")))))
|
||||
(replace 'install
|
||||
(lambda* (#:key outputs #:allow-other-keys)
|
||||
(let ((out (assoc-ref outputs "out")))
|
||||
(install-file "lsof" (string-append out "/bin"))
|
||||
(install-file "lsof.8" (string-append out "/share/man/man8"))))))))
|
||||
(synopsis "Display information about open files")
|
||||
(description
|
||||
"Lsof stands for LiSt Open Files, and it does just that.
|
||||
;; The ‘standard’ tests suggest running ‘optional’ ones as well.
|
||||
(invoke "make" "standard" "optional")))))
|
||||
(replace 'install
|
||||
(lambda* (#:key outputs #:allow-other-keys)
|
||||
(let ((out (assoc-ref outputs "out")))
|
||||
(install-file "lsof" (string-append out "/bin"))
|
||||
(install-file "lsof.8" (string-append out "/share/man/man8"))))))))
|
||||
(synopsis "Display information about open files")
|
||||
(description
|
||||
"Lsof stands for LiSt Open Files, and it does just that.
|
||||
It lists information about files that are open by the processes running
|
||||
on the system.")
|
||||
(license (license:fsf-free
|
||||
"file://00FAQ"
|
||||
"License inspired by zlib, see point 1.9 of 00FAQ in the distribution."))
|
||||
(home-page "https://people.freebsd.org/~abe/")))
|
||||
(license (license:fsf-free
|
||||
"file://00FAQ"
|
||||
"License inspired by zlib, see point 1.9 of 00FAQ in the distribution."))
|
||||
(home-page "https://people.freebsd.org/~abe/")))
|
||||
|
|
|
|||
Reference in New Issue