amaharaneko/guix-mirrors
1
1
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2025-10-02 02:15:12 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: Add px.

Browse source 
* gnu/packages/admin.scm (px): New variable.

Change-Id: Ieae0b47e668a78795ec180fced017fe807a8b248
This commit is contained in:
Danny Milosavljevic 2025-03-10 19:27:33 +01:00
parent 5b4ae0b5c2
commit 001d6121d8
No known key found for this signature in database
GPG key ID: E71A35542C30BAA5
1 changed files with 81 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

81
gnu/packages/admin.scm
View file

@ -168,6 +168,7 @@
#:use-module (gnu packages libusb) #:use-module (gnu packages libusb)
#:use-module (gnu packages linux) #:use-module (gnu packages linux)
#:use-module (gnu packages logging) #:use-module (gnu packages logging)
#:use-module (gnu packages lsof)
#:use-module (gnu packages lua) #:use-module (gnu packages lua)
#:use-module (gnu packages m4) #:use-module (gnu packages m4)
#:use-module (gnu packages mail) #:use-module (gnu packages mail)
@ -6818,3 +6819,83 @@ backup directories or just finding duplicate files.")
services. It aggregates system logs and blocks repeat offenders using one of services. It aggregates system logs and blocks repeat offenders using one of
several firewall backends.") several firewall backends.")
(license license:isc))) (license license:isc)))
(define-public px
(package
(name "px")
(version "3.6.5")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/walles/px.git")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32
"0zhh3y8caww6rxy9ppg60ls1505s5z1jmnahr5v31r94vzlp4h8v"))))
(build-system python-build-system)
(arguments
(list #:phases
#~(modify-phases %standard-phases
(add-after 'unpack 'patch-git
(lambda* (#:key inputs #:allow-other-keys)
(substitute* (find-files "px" "\\.py$")
;; We don't have MacOS X programs.
(("px_exec_util[.]run[(]\\[\"(vm_stat)\"" all x)
(string-append "px_exec_util.run([\""
"/bin/false"
"\""))
;; Patch names of executables in "sbin".
(("px_exec_util[.]run[(]\\[\"(sysctl)\"" all x)
(string-append "px_exec_util.run([\""
(search-input-file inputs
(string-append "sbin/" x))
"\""))
;; Patch names of executables in "bin".
(("px_exec_util[.]run[(]\\[\"([^/\"]*)\"" all x)
(string-append "px_exec_util.run([\""
(search-input-file inputs
(string-append "bin/" x))
"\"")))
(substitute* "px/px_process.py"
;; Patch path name of "ps" executable.
(("\"/bin/ps\"") (string-append "\""
(assoc-ref inputs "procps")
"/bin/ps\"")))
(substitute* '("setup.py" "devbin/update_version_py.py")
;; Patch "git describe", replacing it by its result.
(("subprocess.check_output.*git.*describe.*")
(string-append "\"" #$version "\"\n")))))
(add-before 'check 'prepare-check
(lambda _
(substitute* "tests/px_terminal_test.py"
;; We don't have /etc/passwd so the output will not say "root".
(("root") "0 "))
(substitute* "tests/px_process_test.py"
;; Our containers don't have the kernel visible.
(("len[(]all_processes[)] >= 4")
"len(all_processes) >= 3")
;; We don't have /etc/passwd so the output will not say "root".
(("\"root\"") "\"0\""))
(setenv "PYTEST_ADDOPTS"
(string-append "-vv -k \"not "
(string-join
'(;; Network tests cannot succeed.
"test_stdfds_ipc_and_network"
;; Network tests cannot succeed.
"test_str_resolve"
;; Tiny difference in color.
"test_to_screen_lines_unbounded")
" and not ")
"\"")))))))
(native-inputs
(list pkg-config python-setuptools python-wheel python-pytest
python-pytest-runner python-dateutil))
(inputs
(list lsof net-tools procps sysstat util-linux))
(synopsis "ps, top and pstree for human beings")
(description "This package provides a way to figure out which processes
communicate with which other processes. It provides more usable versions
of ps, top and pstree.")
(home-page "https://github.com/walles/px")
(license license:expat)))