diff options
| author | Giacomo Leidi <therewasa@fishinthecalculator.me> | 2026-01-02 21:07:37 +0100 |
|---|---|---|
| committer | Giacomo Leidi <therewasa@fishinthecalculator.me> | 2026-03-07 22:28:01 +0100 |
| commit | 25548ddbf26e4faf78c5c76bec789d51c0cbe366 (patch) | |
| tree | 30ecb94760f6a0ad14596668ffef150b311b4985 /gnu/packages/virtualization.scm | |
| parent | a25014dda385d15d446ac9d6d58c463c43cfc16f (diff) | |
gnu: Add virt-what.
* gnu/packages/virtualization.scm (virt-what): New variable.
Change-Id: I8fee626b3525dd4b81b2cd1dc3628f090af8d84b
Co-authored-by: Nguyễn Gia Phong <cnx@loang.net>
Diffstat (limited to 'gnu/packages/virtualization.scm')
| -rw-r--r-- | gnu/packages/virtualization.scm | 45 |
1 files changed, 44 insertions, 1 deletions
diff --git a/gnu/packages/virtualization.scm b/gnu/packages/virtualization.scm index 434eea4e7e5..e8ab4616bb4 100644 --- a/gnu/packages/virtualization.scm +++ b/gnu/packages/virtualization.scm @@ -38,11 +38,12 @@ ;;; Copyright © 2024 jgart <jgart@dismail.de> ;;; Copyright © 2024, 2025 Ashish SHUKLA <ashish.is@lostca.se> ;;; Copyright © 2024 Jakob Kirsch <jakob.kirsch@web.de> -;;; Copyright © 2024, 2025 Giacomo Leidi <therewasa@fishinthecalculator.me> +;;; Copyright © 2024-2026 Giacomo Leidi <therewasa@fishinthecalculator.me> ;;; Copyright © 2024 Artyom V. Poptsov <poptsov.artyom@gmail.com> ;;; Copyright © 2025 Karl Hallsby <karl@hallsby.com> ;;; Copyright © 2025 Douglas Deslauriers <Douglas.Deslauriers@vector.com> ;;; Copyright © 2025 Andreas Enge <andreas@enge.fr> +;;; Copyright © 2026 Nguyễn Gia Phong <cnx@loang.net> ;;; ;;; This file is part of GNU Guix. ;;; @@ -3858,3 +3859,45 @@ create_header")))))))))) libxcrypt numactl yajl))))) + +(define-public virt-what + (package + (name "virt-what") + (version "1.27") + (source (origin + (method url-fetch) + (uri (string-append "https://people.redhat.com/~rjones/virt-what/" + "files/" name "-" version ".tar.gz")) + (sha256 + (base32 + "1wcvqs5g6b86bym75f1h8gmwf5ak95iwdyj3ficrb4759afvvnfl")))) + (build-system gnu-build-system) + (arguments + (list #:phases + #~(modify-phases %standard-phases + (add-after 'install 'wrap-binaries + (lambda* (#:key inputs #:allow-other-keys) + (substitute* (string-append #$output "/sbin/virt-what") + (("^PATH=\".*\"") + (simple-format #f "PATH=\"~a\"" + (string-join + (search-path-as-list '("bin" "sbin" "libexec") + (cons #$output (map cdr inputs))) + ":"))))))))) + (native-inputs + (list perl)) + (inputs + (list coreutils + bash-minimal + dmidecode + util-linux + which)) + (home-page "https://people.redhat.com/~rjones/virt-what/") + (synopsis "Detect if running in a virtual machine") + (description + "@code{virt-what} is a program which can be used to detect if the program +is running in a virtual machine. + +The program prints out a list of \"facts\" about the virtual machine, +derived from heuristics. One fact is printed per line.") + (license license:gpl2+))) |