Browse Source

distro: Add procps.

* distro/packages/linux.scm (procps): New variable.
Ludovic Courtès 8 years ago
1 changed files with 58 additions and 1 deletions
  1. +58

+ 58
- 1
distro/packages/linux.scm View File

@ -1,5 +1,5 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2012 Ludovic Courtès <>
;;; Copyright © 2012, 2013 Ludovic Courtès <>
;;; Copyright © 2012 Nikita Karetnikov <>
;;; This file is part of GNU Guix.
@ -19,6 +19,7 @@
(define-module (distro packages linux)
#:use-module (guix licenses)
#:use-module (distro)
#:use-module ((distro packages compression)
#:renamer (symbol-prefix-proc 'guix:))
#:use-module (distro packages flex)
@ -178,6 +179,62 @@ providing the system administrator with some help in common tasks.")
(license '(gpl3+ gpl2+ gpl2 lgpl2.0+
bsd-4 public-domain))))
(define-public procps
(name "procps")
(version "3.2.8")
(source (origin
(method url-fetch)
(uri (string-append ""
version ".tar.gz"))
(build-system gnu-build-system)
(inputs `(("ncurses" ,ncurses)
("patch/make-3.82" ,(search-patch "procps-make-3.82.patch"))))
'(#:patches (list (assoc-ref %build-inputs "patch/make-3.82"))
#:phases (alist-replace
(lambda* (#:key outputs #:allow-other-keys)
;; No `configure', just a single Makefile.
(let ((out (assoc-ref outputs "out")))
(substitute* "Makefile"
(("/usr/") "/")
(("--(owner|group) 0") "")
(("ldconfig") "true")
(("^LDFLAGS[[:blank:]]*:=(.*)$" _ value)
;; Add libproc to the RPATH.
(string-append "LDFLAGS := -Wl,-rpath="
out "/lib" value))))
(setenv "CC" "gcc"))
(lambda* (#:key outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out")))
(and (zero?
(system* "make" "install"
(string-append "DESTDIR=" out)))
;; Sanity check.
(system* (string-append out "/bin/ps")
;; What did you expect? Tests?
#:tests? #f))
(home-page "")
"Utilities that give information about processes using the /proc filesystem")
"procps is the package that has a bunch of small useful utilities
that give information about processes using the Linux /proc file system.
The package includes the programs ps, top, vmstat, w, kill, free,
slabtop, and skill.")
(license gpl2)))
(define-public usbutils
(name "usbutils")