me/guix
Archived
1
0
Fork 0
Code Activity

gnu: lsof: Fix indentation.

Browse source 
* gnu/packages/lsof.scm (lsof): Fix indentation.
This commit is contained in:
Maxim Cournoyer 2021-10-15 00:27:51 -04:00
parent 46ecaa46b5
commit d1be2661ca
No known key found for this signature in database
GPG key ID: 1260E46482E63562
1 changed files with 68 additions and 68 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

136
gnu/packages/lsof.scm
View file

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