2013-01-06 00:47:50 +01:00
|
|
|
|
;;; GNU Guix --- Functional package management for GNU
|
2017-01-10 18:18:17 +01:00
|
|
|
|
;;; Copyright © 2012, 2013, 2014, 2015, 2016, 2017 Ludovic Courtès <ludo@gnu.org>
|
2016-02-03 21:03:46 +01:00
|
|
|
|
;;; Copyright © 2013, 2014, 2015, 2016 Andreas Enge <andreas@enge.fr>
|
2013-01-06 00:47:50 +01:00
|
|
|
|
;;; Copyright © 2012 Nikita Karetnikov <nikita@karetnikov.org>
|
2018-01-10 21:52:55 +01:00
|
|
|
|
;;; Copyright © 2014, 2015, 2016, 2017, 2018 Mark H Weaver <mhw@netris.org>
|
2015-01-13 16:25:29 +01:00
|
|
|
|
;;; Copyright © 2015 Federico Beffa <beffa@fbengineering.ch>
|
2015-02-09 23:35:03 +01:00
|
|
|
|
;;; Copyright © 2015 Taylan Ulrich Bayırlı/Kammer <taylanbayirli@gmail.com>
|
2018-01-09 21:46:04 +01:00
|
|
|
|
;;; Copyright © 2015, 2016, 2017, 2018 Efraim Flashner <efraim@flashner.co.il>
|
2016-01-18 05:34:25 +01:00
|
|
|
|
;;; Copyright © 2016 Christopher Allan Webber <cwebber@dustycloud.org>
|
2018-01-05 11:14:21 +01:00
|
|
|
|
;;; Copyright © 2016, 2017, 2018 Tobias Geerinckx-Rice <me@tobias.gr>
|
2017-02-17 11:28:16 +01:00
|
|
|
|
;;; Copyright © 2016, 2017 Alex Kost <alezost@gmail.com>
|
2016-03-30 14:05:19 +02:00
|
|
|
|
;;; Copyright © 2016 Raymond Nicholson <rain1@openmailbox.org>
|
2016-04-18 21:36:42 +02:00
|
|
|
|
;;; Copyright © 2016 Mathieu Lirzin <mthl@gnu.org>
|
2018-02-10 12:47:59 +01:00
|
|
|
|
;;; Copyright © 2016, 2018 Nicolas Goaziou <mail@nicolasgoaziou.fr>
|
2018-05-25 16:17:51 +02:00
|
|
|
|
;;; Copyright © 2016, 2018 Ricardo Wurmus <rekado@elephly.net>
|
2016-07-03 04:26:28 +02:00
|
|
|
|
;;; Copyright © 2016 David Craven <david@craven.ch>
|
2016-08-30 06:41:55 +02:00
|
|
|
|
;;; Copyright © 2016 John Darrington <jmd@gnu.org>
|
2018-01-05 17:51:43 +01:00
|
|
|
|
;;; Copyright © 2016, 2017, 2018 Marius Bakke <mbakke@fastmail.com>
|
2018-04-15 05:34:48 +02:00
|
|
|
|
;;; Copyright © 2016, 2018 Rene Saavedra <pacoon@protonmail.com>
|
2017-01-04 23:50:37 +01:00
|
|
|
|
;;; Copyright © 2016 Carlos Sánchez de La Lama <csanchezdll@gmail.com>
|
2018-03-21 23:23:15 +01:00
|
|
|
|
;;; Copyright © 2016, 2017 Nils Gillmann <ng0@n0.is>
|
2018-03-19 22:13:26 +01:00
|
|
|
|
;;; Copyright © 2017, 2018 Leo Famulari <leo@famulari.name>
|
2017-01-28 13:07:57 +01:00
|
|
|
|
;;; Copyright © 2017 José Miguel Sánchez García <jmi2k@openmailbox.com>
|
2017-02-07 00:13:10 +01:00
|
|
|
|
;;; Copyright © 2017 Gábor Boskovits <boskovits@gmail.com>
|
2017-01-31 22:01:18 +01:00
|
|
|
|
;;; Copyright © 2017 Mathieu Othacehe <m.othacehe@gmail.com>
|
2017-05-25 20:02:45 +02:00
|
|
|
|
;;; Copyright © 2017 Clément Lassieur <clement@lassieur.org>
|
2018-02-13 10:24:28 +01:00
|
|
|
|
;;; Copyright © 2017, 2018 Rutger Helling <rhelling@mykolab.com>
|
2017-06-10 19:12:10 +02:00
|
|
|
|
;;; Copyright © 2017 nee <nee-git@hidamari.blue>
|
2017-06-26 16:28:12 +02:00
|
|
|
|
;;; Copyright © 2017 Dave Love <fx@gnu.org>
|
2018-04-25 13:48:50 +02:00
|
|
|
|
;;; Copyright © 2018 Pierre-Antoine Rouby <pierre-antoine.rouby@inria.fr>
|
2012-11-27 21:56:37 +01:00
|
|
|
|
;;;
|
2013-01-06 00:47:50 +01:00
|
|
|
|
;;; This file is part of GNU Guix.
|
2012-11-27 21:56:37 +01:00
|
|
|
|
;;;
|
2013-01-06 00:47:50 +01:00
|
|
|
|
;;; GNU Guix is free software; you can redistribute it and/or modify it
|
2012-11-27 21:56:37 +01:00
|
|
|
|
;;; under the terms of the GNU General Public License as published by
|
|
|
|
|
;;; the Free Software Foundation; either version 3 of the License, or (at
|
|
|
|
|
;;; your option) any later version.
|
|
|
|
|
;;;
|
2013-01-06 00:47:50 +01:00
|
|
|
|
;;; GNU Guix is distributed in the hope that it will be useful, but
|
2012-11-27 21:56:37 +01:00
|
|
|
|
;;; WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
|
|
|
;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
|
|
|
;;; GNU General Public License for more details.
|
|
|
|
|
;;;
|
|
|
|
|
;;; You should have received a copy of the GNU General Public License
|
2013-01-06 00:47:50 +01:00
|
|
|
|
;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
|
2012-11-27 21:56:37 +01:00
|
|
|
|
|
2013-01-18 01:06:24 +01:00
|
|
|
|
(define-module (gnu packages linux)
|
2013-01-18 01:06:47 +01:00
|
|
|
|
#:use-module (gnu packages)
|
2016-09-01 14:33:57 +02:00
|
|
|
|
#:use-module (gnu packages acl)
|
2016-07-03 04:05:39 +02:00
|
|
|
|
#:use-module (gnu packages admin)
|
|
|
|
|
#:use-module (gnu packages algebra)
|
|
|
|
|
#:use-module (gnu packages attr)
|
|
|
|
|
#:use-module (gnu packages autotools)
|
2017-06-02 09:20:27 +02:00
|
|
|
|
#:use-module (gnu packages backup)
|
2016-07-03 04:05:39 +02:00
|
|
|
|
#:use-module (gnu packages base)
|
2017-01-31 22:01:18 +01:00
|
|
|
|
#:use-module (gnu packages bash)
|
2016-07-03 04:05:39 +02:00
|
|
|
|
#:use-module (gnu packages bison)
|
|
|
|
|
#:use-module (gnu packages calendar)
|
|
|
|
|
#:use-module (gnu packages check)
|
2016-08-24 02:51:52 +02:00
|
|
|
|
#:use-module (gnu packages crypto)
|
2015-03-04 17:02:07 +01:00
|
|
|
|
#:use-module (gnu packages compression)
|
2016-07-03 04:05:39 +02:00
|
|
|
|
#:use-module (gnu packages databases)
|
2017-02-16 01:02:08 +01:00
|
|
|
|
#:use-module (gnu packages datastructures)
|
2016-07-03 04:05:39 +02:00
|
|
|
|
#:use-module (gnu packages docbook)
|
|
|
|
|
#:use-module (gnu packages documentation)
|
|
|
|
|
#:use-module (gnu packages elf)
|
2013-01-18 01:06:24 +01:00
|
|
|
|
#:use-module (gnu packages flex)
|
2017-06-24 00:46:02 +02:00
|
|
|
|
#:use-module (gnu packages file)
|
2016-07-03 04:05:39 +02:00
|
|
|
|
#:use-module (gnu packages freedesktop)
|
|
|
|
|
#:use-module (gnu packages gcc)
|
|
|
|
|
#:use-module (gnu packages gettext)
|
|
|
|
|
#:use-module (gnu packages glib)
|
2016-08-24 02:51:52 +02:00
|
|
|
|
#:use-module (gnu packages gnuzilla)
|
2014-06-07 21:27:30 +02:00
|
|
|
|
#:use-module (gnu packages gperf)
|
2016-07-03 04:05:39 +02:00
|
|
|
|
#:use-module (gnu packages gtk)
|
2017-10-17 11:30:31 +02:00
|
|
|
|
#:use-module (gnu packages libunwind)
|
2013-01-18 01:06:24 +01:00
|
|
|
|
#:use-module (gnu packages libusb)
|
2017-01-28 13:07:57 +01:00
|
|
|
|
#:use-module (gnu packages man)
|
2016-07-03 04:05:39 +02:00
|
|
|
|
#:use-module (gnu packages maths)
|
2017-06-08 10:33:36 +02:00
|
|
|
|
#:use-module (gnu packages multiprecision)
|
2013-01-18 01:06:24 +01:00
|
|
|
|
#:use-module (gnu packages ncurses)
|
2017-12-09 22:16:08 +01:00
|
|
|
|
#:use-module (gnu packages netpbm)
|
2018-05-25 16:17:51 +02:00
|
|
|
|
#:use-module (gnu packages nettle)
|
2017-01-31 22:01:18 +01:00
|
|
|
|
#:use-module (gnu packages networking)
|
2017-03-17 09:27:31 +01:00
|
|
|
|
#:use-module (gnu packages ninja)
|
2013-01-18 01:06:24 +01:00
|
|
|
|
#:use-module (gnu packages perl)
|
2016-07-03 04:05:39 +02:00
|
|
|
|
#:use-module (gnu packages pciutils)
|
2013-01-18 01:06:24 +01:00
|
|
|
|
#:use-module (gnu packages pkg-config)
|
2016-10-07 08:28:27 +02:00
|
|
|
|
#:use-module (gnu packages popt)
|
2016-07-03 04:05:39 +02:00
|
|
|
|
#:use-module (gnu packages pulseaudio)
|
2014-01-27 17:45:21 +01:00
|
|
|
|
#:use-module (gnu packages python)
|
2016-07-03 04:05:39 +02:00
|
|
|
|
#:use-module (gnu packages readline)
|
|
|
|
|
#:use-module (gnu packages rrdtool)
|
2017-05-11 17:48:58 +02:00
|
|
|
|
#:use-module (gnu packages samba)
|
2015-01-21 14:54:56 +01:00
|
|
|
|
#:use-module (gnu packages slang)
|
2017-02-16 01:02:08 +01:00
|
|
|
|
#:use-module (gnu packages storage)
|
2014-05-06 14:26:49 +02:00
|
|
|
|
#:use-module (gnu packages texinfo)
|
2015-12-10 15:34:42 +01:00
|
|
|
|
#:use-module (gnu packages tls)
|
2017-02-16 01:02:08 +01:00
|
|
|
|
#:use-module (gnu packages valgrind)
|
2016-12-20 15:53:31 +01:00
|
|
|
|
#:use-module (gnu packages video)
|
2017-04-18 15:42:40 +02:00
|
|
|
|
#:use-module (gnu packages web)
|
2016-12-20 15:53:31 +01:00
|
|
|
|
#:use-module (gnu packages xiph)
|
2016-07-03 04:05:39 +02:00
|
|
|
|
#:use-module (gnu packages xml)
|
2016-10-28 00:56:10 +02:00
|
|
|
|
#:use-module (gnu packages xdisorg)
|
|
|
|
|
#:use-module (gnu packages xorg)
|
2017-06-26 16:28:12 +02:00
|
|
|
|
#:use-module (gnu packages groff)
|
|
|
|
|
#:use-module (gnu packages selinux)
|
2017-08-02 14:39:28 +02:00
|
|
|
|
#:use-module (gnu packages swig)
|
2014-03-10 22:31:08 +01:00
|
|
|
|
#:use-module (guix build-system cmake)
|
2016-07-03 04:05:39 +02:00
|
|
|
|
#:use-module (guix build-system gnu)
|
2014-05-03 16:37:04 +02:00
|
|
|
|
#:use-module (guix build-system python)
|
2014-07-10 00:31:31 +02:00
|
|
|
|
#:use-module (guix build-system trivial)
|
2016-07-03 04:05:39 +02:00
|
|
|
|
#:use-module (guix download)
|
2017-07-26 02:33:27 +02:00
|
|
|
|
#:use-module (guix git-download)
|
2016-07-03 04:05:39 +02:00
|
|
|
|
#:use-module ((guix licenses) #:prefix license:)
|
|
|
|
|
#:use-module (guix packages)
|
|
|
|
|
#:use-module (guix utils)
|
2016-02-02 07:18:44 +01:00
|
|
|
|
#:use-module (srfi srfi-1)
|
2016-02-02 07:11:12 +01:00
|
|
|
|
#:use-module (srfi srfi-2)
|
2014-07-10 00:31:31 +02:00
|
|
|
|
#:use-module (srfi srfi-26)
|
|
|
|
|
#:use-module (ice-9 match))
|
2012-11-27 21:56:37 +01:00
|
|
|
|
|
2013-02-27 09:25:00 +01:00
|
|
|
|
(define-public (system->linux-architecture arch)
|
|
|
|
|
"Return the Linux architecture name for ARCH, a Guix system name such as
|
2016-09-02 17:10:52 +02:00
|
|
|
|
\"x86_64-linux\" or a target triplet such as \"arm-linux-gnueabihf\"."
|
2013-02-19 12:17:08 +01:00
|
|
|
|
(let ((arch (car (string-split arch #\-))))
|
|
|
|
|
(cond ((string=? arch "i686") "i386")
|
|
|
|
|
((string-prefix? "mips" arch) "mips")
|
2013-02-27 09:25:00 +01:00
|
|
|
|
((string-prefix? "arm" arch) "arm")
|
2016-04-15 15:51:38 +02:00
|
|
|
|
((string-prefix? "aarch64" arch) "arm64")
|
2017-02-19 20:31:58 +01:00
|
|
|
|
((string-prefix? "alpha" arch) "alpha")
|
2017-07-07 14:28:24 +02:00
|
|
|
|
((string-prefix? "powerpc" arch) "powerpc") ;including "powerpc64le"
|
2018-02-16 15:50:42 +01:00
|
|
|
|
((string-prefix? "s390" arch) "s390")
|
2013-02-19 12:17:08 +01:00
|
|
|
|
(else arch))))
|
|
|
|
|
|
2017-01-04 23:50:37 +01:00
|
|
|
|
(define-public (system->defconfig system)
|
|
|
|
|
"Some systems (notably powerpc-linux) require a special target for kernel
|
2017-06-22 01:12:23 +02:00
|
|
|
|
defconfig. Return the appropriate make target if applicable, otherwise return
|
2017-01-04 23:50:37 +01:00
|
|
|
|
\"defconfig\"."
|
|
|
|
|
(cond ((string-prefix? "powerpc-" system) "pmac32_defconfig")
|
2017-07-07 14:28:24 +02:00
|
|
|
|
((string-prefix? "powerpc64le-" system) "ppc64_defconfig")
|
2017-01-04 23:50:37 +01:00
|
|
|
|
(else "defconfig")))
|
|
|
|
|
|
2013-07-17 15:32:52 +02:00
|
|
|
|
(define (linux-libre-urls version)
|
|
|
|
|
"Return a list of URLs for Linux-Libre VERSION."
|
|
|
|
|
(list (string-append
|
2017-10-30 08:02:10 +01:00
|
|
|
|
"https://linux-libre.fsfla.org/pub/linux-libre/releases/"
|
2013-07-17 15:32:52 +02:00
|
|
|
|
version "-gnu/linux-libre-" version "-gnu.tar.xz")
|
|
|
|
|
|
|
|
|
|
;; XXX: Work around <http://bugs.gnu.org/14851>.
|
|
|
|
|
(string-append
|
|
|
|
|
"ftp://alpha.gnu.org/gnu/guix/mirror/linux-libre-"
|
|
|
|
|
version "-gnu.tar.xz")
|
|
|
|
|
|
|
|
|
|
;; Maybe this URL will become valid eventually.
|
|
|
|
|
(string-append
|
|
|
|
|
"mirror://gnu/linux-libre/" version "-gnu/linux-libre-"
|
|
|
|
|
version "-gnu.tar.xz")))
|
|
|
|
|
|
2012-11-27 22:04:57 +01:00
|
|
|
|
(define-public linux-libre-headers
|
2016-09-02 15:49:44 +02:00
|
|
|
|
(package
|
|
|
|
|
(name "linux-libre-headers")
|
2017-11-01 09:16:51 +01:00
|
|
|
|
(version "4.9.59")
|
2016-09-02 15:49:44 +02:00
|
|
|
|
(source (origin
|
|
|
|
|
(method url-fetch)
|
|
|
|
|
(uri (linux-libre-urls version))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
2017-11-01 09:16:51 +01:00
|
|
|
|
"0z8hq8a6ic38xh33idzl0k0yi4isgd7ncl2g1d6mzf9ixw5krhvc"))))
|
2016-09-02 15:49:44 +02:00
|
|
|
|
(build-system gnu-build-system)
|
|
|
|
|
(native-inputs `(("perl" ,perl)))
|
|
|
|
|
(arguments
|
|
|
|
|
`(#:modules ((guix build gnu-build-system)
|
|
|
|
|
(guix build utils)
|
|
|
|
|
(srfi srfi-1))
|
|
|
|
|
#:phases
|
|
|
|
|
(modify-phases %standard-phases
|
|
|
|
|
(delete 'configure)
|
|
|
|
|
(replace 'build
|
|
|
|
|
(lambda _
|
|
|
|
|
(let ((arch ,(system->linux-architecture
|
|
|
|
|
(or (%current-target-system)
|
2017-01-04 23:50:37 +01:00
|
|
|
|
(%current-system))))
|
|
|
|
|
(defconfig ,(system->defconfig
|
|
|
|
|
(or (%current-target-system)
|
|
|
|
|
(%current-system)))))
|
2016-09-02 15:49:44 +02:00
|
|
|
|
(setenv "ARCH" arch)
|
2013-02-19 12:17:08 +01:00
|
|
|
|
(format #t "`ARCH' set to `~a'~%" (getenv "ARCH"))
|
2017-01-04 23:50:37 +01:00
|
|
|
|
(and (zero? (system* "make" defconfig))
|
2013-02-19 12:17:08 +01:00
|
|
|
|
(zero? (system* "make" "mrproper" "headers_check"))))))
|
2016-09-02 15:49:44 +02:00
|
|
|
|
(replace 'install
|
|
|
|
|
(lambda* (#:key outputs #:allow-other-keys)
|
2012-11-27 22:04:57 +01:00
|
|
|
|
(let ((out (assoc-ref outputs "out")))
|
|
|
|
|
(and (zero? (system* "make"
|
|
|
|
|
(string-append "INSTALL_HDR_PATH=" out)
|
|
|
|
|
"headers_install"))
|
2015-06-04 14:37:53 +02:00
|
|
|
|
(begin
|
|
|
|
|
(mkdir (string-append out "/include/config"))
|
|
|
|
|
(call-with-output-file
|
|
|
|
|
(string-append out
|
|
|
|
|
"/include/config/kernel.release")
|
|
|
|
|
(lambda (p)
|
|
|
|
|
(format p "~a-default~%" ,version)))
|
|
|
|
|
|
|
|
|
|
;; Remove the '.install' and '..install.cmd' files; the
|
|
|
|
|
;; latter contains store paths, which pulls in bootstrap
|
|
|
|
|
;; binaries in the build environment, and prevents bit
|
|
|
|
|
;; reproducibility for the bootstrap binaries.
|
|
|
|
|
(for-each delete-file (find-files out "\\.install"))
|
|
|
|
|
|
|
|
|
|
#t))))))
|
|
|
|
|
#:allowed-references ()
|
2012-11-27 22:04:57 +01:00
|
|
|
|
#:tests? #f))
|
2017-03-30 00:48:16 +02:00
|
|
|
|
(home-page "https://www.gnu.org/software/linux-libre/")
|
2012-11-27 22:04:57 +01:00
|
|
|
|
(synopsis "GNU Linux-Libre kernel headers")
|
|
|
|
|
(description "Headers of the Linux-Libre kernel.")
|
2016-09-02 15:49:44 +02:00
|
|
|
|
(license license:gpl2)))
|
2012-11-27 22:04:57 +01:00
|
|
|
|
|
2014-07-07 22:50:45 +02:00
|
|
|
|
(define %boot-logo-patch
|
|
|
|
|
;; Linux-Libre boot logo featuring Freedo and a gnu.
|
|
|
|
|
(origin
|
|
|
|
|
(method url-fetch)
|
|
|
|
|
(uri (string-append "http://www.fsfla.org/svn/fsfla/software/linux-libre/"
|
2014-08-14 19:57:29 +02:00
|
|
|
|
"lemote/gnewsense/branches/3.16/100gnu+freedo.patch"))
|
2014-07-07 22:50:45 +02:00
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
|
|
|
|
"1hk9swxxc80bmn2zd2qr5ccrjrk28xkypwhl4z0qx4hbivj7qm06"))))
|
|
|
|
|
|
2016-09-13 17:59:56 +02:00
|
|
|
|
(define* (kernel-config arch #:key variant)
|
2014-07-10 00:31:31 +02:00
|
|
|
|
"Return the absolute file name of the Linux-Libre build configuration file
|
2016-09-13 17:59:56 +02:00
|
|
|
|
for ARCH and optionally VARIANT, or #f if there is no such configuration."
|
2017-02-17 11:28:16 +01:00
|
|
|
|
(let* ((name (string-append (if variant (string-append variant "-") "")
|
2016-09-15 21:54:01 +02:00
|
|
|
|
(if (string=? "i386" arch) "i686" arch) ".conf"))
|
2017-02-17 11:28:16 +01:00
|
|
|
|
(file (string-append "linux-libre/" name)))
|
|
|
|
|
(search-auxiliary-file file)))
|
2014-07-10 00:31:31 +02:00
|
|
|
|
|
2016-09-08 16:47:52 +02:00
|
|
|
|
(define %default-extra-linux-options
|
2016-09-26 12:08:15 +02:00
|
|
|
|
`(;; https://lists.gnu.org/archive/html/guix-devel/2014-04/msg00039.html
|
2016-09-29 12:50:47 +02:00
|
|
|
|
("CONFIG_DEVPTS_MULTIPLE_INSTANCES" . #t)
|
|
|
|
|
;; Modules required for initrd:
|
|
|
|
|
("CONFIG_NET_9P" . m)
|
|
|
|
|
("CONFIG_NET_9P_VIRTIO" . m)
|
|
|
|
|
("CONFIG_VIRTIO_BLK" . m)
|
|
|
|
|
("CONFIG_VIRTIO_NET" . m)
|
|
|
|
|
("CONFIG_VIRTIO_PCI" . m)
|
|
|
|
|
("CONFIG_VIRTIO_BALLOON" . m)
|
|
|
|
|
("CONFIG_VIRTIO_MMIO" . m)
|
|
|
|
|
("CONFIG_FUSE_FS" . m)
|
|
|
|
|
("CONFIG_CIFS" . m)
|
|
|
|
|
("CONFIG_9P_FS" . m)))
|
2016-09-08 16:47:52 +02:00
|
|
|
|
|
|
|
|
|
(define (config->string options)
|
|
|
|
|
(string-join (map (match-lambda
|
|
|
|
|
((option . 'm)
|
|
|
|
|
(string-append option "=m"))
|
|
|
|
|
((option . #t)
|
|
|
|
|
(string-append option "=y"))
|
|
|
|
|
((option . #f)
|
|
|
|
|
(string-append option "=n")))
|
|
|
|
|
options)
|
|
|
|
|
"\n"))
|
|
|
|
|
|
2016-09-08 19:38:24 +02:00
|
|
|
|
(define* (make-linux-libre version hash supported-systems
|
2016-09-13 17:59:56 +02:00
|
|
|
|
#:key
|
|
|
|
|
;; A function that takes an arch and a variant.
|
|
|
|
|
;; See kernel-config for an example.
|
2016-09-08 18:06:22 +02:00
|
|
|
|
(extra-version #f)
|
2016-09-13 17:59:56 +02:00
|
|
|
|
(configuration-file #f)
|
2016-09-08 16:47:52 +02:00
|
|
|
|
(defconfig "defconfig")
|
2016-10-22 06:22:31 +02:00
|
|
|
|
(extra-options %default-extra-linux-options)
|
|
|
|
|
(patches (list %boot-logo-patch)))
|
2016-09-02 15:57:47 +02:00
|
|
|
|
(package
|
2016-09-08 18:06:22 +02:00
|
|
|
|
(name (if extra-version
|
|
|
|
|
(string-append "linux-libre-" extra-version)
|
|
|
|
|
"linux-libre"))
|
2016-09-13 17:59:56 +02:00
|
|
|
|
(version version)
|
2016-09-02 15:57:47 +02:00
|
|
|
|
(source (origin
|
|
|
|
|
(method url-fetch)
|
|
|
|
|
(uri (linux-libre-urls version))
|
2016-09-13 17:59:56 +02:00
|
|
|
|
(sha256 (base32 hash))
|
2016-10-22 06:22:31 +02:00
|
|
|
|
(patches patches)))
|
2016-09-08 19:38:24 +02:00
|
|
|
|
(supported-systems supported-systems)
|
2016-09-02 15:57:47 +02:00
|
|
|
|
(build-system gnu-build-system)
|
|
|
|
|
(native-inputs
|
|
|
|
|
`(("perl" ,perl)
|
|
|
|
|
("bc" ,bc)
|
|
|
|
|
("openssl" ,openssl)
|
2016-09-08 19:27:52 +02:00
|
|
|
|
("kmod" ,kmod)
|
2018-04-08 03:00:59 +02:00
|
|
|
|
("elfutils" ,elfutils) ; Needed to enable CONFIG_STACK_VALIDATION
|
2018-04-07 08:19:34 +02:00
|
|
|
|
("flex" ,flex)
|
|
|
|
|
("bison" ,bison)
|
2018-01-25 20:13:57 +01:00
|
|
|
|
;; On x86, build with GCC-7 for full retpoline support.
|
|
|
|
|
;; FIXME: Remove this when our default compiler has retpoline support.
|
|
|
|
|
,@(match (system->linux-architecture
|
|
|
|
|
(or (%current-target-system) (%current-system)))
|
|
|
|
|
((or "x86_64" "i386")
|
|
|
|
|
`(("gcc" ,gcc-7)))
|
|
|
|
|
(_
|
|
|
|
|
'()))
|
2016-12-20 23:36:21 +01:00
|
|
|
|
,@(match (and configuration-file
|
|
|
|
|
(configuration-file
|
|
|
|
|
(system->linux-architecture
|
|
|
|
|
(or (%current-target-system) (%current-system)))
|
|
|
|
|
#:variant (version-major+minor version)))
|
|
|
|
|
(#f ;no config for this platform
|
|
|
|
|
'())
|
|
|
|
|
((? string? config)
|
|
|
|
|
`(("kconfig" ,config))))))
|
2016-09-02 15:57:47 +02:00
|
|
|
|
(arguments
|
|
|
|
|
`(#:modules ((guix build gnu-build-system)
|
|
|
|
|
(guix build utils)
|
|
|
|
|
(srfi srfi-1)
|
|
|
|
|
(ice-9 match))
|
|
|
|
|
#:phases
|
|
|
|
|
(modify-phases %standard-phases
|
2018-04-11 10:42:02 +02:00
|
|
|
|
(add-after 'unpack 'patch-/bin/pwd
|
|
|
|
|
(lambda _
|
|
|
|
|
(substitute* (find-files "." "^Makefile(\\.include)?$")
|
|
|
|
|
(("/bin/pwd") "pwd"))
|
|
|
|
|
#t))
|
2016-09-08 16:18:54 +02:00
|
|
|
|
(replace 'configure
|
2016-09-02 18:05:37 +02:00
|
|
|
|
(lambda* (#:key inputs native-inputs target #:allow-other-keys)
|
2016-03-30 14:05:19 +02:00
|
|
|
|
;; Avoid introducing timestamps
|
|
|
|
|
(setenv "KCONFIG_NOTIMESTAMP" "1")
|
|
|
|
|
(setenv "KBUILD_BUILD_TIMESTAMP" (getenv "SOURCE_DATE_EPOCH"))
|
|
|
|
|
|
2016-09-02 18:05:37 +02:00
|
|
|
|
;; Set ARCH and CROSS_COMPILE
|
2016-09-02 17:10:52 +02:00
|
|
|
|
(let ((arch ,(system->linux-architecture
|
|
|
|
|
(or (%current-target-system)
|
|
|
|
|
(%current-system)))))
|
2016-09-02 18:05:37 +02:00
|
|
|
|
(setenv "ARCH" arch)
|
|
|
|
|
(format #t "`ARCH' set to `~a'~%" (getenv "ARCH"))
|
2016-09-02 17:10:52 +02:00
|
|
|
|
|
2016-09-02 18:05:37 +02:00
|
|
|
|
(when target
|
|
|
|
|
(setenv "CROSS_COMPILE" (string-append target "-"))
|
|
|
|
|
(format #t "`CROSS_COMPILE' set to `~a'~%"
|
|
|
|
|
(getenv "CROSS_COMPILE"))))
|
2013-02-11 23:02:26 +01:00
|
|
|
|
|
2016-09-08 18:06:22 +02:00
|
|
|
|
(setenv "EXTRA_VERSION" ,extra-version)
|
|
|
|
|
|
2014-07-10 00:31:31 +02:00
|
|
|
|
(let ((build (assoc-ref %standard-phases 'build))
|
2017-11-07 18:14:32 +01:00
|
|
|
|
(config (assoc-ref (or native-inputs inputs) "kconfig")))
|
2014-07-10 13:03:46 +02:00
|
|
|
|
|
2016-09-26 12:10:21 +02:00
|
|
|
|
;; Use a custom kernel configuration file or a default
|
|
|
|
|
;; configuration file.
|
2014-07-10 13:03:46 +02:00
|
|
|
|
(if config
|
|
|
|
|
(begin
|
|
|
|
|
(copy-file config ".config")
|
|
|
|
|
(chmod ".config" #o666))
|
2018-02-14 09:37:22 +01:00
|
|
|
|
(invoke "make" ,defconfig))
|
2014-07-10 00:31:31 +02:00
|
|
|
|
|
|
|
|
|
;; Appending works even when the option wasn't in the
|
|
|
|
|
;; file. The last one prevails if duplicated.
|
2016-09-08 16:47:52 +02:00
|
|
|
|
(let ((port (open-file ".config" "a"))
|
|
|
|
|
(extra-configuration ,(config->string extra-options)))
|
|
|
|
|
(display extra-configuration port)
|
2014-07-10 00:31:31 +02:00
|
|
|
|
(close-port port))
|
|
|
|
|
|
2018-02-14 09:37:22 +01:00
|
|
|
|
(invoke "make" "oldconfig"))))
|
2016-09-02 15:57:47 +02:00
|
|
|
|
(replace 'install
|
2016-09-02 18:05:37 +02:00
|
|
|
|
(lambda* (#:key inputs native-inputs outputs #:allow-other-keys)
|
2013-02-11 23:02:26 +01:00
|
|
|
|
(let* ((out (assoc-ref outputs "out"))
|
|
|
|
|
(moddir (string-append out "/lib/modules"))
|
2016-09-26 12:10:21 +02:00
|
|
|
|
(dtbdir (string-append out "/lib/dtbs"))
|
|
|
|
|
(kmod (assoc-ref (or native-inputs inputs) "kmod")))
|
|
|
|
|
;; Install kernel image, kernel configuration and link map.
|
|
|
|
|
(for-each (lambda (file) (install-file file out))
|
2017-07-21 17:07:19 +02:00
|
|
|
|
(find-files "." "^(\\.config|bzImage|zImage|Image|vmlinuz|System\\.map)$"))
|
2016-09-26 12:10:21 +02:00
|
|
|
|
;; Install device tree files
|
2018-05-19 23:08:41 +02:00
|
|
|
|
(unless (null? (find-files "." "\\.dtb$"))
|
|
|
|
|
(mkdir-p dtbdir)
|
|
|
|
|
(invoke "make" (string-append "INSTALL_DTBS_PATH=" dtbdir)
|
|
|
|
|
"dtbs_install"))
|
2016-09-26 12:10:21 +02:00
|
|
|
|
;; Install kernel modules
|
2013-02-11 23:02:26 +01:00
|
|
|
|
(mkdir-p moddir)
|
2018-02-14 09:37:22 +01:00
|
|
|
|
(invoke "make"
|
|
|
|
|
(string-append "DEPMOD=" kmod "/bin/depmod")
|
|
|
|
|
(string-append "MODULE_DIR=" moddir)
|
|
|
|
|
(string-append "INSTALL_PATH=" out)
|
|
|
|
|
(string-append "INSTALL_MOD_PATH=" out)
|
|
|
|
|
"INSTALL_MOD_STRIP=1"
|
|
|
|
|
"modules_install")))))
|
2013-02-11 23:02:26 +01:00
|
|
|
|
#:tests? #f))
|
2018-01-31 18:55:21 +01:00
|
|
|
|
(home-page "https://www.gnu.org/software/linux-libre/")
|
gnu: Use synopses from the Womb.
* gnu/packages/algebra.scm,
gnu/packages/aspell.scm,
gnu/packages/autotools.scm,
gnu/packages/base.scm,
gnu/packages/bash.scm,
gnu/packages/bison.scm,
gnu/packages/cdrom.scm,
gnu/packages/cflow.scm,
gnu/packages/compression.scm,
gnu/packages/cpio.scm,
gnu/packages/cppi.scm,
gnu/packages/ddrescue.scm,
gnu/packages/dejagnu.scm,
gnu/packages/ed.scm,
gnu/packages/emacs.scm,
gnu/packages/fdisk.scm,
gnu/packages/gawk.scm,
gnu/packages/gcc.scm,
packages/gcc.scm, b/gnu/packages/gcc.scm,
4b982 100644
s/gcc.scm,
s/gcc.scm,
@@
%standard-phases)))))
`((gcc-libc . ,(assoc-ref inputs "libc"))))
The GNU Compiler Collection")
GNU Compiler Collection")
n
ompiler Collection includes compiler front ends for C, C++,
tran, OpenMP for C/C++/Fortran, Java, and Ada, as well as
gnu/packages/gdb.scm,
gnu/packages/gettext.scm,
gnu/packages/ghostscript.scm,
gnu/packages/glib.scm,
gnu/packages/global.scm,
gnu/packages/gnupg.scm,
gnu/packages/gnutls.scm,
gnu/packages/gperf.scm,
gnu/packages/gprolog.scm,
gnu/packages/groff.scm,
gnu/packages/grub.scm,
gnu/packages/gsasl.scm,
gnu/packages/guile.scm,
gnu/packages/help2man.scm,
gnu/packages/idutils.scm,
gnu/packages/indent.scm,
gnu/packages/less.scm,
gnu/packages/libidn.scm,
gnu/packages/libsigsegv.scm,
gnu/packages/libunistring.scm,
gnu/packages/linux.scm,
gnu/packages/lsh.scm,
gnu/packages/m4.scm,
gnu/packages/mailutils.scm,
gnu/packages/multiprecision.scm,
gnu/packages/nano.scm,
gnu/packages/ncurses.scm,
gnu/packages/nettle.scm,
gnu/packages/oggvorbis.scm,
gnu/packages/parted.scm,
gnu/packages/pth.scm,
gnu/packages/readline.scm,
gnu/packages/recutils.scm,
gnu/packages/scheme.scm,
gnu/packages/screen.scm,
gnu/packages/shishi.scm,
gnu/packages/smalltalk.scm,
gnu/packages/system.scm,
gnu/packages/texinfo.scm,
gnu/packages/time.scm,
gnu/packages/wdiff.scm,
gnu/packages/wget.scm,
gnu/packages/which.scm: Use synopses from the Womb.
2013-04-17 18:04:25 +02:00
|
|
|
|
(synopsis "100% free redistribution of a cleaned Linux kernel")
|
Synchronize package descriptions with the Womb.
* gnu/packages/algebra.scm,
gnu/packages/aspell.scm,
gnu/packages/autotools.scm,
gnu/packages/base.scm,
gnu/packages/bash.scm,
gnu/packages/bison.scm,
gnu/packages/cdrom.scm,
gnu/packages/cflow.scm,
gnu/packages/compression.scm,
gnu/packages/cpio.scm,
gnu/packages/cppi.scm,
gnu/packages/ddrescue.scm,
gnu/packages/dejagnu.scm,
gnu/packages/ed.scm,
gnu/packages/emacs.scm,
gnu/packages/fdisk.scm,
gnu/packages/freeipmi.scm,
gnu/packages/gawk.scm,
gnu/packages/gcal.scm,
gnu/packages/gcc.scm,
gnu/packages/gdb.scm,
gnu/packages/gdbm.scm,
gnu/packages/gettext.scm,
gnu/packages/ghostscript.scm,
gnu/packages/global.scm,
gnu/packages/gnunet.scm,
gnu/packages/gnupg.scm,
gnu/packages/gnutls.scm,
gnu/packages/gperf.scm,
gnu/packages/gprolog.scm,
gnu/packages/groff.scm,
gnu/packages/grub.scm,
gnu/packages/gsasl.scm,
gnu/packages/guile.scm,
gnu/packages/gv.scm,
gnu/packages/help2man.scm,
gnu/packages/idutils.scm,
gnu/packages/indent.scm,
gnu/packages/less.scm,
gnu/packages/libidn.scm,
gnu/packages/libsigsegv.scm,
gnu/packages/libunistring.scm,
gnu/packages/lightning.scm,
gnu/packages/linux.scm,
gnu/packages/lsh.scm,
gnu/packages/m4.scm,
gnu/packages/mail.scm,
gnu/packages/maths.scm,
gnu/packages/multiprecision.scm,
gnu/packages/nano.scm,
gnu/packages/ncurses.scm,
gnu/packages/nettle.scm,
gnu/packages/ocrad.scm,
gnu/packages/oggvorbis.scm,
gnu/packages/parted.scm,
gnu/packages/plotutils.scm,
gnu/packages/pth.scm,
gnu/packages/readline.scm,
gnu/packages/recutils.scm,
gnu/packages/rush.scm,
gnu/packages/scheme.scm,
gnu/packages/screen.scm,
gnu/packages/shishi.scm,
gnu/packages/smalltalk.scm,
gnu/packages/system.scm,
gnu/packages/texinfo.scm,
gnu/packages/time.scm,
gnu/packages/unrtf.scm,
gnu/packages/version-control.scm,
gnu/packages/wdiff.scm,
gnu/packages/wget.scm,
gnu/packages/which.scm,
gnu/packages/xnee.scm,
gnu/packages/zile.scm: Change value of the 'description' field to that
of the Womb.
2013-10-09 16:14:23 +02:00
|
|
|
|
(description
|
2013-12-01 22:33:23 +01:00
|
|
|
|
"GNU Linux-Libre is a free (as in freedom) variant of the Linux kernel.
|
|
|
|
|
It has been modified to remove all non-free binary blobs.")
|
2016-09-02 15:57:47 +02:00
|
|
|
|
(license license:gpl2)))
|
2013-02-11 23:02:26 +01:00
|
|
|
|
|
2016-09-08 19:38:24 +02:00
|
|
|
|
(define %intel-compatible-systems '("x86_64-linux" "i686-linux"))
|
2018-05-19 00:18:29 +02:00
|
|
|
|
(define %linux-compatible-systems '("x86_64-linux" "i686-linux" "armhf-linux" "aarch64-linux"))
|
2016-09-08 19:38:24 +02:00
|
|
|
|
|
2017-11-07 18:01:37 +01:00
|
|
|
|
;; linux-libre configuration for armhf-linux is derived from Debian armmp. It
|
|
|
|
|
;; supports qemu "virt" machine and possibly a large number of ARM boards.
|
|
|
|
|
;; See : https://wiki.debian.org/DebianKernel/ARMMP.
|
2017-02-10 00:33:36 +01:00
|
|
|
|
|
2018-05-30 20:59:47 +02:00
|
|
|
|
(define %linux-libre-version "4.16.13")
|
|
|
|
|
(define %linux-libre-hash "1frpqxv5ykf87hrmh62b8nxxcpv64a5w7lxw51z4vs82799inmng")
|
2018-01-29 08:21:30 +01:00
|
|
|
|
|
2016-09-13 17:59:56 +02:00
|
|
|
|
(define-public linux-libre
|
2017-02-10 00:33:36 +01:00
|
|
|
|
(make-linux-libre %linux-libre-version
|
|
|
|
|
%linux-libre-hash
|
2017-11-07 18:01:37 +01:00
|
|
|
|
%linux-compatible-systems
|
2017-09-15 06:31:15 +02:00
|
|
|
|
#:configuration-file kernel-config))
|
2016-09-13 17:59:56 +02:00
|
|
|
|
|
2018-05-30 20:58:49 +02:00
|
|
|
|
(define %linux-libre-4.14-version "4.14.46")
|
|
|
|
|
(define %linux-libre-4.14-hash "17imkhqk3m3djdj0m5h4lqs9cfdh9zq1cz83q8ldyald56rbn622")
|
2018-01-29 08:21:30 +01:00
|
|
|
|
|
|
|
|
|
(define-public linux-libre-4.14
|
|
|
|
|
(make-linux-libre %linux-libre-4.14-version
|
|
|
|
|
%linux-libre-4.14-hash
|
2018-05-19 00:18:29 +02:00
|
|
|
|
'("x86_64-linux" "i686-linux" "armhf-linux")
|
2018-01-29 08:21:30 +01:00
|
|
|
|
#:configuration-file kernel-config))
|
|
|
|
|
|
2017-02-20 06:26:59 +01:00
|
|
|
|
(define-public linux-libre-4.9
|
2018-05-30 20:58:09 +02:00
|
|
|
|
(make-linux-libre "4.9.104"
|
|
|
|
|
"0b6y24vfsjhiv7qq7xqx7h9krc81c49dqh0189nm1lhfwciyir57"
|
2017-02-20 06:26:59 +01:00
|
|
|
|
%intel-compatible-systems
|
2017-09-15 06:30:21 +02:00
|
|
|
|
#:configuration-file kernel-config))
|
2017-02-20 06:26:59 +01:00
|
|
|
|
|
2016-03-15 03:30:27 +01:00
|
|
|
|
(define-public linux-libre-4.4
|
2018-05-30 20:57:22 +02:00
|
|
|
|
(make-linux-libre "4.4.134"
|
|
|
|
|
"137mklzyv56yhc48l5h5i0h01gm1q40x2a8nk51lwhbjv592xr8x"
|
2016-09-08 19:38:24 +02:00
|
|
|
|
%intel-compatible-systems
|
2017-09-15 06:29:23 +02:00
|
|
|
|
#:configuration-file kernel-config))
|
2016-03-15 03:30:27 +01:00
|
|
|
|
|
2016-02-02 07:18:44 +01:00
|
|
|
|
(define-public linux-libre-4.1
|
2018-05-30 05:16:14 +02:00
|
|
|
|
(make-linux-libre "4.1.52"
|
|
|
|
|
"0a2flzf79kz9c1y9zpxdclsfivp38d2sgnwifg4gvyqixdy63sk9"
|
2016-09-08 19:38:24 +02:00
|
|
|
|
%intel-compatible-systems
|
2017-10-19 21:29:09 +02:00
|
|
|
|
#:configuration-file kernel-config))
|
2016-02-02 07:18:44 +01:00
|
|
|
|
|
2016-09-08 19:41:38 +02:00
|
|
|
|
(define-public linux-libre-arm-generic
|
|
|
|
|
(make-linux-libre %linux-libre-version
|
|
|
|
|
%linux-libre-hash
|
|
|
|
|
'("armhf-linux")
|
|
|
|
|
#:defconfig "multi_v7_defconfig"
|
2017-09-15 06:31:15 +02:00
|
|
|
|
#:extra-version "arm-generic"))
|
2016-09-08 19:41:38 +02:00
|
|
|
|
|
2018-01-29 08:21:30 +01:00
|
|
|
|
(define-public linux-libre-arm-generic-4.14
|
|
|
|
|
(make-linux-libre %linux-libre-4.14-version
|
|
|
|
|
%linux-libre-4.14-hash
|
|
|
|
|
'("armhf-linux")
|
|
|
|
|
#:defconfig "multi_v7_defconfig"
|
|
|
|
|
#:extra-version "arm-generic"))
|
|
|
|
|
|
2017-11-03 15:15:23 +01:00
|
|
|
|
(define-public linux-libre-arm-omap2plus
|
|
|
|
|
(make-linux-libre %linux-libre-version
|
|
|
|
|
%linux-libre-hash
|
|
|
|
|
'("armhf-linux")
|
|
|
|
|
#:defconfig "omap2plus_defconfig"
|
|
|
|
|
#:extra-version "arm-omap2plus"))
|
|
|
|
|
|
2018-01-29 08:21:30 +01:00
|
|
|
|
(define-public linux-libre-arm-omap2plus-4.14
|
|
|
|
|
(make-linux-libre %linux-libre-4.14-version
|
|
|
|
|
%linux-libre-4.14-hash
|
|
|
|
|
'("armhf-linux")
|
|
|
|
|
#:defconfig "omap2plus_defconfig"
|
|
|
|
|
#:extra-version "arm-omap2plus"))
|
|
|
|
|
|
2015-07-17 15:35:27 +02:00
|
|
|
|
|
2013-09-11 00:22:45 +02:00
|
|
|
|
;;;
|
|
|
|
|
;;; Pluggable authentication modules (PAM).
|
|
|
|
|
;;;
|
|
|
|
|
|
2012-11-27 21:56:37 +01:00
|
|
|
|
(define-public linux-pam
|
|
|
|
|
(package
|
|
|
|
|
(name "linux-pam")
|
2016-08-26 21:47:12 +02:00
|
|
|
|
(version "1.3.0")
|
2012-11-27 21:56:37 +01:00
|
|
|
|
(source
|
|
|
|
|
(origin
|
|
|
|
|
(method url-fetch)
|
2016-08-26 21:47:12 +02:00
|
|
|
|
(uri (string-append
|
|
|
|
|
"http://www.linux-pam.org/library/"
|
|
|
|
|
"Linux-PAM-" version ".tar.bz2"))
|
2012-11-27 21:56:37 +01:00
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
2016-09-20 21:59:20 +02:00
|
|
|
|
"1fyi04d5nsh8ivd0rn2y0z83ylgc0licz7kifbb6xxi2ylgfs6i4"))
|
|
|
|
|
(patches (search-patches "linux-pam-no-setfsuid.patch"))))
|
|
|
|
|
|
2012-11-27 21:56:37 +01:00
|
|
|
|
(build-system gnu-build-system)
|
gnu: Move numerous "inputs" which should be "native-inputs".
* gnu/packages/avahi.scm, gnu/packages/cdrom.scm, gnu/packages/cryptsetup.scm,
gnu/packages/curl.scm, gnu/packages/emacs.scm, gnu/packages/fontutils.scm,
gnu/packages/gdb.scm, gnu/packages/geeqie.scm, gnu/packages/ghostscript.scm,
gnu/packages/glib.scm, gnu/packages/gnome.scm, gnu/packages/gnunet.scm,
gnu/packages/gnupg.scm, gnu/packages/gnuzilla.scm, gnu/packages/graphviz.scm,
gnu/packages/groff.scm, gnu/packages/gstreamer.scm, gnu/packages/gtk.scm,
gnu/packages/gv.scm, gnu/packages/imagemagick.scm, gnu/packages/irssi.scm,
gnu/packages/kde.scm, gnu/packages/libcanberra.scm, gnu/packages/libtiff.scm,
gnu/packages/linux.scm, gnu/packages/lvm.scm, gnu/packages/mp3.scm,
gnu/packages/netpbm.scm, gnu/packages/parted.scm, gnu/packages/pdf.scm,
gnu/packages/pulseaudio.scm, gnu/packages/qemu.scm, gnu/packages/qt.scm,
gnu/packages/ratpoison.scm, gnu/packages/rdf.scm, gnu/packages/slim.scm,
gnu/packages/texlive.scm, gnu/packages/version-control.scm,
gnu/packages/video.scm, gnu/packages/vpn.scm, gnu/packages/w3m.scm,
gnu/packages/xml.scm, gnu/packages/xnee.scm, gnu/packages/xorg.scm,
gnu/packages/zip.scm: Move some build-time dependencies from `inputs' to
`native-inputs'.
Signed-off-by: Ludovic Courtès <ludo@gnu.org>
2013-12-15 12:01:56 +01:00
|
|
|
|
(native-inputs
|
2012-11-27 21:56:37 +01:00
|
|
|
|
`(("flex" ,flex)
|
|
|
|
|
|
|
|
|
|
;; TODO: optional dependencies
|
|
|
|
|
;; ("libxcrypt" ,libxcrypt)
|
|
|
|
|
;; ("cracklib" ,cracklib)
|
|
|
|
|
))
|
|
|
|
|
(arguments
|
2017-07-11 21:52:58 +02:00
|
|
|
|
`(;; Most users, such as `shadow', expect the headers to be under
|
2013-08-17 15:44:43 +02:00
|
|
|
|
;; `security'.
|
|
|
|
|
#:configure-flags (list (string-append "--includedir="
|
|
|
|
|
(assoc-ref %outputs "out")
|
2017-07-11 21:52:58 +02:00
|
|
|
|
"/include/security")
|
|
|
|
|
|
|
|
|
|
;; XXX: <rpc/rpc.h> is missing from glibc when
|
|
|
|
|
;; cross-compiling, so we have to disable NIS
|
|
|
|
|
;; support altogether.
|
|
|
|
|
,@(if (%current-target-system)
|
|
|
|
|
'("--disable-nis")
|
|
|
|
|
'()))
|
2013-08-17 15:44:43 +02:00
|
|
|
|
|
|
|
|
|
;; XXX: Tests won't run in chroot, presumably because /etc/pam.d
|
|
|
|
|
;; isn't available.
|
|
|
|
|
#:tests? #f))
|
2012-11-27 21:56:37 +01:00
|
|
|
|
(home-page "http://www.linux-pam.org/")
|
|
|
|
|
(synopsis "Pluggable authentication modules for Linux")
|
|
|
|
|
(description
|
|
|
|
|
"A *Free* project to implement OSF's RFC 86.0.
|
|
|
|
|
Pluggable authentication modules are small shared object files that can
|
|
|
|
|
be used through the PAM API to perform tasks, like authenticating a user
|
gnu packages: Clean up synopses and descriptions.
* gnu/packages/admin.scm, gnu/packages/algebra.scm, gnu/packages/audio.scm,
gnu/packages/backup.scm, gnu/packages/base.scm, gnu/packages/bittorrent.scm,
gnu/packages/code.scm, gnu/packages/compression.scm,
gnu/packages/databases.scm, gnu/packages/enchant.scm,
gnu/packages/firmware.scm, gnu/packages/fonts.scm,
gnu/packages/freedesktop.scm, gnu/packages/games.scm, gnu/packages/gd.scm,
gnu/packages/gl.scm, gnu/packages/gnome.scm, gnu/packages/gsasl.scm,
gnu/packages/gstreamer.scm, gnu/packages/gtk.scm, gnu/packages/guile.scm,
gnu/packages/haskell.scm, gnu/packages/language.scm,
gnu/packages/lesstif.scm, gnu/packages/libreoffice.scm,
gnu/packages/linux.scm, gnu/packages/llvm.scm, gnu/packages/maths.scm,
gnu/packages/mcrypt.scm, gnu/packages/mit-krb5.scm, gnu/packages/mp3.scm,
gnu/packages/ncdu.scm, gnu/packages/networking.scm, gnu/packages/ntp.scm,
gnu/packages/ocaml.scm, gnu/packages/openbox.scm, gnu/packages/pdf.scm,
gnu/packages/perl.scm, gnu/packages/pretty-print.scm,
gnu/packages/pulseaudio.scm, gnu/packages/python.scm,
gnu/packages/rdesktop.scm, gnu/packages/rdf.scm, gnu/packages/ruby.scm,
gnu/packages/slang.scm, gnu/packages/slim.scm, gnu/packages/telephony.scm,
gnu/packages/tls.scm, gnu/packages/tmux.scm, gnu/packages/tre.scm,
gnu/packages/unrtf.scm, gnu/packages/version-control.scm,
gnu/packages/vpn.scm, gnu/packages/web.scm, gnu/packages/wget.scm,
gnu/packages/xdisorg.scm, gnu/packages/xfce.scm, gnu/packages/xiph.scm:
Fix typos. Trim long lines. Add missing periods in the end of sentences.
Use double spaces between sentences. Remove trailing whitespaces.
2015-07-17 14:16:07 +02:00
|
|
|
|
at login. Local and dynamic reconfiguration are its key features.")
|
2015-12-19 00:30:33 +01:00
|
|
|
|
(license license:bsd-3)))
|
2012-12-04 00:17:49 +01:00
|
|
|
|
|
2016-08-29 14:56:38 +02:00
|
|
|
|
(define-public linux-pam-1.2
|
|
|
|
|
(package
|
|
|
|
|
(inherit linux-pam)
|
|
|
|
|
(version "1.2.1")
|
|
|
|
|
(source
|
|
|
|
|
(origin
|
|
|
|
|
(method url-fetch)
|
|
|
|
|
(uri (string-append
|
|
|
|
|
"http://www.linux-pam.org/library/"
|
|
|
|
|
"Linux-PAM-" version ".tar.bz2"))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
2016-09-20 21:59:20 +02:00
|
|
|
|
"1n9lnf9gjs72kbj1g354v1xhi2j27aqaah15vykh7cnkq08i4arl"))
|
|
|
|
|
(patches (search-patches "linux-pam-no-setfsuid.patch"))))))
|
2016-08-29 14:56:38 +02:00
|
|
|
|
|
2015-05-23 20:39:57 +02:00
|
|
|
|
|
2013-09-11 00:22:45 +02:00
|
|
|
|
;;;
|
|
|
|
|
;;; Miscellaneous.
|
|
|
|
|
;;;
|
|
|
|
|
|
2012-12-04 00:17:49 +01:00
|
|
|
|
(define-public psmisc
|
|
|
|
|
(package
|
|
|
|
|
(name "psmisc")
|
2017-05-12 00:50:38 +02:00
|
|
|
|
(version "22.21")
|
2012-12-04 00:17:49 +01:00
|
|
|
|
(source
|
|
|
|
|
(origin
|
|
|
|
|
(method url-fetch)
|
|
|
|
|
(uri (string-append "mirror://sourceforge/psmisc/psmisc/psmisc-"
|
|
|
|
|
version ".tar.gz"))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
2017-05-12 00:50:38 +02:00
|
|
|
|
"0nhlm1vrrwn4a845p6y4nnnb4liq70n74zbdd5dq844jc6nkqclp"))))
|
2012-12-04 00:17:49 +01:00
|
|
|
|
(build-system gnu-build-system)
|
|
|
|
|
(inputs `(("ncurses" ,ncurses)))
|
2017-05-12 00:50:38 +02:00
|
|
|
|
(home-page "https://gitlab.com/psmisc/psmisc")
|
2012-12-04 00:17:49 +01:00
|
|
|
|
(synopsis
|
2016-09-16 08:08:48 +02:00
|
|
|
|
"Small utilities that use the proc file system")
|
2012-12-04 00:17:49 +01:00
|
|
|
|
(description
|
|
|
|
|
"This PSmisc package is a set of some small useful utilities that
|
2016-09-16 08:08:48 +02:00
|
|
|
|
use the proc file system. We're not about changing the world, but
|
2012-12-04 00:17:49 +01:00
|
|
|
|
providing the system administrator with some help in common tasks.")
|
2015-12-19 00:30:33 +01:00
|
|
|
|
(license license:gpl2+)))
|
2012-12-04 00:13:02 +01:00
|
|
|
|
|
|
|
|
|
(define-public util-linux
|
|
|
|
|
(package
|
|
|
|
|
(name "util-linux")
|
2017-10-24 22:46:09 +02:00
|
|
|
|
(version "2.31")
|
2014-06-01 22:53:16 +02:00
|
|
|
|
(source (origin
|
|
|
|
|
(method url-fetch)
|
|
|
|
|
(uri (string-append "mirror://kernel.org/linux/utils/"
|
2015-01-23 14:19:02 +01:00
|
|
|
|
name "/v" (version-major+minor version) "/"
|
|
|
|
|
name "-" version ".tar.xz"))
|
2014-06-01 22:53:16 +02:00
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
2017-10-24 22:46:09 +02:00
|
|
|
|
"12nw108xjhm63sh2n5a0qs33vpvbvb6rln96l9j50p7wykf7rgpr"))
|
2016-04-08 14:18:13 +02:00
|
|
|
|
(patches (search-patches "util-linux-tests.patch"))
|
2014-09-12 22:05:50 +02:00
|
|
|
|
(modules '((guix build utils)))
|
|
|
|
|
(snippet
|
2015-01-23 14:32:43 +01:00
|
|
|
|
;; We take the 'logger' program from GNU Inetutils and 'kill'
|
|
|
|
|
;; from GNU Coreutils.
|
2015-09-15 06:02:51 +02:00
|
|
|
|
'(begin
|
|
|
|
|
(substitute* "configure"
|
|
|
|
|
(("build_logger=yes") "build_logger=no")
|
|
|
|
|
(("build_kill=yes") "build_kill=no"))
|
|
|
|
|
#t))))
|
2012-12-04 00:13:02 +01:00
|
|
|
|
(build-system gnu-build-system)
|
2016-04-03 21:36:28 +02:00
|
|
|
|
(outputs '("out"
|
|
|
|
|
"static")) ; >2 MiB of static .a libraries
|
2012-12-04 00:13:02 +01:00
|
|
|
|
(arguments
|
2015-04-05 23:18:19 +02:00
|
|
|
|
`(#:configure-flags (list "--disable-use-tty-group"
|
2016-11-16 20:08:46 +01:00
|
|
|
|
"--enable-fs-paths-default=/run/current-system/profile/sbin"
|
2017-11-02 21:35:15 +01:00
|
|
|
|
;; Don't try to chown root:root mount and umount
|
|
|
|
|
"--disable-makeinstall-chown"
|
2015-04-05 23:18:19 +02:00
|
|
|
|
;; Install completions where our
|
|
|
|
|
;; bash-completion package expects them.
|
|
|
|
|
(string-append "--with-bashcompletiondir="
|
|
|
|
|
(assoc-ref %outputs "out")
|
|
|
|
|
"/etc/bash_completion.d"))
|
2015-07-14 12:39:58 +02:00
|
|
|
|
#:phases (modify-phases %standard-phases
|
2015-07-14 14:00:46 +02:00
|
|
|
|
(add-before
|
|
|
|
|
'build 'set-umount-file-name
|
|
|
|
|
(lambda* (#:key outputs #:allow-other-keys)
|
|
|
|
|
;; Tell 'eject' the right file name of 'umount'.
|
|
|
|
|
(let ((out (assoc-ref outputs "out")))
|
|
|
|
|
(substitute* "sys-utils/eject.c"
|
|
|
|
|
(("\"/bin/umount\"")
|
|
|
|
|
(string-append "\"" out "/bin/umount\"")))
|
|
|
|
|
#t)))
|
2015-07-14 12:39:58 +02:00
|
|
|
|
(add-before
|
|
|
|
|
'check 'pre-check
|
|
|
|
|
(lambda* (#:key inputs outputs #:allow-other-keys)
|
|
|
|
|
(let ((out (assoc-ref outputs "out"))
|
|
|
|
|
(net (assoc-ref inputs "net-base")))
|
|
|
|
|
;; Change the test to refer to the right file.
|
|
|
|
|
(substitute* "tests/ts/misc/mcookie"
|
|
|
|
|
(("/etc/services")
|
|
|
|
|
(string-append net "/etc/services")))
|
2016-04-03 21:36:28 +02:00
|
|
|
|
#t)))
|
|
|
|
|
(add-after
|
|
|
|
|
'install 'move-static-libraries
|
|
|
|
|
(lambda* (#:key outputs #:allow-other-keys)
|
|
|
|
|
(let ((out (assoc-ref outputs "out"))
|
|
|
|
|
(static (assoc-ref outputs "static")))
|
|
|
|
|
(mkdir-p (string-append static "/lib"))
|
|
|
|
|
(with-directory-excursion out
|
|
|
|
|
(for-each (lambda (file)
|
|
|
|
|
(rename-file file
|
|
|
|
|
(string-append static "/"
|
|
|
|
|
file)))
|
|
|
|
|
(find-files "lib" "\\.a$")))
|
2015-07-14 12:39:58 +02:00
|
|
|
|
#t))))))
|
2015-03-04 17:02:07 +01:00
|
|
|
|
(inputs `(("zlib" ,zlib)
|
2017-07-04 22:49:15 +02:00
|
|
|
|
("ncurses" ,ncurses)
|
|
|
|
|
|
|
|
|
|
;; XXX: This is so that the 'pre-check' phase can find it.
|
|
|
|
|
,@(if (%current-target-system)
|
|
|
|
|
`(("net-base" ,net-base))
|
|
|
|
|
'())))
|
gnu: Move numerous "inputs" which should be "native-inputs".
* gnu/packages/avahi.scm, gnu/packages/cdrom.scm, gnu/packages/cryptsetup.scm,
gnu/packages/curl.scm, gnu/packages/emacs.scm, gnu/packages/fontutils.scm,
gnu/packages/gdb.scm, gnu/packages/geeqie.scm, gnu/packages/ghostscript.scm,
gnu/packages/glib.scm, gnu/packages/gnome.scm, gnu/packages/gnunet.scm,
gnu/packages/gnupg.scm, gnu/packages/gnuzilla.scm, gnu/packages/graphviz.scm,
gnu/packages/groff.scm, gnu/packages/gstreamer.scm, gnu/packages/gtk.scm,
gnu/packages/gv.scm, gnu/packages/imagemagick.scm, gnu/packages/irssi.scm,
gnu/packages/kde.scm, gnu/packages/libcanberra.scm, gnu/packages/libtiff.scm,
gnu/packages/linux.scm, gnu/packages/lvm.scm, gnu/packages/mp3.scm,
gnu/packages/netpbm.scm, gnu/packages/parted.scm, gnu/packages/pdf.scm,
gnu/packages/pulseaudio.scm, gnu/packages/qemu.scm, gnu/packages/qt.scm,
gnu/packages/ratpoison.scm, gnu/packages/rdf.scm, gnu/packages/slim.scm,
gnu/packages/texlive.scm, gnu/packages/version-control.scm,
gnu/packages/video.scm, gnu/packages/vpn.scm, gnu/packages/w3m.scm,
gnu/packages/xml.scm, gnu/packages/xnee.scm, gnu/packages/xorg.scm,
gnu/packages/zip.scm: Move some build-time dependencies from `inputs' to
`native-inputs'.
Signed-off-by: Ludovic Courtès <ludo@gnu.org>
2013-12-15 12:01:56 +01:00
|
|
|
|
(native-inputs
|
2015-01-23 14:19:02 +01:00
|
|
|
|
`(("perl" ,perl)
|
|
|
|
|
("net-base" ,net-base))) ;for tests
|
2012-12-04 00:13:02 +01:00
|
|
|
|
(home-page "https://www.kernel.org/pub/linux/utils/util-linux/")
|
2013-05-18 23:02:25 +02:00
|
|
|
|
(synopsis "Collection of utilities for the Linux kernel")
|
2015-12-07 21:03:07 +01:00
|
|
|
|
(description "Util-linux is a diverse collection of Linux kernel
|
2016-09-16 08:08:48 +02:00
|
|
|
|
utilities. It provides dmesg and includes tools for working with file systems,
|
2015-12-07 21:03:07 +01:00
|
|
|
|
block devices, UUIDs, TTYs, and many other tools.")
|
2013-01-12 16:51:45 +01:00
|
|
|
|
|
2012-12-04 00:13:02 +01:00
|
|
|
|
;; Note that util-linux doesn't use the same license for all the
|
2013-01-12 16:51:45 +01:00
|
|
|
|
;; code. GPLv2+ is the default license for a code without an
|
2012-12-04 00:13:02 +01:00
|
|
|
|
;; explicitly defined license.
|
2015-12-19 00:30:33 +01:00
|
|
|
|
(license (list license:gpl3+ license:gpl2+ license:gpl2 license:lgpl2.0+
|
|
|
|
|
license:bsd-4 license:public-domain))))
|
2012-12-17 21:29:06 +01:00
|
|
|
|
|
2018-03-19 22:13:26 +01:00
|
|
|
|
;; The patch 'util-linux-CVE-2018-7738.patch' fixes a security bug in
|
|
|
|
|
;; the Bash completions for `mount`. Since this bug doesn't affect
|
|
|
|
|
;; other programs that link against libraries from util-linux, we don't
|
|
|
|
|
;; need to use a graft to make the fix available. Instead, users
|
|
|
|
|
;; installing util-linux will get the fix in this newer version, and
|
|
|
|
|
;; (@ (gnu system) %base-packages) takes care to use this package.
|
|
|
|
|
;; This solution was suggested here:
|
|
|
|
|
;; <https://debbugs.gnu.org/cgi/bugreport.cgi?bug=30827#13>
|
|
|
|
|
(define-public util-linux-2.31.1
|
2018-03-15 18:57:48 +01:00
|
|
|
|
(package
|
|
|
|
|
(inherit util-linux)
|
2018-03-19 22:13:26 +01:00
|
|
|
|
(name "util-linux")
|
|
|
|
|
;; XXX Don't update this without also updating %base-packages!
|
|
|
|
|
(version "2.31.1")
|
|
|
|
|
(source (origin
|
|
|
|
|
(inherit (package-source util-linux))
|
|
|
|
|
(uri (string-append "mirror://kernel.org/linux/utils/"
|
|
|
|
|
name "/v" (version-major+minor version) "/"
|
|
|
|
|
name "-" version ".tar.xz"))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
|
|
|
|
"04fzrnrr3pvqskvjn9f81y0knh0jvvqx4lmbz5pd4lfdm5pv2l8s"))
|
|
|
|
|
(patches
|
|
|
|
|
(append (origin-patches (package-source util-linux))
|
|
|
|
|
(search-patches "util-linux-CVE-2018-7738.patch")))))))
|
2018-03-15 18:57:48 +01:00
|
|
|
|
|
2017-06-10 19:12:10 +02:00
|
|
|
|
(define-public ddate
|
|
|
|
|
(package
|
|
|
|
|
(name "ddate")
|
|
|
|
|
(version "0.2.2")
|
|
|
|
|
(source (origin
|
|
|
|
|
(method url-fetch)
|
|
|
|
|
(uri (string-append "https://github.com/bo0ts/ddate/archive/v"
|
|
|
|
|
version ".tar.gz"))
|
|
|
|
|
(file-name (string-append name "-" version ".tar.gz"))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32 "1bbqqq8mswj4bp9083gxjaky5ysfznax4cynsqwmy125z053yg6m"))))
|
|
|
|
|
(build-system cmake-build-system)
|
|
|
|
|
(arguments '(#:tests? #f))
|
|
|
|
|
(home-page "https://github.com/bo0ts/ddate")
|
|
|
|
|
(synopsis "PERPETUAL DATE CONVERTER FROM GREGORIAN TO POEE CALENDAR")
|
|
|
|
|
(description
|
|
|
|
|
"ddate displays the Discordian date and holidays of a given date.
|
|
|
|
|
The Discordian calendar was made popular by the \"Illuminatus!\" trilogy
|
|
|
|
|
by Robert Shea and Robert Anton Wilson.")
|
|
|
|
|
(license license:public-domain)))
|
|
|
|
|
|
2013-01-12 16:51:16 +01:00
|
|
|
|
(define-public procps
|
|
|
|
|
(package
|
|
|
|
|
(name "procps")
|
2018-05-23 22:08:41 +02:00
|
|
|
|
(version "3.3.15")
|
2013-01-12 16:51:16 +01:00
|
|
|
|
(source (origin
|
2015-09-16 15:17:43 +02:00
|
|
|
|
(method url-fetch)
|
|
|
|
|
(uri (string-append "mirror://sourceforge/procps-ng/Production/"
|
|
|
|
|
"procps-ng-" version ".tar.xz"))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
2018-05-23 22:08:41 +02:00
|
|
|
|
"0r84kwa5fl0sjdashcn4vh7hgfm7ahdcysig3mcjvpmkzi7p9g8h"))))
|
2013-01-12 16:51:16 +01:00
|
|
|
|
(build-system gnu-build-system)
|
|
|
|
|
(arguments
|
2015-02-13 20:27:38 +01:00
|
|
|
|
'(#:modules ((guix build utils)
|
|
|
|
|
(guix build gnu-build-system)
|
|
|
|
|
(srfi srfi-1)
|
|
|
|
|
(srfi srfi-26))
|
2015-09-16 15:17:43 +02:00
|
|
|
|
#:phases
|
|
|
|
|
(modify-phases %standard-phases
|
|
|
|
|
(add-after
|
|
|
|
|
'install 'post-install
|
|
|
|
|
;; Remove commands and man pages redudant with
|
|
|
|
|
;; Coreutils.
|
|
|
|
|
(lambda* (#:key outputs #:allow-other-keys)
|
|
|
|
|
(let* ((out (assoc-ref outputs "out"))
|
|
|
|
|
(dup (append-map (cut find-files out <>)
|
|
|
|
|
'("^kill" "^uptime"))))
|
|
|
|
|
(for-each delete-file dup)
|
|
|
|
|
#t))))))
|
|
|
|
|
(inputs `(("ncurses" ,ncurses)))
|
|
|
|
|
(home-page "https://gitlab.com/procps-ng/procps/")
|
2013-05-18 23:02:25 +02:00
|
|
|
|
(synopsis "Utilities that give information about processes")
|
2013-01-12 16:51:16 +01:00
|
|
|
|
(description
|
gnu: Some cleanup based on lint checkers.
* gnu/packages/admin.scm, gnu/packages/aidc.scm, gnu/packages/algebra.scm,
gnu/packages/apr.scm, gnu/packages/avahi.scm, gnu/packages/backup.scm,
gnu/packages/base.scm, gnu/packages/calcurse.scm, gnu/packages/cdrom.scm,
gnu/packages/check.scm, gnu/packages/compression.scm, gnu/packages/cook.scm,
gnu/packages/crypto.scm, gnu/packages/cryptsetup.scm, gnu/packages/curl.scm,
gnu/packages/cyrus-sasl.scm, gnu/packages/databases.scm,
gnu/packages/doxygen.scm, gnu/packages/dwm.scm, gnu/packages/elf.scm,
gnu/packages/emacs.scm, gnu/packages/feh.scm, gnu/packages/file.scm,
gnu/packages/fish.scm, gnu/packages/flex.scm, gnu/packages/fltk.scm,
gnu/packages/fontutils.scm, gnu/packages/games.scm, gnu/packages/gcal.scm,
gnu/packages/gcc.scm, gnu/packages/geeqie.scm, gnu/packages/ghostscript.scm,
gnu/packages/gimp.scm, gnu/packages/gl.scm, gnu/packages/glib.scm,
gnu/packages/gnome.scm, gnu/packages/gnunet.scm, gnu/packages/gnupg.scm,
gnu/packages/gperf.scm, gnu/packages/grub.scm, gnu/packages/gsasl.scm,
gnu/packages/gtk.scm, gnu/packages/guile-wm.scm, gnu/packages/guile.scm,
gnu/packages/hurd.scm, gnu/packages/icu4c.scm, gnu/packages/image.scm,
gnu/packages/imagemagick.scm, gnu/packages/irssi.scm, gnu/packages/kde.scm,
gnu/packages/libdaemon.scm, gnu/packages/libevent.scm,
gnu/packages/libidn.scm, gnu/packages/libusb.scm, gnu/packages/linux.scm,
gnu/packages/lout.scm, gnu/packages/lsh.scm, gnu/packages/lsof.scm,
gnu/packages/lua.scm, gnu/packages/maths.scm, gnu/packages/mcrypt.scm,
gnu/packages/mp3.scm, gnu/packages/netpbm.scm, gnu/packages/noweb.scm,
gnu/packages/ocaml.scm, gnu/packages/openssl.scm, gnu/packages/pcre.scm,
gnu/packages/pdf.scm, gnu/packages/pkg-config.scm,
gnu/packages/pretty-print.scm, gnu/packages/python.scm, gnu/packages/qt.scm,
gnu/packages/rsync.scm, gnu/packages/scheme.scm, gnu/packages/scrot.scm,
gnu/packages/sdl.scm, gnu/packages/skribilo.scm, gnu/packages/ssh.scm,
gnu/packages/stalonetray.scm, gnu/packages/tcl.scm, gnu/packages/tcsh.scm,
gnu/packages/telephony.scm, gnu/packages/texlive.scm, gnu/packages/tor.scm,
gnu/packages/valgrind.scm, gnu/packages/version-control.scm,
gnu/packages/vim.scm, gnu/packages/vpn.scm, gnu/packages/w3m.scm,
gnu/packages/web.scm, gnu/packages/wordnet.scm, gnu/packages/xiph.scm,
gnu/packages/xml.scm, gnu/packages/xorg.scm, gnu/packages/zile.scm,
gnu/packages/zip.scm, gnu/packages/zsh.scm [synopsis, description]: Adjust
according to lint checkers.
* gnu/packages/fltk.scm (fltk)[source]: Wrap long line in uri.
* /gnu/packages/xiph.scm (libogg, libtheora, vorbis-tools)[source]: Same.
2014-10-24 06:46:59 +02:00
|
|
|
|
"Procps is the package that has a bunch of small useful utilities
|
2013-01-12 16:51:16 +01:00
|
|
|
|
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.")
|
2015-12-19 00:30:33 +01:00
|
|
|
|
(license license:gpl2)))
|
2013-01-12 16:51:16 +01:00
|
|
|
|
|
2012-12-17 21:29:06 +01:00
|
|
|
|
(define-public usbutils
|
|
|
|
|
(package
|
|
|
|
|
(name "usbutils")
|
2018-05-16 15:41:11 +02:00
|
|
|
|
(version "010")
|
2012-12-17 21:29:06 +01:00
|
|
|
|
(source
|
|
|
|
|
(origin
|
|
|
|
|
(method url-fetch)
|
|
|
|
|
(uri (string-append "mirror://kernel.org/linux/utils/usb/usbutils/"
|
|
|
|
|
"usbutils-" version ".tar.xz"))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
2018-05-16 15:41:11 +02:00
|
|
|
|
"06aag4jfgsfjxk563xsp9ik9nadihmasrr37a1gb0vwqni5kdiv1"))))
|
2012-12-17 21:29:06 +01:00
|
|
|
|
(build-system gnu-build-system)
|
|
|
|
|
(inputs
|
2016-12-14 00:22:04 +01:00
|
|
|
|
`(("libusb" ,libusb)
|
2017-06-09 09:03:46 +02:00
|
|
|
|
("eudev" ,eudev)))
|
gnu: Move numerous "inputs" which should be "native-inputs".
* gnu/packages/avahi.scm, gnu/packages/cdrom.scm, gnu/packages/cryptsetup.scm,
gnu/packages/curl.scm, gnu/packages/emacs.scm, gnu/packages/fontutils.scm,
gnu/packages/gdb.scm, gnu/packages/geeqie.scm, gnu/packages/ghostscript.scm,
gnu/packages/glib.scm, gnu/packages/gnome.scm, gnu/packages/gnunet.scm,
gnu/packages/gnupg.scm, gnu/packages/gnuzilla.scm, gnu/packages/graphviz.scm,
gnu/packages/groff.scm, gnu/packages/gstreamer.scm, gnu/packages/gtk.scm,
gnu/packages/gv.scm, gnu/packages/imagemagick.scm, gnu/packages/irssi.scm,
gnu/packages/kde.scm, gnu/packages/libcanberra.scm, gnu/packages/libtiff.scm,
gnu/packages/linux.scm, gnu/packages/lvm.scm, gnu/packages/mp3.scm,
gnu/packages/netpbm.scm, gnu/packages/parted.scm, gnu/packages/pdf.scm,
gnu/packages/pulseaudio.scm, gnu/packages/qemu.scm, gnu/packages/qt.scm,
gnu/packages/ratpoison.scm, gnu/packages/rdf.scm, gnu/packages/slim.scm,
gnu/packages/texlive.scm, gnu/packages/version-control.scm,
gnu/packages/video.scm, gnu/packages/vpn.scm, gnu/packages/w3m.scm,
gnu/packages/xml.scm, gnu/packages/xnee.scm, gnu/packages/xorg.scm,
gnu/packages/zip.scm: Move some build-time dependencies from `inputs' to
`native-inputs'.
Signed-off-by: Ludovic Courtès <ludo@gnu.org>
2013-12-15 12:01:56 +01:00
|
|
|
|
(native-inputs
|
|
|
|
|
`(("pkg-config" ,pkg-config)))
|
2012-12-17 21:29:06 +01:00
|
|
|
|
(home-page "http://www.linux-usb.org/")
|
|
|
|
|
(synopsis
|
|
|
|
|
"Tools for working with USB devices, such as lsusb")
|
|
|
|
|
(description
|
|
|
|
|
"Tools for working with USB devices, such as lsusb.")
|
2015-12-19 00:30:33 +01:00
|
|
|
|
(license license:gpl2+)))
|
2013-02-10 23:48:41 +01:00
|
|
|
|
|
|
|
|
|
(define-public e2fsprogs
|
|
|
|
|
(package
|
|
|
|
|
(name "e2fsprogs")
|
2017-09-25 15:51:12 +02:00
|
|
|
|
(version "1.43.6")
|
2013-02-10 23:48:41 +01:00
|
|
|
|
(source (origin
|
|
|
|
|
(method url-fetch)
|
2015-07-24 23:11:32 +02:00
|
|
|
|
(uri (string-append
|
|
|
|
|
"mirror://kernel.org/linux/kernel/people/tytso/"
|
|
|
|
|
name "/v" version "/"
|
|
|
|
|
name "-" version ".tar.xz"))
|
2013-02-10 23:48:41 +01:00
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
2017-09-25 15:51:12 +02:00
|
|
|
|
"00ilv65dzcgiap435j89xk86shf7rrav3wsik7cahy789qijdcn9"))))
|
2013-02-10 23:48:41 +01:00
|
|
|
|
(build-system gnu-build-system)
|
gnu: Move numerous "inputs" which should be "native-inputs".
* gnu/packages/avahi.scm, gnu/packages/cdrom.scm, gnu/packages/cryptsetup.scm,
gnu/packages/curl.scm, gnu/packages/emacs.scm, gnu/packages/fontutils.scm,
gnu/packages/gdb.scm, gnu/packages/geeqie.scm, gnu/packages/ghostscript.scm,
gnu/packages/glib.scm, gnu/packages/gnome.scm, gnu/packages/gnunet.scm,
gnu/packages/gnupg.scm, gnu/packages/gnuzilla.scm, gnu/packages/graphviz.scm,
gnu/packages/groff.scm, gnu/packages/gstreamer.scm, gnu/packages/gtk.scm,
gnu/packages/gv.scm, gnu/packages/imagemagick.scm, gnu/packages/irssi.scm,
gnu/packages/kde.scm, gnu/packages/libcanberra.scm, gnu/packages/libtiff.scm,
gnu/packages/linux.scm, gnu/packages/lvm.scm, gnu/packages/mp3.scm,
gnu/packages/netpbm.scm, gnu/packages/parted.scm, gnu/packages/pdf.scm,
gnu/packages/pulseaudio.scm, gnu/packages/qemu.scm, gnu/packages/qt.scm,
gnu/packages/ratpoison.scm, gnu/packages/rdf.scm, gnu/packages/slim.scm,
gnu/packages/texlive.scm, gnu/packages/version-control.scm,
gnu/packages/video.scm, gnu/packages/vpn.scm, gnu/packages/w3m.scm,
gnu/packages/xml.scm, gnu/packages/xnee.scm, gnu/packages/xorg.scm,
gnu/packages/zip.scm: Move some build-time dependencies from `inputs' to
`native-inputs'.
Signed-off-by: Ludovic Courtès <ludo@gnu.org>
2013-12-15 12:01:56 +01:00
|
|
|
|
(inputs `(("util-linux" ,util-linux)))
|
2014-05-06 14:26:49 +02:00
|
|
|
|
(native-inputs `(("pkg-config" ,pkg-config)
|
2017-05-10 16:17:21 +02:00
|
|
|
|
("texinfo" ,texinfo) ;for the libext2fs Info manual
|
|
|
|
|
|
|
|
|
|
;; For tests.
|
|
|
|
|
("perl" ,perl)
|
|
|
|
|
("procps" ,procps)))
|
2013-02-10 23:48:41 +01:00
|
|
|
|
(arguments
|
2017-05-10 15:48:38 +02:00
|
|
|
|
'(;; util-linux is the preferred source for some of the libraries and
|
2015-01-23 14:23:54 +01:00
|
|
|
|
;; commands, so disable them (see, e.g.,
|
gnu: Adjust formatting as recommended by 'guix lint'.
* gnu/packages/aidc.scm (barcode, qrencode),
gnu/packages/bash.scm (bash, bash-completion),
gnu/packages/busybox.scm (busybox),
gnu/packages/cdrom.scm (cdparanoia),
gnu/packages/cmake.scm (cmake),
gnu/packages/conkeror.scm (conkeror),
gnu/packages/cook.scm (cook),
gnu/packages/curl.scm (curl),
gnu/packages/docbook.scm (docbook-xsl),
gnu/packages/enlightenment.scm (enlightenment),
gnu/packages/games.scm (abbaye),
gnu/packages/geeqie.scm (exiv2),
gnu/packages/gimp.scm (gegl),
gnu/packages/gl.scm (glu, freeglut, ftgl),
gnu/packages/glib.scm (glib),
gnu/packages/gnome.scm (orbit2, gconf, geocode-glib),
gnu/packages/gstreamer.scm (gstreamer, gst-plugins-base),
gnu/packages/linux.scm (util-linux),
gnu/packages/lisp.scm (gcl, ecl),
gnu/packages/maths.scm (gnuplot, hdf5),
gnu/packages/ssh.scm (dropbear),
gnu/packages/web.scm (json-c): Remove tabulations and trailing
white spaces or reformat to fit within 80 columns.
* gnu/packages/audio.scm (aubio),
gnu/packages/emacs.scm (emacs-s),
gnu/packages/engineering.scm (geda-gaf),
gnu/packages/games.scm (dosbox),
gnu/packages/gnome.scm (gusb),
gnu/packages/gtk.scm (gtk+),
gnu/packages/guile.scm (guile-wisp),
gnu/packages/hurd.scm (hurd-headers),
gnu/packages/wm.scm (i3-wm): Adjust synopsis or description.
2015-11-13 15:50:36 +01:00
|
|
|
|
;; <http://git.buildroot.net/buildroot/commit/?id=e1ffc2f791b33633>.)
|
2017-05-10 15:48:38 +02:00
|
|
|
|
#:configure-flags (list "--disable-libblkid"
|
|
|
|
|
"--disable-libuuid" "--disable-uuidd"
|
|
|
|
|
"--disable-fsck"
|
2015-01-13 22:13:00 +01:00
|
|
|
|
|
2017-05-10 15:48:38 +02:00
|
|
|
|
;; Use symlinks instead of hard links for
|
|
|
|
|
;; 'fsck.extN' etc. This makes the resulting nar
|
|
|
|
|
;; smaller and is preserved across copies.
|
|
|
|
|
"--enable-symlink-install"
|
2017-01-10 18:18:17 +01:00
|
|
|
|
|
2017-05-10 15:48:38 +02:00
|
|
|
|
(string-append "LDFLAGS=-Wl,-rpath="
|
|
|
|
|
(assoc-ref %outputs "out")
|
|
|
|
|
"/lib")
|
2015-01-13 22:13:00 +01:00
|
|
|
|
|
2017-05-10 15:48:38 +02:00
|
|
|
|
;; Install libext2fs et al.
|
|
|
|
|
"--enable-elf-shlibs")
|
2014-09-12 17:25:39 +02:00
|
|
|
|
|
2017-05-10 15:47:29 +02:00
|
|
|
|
#:phases
|
|
|
|
|
(modify-phases %standard-phases
|
|
|
|
|
(add-before 'configure 'patch-shells
|
|
|
|
|
(lambda _
|
|
|
|
|
(substitute* "configure"
|
|
|
|
|
(("/bin/sh (.*)parse-types.sh" _ dir)
|
|
|
|
|
(string-append (which "sh") " " dir
|
|
|
|
|
"parse-types.sh")))
|
2017-05-10 15:48:38 +02:00
|
|
|
|
(substitute* "MCONFIG.in"
|
|
|
|
|
(("INSTALL_SYMLINK = /bin/sh")
|
|
|
|
|
"INSTALL_SYMLINK = sh"))
|
2017-05-10 15:47:29 +02:00
|
|
|
|
(substitute* (find-files "." "^Makefile.in$")
|
|
|
|
|
(("#!/bin/sh")
|
|
|
|
|
(string-append "#!" (which "sh"))))
|
|
|
|
|
#t))
|
|
|
|
|
(add-after 'install 'install-libs
|
|
|
|
|
(lambda* (#:key outputs #:allow-other-keys)
|
|
|
|
|
(let* ((out (assoc-ref outputs "out"))
|
|
|
|
|
(lib (string-append out "/lib")))
|
|
|
|
|
(and (zero? (system* "make" "install-libs"))
|
|
|
|
|
|
|
|
|
|
;; Make the .a writable so that 'strip' works.
|
|
|
|
|
;; Failing to do that, due to debug symbols, we
|
|
|
|
|
;; retain a reference to the final
|
|
|
|
|
;; linux-libre-headers, which refer to the
|
|
|
|
|
;; bootstrap binaries.
|
|
|
|
|
(let ((archives (find-files lib "\\.a$")))
|
|
|
|
|
(for-each (lambda (file)
|
|
|
|
|
(chmod file #o666))
|
|
|
|
|
archives)
|
2017-05-10 16:17:21 +02:00
|
|
|
|
#t))))))))
|
2013-02-10 23:48:41 +01:00
|
|
|
|
(home-page "http://e2fsprogs.sourceforge.net/")
|
2013-05-18 23:02:25 +02:00
|
|
|
|
(synopsis "Creating and checking ext2/ext3/ext4 file systems")
|
2013-02-10 23:48:41 +01:00
|
|
|
|
(description
|
|
|
|
|
"This package provides tools for manipulating ext2/ext3/ext4 file systems.")
|
2015-12-19 00:30:33 +01:00
|
|
|
|
(license (list license:gpl2 ;programs
|
|
|
|
|
license:lgpl2.0 ;libext2fs
|
|
|
|
|
license:x11)))) ;libuuid
|
2013-05-18 23:31:14 +02:00
|
|
|
|
|
2015-01-16 21:07:31 +01:00
|
|
|
|
(define e2fsprogs/static
|
|
|
|
|
(static-package
|
|
|
|
|
(package (inherit e2fsprogs)
|
|
|
|
|
(arguments
|
|
|
|
|
;; Do not build shared libraries.
|
|
|
|
|
(substitute-keyword-arguments (package-arguments e2fsprogs)
|
|
|
|
|
((#:configure-flags _)
|
|
|
|
|
'(list "--disable-blkid"))
|
|
|
|
|
((#:make-flags _)
|
|
|
|
|
'(list)))))))
|
|
|
|
|
|
2014-05-03 16:37:04 +02:00
|
|
|
|
(define-public e2fsck/static
|
|
|
|
|
(package
|
|
|
|
|
(name "e2fsck-static")
|
2014-05-06 14:12:41 +02:00
|
|
|
|
(version (package-version e2fsprogs))
|
2014-05-03 16:37:04 +02:00
|
|
|
|
(build-system trivial-build-system)
|
|
|
|
|
(source #f)
|
2017-01-09 01:31:13 +01:00
|
|
|
|
(inputs
|
|
|
|
|
`(("e2fsprogs" ,e2fsprogs/static)))
|
2014-05-03 16:37:04 +02:00
|
|
|
|
(arguments
|
|
|
|
|
`(#:modules ((guix build utils))
|
|
|
|
|
#:builder
|
|
|
|
|
(begin
|
|
|
|
|
(use-modules (guix build utils)
|
|
|
|
|
(ice-9 ftw)
|
|
|
|
|
(srfi srfi-26))
|
|
|
|
|
|
2017-01-09 01:31:13 +01:00
|
|
|
|
(let ((e2fsck (string-append (assoc-ref %build-inputs "e2fsprogs")
|
|
|
|
|
"/sbin/e2fsck"))
|
2014-05-03 16:37:04 +02:00
|
|
|
|
(bin (string-append (assoc-ref %outputs "out") "/sbin")))
|
|
|
|
|
(mkdir-p bin)
|
|
|
|
|
(with-directory-excursion bin
|
2017-01-09 01:31:13 +01:00
|
|
|
|
(copy-file e2fsck "e2fsck")
|
|
|
|
|
(remove-store-references "e2fsck")
|
|
|
|
|
(chmod "e2fsck" #o555))))))
|
2014-05-06 14:12:41 +02:00
|
|
|
|
(home-page (package-home-page e2fsprogs))
|
2017-01-09 01:31:13 +01:00
|
|
|
|
(synopsis "Statically-linked e2fsck command from e2fsprogs")
|
|
|
|
|
(description "This package provides statically-linked e2fsck command taken
|
|
|
|
|
from the e2fsprogs package. It is meant to be used in initrds.")
|
2014-05-06 14:12:41 +02:00
|
|
|
|
(license (package-license e2fsprogs))))
|
2014-05-03 16:37:04 +02:00
|
|
|
|
|
2015-07-23 23:25:39 +02:00
|
|
|
|
(define-public extundelete
|
|
|
|
|
(package
|
|
|
|
|
(name "extundelete")
|
|
|
|
|
(version "0.2.4")
|
|
|
|
|
(source (origin
|
|
|
|
|
(method url-fetch)
|
|
|
|
|
(uri (string-append "mirror://sourceforge/extundelete/"
|
2016-07-21 08:35:30 +02:00
|
|
|
|
"extundelete/" version "/extundelete-"
|
|
|
|
|
version ".tar.bz2"))
|
2015-07-23 23:25:39 +02:00
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
|
|
|
|
"1x0r7ylxlp9lbj3d7sqf6j2a222dwy2nfpff05jd6mkh4ihxvyd1"))))
|
|
|
|
|
(build-system gnu-build-system)
|
|
|
|
|
(inputs `(("e2fsprogs" ,e2fsprogs)))
|
|
|
|
|
(home-page "http://extundelete.sourceforge.net/")
|
|
|
|
|
(synopsis "Recover deleted files from ext2/3/4 partitions")
|
|
|
|
|
(description
|
|
|
|
|
"Extundelete is a set of tools that can recover deleted files from an
|
|
|
|
|
ext3 or ext4 partition.")
|
2015-12-19 00:30:33 +01:00
|
|
|
|
(license license:gpl2)))
|
2015-07-23 23:25:39 +02:00
|
|
|
|
|
2015-01-13 22:14:43 +01:00
|
|
|
|
(define-public zerofree
|
|
|
|
|
(package
|
|
|
|
|
(name "zerofree")
|
2018-03-02 05:01:16 +01:00
|
|
|
|
(version "1.1.1")
|
2017-08-03 22:27:21 +02:00
|
|
|
|
(home-page "https://frippery.org/uml/")
|
2015-01-13 22:14:43 +01:00
|
|
|
|
(source (origin
|
|
|
|
|
(method url-fetch)
|
|
|
|
|
(uri (string-append home-page name "-" version
|
|
|
|
|
".tgz"))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
2018-03-02 05:01:16 +01:00
|
|
|
|
"0rrqfa5z103ws89vi8kfvbks1cfs74ix6n1wb6vs582vnmhwhswm"))))
|
2015-01-13 22:14:43 +01:00
|
|
|
|
(build-system gnu-build-system)
|
|
|
|
|
(arguments
|
2017-08-03 22:14:54 +02:00
|
|
|
|
'(#:phases
|
|
|
|
|
(modify-phases %standard-phases
|
|
|
|
|
(delete 'configure) ; no configure script
|
|
|
|
|
(replace 'install
|
|
|
|
|
;; The Makefile lacks an ‘install’ target.
|
|
|
|
|
(lambda* (#:key outputs #:allow-other-keys)
|
|
|
|
|
(let* ((out (assoc-ref outputs "out"))
|
|
|
|
|
(bin (string-append out "/bin")))
|
2017-08-03 22:22:43 +02:00
|
|
|
|
(chmod "zerofree" #o555)
|
|
|
|
|
(install-file "zerofree" bin)
|
2017-08-03 22:14:54 +02:00
|
|
|
|
#t))))
|
|
|
|
|
#:tests? #f)) ; no tests
|
2015-01-13 22:14:43 +01:00
|
|
|
|
(inputs `(("libext2fs" ,e2fsprogs)))
|
|
|
|
|
(synopsis "Zero non-allocated regions in ext2/ext3/ext4 file systems")
|
|
|
|
|
(description
|
2017-08-03 22:26:36 +02:00
|
|
|
|
"Zerofree finds the unallocated blocks with non-zero value content in an
|
|
|
|
|
ext2, ext3, or ext4 file system and fills them with zeroes (or another value).
|
|
|
|
|
This is a simple way to make disk images more compressible.
|
|
|
|
|
Zerofree requires the file system to be unmounted or mounted read-only.")
|
2015-12-19 00:30:33 +01:00
|
|
|
|
(license license:gpl2)))
|
2015-01-13 22:14:43 +01:00
|
|
|
|
|
2013-05-18 23:31:14 +02:00
|
|
|
|
(define-public strace
|
|
|
|
|
(package
|
|
|
|
|
(name "strace")
|
2018-04-06 16:08:27 +02:00
|
|
|
|
(version "4.22")
|
|
|
|
|
(home-page "https://strace.io")
|
2013-05-18 23:31:14 +02:00
|
|
|
|
(source (origin
|
|
|
|
|
(method url-fetch)
|
2018-04-06 16:08:27 +02:00
|
|
|
|
(uri (string-append home-page "/files/" version
|
|
|
|
|
"/strace-" version ".tar.xz"))
|
2018-05-06 20:11:40 +02:00
|
|
|
|
(patches (search-patches "strace-kernel-4.16.patch"))
|
2013-05-18 23:31:14 +02:00
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
2018-04-06 16:08:27 +02:00
|
|
|
|
"17dkpnsjxmys1ydidm9wcvc3wscsz44fmlxw3dclspn9cj9d1306"))))
|
2013-05-18 23:31:14 +02:00
|
|
|
|
(build-system gnu-build-system)
|
2017-02-22 10:09:03 +01:00
|
|
|
|
(arguments
|
|
|
|
|
'(#:phases
|
|
|
|
|
(modify-phases %standard-phases
|
|
|
|
|
(add-after 'unpack 'patch-/bin/sh
|
|
|
|
|
(lambda _
|
|
|
|
|
(substitute* "strace.c"
|
|
|
|
|
(("/bin/sh") (which "sh")))
|
|
|
|
|
#t)))))
|
gnu: Move numerous "inputs" which should be "native-inputs".
* gnu/packages/avahi.scm, gnu/packages/cdrom.scm, gnu/packages/cryptsetup.scm,
gnu/packages/curl.scm, gnu/packages/emacs.scm, gnu/packages/fontutils.scm,
gnu/packages/gdb.scm, gnu/packages/geeqie.scm, gnu/packages/ghostscript.scm,
gnu/packages/glib.scm, gnu/packages/gnome.scm, gnu/packages/gnunet.scm,
gnu/packages/gnupg.scm, gnu/packages/gnuzilla.scm, gnu/packages/graphviz.scm,
gnu/packages/groff.scm, gnu/packages/gstreamer.scm, gnu/packages/gtk.scm,
gnu/packages/gv.scm, gnu/packages/imagemagick.scm, gnu/packages/irssi.scm,
gnu/packages/kde.scm, gnu/packages/libcanberra.scm, gnu/packages/libtiff.scm,
gnu/packages/linux.scm, gnu/packages/lvm.scm, gnu/packages/mp3.scm,
gnu/packages/netpbm.scm, gnu/packages/parted.scm, gnu/packages/pdf.scm,
gnu/packages/pulseaudio.scm, gnu/packages/qemu.scm, gnu/packages/qt.scm,
gnu/packages/ratpoison.scm, gnu/packages/rdf.scm, gnu/packages/slim.scm,
gnu/packages/texlive.scm, gnu/packages/version-control.scm,
gnu/packages/video.scm, gnu/packages/vpn.scm, gnu/packages/w3m.scm,
gnu/packages/xml.scm, gnu/packages/xnee.scm, gnu/packages/xorg.scm,
gnu/packages/zip.scm: Move some build-time dependencies from `inputs' to
`native-inputs'.
Signed-off-by: Ludovic Courtès <ludo@gnu.org>
2013-12-15 12:01:56 +01:00
|
|
|
|
(native-inputs `(("perl" ,perl)))
|
2013-05-18 23:31:14 +02:00
|
|
|
|
(synopsis "System call tracer for Linux")
|
|
|
|
|
(description
|
|
|
|
|
"strace is a system call tracer, i.e. a debugging tool which prints out a
|
|
|
|
|
trace of all the system calls made by a another process/program.")
|
2015-12-19 00:30:33 +01:00
|
|
|
|
(license license:bsd-3)))
|
2013-06-09 23:52:39 +02:00
|
|
|
|
|
2015-02-09 23:35:03 +01:00
|
|
|
|
(define-public ltrace
|
|
|
|
|
(package
|
|
|
|
|
(name "ltrace")
|
|
|
|
|
(version "0.7.3")
|
|
|
|
|
(source (origin
|
|
|
|
|
(method url-fetch)
|
|
|
|
|
(uri (string-append "http://www.ltrace.org/ltrace_" version
|
|
|
|
|
".orig.tar.bz2"))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
|
|
|
|
"00wmbdghqbz6x95m1mcdd3wd46l6hgcr4wggdp049dbifh3qqvqf"))))
|
|
|
|
|
(build-system gnu-build-system)
|
|
|
|
|
(inputs `(("libelf" ,libelf)))
|
|
|
|
|
(arguments
|
|
|
|
|
;; Compilation uses -Werror by default, but it fails.
|
|
|
|
|
'(#:configure-flags '("--disable-werror")))
|
2018-01-15 07:29:02 +01:00
|
|
|
|
(home-page "https://www.ltrace.org/")
|
2015-02-09 23:35:03 +01:00
|
|
|
|
(synopsis "Library call tracer for Linux")
|
|
|
|
|
(description
|
|
|
|
|
"ltrace intercepts and records dynamic library calls which are called by
|
|
|
|
|
an executed process and the signals received by that process. It can also
|
|
|
|
|
intercept and print the system calls executed by the program.")
|
2015-12-19 00:30:33 +01:00
|
|
|
|
(license license:gpl2+)))
|
2015-02-09 23:35:03 +01:00
|
|
|
|
|
2013-06-09 23:52:39 +02:00
|
|
|
|
(define-public alsa-lib
|
|
|
|
|
(package
|
|
|
|
|
(name "alsa-lib")
|
2018-04-15 14:20:07 +02:00
|
|
|
|
(version "1.1.6")
|
2013-06-09 23:52:39 +02:00
|
|
|
|
(source (origin
|
|
|
|
|
(method url-fetch)
|
|
|
|
|
(uri (string-append
|
|
|
|
|
"ftp://ftp.alsa-project.org/pub/lib/alsa-lib-"
|
|
|
|
|
version ".tar.bz2"))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
2018-04-15 14:20:07 +02:00
|
|
|
|
"096pwrnhj36yndldvs2pj4r871zhcgisks0is78f1jkjn9sd4b2z"))))
|
2013-06-09 23:52:39 +02:00
|
|
|
|
(build-system gnu-build-system)
|
2017-02-23 10:56:15 +01:00
|
|
|
|
(home-page "https://www.alsa-project.org/")
|
2013-06-09 23:52:39 +02:00
|
|
|
|
(synopsis "The Advanced Linux Sound Architecture libraries")
|
|
|
|
|
(description
|
|
|
|
|
"The Advanced Linux Sound Architecture (ALSA) provides audio and
|
|
|
|
|
MIDI functionality to the Linux-based operating system.")
|
2015-12-19 00:30:33 +01:00
|
|
|
|
(license license:lgpl2.1+)))
|
2013-06-17 22:33:35 +02:00
|
|
|
|
|
2013-10-06 22:36:22 +02:00
|
|
|
|
(define-public alsa-utils
|
|
|
|
|
(package
|
|
|
|
|
(name "alsa-utils")
|
2018-04-15 14:22:04 +02:00
|
|
|
|
(version "1.1.6")
|
2013-10-06 22:36:22 +02:00
|
|
|
|
(source (origin
|
|
|
|
|
(method url-fetch)
|
2016-02-11 08:17:37 +01:00
|
|
|
|
(uri (string-append "ftp://ftp.alsa-project.org/pub/utils/"
|
|
|
|
|
name "-" version ".tar.bz2"))
|
2013-10-06 22:36:22 +02:00
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
2018-04-15 14:22:04 +02:00
|
|
|
|
"0vnkyymgwj9rfdb11nvab30dnfrylmakdfildxl0y8mj836awp0m"))))
|
2013-10-06 22:36:22 +02:00
|
|
|
|
(build-system gnu-build-system)
|
|
|
|
|
(arguments
|
|
|
|
|
;; XXX: Disable man page creation until we have DocBook.
|
|
|
|
|
'(#:configure-flags (list "--disable-xmlto"
|
2014-09-10 22:59:27 +02:00
|
|
|
|
|
|
|
|
|
;; The udev rule is responsible for restoring
|
|
|
|
|
;; the volume.
|
2013-10-06 22:36:22 +02:00
|
|
|
|
(string-append "--with-udev-rules-dir="
|
|
|
|
|
(assoc-ref %outputs "out")
|
|
|
|
|
"/lib/udev/rules.d"))
|
2016-08-31 07:37:16 +02:00
|
|
|
|
#:phases
|
|
|
|
|
(modify-phases %standard-phases
|
|
|
|
|
(add-before
|
|
|
|
|
'install 'pre-install
|
|
|
|
|
(lambda _
|
|
|
|
|
;; Don't try to mkdir /var/lib/alsa.
|
|
|
|
|
(substitute* "Makefile"
|
|
|
|
|
(("\\$\\(MKDIR_P\\) .*ASOUND_STATE_DIR.*")
|
2016-12-23 03:38:28 +01:00
|
|
|
|
"true\n"))
|
|
|
|
|
#t)))))
|
2013-10-06 22:36:22 +02:00
|
|
|
|
(inputs
|
|
|
|
|
`(("libsamplerate" ,libsamplerate)
|
|
|
|
|
("ncurses" ,ncurses)
|
|
|
|
|
("alsa-lib" ,alsa-lib)
|
|
|
|
|
("xmlto" ,xmlto)
|
2016-09-25 09:33:02 +02:00
|
|
|
|
("gettext" ,gettext-minimal)))
|
2013-10-06 22:36:22 +02:00
|
|
|
|
(home-page "http://www.alsa-project.org/")
|
|
|
|
|
(synopsis "Utilities for the Advanced Linux Sound Architecture (ALSA)")
|
|
|
|
|
(description
|
|
|
|
|
"The Advanced Linux Sound Architecture (ALSA) provides audio and
|
|
|
|
|
MIDI functionality to the Linux-based operating system.")
|
|
|
|
|
|
|
|
|
|
;; This is mostly GPLv2+ but a few files such as 'alsactl.c' are
|
|
|
|
|
;; GPLv2-only.
|
2015-12-19 00:30:33 +01:00
|
|
|
|
(license license:gpl2)))
|
2013-10-06 22:36:22 +02:00
|
|
|
|
|
2016-12-20 15:53:31 +01:00
|
|
|
|
(define-public alsa-plugins
|
|
|
|
|
(package
|
|
|
|
|
(name "alsa-plugins")
|
2018-04-15 14:22:26 +02:00
|
|
|
|
(version "1.1.6")
|
2016-12-20 15:53:31 +01:00
|
|
|
|
(source (origin
|
|
|
|
|
(method url-fetch)
|
|
|
|
|
(uri (string-append "ftp://ftp.alsa-project.org/pub/plugins/"
|
|
|
|
|
name "-" version ".tar.bz2"))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
2018-04-15 14:22:26 +02:00
|
|
|
|
"04qcwkisbh0d6lnh0rw1k6n869fbs6zbfq6yvb41rymiwgmk27bg"))))
|
2016-12-20 15:53:31 +01:00
|
|
|
|
(build-system gnu-build-system)
|
|
|
|
|
;; TODO: Split libavcodec and speex if possible. It looks like they can not
|
|
|
|
|
;; be split, there are references to both in files.
|
|
|
|
|
;; TODO: Remove OSS related plugins, they add support to run native
|
|
|
|
|
;; ALSA applications on OSS however we do not offer OSS and OSS is
|
|
|
|
|
;; obsolete.
|
|
|
|
|
(outputs '("out" "pulseaudio"))
|
|
|
|
|
(arguments
|
|
|
|
|
`(#:phases
|
|
|
|
|
(modify-phases %standard-phases
|
|
|
|
|
(add-after 'install 'split
|
|
|
|
|
(lambda* (#:key inputs outputs #:allow-other-keys)
|
|
|
|
|
;; Distribute the binaries to the various outputs.
|
|
|
|
|
(let* ((out (assoc-ref outputs "out"))
|
|
|
|
|
(pua (assoc-ref outputs "pulseaudio"))
|
|
|
|
|
(pualib (string-append pua "/lib/alsa-lib"))
|
|
|
|
|
(puaconf (string-append pua "/share/alsa/alsa.conf.d")))
|
|
|
|
|
(mkdir-p puaconf)
|
|
|
|
|
(mkdir-p pualib)
|
|
|
|
|
(chdir (string-append out "/share"))
|
|
|
|
|
(for-each (lambda (file)
|
|
|
|
|
(rename-file file (string-append puaconf "/" (basename file))))
|
|
|
|
|
(find-files out "\\.(conf|example)"))
|
|
|
|
|
(for-each (lambda (file)
|
|
|
|
|
(rename-file file (string-append pualib "/" (basename file))))
|
|
|
|
|
(find-files out ".*pulse\\.(la|so)"))
|
|
|
|
|
(chdir "..")
|
|
|
|
|
;; We have moved the files to output pulsaudio, the
|
|
|
|
|
;; directory is now empty.
|
|
|
|
|
(delete-file-recursively (string-append out "/share"))
|
|
|
|
|
#t))))))
|
|
|
|
|
(inputs
|
|
|
|
|
`(("alsa-lib" ,alsa-lib)
|
|
|
|
|
("speex" ,speex) ; libspeexdsp resampling plugin
|
|
|
|
|
("libsamplerate" ,libsamplerate) ; libsamplerate resampling plugin
|
|
|
|
|
("ffmpeg" ,ffmpeg) ; libavcodec resampling plugin, a52 plugin
|
|
|
|
|
("pulseaudio" ,pulseaudio))) ; PulseAudio plugin
|
|
|
|
|
(native-inputs
|
|
|
|
|
`(("pkg-config" ,pkg-config)))
|
|
|
|
|
(home-page "http://www.alsa-project.org/")
|
|
|
|
|
(synopsis "Plugins for the Advanced Linux Sound Architecture (ALSA)")
|
|
|
|
|
(description
|
|
|
|
|
"The Advanced Linux Sound Architecture (ALSA) provides audio and
|
|
|
|
|
MIDI functionality to the Linux-based operating system. This package enhances ALSA
|
|
|
|
|
by providing additional plugins which include: upmixing, downmixing, jackd and
|
|
|
|
|
pulseaudio support for native alsa applications, format conversion (s16 to a52), and
|
|
|
|
|
external rate conversion.")
|
|
|
|
|
(license (list license:gpl2+
|
|
|
|
|
;; `rate/rate_samplerate.c': LGPL v2.1 or later.
|
|
|
|
|
license:lgpl2.1+))))
|
|
|
|
|
|
2013-06-17 22:33:35 +02:00
|
|
|
|
(define-public iptables
|
|
|
|
|
(package
|
|
|
|
|
(name "iptables")
|
2018-02-21 04:58:24 +01:00
|
|
|
|
(version "1.6.2")
|
2013-06-17 22:33:35 +02:00
|
|
|
|
(source (origin
|
|
|
|
|
(method url-fetch)
|
|
|
|
|
(uri (string-append
|
2017-02-27 01:32:57 +01:00
|
|
|
|
"mirror://netfilter.org/iptables/iptables-"
|
2013-06-17 22:33:35 +02:00
|
|
|
|
version ".tar.bz2"))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
2018-02-21 04:58:24 +01:00
|
|
|
|
"0crp0lvh5m2f15pr8cw97h8yb8zjj10x95zj06j46cr68vx2vl2m"))))
|
2013-06-17 22:33:35 +02:00
|
|
|
|
(build-system gnu-build-system)
|
2017-04-15 23:57:15 +02:00
|
|
|
|
(native-inputs
|
|
|
|
|
`(("pkg-config" ,pkg-config)
|
|
|
|
|
("flex" ,flex)
|
|
|
|
|
("bison" ,bison)))
|
|
|
|
|
(inputs
|
|
|
|
|
`(("libmnl" ,libmnl)
|
|
|
|
|
("libnftnl" ,libnftnl)))
|
2015-04-11 12:23:27 +02:00
|
|
|
|
(arguments
|
|
|
|
|
'(#:tests? #f ; no test suite
|
|
|
|
|
#:configure-flags ; add $libdir to the RUNPATH of executables
|
|
|
|
|
(list (string-append "LDFLAGS=-Wl,-rpath=" %output "/lib"))))
|
2017-04-15 23:57:15 +02:00
|
|
|
|
(home-page "https://www.netfilter.org/projects/iptables/index.html")
|
2018-02-21 05:00:09 +01:00
|
|
|
|
(synopsis "Programs to configure Linux IP packet filtering rules")
|
2013-06-17 22:33:35 +02:00
|
|
|
|
(description
|
2018-02-21 05:00:09 +01:00
|
|
|
|
"@command{iptables} is the user-space command line program used to
|
|
|
|
|
configure the Linux 2.4.x and later IPv4 packet filtering ruleset
|
|
|
|
|
(@dfn{firewall}), including @dfn{NAT} (Network Address Translation).
|
|
|
|
|
|
|
|
|
|
This package also includes @command{ip6tables}, which is used to configure the
|
|
|
|
|
IPv6 packet filter.
|
|
|
|
|
|
2018-04-02 17:22:01 +02:00
|
|
|
|
Both commands are targeted at system administrators.")
|
2015-12-19 00:30:33 +01:00
|
|
|
|
(license license:gpl2+)))
|
2013-06-17 23:53:42 +02:00
|
|
|
|
|
2017-06-25 16:40:36 +02:00
|
|
|
|
(define-public ebtables
|
|
|
|
|
(package
|
|
|
|
|
(name "ebtables")
|
|
|
|
|
(version "2.0.10-4")
|
|
|
|
|
(source (origin
|
|
|
|
|
(method url-fetch)
|
|
|
|
|
(uri (string-append
|
|
|
|
|
"mirror://netfilter.org/ebtables/ebtables-v"
|
|
|
|
|
version ".tar.gz"))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
|
|
|
|
"0pa5ljlk970yfyhpf3iqwfpbc30j8mgn90fapw9cfz909x47nvyw"))))
|
|
|
|
|
(build-system gnu-build-system)
|
|
|
|
|
(arguments
|
|
|
|
|
'(#:tests? #f ; no test suite
|
|
|
|
|
#:make-flags
|
|
|
|
|
(let* ((out (assoc-ref %outputs "out"))
|
|
|
|
|
(bin (string-append out "/sbin"))
|
|
|
|
|
(lib (string-append out "/lib"))
|
|
|
|
|
(man (string-append out "/share/man"))
|
|
|
|
|
(iptables (assoc-ref %build-inputs "iptables"))
|
|
|
|
|
(ethertypes (string-append iptables "/etc/ethertypes")))
|
|
|
|
|
(list (string-append "LIBDIR=" lib)
|
|
|
|
|
(string-append "MANDIR=" man)
|
|
|
|
|
(string-append "BINDIR=" bin)
|
|
|
|
|
(string-append "ETHERTYPESFILE=" ethertypes)
|
|
|
|
|
;; With the default CFLAGS, it falis with:
|
|
|
|
|
;; communication.c:259:58: error: variable ‘ret’ set but not
|
|
|
|
|
;; used [-Werror=unused-but-set-variable]
|
|
|
|
|
"CFLAGS=-Wall"))
|
|
|
|
|
#:phases
|
|
|
|
|
(modify-phases %standard-phases
|
|
|
|
|
(replace 'configure
|
|
|
|
|
;; no configure script
|
|
|
|
|
(lambda _
|
|
|
|
|
(substitute* "Makefile"
|
|
|
|
|
;; Remove user and group options from install commands,
|
|
|
|
|
;; otherwise it fails with: invalid user 'root'.
|
|
|
|
|
(("-o root -g root") "")
|
|
|
|
|
;; Remove 'ethertypes' from the install target.
|
|
|
|
|
(("install: .*")
|
|
|
|
|
"install: $(MANDIR)/man8/ebtables.8 exec scripts\n"))
|
|
|
|
|
#t)))))
|
|
|
|
|
(inputs
|
|
|
|
|
`(("perl" ,perl)
|
|
|
|
|
("iptables" ,iptables)))
|
|
|
|
|
(synopsis "Ethernet bridge frame table administration")
|
|
|
|
|
(home-page "http://ebtables.netfilter.org/")
|
|
|
|
|
(description
|
|
|
|
|
"ebtables is an application program used to set up and maintain the
|
|
|
|
|
tables of rules (inside the Linux kernel) that inspect Ethernet frames. It is
|
|
|
|
|
analogous to the iptables application, but less complicated, due to the fact
|
|
|
|
|
that the Ethernet protocol is much simpler than the IP protocol.")
|
|
|
|
|
(license license:gpl2+)))
|
|
|
|
|
|
2013-06-17 23:53:42 +02:00
|
|
|
|
(define-public iproute
|
|
|
|
|
(package
|
|
|
|
|
(name "iproute2")
|
2018-04-04 03:31:10 +02:00
|
|
|
|
(version "4.16.0")
|
2013-06-17 23:53:42 +02:00
|
|
|
|
(source (origin
|
2016-02-11 11:49:38 +01:00
|
|
|
|
(method url-fetch)
|
|
|
|
|
(uri (string-append
|
|
|
|
|
"mirror://kernel.org/linux/utils/net/iproute2/iproute2-"
|
|
|
|
|
version ".tar.xz"))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
2018-04-04 03:31:10 +02:00
|
|
|
|
"02pfalg319jpbjz273ph725br8dnkzpfvi98azi9yd6p1w128p0c"))))
|
2013-06-17 23:53:42 +02:00
|
|
|
|
(build-system gnu-build-system)
|
|
|
|
|
(arguments
|
|
|
|
|
`(#:tests? #f ; no test suite
|
|
|
|
|
#:make-flags (let ((out (assoc-ref %outputs "out")))
|
|
|
|
|
(list "DESTDIR="
|
2016-11-02 02:30:56 +01:00
|
|
|
|
(string-append "BASH_COMPDIR=" out
|
|
|
|
|
"/etc/bash_completion.d")
|
2013-06-17 23:53:42 +02:00
|
|
|
|
(string-append "LIBDIR=" out "/lib")
|
2017-02-26 23:24:38 +01:00
|
|
|
|
(string-append "HDRDIR=" out "/include")
|
2013-06-17 23:53:42 +02:00
|
|
|
|
(string-append "SBINDIR=" out "/sbin")
|
|
|
|
|
(string-append "CONFDIR=" out "/etc")
|
|
|
|
|
(string-append "DOCDIR=" out "/share/doc/"
|
|
|
|
|
,name "-" ,version)
|
|
|
|
|
(string-append "MANDIR=" out "/share/man")))
|
2016-02-11 11:49:16 +01:00
|
|
|
|
#:phases (modify-phases %standard-phases
|
|
|
|
|
(add-before 'install 'pre-install
|
|
|
|
|
(lambda _
|
|
|
|
|
;; Don't attempt to create /var/lib/arpd.
|
|
|
|
|
(substitute* "Makefile"
|
|
|
|
|
(("^.*ARPDDIR.*$") "")))))))
|
2013-06-17 23:53:42 +02:00
|
|
|
|
(inputs
|
|
|
|
|
`(("iptables" ,iptables)
|
gnu: Move numerous "inputs" which should be "native-inputs".
* gnu/packages/avahi.scm, gnu/packages/cdrom.scm, gnu/packages/cryptsetup.scm,
gnu/packages/curl.scm, gnu/packages/emacs.scm, gnu/packages/fontutils.scm,
gnu/packages/gdb.scm, gnu/packages/geeqie.scm, gnu/packages/ghostscript.scm,
gnu/packages/glib.scm, gnu/packages/gnome.scm, gnu/packages/gnunet.scm,
gnu/packages/gnupg.scm, gnu/packages/gnuzilla.scm, gnu/packages/graphviz.scm,
gnu/packages/groff.scm, gnu/packages/gstreamer.scm, gnu/packages/gtk.scm,
gnu/packages/gv.scm, gnu/packages/imagemagick.scm, gnu/packages/irssi.scm,
gnu/packages/kde.scm, gnu/packages/libcanberra.scm, gnu/packages/libtiff.scm,
gnu/packages/linux.scm, gnu/packages/lvm.scm, gnu/packages/mp3.scm,
gnu/packages/netpbm.scm, gnu/packages/parted.scm, gnu/packages/pdf.scm,
gnu/packages/pulseaudio.scm, gnu/packages/qemu.scm, gnu/packages/qt.scm,
gnu/packages/ratpoison.scm, gnu/packages/rdf.scm, gnu/packages/slim.scm,
gnu/packages/texlive.scm, gnu/packages/version-control.scm,
gnu/packages/video.scm, gnu/packages/vpn.scm, gnu/packages/w3m.scm,
gnu/packages/xml.scm, gnu/packages/xnee.scm, gnu/packages/xorg.scm,
gnu/packages/zip.scm: Move some build-time dependencies from `inputs' to
`native-inputs'.
Signed-off-by: Ludovic Courtès <ludo@gnu.org>
2013-12-15 12:01:56 +01:00
|
|
|
|
("db4" ,bdb)))
|
|
|
|
|
(native-inputs
|
|
|
|
|
`(("pkg-config" ,pkg-config)
|
2013-06-17 23:53:42 +02:00
|
|
|
|
("flex" ,flex)
|
|
|
|
|
("bison" ,bison)))
|
|
|
|
|
(home-page
|
2016-12-13 16:06:16 +01:00
|
|
|
|
"https://wiki.linuxfoundation.org/networking/iproute2")
|
2013-06-17 23:53:42 +02:00
|
|
|
|
(synopsis
|
2014-09-13 15:50:30 +02:00
|
|
|
|
"Utilities for controlling TCP/IP networking and traffic in Linux")
|
2013-06-17 23:53:42 +02:00
|
|
|
|
(description
|
2017-09-06 15:26:54 +02:00
|
|
|
|
"Iproute2 is a collection of utilities for controlling TCP/IP networking
|
|
|
|
|
and traffic with the Linux kernel. The most important of these are
|
|
|
|
|
@command{ip}, which configures IPv4 and IPv6, and @command{tc} for traffic
|
|
|
|
|
control.
|
2013-06-17 23:53:42 +02:00
|
|
|
|
|
|
|
|
|
Most network configuration manuals still refer to ifconfig and route as the
|
|
|
|
|
primary network configuration tools, but ifconfig is known to behave
|
2017-09-06 15:26:54 +02:00
|
|
|
|
inadequately in modern network environments, and both should be deprecated.")
|
2015-12-19 00:30:33 +01:00
|
|
|
|
(license license:gpl2+)))
|
2013-09-26 20:54:32 +02:00
|
|
|
|
|
|
|
|
|
(define-public net-tools
|
|
|
|
|
;; XXX: This package is basically unmaintained, but it provides a few
|
|
|
|
|
;; commands not yet provided by Inetutils, such as 'route', so we have to
|
|
|
|
|
;; live with it.
|
2017-07-26 02:33:27 +02:00
|
|
|
|
(let ((commit "479bb4a7e11a4084e2935c0a576388f92469225b")
|
|
|
|
|
(revision "0"))
|
|
|
|
|
(package
|
|
|
|
|
(name "net-tools")
|
|
|
|
|
(version (string-append "1.60-" revision "." (string-take commit 7)))
|
|
|
|
|
(source (origin
|
2017-08-27 04:54:55 +02:00
|
|
|
|
(method url-fetch)
|
|
|
|
|
(uri (string-append "https://sourceforge.net/code-snapshots/git/"
|
|
|
|
|
"n/ne/net-tools/code.git/net-tools-code-"
|
|
|
|
|
commit ".zip"))
|
|
|
|
|
(file-name (string-append name "-" version ".zip"))
|
2017-07-26 02:33:27 +02:00
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
2017-08-27 04:54:55 +02:00
|
|
|
|
"0hz9fda9d78spp774b6rr5xaxav7cm4h0qcpxf70rvdbrf6qx7vy"))))
|
2017-07-26 02:33:27 +02:00
|
|
|
|
(home-page "http://net-tools.sourceforge.net/")
|
|
|
|
|
(build-system gnu-build-system)
|
|
|
|
|
(arguments
|
|
|
|
|
'(#:modules ((guix build gnu-build-system)
|
|
|
|
|
(guix build utils)
|
|
|
|
|
(srfi srfi-1)
|
|
|
|
|
(srfi srfi-26))
|
|
|
|
|
#:phases
|
|
|
|
|
(modify-phases %standard-phases
|
|
|
|
|
(replace 'configure
|
|
|
|
|
(lambda* (#:key outputs #:allow-other-keys)
|
|
|
|
|
(let ((out (assoc-ref outputs "out")))
|
|
|
|
|
(mkdir-p (string-append out "/bin"))
|
|
|
|
|
(mkdir-p (string-append out "/sbin"))
|
|
|
|
|
|
|
|
|
|
;; Pretend we have everything...
|
|
|
|
|
(system "yes | make config")
|
|
|
|
|
|
|
|
|
|
;; ... except for the things we don't have.
|
|
|
|
|
;; HAVE_AFDECnet requires libdnet, which we don't have.
|
|
|
|
|
;; HAVE_HWSTRIP and HAVE_HWTR require kernel headers
|
|
|
|
|
;; that have been removed.
|
|
|
|
|
;; XXX SELINUX and AFBLUETOOTH are removed for now, but we should
|
|
|
|
|
;; think about adding them later.
|
|
|
|
|
(substitute* '("config.make" "config.h")
|
|
|
|
|
(("^.*HAVE_(AFDECnet|HWSTRIP|HWTR|SELINUX|AFBLUETOOTH)[ =]1.*$")
|
|
|
|
|
"")))))
|
|
|
|
|
(add-after 'install 'remove-redundant-commands
|
|
|
|
|
(lambda* (#:key outputs #:allow-other-keys)
|
|
|
|
|
;; Remove commands and man pages redundant with Inetutils.
|
|
|
|
|
(let* ((out (assoc-ref outputs "out"))
|
|
|
|
|
(dup (append-map (cut find-files out <>)
|
|
|
|
|
'("^hostname"
|
|
|
|
|
"^(yp|nis|dns)?domainname"))))
|
|
|
|
|
(for-each delete-file dup)
|
|
|
|
|
#t))))
|
|
|
|
|
;; Binaries that depend on libnet-tools.a don't declare that
|
|
|
|
|
;; dependency, making it parallel-unsafe.
|
|
|
|
|
#:parallel-build? #f
|
|
|
|
|
|
|
|
|
|
#:tests? #f ; no test suite
|
|
|
|
|
#:make-flags (let ((out (assoc-ref %outputs "out")))
|
|
|
|
|
(list "CC=gcc"
|
|
|
|
|
(string-append "BASEDIR=" out)
|
|
|
|
|
(string-append "INSTALLNLSDIR=" out "/share/locale")
|
|
|
|
|
(string-append "mandir=/share/man")))))
|
2017-08-27 04:54:55 +02:00
|
|
|
|
(native-inputs `(("gettext" ,gettext-minimal)
|
|
|
|
|
("unzip" ,unzip)))
|
2017-07-26 02:33:27 +02:00
|
|
|
|
(synopsis "Tools for controlling the network subsystem in Linux")
|
|
|
|
|
(description
|
|
|
|
|
"This package includes the important tools for controlling the network
|
|
|
|
|
subsystem of the Linux kernel. This includes arp, ifconfig, netstat, rarp and
|
|
|
|
|
route. Additionally, this package contains utilities relating to particular
|
|
|
|
|
network hardware types (plipconfig, slattach) and advanced aspects of IP
|
|
|
|
|
configuration (iptunnel, ipmaddr).")
|
|
|
|
|
(license license:gpl2+))))
|
|
|
|
|
|
2013-10-05 16:47:12 +02:00
|
|
|
|
(define-public libcap
|
|
|
|
|
(package
|
|
|
|
|
(name "libcap")
|
2016-12-15 23:46:38 +01:00
|
|
|
|
(version "2.25")
|
2013-10-05 16:47:12 +02:00
|
|
|
|
(source (origin
|
|
|
|
|
(method url-fetch)
|
|
|
|
|
(uri (string-append
|
2015-09-02 11:12:11 +02:00
|
|
|
|
"mirror://kernel.org/linux/libs/security/linux-privs/"
|
|
|
|
|
"libcap2/libcap-" version ".tar.xz"))
|
2013-10-05 16:47:12 +02:00
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
2016-12-15 23:46:38 +01:00
|
|
|
|
"0qjiqc5pknaal57453nxcbz3mn1r4hkyywam41wfcglq3v2qlg39"))))
|
2013-10-05 16:47:12 +02:00
|
|
|
|
(build-system gnu-build-system)
|
2015-04-11 07:59:54 +02:00
|
|
|
|
(arguments '(#:phases
|
|
|
|
|
(modify-phases %standard-phases
|
|
|
|
|
(replace 'configure
|
|
|
|
|
;; Add $libdir to the RUNPATH of executables.
|
|
|
|
|
(lambda _
|
|
|
|
|
(substitute* "Make.Rules"
|
|
|
|
|
(("LDFLAGS := #-g")
|
|
|
|
|
(string-append "LDFLAGS := -Wl,-rpath="
|
|
|
|
|
%output "/lib"))))))
|
2013-10-05 16:47:12 +02:00
|
|
|
|
#:tests? #f ; no 'check' target
|
|
|
|
|
#:make-flags (list "lib=lib"
|
|
|
|
|
(string-append "prefix="
|
|
|
|
|
(assoc-ref %outputs "out"))
|
|
|
|
|
"RAISE_SETFCAP=no")))
|
|
|
|
|
(native-inputs `(("perl" ,perl)))
|
|
|
|
|
(inputs `(("attr" ,attr)))
|
|
|
|
|
(home-page "https://sites.google.com/site/fullycapable/")
|
|
|
|
|
(synopsis "Library for working with POSIX capabilities")
|
|
|
|
|
(description
|
gnu: Some cleanup based on lint checkers.
* gnu/packages/admin.scm, gnu/packages/aidc.scm, gnu/packages/algebra.scm,
gnu/packages/apr.scm, gnu/packages/avahi.scm, gnu/packages/backup.scm,
gnu/packages/base.scm, gnu/packages/calcurse.scm, gnu/packages/cdrom.scm,
gnu/packages/check.scm, gnu/packages/compression.scm, gnu/packages/cook.scm,
gnu/packages/crypto.scm, gnu/packages/cryptsetup.scm, gnu/packages/curl.scm,
gnu/packages/cyrus-sasl.scm, gnu/packages/databases.scm,
gnu/packages/doxygen.scm, gnu/packages/dwm.scm, gnu/packages/elf.scm,
gnu/packages/emacs.scm, gnu/packages/feh.scm, gnu/packages/file.scm,
gnu/packages/fish.scm, gnu/packages/flex.scm, gnu/packages/fltk.scm,
gnu/packages/fontutils.scm, gnu/packages/games.scm, gnu/packages/gcal.scm,
gnu/packages/gcc.scm, gnu/packages/geeqie.scm, gnu/packages/ghostscript.scm,
gnu/packages/gimp.scm, gnu/packages/gl.scm, gnu/packages/glib.scm,
gnu/packages/gnome.scm, gnu/packages/gnunet.scm, gnu/packages/gnupg.scm,
gnu/packages/gperf.scm, gnu/packages/grub.scm, gnu/packages/gsasl.scm,
gnu/packages/gtk.scm, gnu/packages/guile-wm.scm, gnu/packages/guile.scm,
gnu/packages/hurd.scm, gnu/packages/icu4c.scm, gnu/packages/image.scm,
gnu/packages/imagemagick.scm, gnu/packages/irssi.scm, gnu/packages/kde.scm,
gnu/packages/libdaemon.scm, gnu/packages/libevent.scm,
gnu/packages/libidn.scm, gnu/packages/libusb.scm, gnu/packages/linux.scm,
gnu/packages/lout.scm, gnu/packages/lsh.scm, gnu/packages/lsof.scm,
gnu/packages/lua.scm, gnu/packages/maths.scm, gnu/packages/mcrypt.scm,
gnu/packages/mp3.scm, gnu/packages/netpbm.scm, gnu/packages/noweb.scm,
gnu/packages/ocaml.scm, gnu/packages/openssl.scm, gnu/packages/pcre.scm,
gnu/packages/pdf.scm, gnu/packages/pkg-config.scm,
gnu/packages/pretty-print.scm, gnu/packages/python.scm, gnu/packages/qt.scm,
gnu/packages/rsync.scm, gnu/packages/scheme.scm, gnu/packages/scrot.scm,
gnu/packages/sdl.scm, gnu/packages/skribilo.scm, gnu/packages/ssh.scm,
gnu/packages/stalonetray.scm, gnu/packages/tcl.scm, gnu/packages/tcsh.scm,
gnu/packages/telephony.scm, gnu/packages/texlive.scm, gnu/packages/tor.scm,
gnu/packages/valgrind.scm, gnu/packages/version-control.scm,
gnu/packages/vim.scm, gnu/packages/vpn.scm, gnu/packages/w3m.scm,
gnu/packages/web.scm, gnu/packages/wordnet.scm, gnu/packages/xiph.scm,
gnu/packages/xml.scm, gnu/packages/xorg.scm, gnu/packages/zile.scm,
gnu/packages/zip.scm, gnu/packages/zsh.scm [synopsis, description]: Adjust
according to lint checkers.
* gnu/packages/fltk.scm (fltk)[source]: Wrap long line in uri.
* /gnu/packages/xiph.scm (libogg, libtheora, vorbis-tools)[source]: Same.
2014-10-24 06:46:59 +02:00
|
|
|
|
"Libcap2 provides a programming interface to POSIX capabilities on
|
2013-10-05 16:47:12 +02:00
|
|
|
|
Linux-based operating systems.")
|
|
|
|
|
|
|
|
|
|
;; License is BSD-3 or GPLv2, at the user's choice.
|
2015-12-19 00:30:33 +01:00
|
|
|
|
(license license:gpl2)))
|
2013-10-31 23:29:25 +01:00
|
|
|
|
|
|
|
|
|
(define-public bridge-utils
|
|
|
|
|
(package
|
|
|
|
|
(name "bridge-utils")
|
|
|
|
|
(version "1.5")
|
|
|
|
|
(source (origin
|
|
|
|
|
(method url-fetch)
|
2016-07-21 08:35:30 +02:00
|
|
|
|
(uri (string-append "mirror://sourceforge/bridge/bridge/"
|
|
|
|
|
"bridge-utils-" version ".tar.gz"))
|
2013-10-31 23:29:25 +01:00
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
|
|
|
|
"12367cwqmi0yqphi6j8rkx97q8hw52yq2fx4k0xfclkcizxybya2"))))
|
|
|
|
|
(build-system gnu-build-system)
|
|
|
|
|
|
|
|
|
|
;; The tarball lacks all the generated files.
|
|
|
|
|
(native-inputs `(("autoconf" ,autoconf)
|
|
|
|
|
("automake" ,automake)))
|
|
|
|
|
(arguments
|
gnu: Use 'modify-phases' syntax.
* gnu/packages/admin.scm (mingetty, clusterssh, wpa-supplicant-minimal,
wpa-supplicant, wakelan, acpica, tree, direvent, dstat)[arguments]: Use
'modify-phases' syntax.
* gnu/packages/algebra.scm (arb)[arguments]: Likewise.
* gnu/packages/apr.scm (apr-util)[arguments]: Likewise.
* gnu/packages/audio.scm (clalsadrv, fluidsynth, faad2, lv2-mda-piano,
lv2-mda-epiano, timidity++, vamp, soundtouch, portaudio, rsound,
zita-convolver, zita-alsa-pcmi)[arguments]: Likewise.
* gnu/packages/backup.scm (rdup, btar)[arguments]: Likewise.
* gnu/packages/bioinformatics.scm (bedops, bwa, crossmap, express,
flexbar, grit, hisat, ngs-sdk, subread)[arguments]: Likewise.
* gnu/packages/bittorrent.scm (transmission)[arguments]: Likewise.
* gnu/packages/cdrom.scm (cd-discid)[arguments]: Likewise.
* gnu/packages/compression.scm (sharutils)[arguments]: Likewise.
* gnu/packages/conky.scm (conky)[arguments]: Likewise.
* gnu/packages/databases.scm (bdb, bdb-5.3)[arguments]: Likewise.
* gnu/packages/debug.scm (delta, c-reduce)[arguments]: Likewise.
* gnu/packages/display-managers.scm (slim)[arguments]: Likewise.
* gnu/packages/dns.scm (dnsmasq)[arguments]: Likewise.
* gnu/packages/emacs.scm (geiser, emacs-wget, bbdb)[arguments]: Likewise.
* gnu/packages/engineering.scm (pcb)[arguments]: Likewise.
* gnu/packages/firmware.scm (ath9k-htc-firmware)[arguments]: Likewise.
* gnu/packages/flashing-tools.scm (flashrom)[arguments]: Likewise.
* gnu/packages/fltk.scm (fltk)[arguments]: Likewise.
* gnu/packages/freedesktop.scm (python-pyxdg)[arguments]: Likewise.
* gnu/packages/gd.scm (perl-gd)[arguments]: Likewise.
* gnu/packages/gkrellm.scm (gkrellm)[arguments]: Likewise.
* gnu/packages/glib.scm (glibmm)[arguments]: Likewise.
* gnu/packages/gl.scm (glew)[arguments]: Likewise.
* gnu/packages/gnome.scm (icon-naming-utils, orbit2, libbonobo, gnome-vfs,
libgnome, libbonoboui, goffice-0.8, dconf)[arguments]: Likewise.
* gnu/packages/gprolog.scm (gprolog)[arguments]: Likewise.
* gnu/packages/gps.scm (gpscorrelate)[arguments]: Likewise.
* gnu/packages/graphics.scm (agg)[arguments]: Likewise.
* gnu/packages/gtk.scm (ganv, girara, gtksourceview-2, guile-present,
python2-pycairo)[arguments]: Likewise.
* gnu/packages/guile.scm (guile-1.8)[arguments]: Likewise.
* gnu/packages/guile-wm.scm (guile-wm)[arguments]: Likewise.
* gnu/packages/hugs.scm (hugs)[arguments]: Likewise.
* gnu/packages/hurd.scm (gnumach-headers, hurd-headers, hurd-minimal)
[arguments]: Likewise.
* gnu/packages/image-viewers.scm (feh, sxiv)[arguments]: Likewise.
* gnu/packages/libcanberra.scm (libcanberra)[arguments]: Likewise.
* gnu/packages/linux.scm (bridge-utils, iw, fuse, unionfs-fuse/static,
lm-sensors, i2c-tools, xsensors, perf, mdadm, libaio, module-init-tools)
[arguments]: Likewise.
* gnu/packages/lisp.scm (ccl)[arguments]: Likewise.
* gnu/packages/lout.scm (lout)[arguments]: Likewise.
* gnu/packages/lua.scm (luajit)[arguments]: Likewise.
* gnu/packages/machine-learning.scm (shogun)[arguments]: Likewise.
* gnu/packages/mail.scm (exim)[arguments]: Likewise.
* gnu/packages/man.scm (man-pages, txt2man)[arguments]: Likewise.
* gnu/packages/maths.scm (lapack, superlu-dist, openlibm, openspecfun)
[arguments]: Likewise.
* gnu/packages/messaging.scm (bitlbee)[arguments]: Likewise.
* gnu/packages/mp3.scm (libmad, id3lib, mp3info)[arguments]: Likewise.
* gnu/packages/music.scm (solfege)[arguments]: Likewise.
* gnu/packages/noweb.scm (noweb)[arguments]: Likewise.
* gnu/packages/patchutils.scm (patchutils, quilt, colordiff)[arguments]:
Likewise.
* gnu/packages/pdf.scm (xpdf, zathura-cb, zathura-ps, zathura-djvu,
zathura-pdf-poppler, zathura, podofo, fbida)[arguments]: Likewise.
* gnu/packages/perl.scm (perl-file-list, perl-test-harness)[arguments]:
Likewise.
* gnu/packages/photo.scm (gphoto2)[arguments]: Likewise.
* gnu/packages/popt.scm (popt)[arguments]: Likewise.
* gnu/packages/pretty-print.scm (source-highlight, astyle)[arguments]:
Likewise.
* gnu/packages/pumpio.scm (pumpa)[arguments]: Likewise.
* gnu/packages/python.scm (python-passlib, python-pycrypto, python2-empy,
python-sqlalchemy, python-docopt)[arguments]: Likewise.
* gnu/packages/rdf.scm (lrdf)[arguments]: Likewise.
* gnu/packages/regex.scm (tre)[arguments]: Likewise.
* gnu/packages/rrdtool.scm (rrdtool)[arguments]: Likewise.
* gnu/packages/ruby.scm (ruby-2.1, ruby-1.8)[arguments]: Likewise.
* gnu/packages/sawfish.scm (sawfish)[arguments]: Likewise.
* gnu/packages/scheme.scm (racket)[arguments]: Likewise.
* gnu/packages/sdl.scm (guile-sdl)[arguments]: Likewise.
* gnu/packages/serveez.scm (serveez)[arguments]: Likewise.
* gnu/packages/skribilo.scm (skribilo)[arguments]: Likewise.
* gnu/packages/smalltalk.scm (smalltalk)[arguments]: Likewise.
* gnu/packages/suckless.scm (dmenu, slock)[arguments]: Likewise.
* gnu/packages/tcl.scm (expect)[arguments]: Likewise.
* gnu/packages/telephony.scm (commoncpp)[arguments]: Likewise.
* gnu/packages/textutils.scm (recode, libgtextutils)[arguments]:
Likewise.
* gnu/packages/time.scm (time)[arguments]: Likewise.
* gnu/packages/tor.scm (privoxy)[arguments]: Likewise.
* gnu/packages/uucp.scm (uucp)[arguments]: Likewise.
* gnu/packages/video.scm (libdvdnav-4)[arguments]: Likewise.
* gnu/packages/web-browsers.scm (lynx)[arguments]: Likewise.
* gnu/packages/web.scm (tinyproxy)[arguments]: Likewise.
* gnu/packages/wicd.scm (wicd)[arguments]: Likewise.
* gnu/packages/wm.scm (bspwm)[arguments]: Likewise.
* gnu/packages/xdisorg.scm (sxhkd, xcape)[arguments]: Likewise.
* gnu/packages/xfce.scm (xfconf)[arguments]: Likewise.
* gnu/packages/xfig.scm (transfig)[arguments]: Likewise.
* gnu/packages/xorg.scm (imake)[arguments]: Likewise.
2017-07-29 17:28:42 +02:00
|
|
|
|
'(#:phases
|
|
|
|
|
(modify-phases %standard-phases
|
|
|
|
|
(add-after 'unpack 'bootstrap
|
|
|
|
|
(lambda _
|
|
|
|
|
;; Fix "field ‘ip6’ has incomplete type" errors.
|
|
|
|
|
(substitute* "libbridge/libbridge.h"
|
|
|
|
|
(("#include <linux/if_bridge.h>")
|
|
|
|
|
"#include <linux/in6.h>\n#include <linux/if_bridge.h>"))
|
|
|
|
|
|
|
|
|
|
;; Ensure that the entire build fails if one of the
|
|
|
|
|
;; sub-Makefiles fails.
|
|
|
|
|
(substitute* "Makefile.in"
|
|
|
|
|
(("\\$\\(MAKE\\) \\$\\(MFLAGS\\) -C \\$\\$x ;")
|
|
|
|
|
"$(MAKE) $(MFLAGS) -C $$x || exit 1;"))
|
|
|
|
|
|
|
|
|
|
(zero? (system* "autoreconf" "-vf")))))
|
2013-10-31 23:29:25 +01:00
|
|
|
|
#:tests? #f)) ; no 'check' target
|
|
|
|
|
|
|
|
|
|
(home-page
|
|
|
|
|
"http://www.linuxfoundation.org/collaborate/workgroups/networking/bridge")
|
|
|
|
|
(synopsis "Manipulate Ethernet bridges")
|
|
|
|
|
(description
|
|
|
|
|
"Utilities for Linux's Ethernet bridging facilities. A bridge is a way
|
|
|
|
|
to connect two Ethernet segments together in a protocol independent way.
|
|
|
|
|
Packets are forwarded based on Ethernet address, rather than IP address (like
|
|
|
|
|
a router). Since forwarding is done at Layer 2, all protocols can go
|
|
|
|
|
transparently through a bridge.")
|
2015-12-19 00:30:33 +01:00
|
|
|
|
(license license:gpl2+)))
|
2013-11-22 22:50:17 +01:00
|
|
|
|
|
|
|
|
|
(define-public libnl
|
|
|
|
|
(package
|
|
|
|
|
(name "libnl")
|
2017-10-09 21:23:35 +02:00
|
|
|
|
(version "3.4.0")
|
2013-11-22 22:50:17 +01:00
|
|
|
|
(source (origin
|
|
|
|
|
(method url-fetch)
|
|
|
|
|
(uri (string-append
|
2017-06-07 00:20:21 +02:00
|
|
|
|
"https://github.com/thom311/libnl/releases/download/"
|
|
|
|
|
"libnl" (string-join (string-split version #\.) "_")
|
|
|
|
|
"/libnl-" version ".tar.gz"))
|
2013-11-22 22:50:17 +01:00
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
2017-10-09 21:23:35 +02:00
|
|
|
|
"1gzm444rnsib64dddv0cwlpzy1q4bycjqhp1i5pxpikimqvpca5p"))))
|
2013-11-22 22:50:17 +01:00
|
|
|
|
(build-system gnu-build-system)
|
2017-08-02 13:09:02 +02:00
|
|
|
|
(native-inputs
|
|
|
|
|
`(("bison" ,bison)
|
|
|
|
|
("flex" ,flex)
|
2017-08-02 14:39:28 +02:00
|
|
|
|
("pkg-config" ,pkg-config)
|
|
|
|
|
("swig" ,swig)
|
2017-08-02 13:09:02 +02:00
|
|
|
|
("libnl3-doc"
|
|
|
|
|
,(origin
|
|
|
|
|
(method url-fetch)
|
|
|
|
|
(uri (string-append
|
|
|
|
|
"https://github.com/thom311/libnl/releases/download/libnl"
|
|
|
|
|
(string-join (string-split version #\.) "_")
|
|
|
|
|
"/libnl-doc-" version ".tar.gz"))
|
|
|
|
|
(sha256
|
2017-10-09 21:23:35 +02:00
|
|
|
|
(base32 "1m5cnzviv31gjnz6fz5rgyl6ah4dbp2akm49j9973sgwl36gs8jx"))))))
|
2017-08-02 14:39:28 +02:00
|
|
|
|
(inputs
|
|
|
|
|
`(("python-2" ,python-2)
|
|
|
|
|
("python-3" ,python-3)))
|
|
|
|
|
(outputs '("out" "doc" "python2" "python3"))
|
2017-08-02 13:09:02 +02:00
|
|
|
|
(arguments
|
2017-08-02 14:39:28 +02:00
|
|
|
|
`(#:modules ((guix build gnu-build-system)
|
|
|
|
|
(guix build utils)
|
|
|
|
|
(srfi srfi-1))
|
|
|
|
|
#:phases
|
2017-08-02 13:09:02 +02:00
|
|
|
|
(modify-phases %standard-phases
|
2017-08-02 14:39:28 +02:00
|
|
|
|
(add-after 'install 'install-python
|
|
|
|
|
(lambda* (#:key outputs #:allow-other-keys)
|
|
|
|
|
(define (python-inst python)
|
|
|
|
|
(let ((ldflags (format #f "LDFLAGS=-Wl,-rpath=~a/lib"
|
|
|
|
|
(assoc-ref %outputs "out")))
|
|
|
|
|
(pyout (assoc-ref %outputs python)))
|
|
|
|
|
(and
|
|
|
|
|
(zero? (system (format #f "~a ~a setup.py build"
|
|
|
|
|
ldflags python pyout)))
|
|
|
|
|
(zero?
|
|
|
|
|
(system (format #f "~a ~a setup.py install --prefix=~a"
|
|
|
|
|
ldflags python pyout)))
|
|
|
|
|
(zero? (system* python "setup.py" "clean")))))
|
|
|
|
|
(with-directory-excursion "./python"
|
|
|
|
|
(every python-inst '("python2" "python3")))))
|
2017-08-02 13:09:02 +02:00
|
|
|
|
(add-after 'install 'install-doc
|
|
|
|
|
(lambda* (#:key inputs outputs #:allow-other-keys)
|
|
|
|
|
(let ((dest (string-append (assoc-ref outputs "doc")
|
|
|
|
|
"/share/doc/libnl")))
|
|
|
|
|
(mkdir-p dest)
|
|
|
|
|
(zero? (system* "tar" "xf" (assoc-ref inputs "libnl3-doc")
|
|
|
|
|
"--strip-components=1" "-C" dest))))))))
|
2018-01-15 07:29:02 +01:00
|
|
|
|
(home-page "https://www.infradead.org/~tgr/libnl/")
|
2013-11-22 22:50:17 +01:00
|
|
|
|
(synopsis "NetLink protocol library suite")
|
|
|
|
|
(description
|
|
|
|
|
"The libnl suite is a collection of libraries providing APIs to netlink
|
2015-07-23 09:40:05 +02:00
|
|
|
|
protocol based Linux kernel interfaces. Netlink is an IPC mechanism primarily
|
2013-11-22 22:50:17 +01:00
|
|
|
|
between the kernel and user space processes. It was designed to be a more
|
|
|
|
|
flexible successor to ioctl to provide mainly networking related kernel
|
|
|
|
|
configuration and monitoring interfaces.")
|
|
|
|
|
|
|
|
|
|
;; Most files are LGPLv2.1-only, but some are GPLv2-only (like
|
|
|
|
|
;; 'nl-addr-add.c'), so the result is GPLv2-only.
|
2015-12-19 00:30:33 +01:00
|
|
|
|
(license license:gpl2)))
|
2013-11-22 22:55:06 +01:00
|
|
|
|
|
2015-01-13 00:12:16 +01:00
|
|
|
|
(define-public iw
|
|
|
|
|
(package
|
|
|
|
|
(name "iw")
|
2018-01-23 12:51:24 +01:00
|
|
|
|
(version "4.14")
|
2015-01-13 00:12:16 +01:00
|
|
|
|
(source (origin
|
|
|
|
|
(method url-fetch)
|
|
|
|
|
(uri (string-append
|
2016-05-12 21:01:44 +02:00
|
|
|
|
"mirror://kernel.org/software/network/iw/iw-"
|
2015-01-13 00:12:16 +01:00
|
|
|
|
version ".tar.xz"))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
2018-01-23 12:51:24 +01:00
|
|
|
|
"12ddd6vh6vs97135bnlyr0szv7hvpbnmfh48584frzab0z0725ph"))))
|
2015-01-13 00:12:16 +01:00
|
|
|
|
(build-system gnu-build-system)
|
|
|
|
|
(native-inputs `(("pkg-config" ,pkg-config)))
|
|
|
|
|
(inputs `(("libnl" ,libnl)))
|
|
|
|
|
(arguments
|
|
|
|
|
`(#:make-flags (list (string-append "PREFIX=" (assoc-ref %outputs "out"))
|
|
|
|
|
"CC=gcc")
|
gnu: Use 'modify-phases' syntax.
* gnu/packages/admin.scm (mingetty, clusterssh, wpa-supplicant-minimal,
wpa-supplicant, wakelan, acpica, tree, direvent, dstat)[arguments]: Use
'modify-phases' syntax.
* gnu/packages/algebra.scm (arb)[arguments]: Likewise.
* gnu/packages/apr.scm (apr-util)[arguments]: Likewise.
* gnu/packages/audio.scm (clalsadrv, fluidsynth, faad2, lv2-mda-piano,
lv2-mda-epiano, timidity++, vamp, soundtouch, portaudio, rsound,
zita-convolver, zita-alsa-pcmi)[arguments]: Likewise.
* gnu/packages/backup.scm (rdup, btar)[arguments]: Likewise.
* gnu/packages/bioinformatics.scm (bedops, bwa, crossmap, express,
flexbar, grit, hisat, ngs-sdk, subread)[arguments]: Likewise.
* gnu/packages/bittorrent.scm (transmission)[arguments]: Likewise.
* gnu/packages/cdrom.scm (cd-discid)[arguments]: Likewise.
* gnu/packages/compression.scm (sharutils)[arguments]: Likewise.
* gnu/packages/conky.scm (conky)[arguments]: Likewise.
* gnu/packages/databases.scm (bdb, bdb-5.3)[arguments]: Likewise.
* gnu/packages/debug.scm (delta, c-reduce)[arguments]: Likewise.
* gnu/packages/display-managers.scm (slim)[arguments]: Likewise.
* gnu/packages/dns.scm (dnsmasq)[arguments]: Likewise.
* gnu/packages/emacs.scm (geiser, emacs-wget, bbdb)[arguments]: Likewise.
* gnu/packages/engineering.scm (pcb)[arguments]: Likewise.
* gnu/packages/firmware.scm (ath9k-htc-firmware)[arguments]: Likewise.
* gnu/packages/flashing-tools.scm (flashrom)[arguments]: Likewise.
* gnu/packages/fltk.scm (fltk)[arguments]: Likewise.
* gnu/packages/freedesktop.scm (python-pyxdg)[arguments]: Likewise.
* gnu/packages/gd.scm (perl-gd)[arguments]: Likewise.
* gnu/packages/gkrellm.scm (gkrellm)[arguments]: Likewise.
* gnu/packages/glib.scm (glibmm)[arguments]: Likewise.
* gnu/packages/gl.scm (glew)[arguments]: Likewise.
* gnu/packages/gnome.scm (icon-naming-utils, orbit2, libbonobo, gnome-vfs,
libgnome, libbonoboui, goffice-0.8, dconf)[arguments]: Likewise.
* gnu/packages/gprolog.scm (gprolog)[arguments]: Likewise.
* gnu/packages/gps.scm (gpscorrelate)[arguments]: Likewise.
* gnu/packages/graphics.scm (agg)[arguments]: Likewise.
* gnu/packages/gtk.scm (ganv, girara, gtksourceview-2, guile-present,
python2-pycairo)[arguments]: Likewise.
* gnu/packages/guile.scm (guile-1.8)[arguments]: Likewise.
* gnu/packages/guile-wm.scm (guile-wm)[arguments]: Likewise.
* gnu/packages/hugs.scm (hugs)[arguments]: Likewise.
* gnu/packages/hurd.scm (gnumach-headers, hurd-headers, hurd-minimal)
[arguments]: Likewise.
* gnu/packages/image-viewers.scm (feh, sxiv)[arguments]: Likewise.
* gnu/packages/libcanberra.scm (libcanberra)[arguments]: Likewise.
* gnu/packages/linux.scm (bridge-utils, iw, fuse, unionfs-fuse/static,
lm-sensors, i2c-tools, xsensors, perf, mdadm, libaio, module-init-tools)
[arguments]: Likewise.
* gnu/packages/lisp.scm (ccl)[arguments]: Likewise.
* gnu/packages/lout.scm (lout)[arguments]: Likewise.
* gnu/packages/lua.scm (luajit)[arguments]: Likewise.
* gnu/packages/machine-learning.scm (shogun)[arguments]: Likewise.
* gnu/packages/mail.scm (exim)[arguments]: Likewise.
* gnu/packages/man.scm (man-pages, txt2man)[arguments]: Likewise.
* gnu/packages/maths.scm (lapack, superlu-dist, openlibm, openspecfun)
[arguments]: Likewise.
* gnu/packages/messaging.scm (bitlbee)[arguments]: Likewise.
* gnu/packages/mp3.scm (libmad, id3lib, mp3info)[arguments]: Likewise.
* gnu/packages/music.scm (solfege)[arguments]: Likewise.
* gnu/packages/noweb.scm (noweb)[arguments]: Likewise.
* gnu/packages/patchutils.scm (patchutils, quilt, colordiff)[arguments]:
Likewise.
* gnu/packages/pdf.scm (xpdf, zathura-cb, zathura-ps, zathura-djvu,
zathura-pdf-poppler, zathura, podofo, fbida)[arguments]: Likewise.
* gnu/packages/perl.scm (perl-file-list, perl-test-harness)[arguments]:
Likewise.
* gnu/packages/photo.scm (gphoto2)[arguments]: Likewise.
* gnu/packages/popt.scm (popt)[arguments]: Likewise.
* gnu/packages/pretty-print.scm (source-highlight, astyle)[arguments]:
Likewise.
* gnu/packages/pumpio.scm (pumpa)[arguments]: Likewise.
* gnu/packages/python.scm (python-passlib, python-pycrypto, python2-empy,
python-sqlalchemy, python-docopt)[arguments]: Likewise.
* gnu/packages/rdf.scm (lrdf)[arguments]: Likewise.
* gnu/packages/regex.scm (tre)[arguments]: Likewise.
* gnu/packages/rrdtool.scm (rrdtool)[arguments]: Likewise.
* gnu/packages/ruby.scm (ruby-2.1, ruby-1.8)[arguments]: Likewise.
* gnu/packages/sawfish.scm (sawfish)[arguments]: Likewise.
* gnu/packages/scheme.scm (racket)[arguments]: Likewise.
* gnu/packages/sdl.scm (guile-sdl)[arguments]: Likewise.
* gnu/packages/serveez.scm (serveez)[arguments]: Likewise.
* gnu/packages/skribilo.scm (skribilo)[arguments]: Likewise.
* gnu/packages/smalltalk.scm (smalltalk)[arguments]: Likewise.
* gnu/packages/suckless.scm (dmenu, slock)[arguments]: Likewise.
* gnu/packages/tcl.scm (expect)[arguments]: Likewise.
* gnu/packages/telephony.scm (commoncpp)[arguments]: Likewise.
* gnu/packages/textutils.scm (recode, libgtextutils)[arguments]:
Likewise.
* gnu/packages/time.scm (time)[arguments]: Likewise.
* gnu/packages/tor.scm (privoxy)[arguments]: Likewise.
* gnu/packages/uucp.scm (uucp)[arguments]: Likewise.
* gnu/packages/video.scm (libdvdnav-4)[arguments]: Likewise.
* gnu/packages/web-browsers.scm (lynx)[arguments]: Likewise.
* gnu/packages/web.scm (tinyproxy)[arguments]: Likewise.
* gnu/packages/wicd.scm (wicd)[arguments]: Likewise.
* gnu/packages/wm.scm (bspwm)[arguments]: Likewise.
* gnu/packages/xdisorg.scm (sxhkd, xcape)[arguments]: Likewise.
* gnu/packages/xfce.scm (xfconf)[arguments]: Likewise.
* gnu/packages/xfig.scm (transfig)[arguments]: Likewise.
* gnu/packages/xorg.scm (imake)[arguments]: Likewise.
2017-07-29 17:28:42 +02:00
|
|
|
|
#:phases (modify-phases %standard-phases (delete 'configure))))
|
2016-05-12 21:01:44 +02:00
|
|
|
|
(home-page "https://wireless.wiki.kernel.org/")
|
2015-01-13 00:12:16 +01:00
|
|
|
|
(synopsis "Tool for configuring wireless devices")
|
|
|
|
|
(description
|
|
|
|
|
"iw is a new nl80211 based CLI configuration utility for wireless
|
2016-05-12 21:01:44 +02:00
|
|
|
|
devices. It replaces @code{iwconfig}, which is deprecated.")
|
2015-12-19 00:30:33 +01:00
|
|
|
|
(license license:isc)))
|
2015-01-13 00:12:16 +01:00
|
|
|
|
|
2013-11-22 22:55:06 +01:00
|
|
|
|
(define-public powertop
|
|
|
|
|
(package
|
|
|
|
|
(name "powertop")
|
2017-09-25 15:38:52 +02:00
|
|
|
|
(version "2.9")
|
2013-11-22 22:55:06 +01:00
|
|
|
|
(source
|
|
|
|
|
(origin
|
|
|
|
|
(method url-fetch)
|
|
|
|
|
(uri (string-append
|
2017-09-25 15:38:52 +02:00
|
|
|
|
"https://01.org/sites/default/files/downloads/powertop/powertop-v"
|
2013-11-22 22:55:06 +01:00
|
|
|
|
version ".tar.gz"))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
2017-09-25 15:38:52 +02:00
|
|
|
|
"0l4jjlf05li2mc6g8nrss3h435wjhmnqd8m7v3kha3x0x7cbfzxa"))))
|
2013-11-22 22:55:06 +01:00
|
|
|
|
(build-system gnu-build-system)
|
2016-04-18 17:00:44 +02:00
|
|
|
|
(arguments
|
|
|
|
|
'(#:phases
|
|
|
|
|
(modify-phases %standard-phases
|
|
|
|
|
;; TODO: Patch some hardcoded "wlan0" in calibrate/calibrate.cpp to
|
|
|
|
|
;; allow calibrating the network interface in GuixSD.
|
|
|
|
|
(add-after 'unpack 'patch-absolute-file-names
|
|
|
|
|
(lambda* (#:key inputs #:allow-other-keys)
|
|
|
|
|
(let ((kmod (assoc-ref inputs "kmod")))
|
|
|
|
|
(substitute* (find-files "src" "\\.cpp$")
|
|
|
|
|
;; Give the right 'modprobe' file name so that essential
|
|
|
|
|
;; modules such as msr.ko can be loaded.
|
|
|
|
|
(("/sbin/modprobe") (string-append kmod "/bin/modprobe"))
|
|
|
|
|
;; These programs are only needed to calibrate, so using
|
|
|
|
|
;; relative file names avoids adding extra inputs. When they
|
|
|
|
|
;; are missing powertop gracefully handles it.
|
|
|
|
|
(("/usr/bin/hcitool") "hcitool")
|
|
|
|
|
(("/usr/bin/xset") "xset")
|
|
|
|
|
(("/usr/sbin/hciconfig") "hciconfig"))
|
|
|
|
|
#t))))))
|
2013-11-22 22:55:06 +01:00
|
|
|
|
(inputs
|
2016-04-18 17:00:44 +02:00
|
|
|
|
`(("kmod" ,kmod)
|
|
|
|
|
("libnl" ,libnl)
|
2013-11-22 22:55:06 +01:00
|
|
|
|
("ncurses" ,ncurses)
|
2016-04-18 17:00:44 +02:00
|
|
|
|
("pciutils" ,pciutils)
|
|
|
|
|
("zlib" ,zlib)))
|
gnu: Move numerous "inputs" which should be "native-inputs".
* gnu/packages/avahi.scm, gnu/packages/cdrom.scm, gnu/packages/cryptsetup.scm,
gnu/packages/curl.scm, gnu/packages/emacs.scm, gnu/packages/fontutils.scm,
gnu/packages/gdb.scm, gnu/packages/geeqie.scm, gnu/packages/ghostscript.scm,
gnu/packages/glib.scm, gnu/packages/gnome.scm, gnu/packages/gnunet.scm,
gnu/packages/gnupg.scm, gnu/packages/gnuzilla.scm, gnu/packages/graphviz.scm,
gnu/packages/groff.scm, gnu/packages/gstreamer.scm, gnu/packages/gtk.scm,
gnu/packages/gv.scm, gnu/packages/imagemagick.scm, gnu/packages/irssi.scm,
gnu/packages/kde.scm, gnu/packages/libcanberra.scm, gnu/packages/libtiff.scm,
gnu/packages/linux.scm, gnu/packages/lvm.scm, gnu/packages/mp3.scm,
gnu/packages/netpbm.scm, gnu/packages/parted.scm, gnu/packages/pdf.scm,
gnu/packages/pulseaudio.scm, gnu/packages/qemu.scm, gnu/packages/qt.scm,
gnu/packages/ratpoison.scm, gnu/packages/rdf.scm, gnu/packages/slim.scm,
gnu/packages/texlive.scm, gnu/packages/version-control.scm,
gnu/packages/video.scm, gnu/packages/vpn.scm, gnu/packages/w3m.scm,
gnu/packages/xml.scm, gnu/packages/xnee.scm, gnu/packages/xorg.scm,
gnu/packages/zip.scm: Move some build-time dependencies from `inputs' to
`native-inputs'.
Signed-off-by: Ludovic Courtès <ludo@gnu.org>
2013-12-15 12:01:56 +01:00
|
|
|
|
(native-inputs
|
2015-12-14 09:29:18 +01:00
|
|
|
|
`(("pkg-config" ,pkg-config)))
|
2013-11-22 22:55:06 +01:00
|
|
|
|
(home-page "https://01.org/powertop/")
|
|
|
|
|
(synopsis "Analyze power consumption on Intel-based laptops")
|
|
|
|
|
(description
|
|
|
|
|
"PowerTOP is a Linux tool to diagnose issues with power consumption and
|
|
|
|
|
power management. In addition to being a diagnostic tool, PowerTOP also has
|
|
|
|
|
an interactive mode where the user can experiment various power management
|
|
|
|
|
settings for cases where the operating system has not enabled these
|
|
|
|
|
settings.")
|
2015-12-19 00:30:33 +01:00
|
|
|
|
(license license:gpl2)))
|
2014-01-13 18:47:59 +01:00
|
|
|
|
|
|
|
|
|
(define-public aumix
|
|
|
|
|
(package
|
|
|
|
|
(name "aumix")
|
|
|
|
|
(version "2.9.1")
|
|
|
|
|
(source (origin
|
|
|
|
|
(method url-fetch)
|
|
|
|
|
(uri (string-append
|
|
|
|
|
"http://www.jpj.net/~trevor/aumix/releases/aumix-"
|
|
|
|
|
version ".tar.bz2"))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
|
|
|
|
"0a8fwyxnc5qdxff8sl2sfsbnvgh6pkij4yafiln0fxgg6bal7knj"))))
|
|
|
|
|
(build-system gnu-build-system)
|
|
|
|
|
(inputs `(("ncurses" ,ncurses)))
|
|
|
|
|
(home-page "http://www.jpj.net/~trevor/aumix.html")
|
|
|
|
|
(synopsis "Audio mixer for X and the console")
|
|
|
|
|
(description
|
|
|
|
|
"Aumix adjusts an audio mixer from X, the console, a terminal,
|
|
|
|
|
the command line or a script.")
|
2015-12-19 00:30:33 +01:00
|
|
|
|
(license license:gpl2+)))
|
2014-01-27 17:45:21 +01:00
|
|
|
|
|
|
|
|
|
(define-public iotop
|
|
|
|
|
(package
|
|
|
|
|
(name "iotop")
|
|
|
|
|
(version "0.6")
|
|
|
|
|
(source
|
|
|
|
|
(origin
|
|
|
|
|
(method url-fetch)
|
|
|
|
|
(uri (string-append "http://guichaz.free.fr/iotop/files/iotop-"
|
|
|
|
|
version ".tar.gz"))
|
|
|
|
|
(sha256 (base32
|
|
|
|
|
"1kp8mqg2pbxq4xzpianypadfxcsyfgwcaqgqia6h9fsq6zyh4z0s"))))
|
|
|
|
|
(build-system python-build-system)
|
|
|
|
|
(arguments
|
2014-01-27 19:02:51 +01:00
|
|
|
|
;; The setup.py script expects python-2.
|
2014-01-27 17:45:21 +01:00
|
|
|
|
`(#:python ,python-2
|
2014-01-27 19:02:51 +01:00
|
|
|
|
;; There are currently no checks in the package.
|
2014-01-27 17:45:21 +01:00
|
|
|
|
#:tests? #f))
|
|
|
|
|
(native-inputs `(("python" ,python-2)))
|
|
|
|
|
(home-page "http://guichaz.free.fr/iotop/")
|
|
|
|
|
(synopsis
|
|
|
|
|
"Displays the IO activity of running processes")
|
|
|
|
|
(description
|
|
|
|
|
"Iotop is a Python program with a top like user interface to show the
|
|
|
|
|
processes currently causing I/O.")
|
2015-12-19 00:30:33 +01:00
|
|
|
|
(license license:gpl2+)))
|
2014-02-08 16:07:02 +01:00
|
|
|
|
|
|
|
|
|
(define-public fuse
|
|
|
|
|
(package
|
|
|
|
|
(name "fuse")
|
2017-04-30 11:34:37 +02:00
|
|
|
|
(version "2.9.7")
|
2014-02-08 16:07:02 +01:00
|
|
|
|
(source (origin
|
|
|
|
|
(method url-fetch)
|
2016-05-24 19:12:35 +02:00
|
|
|
|
(uri (string-append "https://github.com/libfuse/libfuse/releases/"
|
|
|
|
|
"download/fuse-" version
|
|
|
|
|
"/fuse-" version ".tar.gz"))
|
2014-02-08 16:07:02 +01:00
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
2017-04-30 11:34:37 +02:00
|
|
|
|
"0x486nri30f7cgy0acj87v9sjxsjrr0cymrvw4h3r0sgmp8k4943"))
|
2017-04-25 20:18:42 +02:00
|
|
|
|
(patches (search-patches "fuse-overlapping-headers.patch"))))
|
2014-02-08 16:07:02 +01:00
|
|
|
|
(build-system gnu-build-system)
|
2014-03-16 23:18:36 +01:00
|
|
|
|
(inputs `(("util-linux" ,util-linux)))
|
2014-02-08 16:07:02 +01:00
|
|
|
|
(arguments
|
|
|
|
|
'(#:configure-flags (list (string-append "MOUNT_FUSE_PATH="
|
|
|
|
|
(assoc-ref %outputs "out")
|
|
|
|
|
"/sbin")
|
|
|
|
|
(string-append "INIT_D_PATH="
|
|
|
|
|
(assoc-ref %outputs "out")
|
|
|
|
|
"/etc/init.d")
|
2014-09-13 10:32:47 +02:00
|
|
|
|
|
|
|
|
|
;; The rule makes /dev/fuse 666.
|
2014-02-08 16:07:02 +01:00
|
|
|
|
(string-append "UDEV_RULES_PATH="
|
|
|
|
|
(assoc-ref %outputs "out")
|
2014-09-13 10:32:47 +02:00
|
|
|
|
"/lib/udev/rules.d"))
|
gnu: Use 'modify-phases' syntax.
* gnu/packages/admin.scm (mingetty, clusterssh, wpa-supplicant-minimal,
wpa-supplicant, wakelan, acpica, tree, direvent, dstat)[arguments]: Use
'modify-phases' syntax.
* gnu/packages/algebra.scm (arb)[arguments]: Likewise.
* gnu/packages/apr.scm (apr-util)[arguments]: Likewise.
* gnu/packages/audio.scm (clalsadrv, fluidsynth, faad2, lv2-mda-piano,
lv2-mda-epiano, timidity++, vamp, soundtouch, portaudio, rsound,
zita-convolver, zita-alsa-pcmi)[arguments]: Likewise.
* gnu/packages/backup.scm (rdup, btar)[arguments]: Likewise.
* gnu/packages/bioinformatics.scm (bedops, bwa, crossmap, express,
flexbar, grit, hisat, ngs-sdk, subread)[arguments]: Likewise.
* gnu/packages/bittorrent.scm (transmission)[arguments]: Likewise.
* gnu/packages/cdrom.scm (cd-discid)[arguments]: Likewise.
* gnu/packages/compression.scm (sharutils)[arguments]: Likewise.
* gnu/packages/conky.scm (conky)[arguments]: Likewise.
* gnu/packages/databases.scm (bdb, bdb-5.3)[arguments]: Likewise.
* gnu/packages/debug.scm (delta, c-reduce)[arguments]: Likewise.
* gnu/packages/display-managers.scm (slim)[arguments]: Likewise.
* gnu/packages/dns.scm (dnsmasq)[arguments]: Likewise.
* gnu/packages/emacs.scm (geiser, emacs-wget, bbdb)[arguments]: Likewise.
* gnu/packages/engineering.scm (pcb)[arguments]: Likewise.
* gnu/packages/firmware.scm (ath9k-htc-firmware)[arguments]: Likewise.
* gnu/packages/flashing-tools.scm (flashrom)[arguments]: Likewise.
* gnu/packages/fltk.scm (fltk)[arguments]: Likewise.
* gnu/packages/freedesktop.scm (python-pyxdg)[arguments]: Likewise.
* gnu/packages/gd.scm (perl-gd)[arguments]: Likewise.
* gnu/packages/gkrellm.scm (gkrellm)[arguments]: Likewise.
* gnu/packages/glib.scm (glibmm)[arguments]: Likewise.
* gnu/packages/gl.scm (glew)[arguments]: Likewise.
* gnu/packages/gnome.scm (icon-naming-utils, orbit2, libbonobo, gnome-vfs,
libgnome, libbonoboui, goffice-0.8, dconf)[arguments]: Likewise.
* gnu/packages/gprolog.scm (gprolog)[arguments]: Likewise.
* gnu/packages/gps.scm (gpscorrelate)[arguments]: Likewise.
* gnu/packages/graphics.scm (agg)[arguments]: Likewise.
* gnu/packages/gtk.scm (ganv, girara, gtksourceview-2, guile-present,
python2-pycairo)[arguments]: Likewise.
* gnu/packages/guile.scm (guile-1.8)[arguments]: Likewise.
* gnu/packages/guile-wm.scm (guile-wm)[arguments]: Likewise.
* gnu/packages/hugs.scm (hugs)[arguments]: Likewise.
* gnu/packages/hurd.scm (gnumach-headers, hurd-headers, hurd-minimal)
[arguments]: Likewise.
* gnu/packages/image-viewers.scm (feh, sxiv)[arguments]: Likewise.
* gnu/packages/libcanberra.scm (libcanberra)[arguments]: Likewise.
* gnu/packages/linux.scm (bridge-utils, iw, fuse, unionfs-fuse/static,
lm-sensors, i2c-tools, xsensors, perf, mdadm, libaio, module-init-tools)
[arguments]: Likewise.
* gnu/packages/lisp.scm (ccl)[arguments]: Likewise.
* gnu/packages/lout.scm (lout)[arguments]: Likewise.
* gnu/packages/lua.scm (luajit)[arguments]: Likewise.
* gnu/packages/machine-learning.scm (shogun)[arguments]: Likewise.
* gnu/packages/mail.scm (exim)[arguments]: Likewise.
* gnu/packages/man.scm (man-pages, txt2man)[arguments]: Likewise.
* gnu/packages/maths.scm (lapack, superlu-dist, openlibm, openspecfun)
[arguments]: Likewise.
* gnu/packages/messaging.scm (bitlbee)[arguments]: Likewise.
* gnu/packages/mp3.scm (libmad, id3lib, mp3info)[arguments]: Likewise.
* gnu/packages/music.scm (solfege)[arguments]: Likewise.
* gnu/packages/noweb.scm (noweb)[arguments]: Likewise.
* gnu/packages/patchutils.scm (patchutils, quilt, colordiff)[arguments]:
Likewise.
* gnu/packages/pdf.scm (xpdf, zathura-cb, zathura-ps, zathura-djvu,
zathura-pdf-poppler, zathura, podofo, fbida)[arguments]: Likewise.
* gnu/packages/perl.scm (perl-file-list, perl-test-harness)[arguments]:
Likewise.
* gnu/packages/photo.scm (gphoto2)[arguments]: Likewise.
* gnu/packages/popt.scm (popt)[arguments]: Likewise.
* gnu/packages/pretty-print.scm (source-highlight, astyle)[arguments]:
Likewise.
* gnu/packages/pumpio.scm (pumpa)[arguments]: Likewise.
* gnu/packages/python.scm (python-passlib, python-pycrypto, python2-empy,
python-sqlalchemy, python-docopt)[arguments]: Likewise.
* gnu/packages/rdf.scm (lrdf)[arguments]: Likewise.
* gnu/packages/regex.scm (tre)[arguments]: Likewise.
* gnu/packages/rrdtool.scm (rrdtool)[arguments]: Likewise.
* gnu/packages/ruby.scm (ruby-2.1, ruby-1.8)[arguments]: Likewise.
* gnu/packages/sawfish.scm (sawfish)[arguments]: Likewise.
* gnu/packages/scheme.scm (racket)[arguments]: Likewise.
* gnu/packages/sdl.scm (guile-sdl)[arguments]: Likewise.
* gnu/packages/serveez.scm (serveez)[arguments]: Likewise.
* gnu/packages/skribilo.scm (skribilo)[arguments]: Likewise.
* gnu/packages/smalltalk.scm (smalltalk)[arguments]: Likewise.
* gnu/packages/suckless.scm (dmenu, slock)[arguments]: Likewise.
* gnu/packages/tcl.scm (expect)[arguments]: Likewise.
* gnu/packages/telephony.scm (commoncpp)[arguments]: Likewise.
* gnu/packages/textutils.scm (recode, libgtextutils)[arguments]:
Likewise.
* gnu/packages/time.scm (time)[arguments]: Likewise.
* gnu/packages/tor.scm (privoxy)[arguments]: Likewise.
* gnu/packages/uucp.scm (uucp)[arguments]: Likewise.
* gnu/packages/video.scm (libdvdnav-4)[arguments]: Likewise.
* gnu/packages/web-browsers.scm (lynx)[arguments]: Likewise.
* gnu/packages/web.scm (tinyproxy)[arguments]: Likewise.
* gnu/packages/wicd.scm (wicd)[arguments]: Likewise.
* gnu/packages/wm.scm (bspwm)[arguments]: Likewise.
* gnu/packages/xdisorg.scm (sxhkd, xcape)[arguments]: Likewise.
* gnu/packages/xfce.scm (xfconf)[arguments]: Likewise.
* gnu/packages/xfig.scm (transfig)[arguments]: Likewise.
* gnu/packages/xorg.scm (imake)[arguments]: Likewise.
2017-07-29 17:28:42 +02:00
|
|
|
|
#:phases
|
|
|
|
|
(modify-phases %standard-phases
|
|
|
|
|
(add-before 'build 'set-file-names
|
|
|
|
|
(lambda* (#:key inputs #:allow-other-keys)
|
|
|
|
|
;; libfuse calls out to mount(8) and umount(8). Make sure
|
|
|
|
|
;; it refers to the right ones.
|
|
|
|
|
(substitute* '("lib/mount_util.c" "util/mount_util.c")
|
|
|
|
|
(("/bin/(u?)mount" _ maybe-u)
|
|
|
|
|
(string-append (assoc-ref inputs "util-linux")
|
|
|
|
|
"/bin/" maybe-u "mount")))
|
|
|
|
|
(substitute* '("util/mount.fuse.c")
|
|
|
|
|
(("/bin/sh")
|
|
|
|
|
(which "sh")))
|
|
|
|
|
|
|
|
|
|
;; This hack leads libfuse to search for 'fusermount' in
|
|
|
|
|
;; $PATH, where it may find a setuid-root binary, instead of
|
|
|
|
|
;; trying solely $out/sbin/fusermount and failing because
|
|
|
|
|
;; it's not setuid.
|
|
|
|
|
(substitute* "lib/Makefile"
|
|
|
|
|
(("-DFUSERMOUNT_DIR=[[:graph:]]+")
|
|
|
|
|
"-DFUSERMOUNT_DIR=\\\"/var/empty\\\""))
|
|
|
|
|
#t)))))
|
2016-05-24 19:12:35 +02:00
|
|
|
|
(home-page "https://github.com/libfuse/libfuse")
|
2014-02-08 16:07:02 +01:00
|
|
|
|
(synopsis "Support file systems implemented in user space")
|
|
|
|
|
(description
|
|
|
|
|
"As a consequence of its monolithic design, file system code for Linux
|
|
|
|
|
normally goes into the kernel itself---which is not only a robustness issue,
|
|
|
|
|
but also an impediment to system extensibility. FUSE, for \"file systems in
|
|
|
|
|
user space\", is a kernel module and user-space library that tries to address
|
|
|
|
|
part of this problem by allowing users to run file system implementations as
|
|
|
|
|
user-space processes.")
|
2015-12-19 00:30:33 +01:00
|
|
|
|
(license (list license:lgpl2.1 ;library
|
|
|
|
|
license:gpl2+)))) ;command-line utilities
|
2014-03-10 22:31:08 +01:00
|
|
|
|
|
|
|
|
|
(define-public unionfs-fuse
|
|
|
|
|
(package
|
|
|
|
|
(name "unionfs-fuse")
|
2017-04-24 11:10:32 +02:00
|
|
|
|
(version "2.0")
|
2014-03-10 22:31:08 +01:00
|
|
|
|
(source (origin
|
|
|
|
|
(method url-fetch)
|
|
|
|
|
(uri (string-append
|
2017-04-24 11:10:32 +02:00
|
|
|
|
"https://github.com/rpodgorny/unionfs-fuse/archive/v"
|
|
|
|
|
version ".tar.gz"))
|
|
|
|
|
(file-name (string-append name "-" version ".tar.gz"))
|
2014-03-10 22:31:08 +01:00
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
2017-04-24 11:10:32 +02:00
|
|
|
|
"0hsn8l1iblvx27bpd4dvnvnbh9ri3sv2f9xzpsnfz3379kb7skgj"))))
|
2014-03-10 22:31:08 +01:00
|
|
|
|
(build-system cmake-build-system)
|
2017-04-24 11:11:55 +02:00
|
|
|
|
(native-inputs
|
2018-01-18 02:52:49 +01:00
|
|
|
|
`(("python" ,python)))
|
2014-03-10 22:31:08 +01:00
|
|
|
|
(inputs `(("fuse" ,fuse)))
|
2017-04-24 11:11:55 +02:00
|
|
|
|
(arguments
|
2018-01-18 02:52:49 +01:00
|
|
|
|
;; The tests were never actually run ("collected 0 items"), but in recent
|
|
|
|
|
;; versions of pytest that causes an error.
|
|
|
|
|
'(#:tests? #f))
|
2017-04-24 11:10:32 +02:00
|
|
|
|
(home-page "https://github.com/rpodgorny/unionfs-fuse")
|
2014-03-10 22:31:08 +01:00
|
|
|
|
(synopsis "User-space union file system")
|
|
|
|
|
(description
|
|
|
|
|
"UnionFS-FUSE is a flexible union file system implementation in user
|
|
|
|
|
space, using the FUSE library. Mounting a union file system allows you to
|
|
|
|
|
\"aggregate\" the contents of several directories into a single mount point.
|
|
|
|
|
UnionFS-FUSE additionally supports copy-on-write.")
|
2015-12-19 00:30:33 +01:00
|
|
|
|
(license license:bsd-3)))
|
2014-03-12 15:11:30 +01:00
|
|
|
|
|
2014-04-14 23:47:15 +02:00
|
|
|
|
(define fuse-static
|
|
|
|
|
(package (inherit fuse)
|
|
|
|
|
(name "fuse-static")
|
|
|
|
|
(source (origin (inherit (package-source fuse))
|
|
|
|
|
(modules '((guix build utils)))
|
|
|
|
|
(snippet
|
|
|
|
|
;; Normally libfuse invokes mount(8) so that /etc/mtab is
|
|
|
|
|
;; updated. Change calls to 'mtab_needs_update' to 0 so that
|
|
|
|
|
;; it doesn't do that, allowing us to remove the dependency on
|
|
|
|
|
;; util-linux (something that is useful in initrds.)
|
|
|
|
|
'(substitute* '("lib/mount_util.c"
|
|
|
|
|
"util/mount_util.c")
|
|
|
|
|
(("mtab_needs_update[[:blank:]]*\\([a-z_]+\\)")
|
|
|
|
|
"0")
|
|
|
|
|
(("/bin/")
|
|
|
|
|
"")))))))
|
|
|
|
|
|
2014-03-12 15:11:30 +01:00
|
|
|
|
(define-public unionfs-fuse/static
|
|
|
|
|
(package (inherit unionfs-fuse)
|
|
|
|
|
(synopsis "User-space union file system (statically linked)")
|
|
|
|
|
(name (string-append (package-name unionfs-fuse) "-static"))
|
|
|
|
|
(source (origin (inherit (package-source unionfs-fuse))
|
|
|
|
|
(modules '((guix build utils)))
|
|
|
|
|
(snippet
|
|
|
|
|
;; Add -ldl to the libraries, because libfuse.a needs that.
|
|
|
|
|
'(substitute* "src/CMakeLists.txt"
|
|
|
|
|
(("target_link_libraries(.*)\\)" _ libs)
|
|
|
|
|
(string-append "target_link_libraries"
|
|
|
|
|
libs " dl)"))))))
|
|
|
|
|
(arguments
|
|
|
|
|
'(#:tests? #f
|
2014-09-06 23:26:00 +02:00
|
|
|
|
#:configure-flags '("-DCMAKE_EXE_LINKER_FLAGS=-static")
|
gnu: Use 'modify-phases' syntax.
* gnu/packages/admin.scm (mingetty, clusterssh, wpa-supplicant-minimal,
wpa-supplicant, wakelan, acpica, tree, direvent, dstat)[arguments]: Use
'modify-phases' syntax.
* gnu/packages/algebra.scm (arb)[arguments]: Likewise.
* gnu/packages/apr.scm (apr-util)[arguments]: Likewise.
* gnu/packages/audio.scm (clalsadrv, fluidsynth, faad2, lv2-mda-piano,
lv2-mda-epiano, timidity++, vamp, soundtouch, portaudio, rsound,
zita-convolver, zita-alsa-pcmi)[arguments]: Likewise.
* gnu/packages/backup.scm (rdup, btar)[arguments]: Likewise.
* gnu/packages/bioinformatics.scm (bedops, bwa, crossmap, express,
flexbar, grit, hisat, ngs-sdk, subread)[arguments]: Likewise.
* gnu/packages/bittorrent.scm (transmission)[arguments]: Likewise.
* gnu/packages/cdrom.scm (cd-discid)[arguments]: Likewise.
* gnu/packages/compression.scm (sharutils)[arguments]: Likewise.
* gnu/packages/conky.scm (conky)[arguments]: Likewise.
* gnu/packages/databases.scm (bdb, bdb-5.3)[arguments]: Likewise.
* gnu/packages/debug.scm (delta, c-reduce)[arguments]: Likewise.
* gnu/packages/display-managers.scm (slim)[arguments]: Likewise.
* gnu/packages/dns.scm (dnsmasq)[arguments]: Likewise.
* gnu/packages/emacs.scm (geiser, emacs-wget, bbdb)[arguments]: Likewise.
* gnu/packages/engineering.scm (pcb)[arguments]: Likewise.
* gnu/packages/firmware.scm (ath9k-htc-firmware)[arguments]: Likewise.
* gnu/packages/flashing-tools.scm (flashrom)[arguments]: Likewise.
* gnu/packages/fltk.scm (fltk)[arguments]: Likewise.
* gnu/packages/freedesktop.scm (python-pyxdg)[arguments]: Likewise.
* gnu/packages/gd.scm (perl-gd)[arguments]: Likewise.
* gnu/packages/gkrellm.scm (gkrellm)[arguments]: Likewise.
* gnu/packages/glib.scm (glibmm)[arguments]: Likewise.
* gnu/packages/gl.scm (glew)[arguments]: Likewise.
* gnu/packages/gnome.scm (icon-naming-utils, orbit2, libbonobo, gnome-vfs,
libgnome, libbonoboui, goffice-0.8, dconf)[arguments]: Likewise.
* gnu/packages/gprolog.scm (gprolog)[arguments]: Likewise.
* gnu/packages/gps.scm (gpscorrelate)[arguments]: Likewise.
* gnu/packages/graphics.scm (agg)[arguments]: Likewise.
* gnu/packages/gtk.scm (ganv, girara, gtksourceview-2, guile-present,
python2-pycairo)[arguments]: Likewise.
* gnu/packages/guile.scm (guile-1.8)[arguments]: Likewise.
* gnu/packages/guile-wm.scm (guile-wm)[arguments]: Likewise.
* gnu/packages/hugs.scm (hugs)[arguments]: Likewise.
* gnu/packages/hurd.scm (gnumach-headers, hurd-headers, hurd-minimal)
[arguments]: Likewise.
* gnu/packages/image-viewers.scm (feh, sxiv)[arguments]: Likewise.
* gnu/packages/libcanberra.scm (libcanberra)[arguments]: Likewise.
* gnu/packages/linux.scm (bridge-utils, iw, fuse, unionfs-fuse/static,
lm-sensors, i2c-tools, xsensors, perf, mdadm, libaio, module-init-tools)
[arguments]: Likewise.
* gnu/packages/lisp.scm (ccl)[arguments]: Likewise.
* gnu/packages/lout.scm (lout)[arguments]: Likewise.
* gnu/packages/lua.scm (luajit)[arguments]: Likewise.
* gnu/packages/machine-learning.scm (shogun)[arguments]: Likewise.
* gnu/packages/mail.scm (exim)[arguments]: Likewise.
* gnu/packages/man.scm (man-pages, txt2man)[arguments]: Likewise.
* gnu/packages/maths.scm (lapack, superlu-dist, openlibm, openspecfun)
[arguments]: Likewise.
* gnu/packages/messaging.scm (bitlbee)[arguments]: Likewise.
* gnu/packages/mp3.scm (libmad, id3lib, mp3info)[arguments]: Likewise.
* gnu/packages/music.scm (solfege)[arguments]: Likewise.
* gnu/packages/noweb.scm (noweb)[arguments]: Likewise.
* gnu/packages/patchutils.scm (patchutils, quilt, colordiff)[arguments]:
Likewise.
* gnu/packages/pdf.scm (xpdf, zathura-cb, zathura-ps, zathura-djvu,
zathura-pdf-poppler, zathura, podofo, fbida)[arguments]: Likewise.
* gnu/packages/perl.scm (perl-file-list, perl-test-harness)[arguments]:
Likewise.
* gnu/packages/photo.scm (gphoto2)[arguments]: Likewise.
* gnu/packages/popt.scm (popt)[arguments]: Likewise.
* gnu/packages/pretty-print.scm (source-highlight, astyle)[arguments]:
Likewise.
* gnu/packages/pumpio.scm (pumpa)[arguments]: Likewise.
* gnu/packages/python.scm (python-passlib, python-pycrypto, python2-empy,
python-sqlalchemy, python-docopt)[arguments]: Likewise.
* gnu/packages/rdf.scm (lrdf)[arguments]: Likewise.
* gnu/packages/regex.scm (tre)[arguments]: Likewise.
* gnu/packages/rrdtool.scm (rrdtool)[arguments]: Likewise.
* gnu/packages/ruby.scm (ruby-2.1, ruby-1.8)[arguments]: Likewise.
* gnu/packages/sawfish.scm (sawfish)[arguments]: Likewise.
* gnu/packages/scheme.scm (racket)[arguments]: Likewise.
* gnu/packages/sdl.scm (guile-sdl)[arguments]: Likewise.
* gnu/packages/serveez.scm (serveez)[arguments]: Likewise.
* gnu/packages/skribilo.scm (skribilo)[arguments]: Likewise.
* gnu/packages/smalltalk.scm (smalltalk)[arguments]: Likewise.
* gnu/packages/suckless.scm (dmenu, slock)[arguments]: Likewise.
* gnu/packages/tcl.scm (expect)[arguments]: Likewise.
* gnu/packages/telephony.scm (commoncpp)[arguments]: Likewise.
* gnu/packages/textutils.scm (recode, libgtextutils)[arguments]:
Likewise.
* gnu/packages/time.scm (time)[arguments]: Likewise.
* gnu/packages/tor.scm (privoxy)[arguments]: Likewise.
* gnu/packages/uucp.scm (uucp)[arguments]: Likewise.
* gnu/packages/video.scm (libdvdnav-4)[arguments]: Likewise.
* gnu/packages/web-browsers.scm (lynx)[arguments]: Likewise.
* gnu/packages/web.scm (tinyproxy)[arguments]: Likewise.
* gnu/packages/wicd.scm (wicd)[arguments]: Likewise.
* gnu/packages/wm.scm (bspwm)[arguments]: Likewise.
* gnu/packages/xdisorg.scm (sxhkd, xcape)[arguments]: Likewise.
* gnu/packages/xfce.scm (xfconf)[arguments]: Likewise.
* gnu/packages/xfig.scm (transfig)[arguments]: Likewise.
* gnu/packages/xorg.scm (imake)[arguments]: Likewise.
2017-07-29 17:28:42 +02:00
|
|
|
|
#:phases
|
|
|
|
|
(modify-phases %standard-phases
|
|
|
|
|
(add-after 'install 'post-install
|
|
|
|
|
(lambda* (#:key outputs #:allow-other-keys)
|
|
|
|
|
(let* ((out (assoc-ref outputs "out"))
|
|
|
|
|
(exe (string-append out "/bin/unionfs")))
|
|
|
|
|
;; By default, 'unionfs' keeps references to
|
|
|
|
|
;; $glibc/share/locale and similar stuff. Remove them.
|
|
|
|
|
(remove-store-references exe)
|
|
|
|
|
|
|
|
|
|
;; 'unionfsctl' has references to glibc as well. Since
|
|
|
|
|
;; we don't need it, remove it.
|
|
|
|
|
(delete-file (string-append out "/bin/unionfsctl"))
|
|
|
|
|
#t))))))
|
2014-04-14 23:47:15 +02:00
|
|
|
|
(inputs `(("fuse" ,fuse-static)))))
|
2014-05-09 14:55:12 +02:00
|
|
|
|
|
2014-05-28 12:31:06 +02:00
|
|
|
|
(define-public sshfs-fuse
|
|
|
|
|
(package
|
|
|
|
|
(name "sshfs-fuse")
|
2017-08-03 21:55:20 +02:00
|
|
|
|
(version "2.10")
|
2014-05-28 12:31:06 +02:00
|
|
|
|
(source (origin
|
|
|
|
|
(method url-fetch)
|
2016-07-03 21:08:47 +02:00
|
|
|
|
(uri (string-append "https://github.com/libfuse/sshfs/releases/"
|
2017-04-17 22:55:06 +02:00
|
|
|
|
"download/sshfs-" version "/sshfs-" version
|
|
|
|
|
".tar.gz"))
|
2014-05-28 12:31:06 +02:00
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
2017-08-03 21:55:20 +02:00
|
|
|
|
"00fir2iykdx11g8nv5gijg0zjrp2g3ldypnv0yi6lq3h5pg5v13h"))))
|
2014-05-28 12:31:06 +02:00
|
|
|
|
(build-system gnu-build-system)
|
|
|
|
|
(inputs
|
|
|
|
|
`(("fuse" ,fuse)
|
|
|
|
|
("glib" ,glib)))
|
|
|
|
|
(native-inputs
|
|
|
|
|
`(("pkg-config" ,pkg-config)))
|
2017-04-17 22:55:06 +02:00
|
|
|
|
(home-page "https://github.com/libfuse/sshfs")
|
2014-05-28 12:31:06 +02:00
|
|
|
|
(synopsis "Mount remote file systems over SSH")
|
|
|
|
|
(description
|
|
|
|
|
"This is a file system client based on the SSH File Transfer Protocol.
|
|
|
|
|
Since most SSH servers already support this protocol it is very easy to set
|
|
|
|
|
up: on the server side there's nothing to do; on the client side mounting the
|
|
|
|
|
file system is as easy as logging into the server with an SSH client.")
|
2015-12-19 00:30:33 +01:00
|
|
|
|
(license license:gpl2+)))
|
2014-05-28 12:31:06 +02:00
|
|
|
|
|
2017-06-02 09:20:27 +02:00
|
|
|
|
(define-public archivemount
|
|
|
|
|
(package
|
|
|
|
|
(name "archivemount")
|
2018-03-10 00:08:12 +01:00
|
|
|
|
(version "0.8.9")
|
2017-06-02 09:20:27 +02:00
|
|
|
|
(source
|
|
|
|
|
(origin
|
|
|
|
|
(method url-fetch)
|
|
|
|
|
(uri (string-append "http://www.cybernoia.de/software/archivemount/"
|
|
|
|
|
"archivemount-" version ".tar.gz"))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
2018-03-10 00:08:12 +01:00
|
|
|
|
"0v4si1ri6lhnq9q87gkx7fsh6lv6xz4bynknwndqncpvfp5cy1jg"))))
|
2017-06-02 09:20:27 +02:00
|
|
|
|
(build-system gnu-build-system)
|
2018-03-16 16:50:14 +01:00
|
|
|
|
(inputs `(("fuse" ,fuse)
|
|
|
|
|
("libarchive" ,libarchive)))
|
|
|
|
|
(native-inputs `(("pkg-config" ,pkg-config)))
|
2017-06-02 09:20:27 +02:00
|
|
|
|
(home-page "http://www.cybernoia.de/software/archivemount")
|
|
|
|
|
(synopsis "Tool for mounting archive files with FUSE")
|
|
|
|
|
(description "archivemount is a FUSE-based file system for Unix variants,
|
|
|
|
|
including Linux. Its purpose is to mount archives (i.e. tar, tar.gz, etc.) to a
|
|
|
|
|
mount point where it can be read from or written to as with any other file
|
|
|
|
|
system. This makes accessing the contents of the archive, which may be
|
|
|
|
|
compressed, transparent to other programs, without decompressing them.")
|
|
|
|
|
(license license:lgpl2.0+)))
|
|
|
|
|
|
2014-05-09 14:55:12 +02:00
|
|
|
|
(define-public numactl
|
|
|
|
|
(package
|
|
|
|
|
(name "numactl")
|
2015-12-12 10:19:04 +01:00
|
|
|
|
(version "2.0.11")
|
2014-05-09 14:55:12 +02:00
|
|
|
|
(source (origin
|
|
|
|
|
(method url-fetch)
|
|
|
|
|
(uri (string-append
|
|
|
|
|
"ftp://oss.sgi.com/www/projects/libnuma/download/numactl-"
|
|
|
|
|
version
|
|
|
|
|
".tar.gz"))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
2015-12-12 10:19:04 +01:00
|
|
|
|
"0qbqa9gac2vlahrngi553hws2mqgqdwv2lc69a3yx4gq6l90j325"))))
|
2014-05-09 14:55:12 +02:00
|
|
|
|
(build-system gnu-build-system)
|
|
|
|
|
(arguments
|
2015-12-12 10:19:04 +01:00
|
|
|
|
'(;; There's a 'test' target, but it requires NUMA support in the kernel
|
2014-05-09 14:55:12 +02:00
|
|
|
|
;; to run, which we can't assume to have.
|
|
|
|
|
#:tests? #f))
|
2015-10-17 21:42:42 +02:00
|
|
|
|
|
2016-02-03 21:03:46 +01:00
|
|
|
|
;; NUMA is apparently not supported on armhf, see
|
|
|
|
|
;; http://www.spinics.net/lists/linux-numa/msg01157.html
|
|
|
|
|
(supported-systems (delete "armhf-linux" %supported-systems))
|
2014-05-09 14:55:12 +02:00
|
|
|
|
(home-page "http://oss.sgi.com/projects/libnuma/")
|
|
|
|
|
(synopsis "Tools for non-uniform memory access (NUMA) machines")
|
|
|
|
|
(description
|
|
|
|
|
"NUMA stands for Non-Uniform Memory Access, in other words a system whose
|
|
|
|
|
memory is not all in one place. The numactl program allows you to run your
|
|
|
|
|
application program on specific CPU's and memory nodes. It does this by
|
|
|
|
|
supplying a NUMA memory policy to the operating system before running your
|
|
|
|
|
program.
|
|
|
|
|
|
|
|
|
|
The package contains other commands, such as numademo, numastat and memhog.
|
|
|
|
|
The numademo command provides a quick overview of NUMA performance on your
|
|
|
|
|
system.")
|
2015-12-19 00:30:33 +01:00
|
|
|
|
(license (list license:gpl2 ;programs
|
|
|
|
|
license:lgpl2.1)))) ;library
|
2014-05-19 23:52:11 +02:00
|
|
|
|
|
2017-01-01 17:36:27 +01:00
|
|
|
|
(define-public kbd-neo
|
|
|
|
|
(package
|
|
|
|
|
(name "kbd-neo")
|
|
|
|
|
(version "2486")
|
|
|
|
|
(source
|
|
|
|
|
(origin
|
|
|
|
|
(method url-fetch)
|
|
|
|
|
(uri (string-append "https://svn.neo-layout.org/!svn/bc/"
|
|
|
|
|
version "/linux/console/neo.map"))
|
|
|
|
|
(file-name (string-append name "-" version ".map"))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
|
|
|
|
"19mfrd31vzpsjiwc7pshxm0b0sz5dd17xrz6k079cy4im1vf0r4g"))))
|
|
|
|
|
(build-system trivial-build-system)
|
|
|
|
|
(arguments
|
|
|
|
|
`(#:modules ((guix build utils))
|
|
|
|
|
#:builder (begin
|
|
|
|
|
(use-modules (guix build utils))
|
|
|
|
|
(let ((out (string-append %output "/share/keymaps"))
|
|
|
|
|
(source (assoc-ref %build-inputs "source")))
|
|
|
|
|
(mkdir-p out)
|
|
|
|
|
(copy-file source (string-append out "/neo.map"))
|
|
|
|
|
#t))))
|
|
|
|
|
(home-page "https://neo-layout.org")
|
|
|
|
|
(synopsis "Neo2 console layout")
|
|
|
|
|
(description
|
|
|
|
|
"Kbd-neo provides the Neo2 keyboard layout for use with
|
|
|
|
|
@command{loadkeys(1)} from @code{kbd(4)}.")
|
|
|
|
|
;; The file is located in an svn directory, the entire content of
|
|
|
|
|
;; the directory is licensed as GPL3.
|
|
|
|
|
(license license:gpl3+)))
|
|
|
|
|
|
2014-05-19 23:52:11 +02:00
|
|
|
|
(define-public kbd
|
|
|
|
|
(package
|
|
|
|
|
(name "kbd")
|
2017-01-31 23:45:56 +01:00
|
|
|
|
(version "2.0.4")
|
2014-05-19 23:52:11 +02:00
|
|
|
|
(source (origin
|
|
|
|
|
(method url-fetch)
|
|
|
|
|
(uri (string-append "mirror://kernel.org/linux/utils/kbd/kbd-"
|
2015-04-07 19:18:22 +02:00
|
|
|
|
version ".tar.xz"))
|
2014-05-19 23:52:11 +02:00
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
2017-01-31 23:45:56 +01:00
|
|
|
|
"124swm93dm4ca0pifgkrand3r9gvj3019d4zkfxsj9djpvv0mnaz"))
|
2014-06-18 15:32:17 +02:00
|
|
|
|
(modules '((guix build utils)))
|
|
|
|
|
(snippet
|
2014-07-16 15:46:57 +02:00
|
|
|
|
'(begin
|
|
|
|
|
(substitute* "tests/Makefile.in"
|
|
|
|
|
;; The '%: %.in' rule incorrectly uses @VERSION@.
|
|
|
|
|
(("@VERSION@")
|
|
|
|
|
"[@]VERSION[@]"))
|
|
|
|
|
(substitute* '("src/unicode_start" "src/unicode_stop")
|
|
|
|
|
;; Assume the Coreutils are in $PATH.
|
|
|
|
|
(("/usr/bin/tty")
|
|
|
|
|
"tty"))))))
|
2014-05-19 23:52:11 +02:00
|
|
|
|
(build-system gnu-build-system)
|
|
|
|
|
(arguments
|
2016-04-08 20:57:11 +02:00
|
|
|
|
'(#:phases
|
|
|
|
|
(modify-phases %standard-phases
|
|
|
|
|
(add-before 'build 'pre-build
|
|
|
|
|
(lambda* (#:key inputs #:allow-other-keys)
|
|
|
|
|
(let ((gzip (assoc-ref %build-inputs "gzip"))
|
|
|
|
|
(bzip2 (assoc-ref %build-inputs "bzip2")))
|
|
|
|
|
(substitute* "src/libkeymap/findfile.c"
|
|
|
|
|
(("gzip")
|
|
|
|
|
(string-append gzip "/bin/gzip"))
|
|
|
|
|
(("bzip2")
|
|
|
|
|
(string-append bzip2 "/bin/bzip2"))))))
|
|
|
|
|
(add-after 'install 'post-install
|
|
|
|
|
(lambda* (#:key outputs #:allow-other-keys)
|
|
|
|
|
;; Make sure these programs find their comrades.
|
|
|
|
|
(let* ((out (assoc-ref outputs "out"))
|
|
|
|
|
(bin (string-append out "/bin")))
|
|
|
|
|
(for-each (lambda (prog)
|
|
|
|
|
(wrap-program (string-append bin "/" prog)
|
|
|
|
|
`("PATH" ":" prefix (,bin))))
|
|
|
|
|
'("unicode_start" "unicode_stop"))))))))
|
2014-05-19 23:52:11 +02:00
|
|
|
|
(inputs `(("check" ,check)
|
2015-03-04 17:02:07 +01:00
|
|
|
|
("gzip" ,gzip)
|
|
|
|
|
("bzip2" ,bzip2)
|
2014-05-19 23:52:11 +02:00
|
|
|
|
("pam" ,linux-pam)))
|
2017-05-25 14:48:16 +02:00
|
|
|
|
(native-search-paths
|
|
|
|
|
(list (search-path-specification
|
|
|
|
|
(variable "LOADKEYS_KEYMAP_PATH")
|
2017-07-13 00:07:45 +02:00
|
|
|
|
;; Append ‘/**’ to recursively search all directories. One can then
|
|
|
|
|
;; run (for example) ‘loadkeys en-latin9’ instead of having to find
|
|
|
|
|
;; and type ‘i386/colemak/en-latin9’ on a mislabelled keyboard.
|
|
|
|
|
(files (list "share/keymaps/**")))))
|
2014-05-19 23:52:11 +02:00
|
|
|
|
(native-inputs `(("pkg-config" ,pkg-config)))
|
2017-05-12 00:53:51 +02:00
|
|
|
|
(home-page "http://kbd-project.org/")
|
2014-05-19 23:52:11 +02:00
|
|
|
|
(synopsis "Linux keyboard utilities and keyboard maps")
|
|
|
|
|
(description
|
|
|
|
|
"This package contains keytable files and keyboard utilities compatible
|
|
|
|
|
for systems using the Linux kernel. This includes commands such as
|
|
|
|
|
'loadkeys', 'setfont', 'kbdinfo', and 'chvt'.")
|
2015-12-19 00:30:33 +01:00
|
|
|
|
(license license:gpl2+)))
|
2014-05-26 00:08:50 +02:00
|
|
|
|
|
|
|
|
|
(define-public inotify-tools
|
|
|
|
|
(package
|
|
|
|
|
(name "inotify-tools")
|
2018-05-02 13:03:33 +02:00
|
|
|
|
(version "3.20.1")
|
2014-05-26 00:08:50 +02:00
|
|
|
|
(source (origin
|
|
|
|
|
(method url-fetch)
|
|
|
|
|
(uri (string-append
|
2018-05-02 13:03:33 +02:00
|
|
|
|
"https://github.com/rvoicilas/inotify-tools/archive/"
|
|
|
|
|
version ".tar.gz"))
|
|
|
|
|
(file-name (string-append name "-" version ".tar.gz"))
|
2014-05-26 00:08:50 +02:00
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
2018-05-02 13:03:33 +02:00
|
|
|
|
"1b22c8x4pjnz3abx4dikpbj43zprjw79pdkd4xw111dsxlfwqcx4"))))
|
2014-05-26 00:08:50 +02:00
|
|
|
|
(build-system gnu-build-system)
|
2018-05-02 13:03:33 +02:00
|
|
|
|
(arguments
|
|
|
|
|
`(#:phases (modify-phases %standard-phases
|
|
|
|
|
(add-after 'unpack 'bootstrap
|
|
|
|
|
(lambda _
|
|
|
|
|
(invoke "autoreconf" "-vif"))))))
|
|
|
|
|
(native-inputs
|
|
|
|
|
`(("autoconf" ,autoconf)
|
|
|
|
|
("automake" ,automake)
|
|
|
|
|
("libtool" ,libtool)))
|
|
|
|
|
(home-page "https://github.com/rvoicilas/inotify-tools/wiki")
|
2014-05-26 00:08:50 +02:00
|
|
|
|
(synopsis "Monitor file accesses")
|
|
|
|
|
(description
|
|
|
|
|
"The inotify-tools packages provides a C library and command-line tools
|
|
|
|
|
to use Linux' inotify mechanism, which allows file accesses to be monitored.")
|
2015-12-19 00:30:33 +01:00
|
|
|
|
(license license:gpl2+)))
|
2014-06-07 21:16:37 +02:00
|
|
|
|
|
|
|
|
|
(define-public kmod
|
|
|
|
|
(package
|
|
|
|
|
(name "kmod")
|
2017-02-26 23:39:14 +01:00
|
|
|
|
(version "24")
|
2014-06-07 21:16:37 +02:00
|
|
|
|
(source (origin
|
|
|
|
|
(method url-fetch)
|
|
|
|
|
(uri
|
|
|
|
|
(string-append "mirror://kernel.org/linux/utils/kernel/kmod/"
|
|
|
|
|
"kmod-" version ".tar.xz"))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
2017-02-26 23:39:14 +01:00
|
|
|
|
"15xkkkzvca9flvkm48gkh8y8f13vlm3sl7nz9ydc7b3jy4fqs2v1"))
|
2016-04-08 14:18:13 +02:00
|
|
|
|
(patches (search-patches "kmod-module-directory.patch"))))
|
2014-06-07 21:16:37 +02:00
|
|
|
|
(build-system gnu-build-system)
|
|
|
|
|
(native-inputs
|
|
|
|
|
`(("pkg-config" ,pkg-config)))
|
|
|
|
|
(inputs
|
2015-03-04 17:02:07 +01:00
|
|
|
|
`(("xz" ,xz)
|
|
|
|
|
("zlib" ,zlib)))
|
2014-06-07 21:16:37 +02:00
|
|
|
|
(arguments
|
|
|
|
|
`(#:tests? #f ; FIXME: Investigate test failures
|
2014-07-23 19:09:27 +02:00
|
|
|
|
#:configure-flags '("--with-xz" "--with-zlib")
|
|
|
|
|
#:phases (alist-cons-after
|
|
|
|
|
'install 'install-modprobe&co
|
|
|
|
|
(lambda* (#:key outputs #:allow-other-keys)
|
|
|
|
|
(let* ((out (assoc-ref outputs "out"))
|
|
|
|
|
(bin (string-append out "/bin")))
|
|
|
|
|
(for-each (lambda (tool)
|
|
|
|
|
(symlink "kmod"
|
|
|
|
|
(string-append bin "/" tool)))
|
|
|
|
|
'("insmod" "rmmod" "lsmod" "modprobe"
|
|
|
|
|
"modinfo" "depmod"))))
|
|
|
|
|
%standard-phases)))
|
2014-06-07 21:16:37 +02:00
|
|
|
|
(home-page "https://www.kernel.org/")
|
|
|
|
|
(synopsis "Kernel module tools")
|
gnu: Some cleanup based on lint checkers.
* gnu/packages/admin.scm, gnu/packages/aidc.scm, gnu/packages/algebra.scm,
gnu/packages/apr.scm, gnu/packages/avahi.scm, gnu/packages/backup.scm,
gnu/packages/base.scm, gnu/packages/calcurse.scm, gnu/packages/cdrom.scm,
gnu/packages/check.scm, gnu/packages/compression.scm, gnu/packages/cook.scm,
gnu/packages/crypto.scm, gnu/packages/cryptsetup.scm, gnu/packages/curl.scm,
gnu/packages/cyrus-sasl.scm, gnu/packages/databases.scm,
gnu/packages/doxygen.scm, gnu/packages/dwm.scm, gnu/packages/elf.scm,
gnu/packages/emacs.scm, gnu/packages/feh.scm, gnu/packages/file.scm,
gnu/packages/fish.scm, gnu/packages/flex.scm, gnu/packages/fltk.scm,
gnu/packages/fontutils.scm, gnu/packages/games.scm, gnu/packages/gcal.scm,
gnu/packages/gcc.scm, gnu/packages/geeqie.scm, gnu/packages/ghostscript.scm,
gnu/packages/gimp.scm, gnu/packages/gl.scm, gnu/packages/glib.scm,
gnu/packages/gnome.scm, gnu/packages/gnunet.scm, gnu/packages/gnupg.scm,
gnu/packages/gperf.scm, gnu/packages/grub.scm, gnu/packages/gsasl.scm,
gnu/packages/gtk.scm, gnu/packages/guile-wm.scm, gnu/packages/guile.scm,
gnu/packages/hurd.scm, gnu/packages/icu4c.scm, gnu/packages/image.scm,
gnu/packages/imagemagick.scm, gnu/packages/irssi.scm, gnu/packages/kde.scm,
gnu/packages/libdaemon.scm, gnu/packages/libevent.scm,
gnu/packages/libidn.scm, gnu/packages/libusb.scm, gnu/packages/linux.scm,
gnu/packages/lout.scm, gnu/packages/lsh.scm, gnu/packages/lsof.scm,
gnu/packages/lua.scm, gnu/packages/maths.scm, gnu/packages/mcrypt.scm,
gnu/packages/mp3.scm, gnu/packages/netpbm.scm, gnu/packages/noweb.scm,
gnu/packages/ocaml.scm, gnu/packages/openssl.scm, gnu/packages/pcre.scm,
gnu/packages/pdf.scm, gnu/packages/pkg-config.scm,
gnu/packages/pretty-print.scm, gnu/packages/python.scm, gnu/packages/qt.scm,
gnu/packages/rsync.scm, gnu/packages/scheme.scm, gnu/packages/scrot.scm,
gnu/packages/sdl.scm, gnu/packages/skribilo.scm, gnu/packages/ssh.scm,
gnu/packages/stalonetray.scm, gnu/packages/tcl.scm, gnu/packages/tcsh.scm,
gnu/packages/telephony.scm, gnu/packages/texlive.scm, gnu/packages/tor.scm,
gnu/packages/valgrind.scm, gnu/packages/version-control.scm,
gnu/packages/vim.scm, gnu/packages/vpn.scm, gnu/packages/w3m.scm,
gnu/packages/web.scm, gnu/packages/wordnet.scm, gnu/packages/xiph.scm,
gnu/packages/xml.scm, gnu/packages/xorg.scm, gnu/packages/zile.scm,
gnu/packages/zip.scm, gnu/packages/zsh.scm [synopsis, description]: Adjust
according to lint checkers.
* gnu/packages/fltk.scm (fltk)[source]: Wrap long line in uri.
* /gnu/packages/xiph.scm (libogg, libtheora, vorbis-tools)[source]: Same.
2014-10-24 06:46:59 +02:00
|
|
|
|
(description "Kmod is a set of tools to handle common tasks with Linux
|
2014-06-07 21:16:37 +02:00
|
|
|
|
kernel modules like insert, remove, list, check properties, resolve
|
|
|
|
|
dependencies and aliases.
|
|
|
|
|
|
|
|
|
|
These tools are designed on top of libkmod, a library that is shipped with
|
|
|
|
|
kmod. The aim is to be compatible with tools, configurations and indices
|
|
|
|
|
from the module-init-tools project.")
|
2015-12-19 00:30:33 +01:00
|
|
|
|
(license license:gpl2+))) ; library under lgpl2.1+
|
2014-06-07 21:27:30 +02:00
|
|
|
|
|
2014-09-12 22:12:33 +02:00
|
|
|
|
(define-public eudev
|
|
|
|
|
;; The post-systemd fork, maintained by Gentoo.
|
2015-01-06 20:02:08 +01:00
|
|
|
|
(package
|
2014-09-12 22:12:33 +02:00
|
|
|
|
(name "eudev")
|
2018-04-15 16:12:27 +02:00
|
|
|
|
(version "3.2.5")
|
2014-09-12 22:12:33 +02:00
|
|
|
|
(source (origin
|
|
|
|
|
(method url-fetch)
|
2017-09-23 05:24:23 +02:00
|
|
|
|
(uri (string-append "https://github.com/gentoo/eudev/archive/v"
|
2018-04-15 16:12:27 +02:00
|
|
|
|
version ".tar.gz"))
|
|
|
|
|
(file-name (string-append name "-" version ".tar.gz"))
|
2014-09-12 22:12:33 +02:00
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
2018-04-15 16:12:27 +02:00
|
|
|
|
"0dlkcgy7j4fdcksqrpc373zfybiif1bal3n6lpy1kfc5280j02c7"))
|
2017-06-09 14:57:41 +02:00
|
|
|
|
(patches (search-patches "eudev-rules-directory.patch"))))
|
2015-01-06 20:02:08 +01:00
|
|
|
|
(build-system gnu-build-system)
|
2017-06-09 09:03:46 +02:00
|
|
|
|
(arguments
|
2017-09-23 05:24:23 +02:00
|
|
|
|
'(#:phases
|
|
|
|
|
(modify-phases %standard-phases
|
|
|
|
|
(add-before 'configure 'bootstrap
|
|
|
|
|
(lambda* (#:key inputs #:allow-other-keys)
|
|
|
|
|
(substitute* "man/make.sh"
|
|
|
|
|
(("/usr/bin/xsltproc")
|
|
|
|
|
(string-append (assoc-ref inputs "xsltproc")
|
|
|
|
|
"/bin/xsltproc")))
|
|
|
|
|
;; Manual pages are regenerated here.
|
|
|
|
|
(zero? (system* "./autogen.sh"))))
|
|
|
|
|
(add-after 'install 'build-hwdb
|
|
|
|
|
(lambda* (#:key outputs #:allow-other-keys)
|
|
|
|
|
;; Build OUT/etc/udev/hwdb.bin. This allows 'lsusb' and
|
|
|
|
|
;; similar tools to display product names.
|
|
|
|
|
(let ((out (assoc-ref outputs "out")))
|
|
|
|
|
(zero? (system* (string-append out "/bin/udevadm")
|
|
|
|
|
"hwdb" "--update"))))))
|
|
|
|
|
#:configure-flags (list "--enable-manpages")))
|
2015-01-06 20:02:08 +01:00
|
|
|
|
(native-inputs
|
2017-09-23 05:24:23 +02:00
|
|
|
|
`(("autoconf" ,autoconf)
|
|
|
|
|
("automake" ,automake)
|
|
|
|
|
("gperf" ,gperf)
|
|
|
|
|
("libtool" ,libtool)
|
|
|
|
|
("pkg-config" ,pkg-config)
|
|
|
|
|
;; For tests.
|
2015-10-16 15:13:02 +02:00
|
|
|
|
("perl" ,perl)
|
2017-09-23 05:24:23 +02:00
|
|
|
|
("python" ,python-wrapper)
|
|
|
|
|
;; For documentation.
|
|
|
|
|
("docbook-xml" ,docbook-xml-4.2)
|
|
|
|
|
("docbook-xsl" ,docbook-xsl)
|
|
|
|
|
("libxml2" ,libxml2) ;for $XML_CATALOG_FILES
|
2018-03-16 16:50:14 +01:00
|
|
|
|
("xsltproc" ,libxslt)))
|
2015-01-06 20:02:08 +01:00
|
|
|
|
(inputs
|
2016-03-09 15:26:09 +01:00
|
|
|
|
;; When linked against libblkid, eudev can populate /dev/disk/by-label
|
|
|
|
|
;; and similar; it also installs the '60-persistent-storage.rules' file,
|
|
|
|
|
;; which contains the rules to do that.
|
|
|
|
|
`(("util-linux" ,util-linux) ;for blkid
|
|
|
|
|
("kmod" ,kmod)))
|
2015-12-24 07:38:53 +01:00
|
|
|
|
(home-page "https://wiki.gentoo.org/wiki/Project:Eudev")
|
2015-01-06 20:02:08 +01:00
|
|
|
|
(synopsis "Userspace device management")
|
|
|
|
|
(description "Udev is a daemon which dynamically creates and removes
|
|
|
|
|
device nodes from /dev/, handles hotplug events and loads drivers at boot
|
|
|
|
|
time.")
|
2015-12-19 00:30:33 +01:00
|
|
|
|
(license license:gpl2+)))
|
2014-09-12 22:12:33 +02:00
|
|
|
|
|
2017-01-12 10:10:02 +01:00
|
|
|
|
(define-public eudev-with-hwdb
|
2017-06-09 09:03:46 +02:00
|
|
|
|
(deprecated-package "eudev-with-hwdb" eudev))
|
2017-01-12 10:10:02 +01:00
|
|
|
|
|
2014-08-13 12:19:25 +02:00
|
|
|
|
(define-public lvm2
|
|
|
|
|
(package
|
|
|
|
|
(name "lvm2")
|
2018-01-28 18:55:43 +01:00
|
|
|
|
(version "2.02.177")
|
2014-08-13 12:19:25 +02:00
|
|
|
|
(source (origin
|
|
|
|
|
(method url-fetch)
|
|
|
|
|
(uri (string-append "ftp://sources.redhat.com/pub/lvm2/releases/LVM2."
|
|
|
|
|
version ".tgz"))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
2018-01-28 18:55:43 +01:00
|
|
|
|
"1wl0isn0yz5wvglwylnlqkppafwmvhliq5bd92vjqp5ir4za49a0"))
|
2014-08-13 12:19:25 +02:00
|
|
|
|
(modules '((guix build utils)))
|
|
|
|
|
(snippet
|
|
|
|
|
'(begin
|
|
|
|
|
(use-modules (guix build utils))
|
|
|
|
|
|
|
|
|
|
;; Honor sysconfdir.
|
|
|
|
|
(substitute* "make.tmpl.in"
|
|
|
|
|
(("confdir = .*$")
|
|
|
|
|
"confdir = @sysconfdir@\n")
|
|
|
|
|
(("DEFAULT_SYS_DIR = @DEFAULT_SYS_DIR@")
|
2016-11-22 21:38:40 +01:00
|
|
|
|
"DEFAULT_SYS_DIR = @sysconfdir@"))))
|
|
|
|
|
(patches (search-patches "lvm2-static-link.patch"))))
|
2014-08-13 12:19:25 +02:00
|
|
|
|
(build-system gnu-build-system)
|
|
|
|
|
(native-inputs
|
|
|
|
|
`(("pkg-config" ,pkg-config)
|
|
|
|
|
("procps" ,procps))) ;tests use 'pgrep'
|
|
|
|
|
(inputs
|
2015-01-06 19:52:57 +01:00
|
|
|
|
`(("udev" ,eudev)))
|
2014-08-13 12:19:25 +02:00
|
|
|
|
(arguments
|
2016-10-03 09:57:53 +02:00
|
|
|
|
'(#:phases
|
|
|
|
|
(modify-phases %standard-phases
|
|
|
|
|
(add-after 'configure 'set-makefile-shell
|
|
|
|
|
(lambda _
|
|
|
|
|
;; Use 'sh', not 'bash', so that '. lib/utils.sh' works as
|
|
|
|
|
;; expected.
|
|
|
|
|
(setenv "SHELL" (which "sh"))
|
2014-08-13 12:19:25 +02:00
|
|
|
|
|
2016-10-03 09:57:53 +02:00
|
|
|
|
;; Replace /bin/sh with the right file name.
|
|
|
|
|
(patch-makefile-SHELL "make.tmpl")
|
2018-02-18 19:45:46 +01:00
|
|
|
|
#t)))
|
2014-08-13 12:19:25 +02:00
|
|
|
|
|
|
|
|
|
#:configure-flags (list (string-append "--sysconfdir="
|
|
|
|
|
(assoc-ref %outputs "out")
|
|
|
|
|
"/etc/lvm")
|
|
|
|
|
"--enable-udev_sync"
|
2014-09-10 22:59:27 +02:00
|
|
|
|
"--enable-udev_rules"
|
2018-04-15 10:42:25 +02:00
|
|
|
|
"--enable-pkgconfig"
|
2014-09-10 22:59:27 +02:00
|
|
|
|
|
|
|
|
|
;; Make sure programs such as 'dmsetup' can
|
|
|
|
|
;; find libdevmapper.so.
|
|
|
|
|
(string-append "LDFLAGS=-Wl,-rpath="
|
|
|
|
|
(assoc-ref %outputs "out")
|
|
|
|
|
"/lib"))
|
2014-08-13 12:19:25 +02:00
|
|
|
|
|
|
|
|
|
;; The tests use 'mknod', which requires root access.
|
|
|
|
|
#:tests? #f))
|
2017-05-10 14:30:44 +02:00
|
|
|
|
(home-page "https://sourceware.org/lvm2/")
|
2014-08-13 12:19:25 +02:00
|
|
|
|
(synopsis "Logical volume management for Linux")
|
|
|
|
|
(description
|
|
|
|
|
"LVM2 is the logical volume management tool set for Linux-based systems.
|
|
|
|
|
This package includes the user-space libraries and tools, including the device
|
|
|
|
|
mapper. Kernel components are part of Linux-libre.")
|
|
|
|
|
|
|
|
|
|
;; Libraries (liblvm2, libdevmapper) are LGPLv2.1.
|
|
|
|
|
;; Command-line tools are GPLv2.
|
2015-12-19 00:30:33 +01:00
|
|
|
|
(license (list license:gpl2 license:lgpl2.1))))
|
2014-08-13 12:19:25 +02:00
|
|
|
|
|
2016-11-22 21:38:40 +01:00
|
|
|
|
(define-public lvm2-static
|
|
|
|
|
(package
|
|
|
|
|
(inherit lvm2)
|
|
|
|
|
(name "lvm2-static")
|
|
|
|
|
|
|
|
|
|
;; Propagate udev because libdevmapper.a depends on libudev.
|
|
|
|
|
(inputs (alist-delete "udev" (package-inputs lvm2)))
|
|
|
|
|
(propagated-inputs `(("udev" ,eudev)))
|
|
|
|
|
|
|
|
|
|
(arguments
|
|
|
|
|
(substitute-keyword-arguments (package-arguments lvm2)
|
|
|
|
|
((#:configure-flags flags '())
|
|
|
|
|
;; LVM2 doesn't use Libtool, hence the custom option.
|
|
|
|
|
`(cons "--enable-static_link" ,flags))))
|
|
|
|
|
(synopsis "Logical volume management for Linux (statically linked)")))
|
|
|
|
|
|
2014-07-19 03:23:58 +02:00
|
|
|
|
(define-public wireless-tools
|
|
|
|
|
(package
|
|
|
|
|
(name "wireless-tools")
|
|
|
|
|
(version "30.pre9")
|
|
|
|
|
(source (origin
|
|
|
|
|
(method url-fetch)
|
|
|
|
|
(uri (string-append "http://www.hpl.hp.com/personal/Jean_Tourrilhes/Linux/wireless_tools."
|
|
|
|
|
version ".tar.gz"))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
2014-11-29 05:52:59 +01:00
|
|
|
|
"0qscyd44jmhs4k32ggp107hlym1pcyjzihiai48xs7xzib4wbndb"))
|
|
|
|
|
(snippet
|
2015-08-14 17:31:15 +02:00
|
|
|
|
'(begin
|
|
|
|
|
;; Remove the older header files that are not free software.
|
|
|
|
|
(for-each (lambda (n)
|
|
|
|
|
(delete-file (format #f "wireless.~a.h" n)))
|
|
|
|
|
'(10 11 12 13 14 15 16 17 18 19 20))
|
|
|
|
|
#t))))
|
2014-07-19 03:23:58 +02:00
|
|
|
|
(build-system gnu-build-system)
|
|
|
|
|
(arguments
|
2015-08-14 17:31:15 +02:00
|
|
|
|
`(#:make-flags
|
|
|
|
|
(list (string-append "PREFIX=" %output)
|
|
|
|
|
(string-append "INSTALL_MAN=" %output "/share/man")
|
|
|
|
|
(string-append "LDFLAGS=-Wl,-rpath=" %output "/lib")
|
|
|
|
|
"BUILD_STATIC=")
|
|
|
|
|
#:phases (modify-phases %standard-phases
|
|
|
|
|
(delete 'configure))
|
2014-07-19 03:23:58 +02:00
|
|
|
|
#:tests? #f))
|
|
|
|
|
(synopsis "Tools for manipulating Linux Wireless Extensions")
|
2015-01-13 11:42:24 +01:00
|
|
|
|
(description "Wireless Tools are used to manipulate the now-deprecated
|
|
|
|
|
Linux Wireless Extensions; consider using 'iw' instead. The Wireless
|
|
|
|
|
Extension was an interface allowing you to set Wireless LAN specific
|
|
|
|
|
parameters and get the specific stats. It is deprecated in favor the nl80211
|
|
|
|
|
interface.")
|
2014-07-19 03:23:58 +02:00
|
|
|
|
(home-page "http://www.hpl.hp.com/personal/Jean_Tourrilhes/Linux/Tools.html")
|
2015-08-14 17:31:15 +02:00
|
|
|
|
;; wireless.21.h and wireless.22.h are distributed under lgpl2.1+, the
|
|
|
|
|
;; other files are distributed under gpl2.
|
2015-12-19 00:30:33 +01:00
|
|
|
|
(license (list license:gpl2 license:lgpl2.1+))))
|
2014-08-08 02:29:32 +02:00
|
|
|
|
|
2015-07-17 12:14:48 +02:00
|
|
|
|
(define-public crda
|
|
|
|
|
(package
|
|
|
|
|
(name "crda")
|
|
|
|
|
(version "3.18")
|
|
|
|
|
(source (origin
|
|
|
|
|
(method url-fetch)
|
|
|
|
|
(uri (string-append "mirror://kernel.org/software/network/crda/"
|
|
|
|
|
"crda-" version ".tar.xz"))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
|
|
|
|
"1gydiqgb08d9gbx4l6gv98zg3pljc984m50hmn3ysxcbkxkvkz23"))
|
2016-04-08 14:18:13 +02:00
|
|
|
|
(patches (search-patches "crda-optional-gcrypt.patch"))))
|
2015-07-17 12:14:48 +02:00
|
|
|
|
(build-system gnu-build-system)
|
|
|
|
|
(arguments
|
|
|
|
|
'(#:phases (modify-phases %standard-phases
|
|
|
|
|
(delete 'configure)
|
|
|
|
|
(add-before
|
|
|
|
|
'build 'no-werror-no-ldconfig
|
|
|
|
|
(lambda _
|
|
|
|
|
(substitute* "Makefile"
|
|
|
|
|
(("-Werror") "")
|
|
|
|
|
(("ldconfig") "true"))
|
|
|
|
|
#t))
|
|
|
|
|
(add-before
|
|
|
|
|
'build 'set-regulator-db-file-name
|
|
|
|
|
(lambda* (#:key inputs #:allow-other-keys)
|
|
|
|
|
;; Tell CRDA where to find our database.
|
|
|
|
|
(let ((regdb (assoc-ref inputs "wireless-regdb")))
|
|
|
|
|
(substitute* "crda.c"
|
|
|
|
|
(("\"/lib/crda/regulatory.bin\"")
|
|
|
|
|
(string-append "\"" regdb
|
|
|
|
|
"/lib/crda/regulatory.bin\"")))
|
|
|
|
|
#t))))
|
|
|
|
|
#:test-target "verify"
|
|
|
|
|
#:make-flags (let ((out (assoc-ref %outputs "out"))
|
|
|
|
|
(regdb (assoc-ref %build-inputs "wireless-regdb")))
|
|
|
|
|
(list "CC=gcc" "V=1"
|
|
|
|
|
|
|
|
|
|
;; Disable signature-checking on 'regulatory.bin'.
|
|
|
|
|
;; The reason is that this simplifies maintenance
|
|
|
|
|
;; on our side (no need to manage a distro key
|
|
|
|
|
;; pair), and we can guarantee integrity of
|
|
|
|
|
;; 'regulatory.bin' by other means anyway, such as
|
|
|
|
|
;; 'guix gc --verify'. See
|
|
|
|
|
;; <https://wireless.wiki.kernel.org/en/developers/regulatory/wireless-regdb>
|
|
|
|
|
;; for a discssion.
|
|
|
|
|
"USE_OPENSSL=0"
|
|
|
|
|
|
|
|
|
|
(string-append "PREFIX=" out)
|
|
|
|
|
(string-append "SBINDIR=" out "/sbin/")
|
|
|
|
|
(string-append "UDEV_RULE_DIR="
|
|
|
|
|
out "/lib/udev/rules.d")
|
|
|
|
|
(string-append "LDFLAGS=-Wl,-rpath="
|
|
|
|
|
out "/lib -L.")
|
|
|
|
|
(string-append "REG_BIN=" regdb
|
|
|
|
|
"/lib/crda/regulatory.bin")))))
|
|
|
|
|
(native-inputs `(("pkg-config" ,pkg-config)
|
|
|
|
|
("python" ,python-2)
|
|
|
|
|
("wireless-regdb" ,wireless-regdb)))
|
|
|
|
|
(inputs `(("libnl" ,libnl)))
|
|
|
|
|
(home-page
|
|
|
|
|
"https://wireless.wiki.kernel.org/en/developers/Regulatory/CRDA")
|
|
|
|
|
(synopsis "Central regulatory domain agent (CRDA) for WiFi")
|
|
|
|
|
(description
|
|
|
|
|
"The Central Regulatory Domain Agent (CRDA) acts as the udev helper for
|
|
|
|
|
communication between the kernel Linux and user space for regulatory
|
|
|
|
|
compliance.")
|
2015-12-19 00:30:33 +01:00
|
|
|
|
(license license:copyleft-next)))
|
2015-07-17 12:14:48 +02:00
|
|
|
|
|
2015-07-17 12:14:26 +02:00
|
|
|
|
(define-public wireless-regdb
|
|
|
|
|
(package
|
|
|
|
|
(name "wireless-regdb")
|
2017-03-14 06:54:17 +01:00
|
|
|
|
(version "2017.03.07")
|
2015-07-17 12:14:26 +02:00
|
|
|
|
(source (origin
|
|
|
|
|
(method url-fetch)
|
|
|
|
|
(uri (string-append
|
|
|
|
|
"mirror://kernel.org/software/network/wireless-regdb/"
|
|
|
|
|
"wireless-regdb-" version ".tar.xz"))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
2017-03-14 06:54:17 +01:00
|
|
|
|
"1f9mcp78sdd4sci6v32vxfcl1rfjpv205jisz1p93kkfnaisy7ip"))
|
2015-12-13 15:14:06 +01:00
|
|
|
|
|
|
|
|
|
;; We're building 'regulatory.bin' by ourselves.
|
|
|
|
|
(snippet '(delete-file "regulatory.bin"))))
|
2015-07-17 12:14:26 +02:00
|
|
|
|
(build-system gnu-build-system)
|
|
|
|
|
(arguments
|
|
|
|
|
'(#:phases (modify-phases %standard-phases
|
|
|
|
|
(delete 'configure))
|
2015-12-13 15:14:06 +01:00
|
|
|
|
|
|
|
|
|
;; The 'all' target of the makefile depends on $(REGDB_CHANGED), which
|
|
|
|
|
;; is computed and can be equal to 'maintainer-clean'; when that
|
|
|
|
|
;; happens, we can end up deleting the 'regulatory.bin' file that we
|
|
|
|
|
;; just built. Thus, build things sequentially.
|
|
|
|
|
#:parallel-build? #f
|
|
|
|
|
|
2015-07-17 12:14:26 +02:00
|
|
|
|
#:tests? #f ;no tests
|
|
|
|
|
#:make-flags (let ((out (assoc-ref %outputs "out")))
|
|
|
|
|
(list (string-append "PREFIX=" out)
|
|
|
|
|
(string-append "LSB_ID=GuixSD")
|
|
|
|
|
(string-append "DISTRO_PUBKEY=/dev/null")
|
|
|
|
|
(string-append "DISTRO_PRIVKEY=/dev/null")
|
|
|
|
|
(string-append "REGDB_PUBKEY=/dev/null")
|
|
|
|
|
|
|
|
|
|
;; Leave that empty so that db2bin.py doesn't try
|
|
|
|
|
;; to sign 'regulatory.bin'. This allows us to
|
|
|
|
|
;; avoid managing a key pair for the whole distro.
|
|
|
|
|
(string-append "REGDB_PRIVKEY=")))))
|
|
|
|
|
(native-inputs `(("python" ,python-2)))
|
|
|
|
|
(home-page
|
|
|
|
|
"https://wireless.wiki.kernel.org/en/developers/regulatory/wireless-regdb")
|
|
|
|
|
(synopsis "Wireless regulatory database")
|
|
|
|
|
(description
|
|
|
|
|
"This package contains the wireless regulatory database Central
|
|
|
|
|
Regulatory Database Agent (CRDA) daemon. The database contains information on
|
|
|
|
|
country-specific regulations for the wireless spectrum.")
|
2015-12-19 00:30:33 +01:00
|
|
|
|
(license license:isc)))
|
2015-07-17 12:14:26 +02:00
|
|
|
|
|
2014-08-08 02:29:32 +02:00
|
|
|
|
(define-public lm-sensors
|
|
|
|
|
(package
|
|
|
|
|
(name "lm-sensors")
|
2016-09-21 19:20:22 +02:00
|
|
|
|
(version "3.4.0")
|
2014-08-08 02:29:32 +02:00
|
|
|
|
(source (origin
|
|
|
|
|
(method url-fetch)
|
2016-07-15 19:18:36 +02:00
|
|
|
|
(uri (list (string-append
|
2016-09-21 19:20:22 +02:00
|
|
|
|
"https://github.com/groeck/lm-sensors/archive/V"
|
|
|
|
|
(string-join (string-split version #\.) "-")
|
|
|
|
|
".tar.gz")))
|
2017-03-27 20:29:42 +02:00
|
|
|
|
(file-name (string-append name "-" version ".tar.gz"))
|
2014-08-08 02:29:32 +02:00
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
2016-09-21 19:20:22 +02:00
|
|
|
|
"0knb09s9lvx0wzfsaizx3xq58q6kllqf7nkbwvir0wkgn31c2d73"))
|
2016-04-08 14:18:13 +02:00
|
|
|
|
(patches (search-patches "lm-sensors-hwmon-attrs.patch"))))
|
2014-08-08 02:29:32 +02:00
|
|
|
|
(build-system gnu-build-system)
|
|
|
|
|
(inputs `(("rrdtool" ,rrdtool)
|
|
|
|
|
("perl" ,perl)
|
|
|
|
|
("kmod" ,kmod)
|
|
|
|
|
("gnuplot" ,gnuplot)))
|
|
|
|
|
(native-inputs `(("pkg-config" ,pkg-config)
|
|
|
|
|
("flex" ,flex)
|
|
|
|
|
("bison" ,bison)
|
|
|
|
|
("which" ,which)))
|
2017-09-25 12:42:07 +02:00
|
|
|
|
(outputs '("lib" ;avoid perl in closure
|
|
|
|
|
"out"))
|
2014-08-08 02:29:32 +02:00
|
|
|
|
(arguments
|
|
|
|
|
`(#:tests? #f ; no 'check' target
|
|
|
|
|
#:make-flags (list (string-append "PREFIX=" %output)
|
2017-09-25 12:42:07 +02:00
|
|
|
|
(string-append "ETCDIR=" (assoc-ref %outputs "lib") "/etc")
|
|
|
|
|
(string-append "INCLUDEDIR="
|
|
|
|
|
(assoc-ref %outputs "lib") "/include")
|
|
|
|
|
(string-append "MANDIR=" %output "/share/man")
|
|
|
|
|
(string-append "LIBDIR=" (assoc-ref %outputs "lib") "/lib"))
|
2014-08-08 02:29:32 +02:00
|
|
|
|
#:phases
|
gnu: Use 'modify-phases' syntax.
* gnu/packages/admin.scm (mingetty, clusterssh, wpa-supplicant-minimal,
wpa-supplicant, wakelan, acpica, tree, direvent, dstat)[arguments]: Use
'modify-phases' syntax.
* gnu/packages/algebra.scm (arb)[arguments]: Likewise.
* gnu/packages/apr.scm (apr-util)[arguments]: Likewise.
* gnu/packages/audio.scm (clalsadrv, fluidsynth, faad2, lv2-mda-piano,
lv2-mda-epiano, timidity++, vamp, soundtouch, portaudio, rsound,
zita-convolver, zita-alsa-pcmi)[arguments]: Likewise.
* gnu/packages/backup.scm (rdup, btar)[arguments]: Likewise.
* gnu/packages/bioinformatics.scm (bedops, bwa, crossmap, express,
flexbar, grit, hisat, ngs-sdk, subread)[arguments]: Likewise.
* gnu/packages/bittorrent.scm (transmission)[arguments]: Likewise.
* gnu/packages/cdrom.scm (cd-discid)[arguments]: Likewise.
* gnu/packages/compression.scm (sharutils)[arguments]: Likewise.
* gnu/packages/conky.scm (conky)[arguments]: Likewise.
* gnu/packages/databases.scm (bdb, bdb-5.3)[arguments]: Likewise.
* gnu/packages/debug.scm (delta, c-reduce)[arguments]: Likewise.
* gnu/packages/display-managers.scm (slim)[arguments]: Likewise.
* gnu/packages/dns.scm (dnsmasq)[arguments]: Likewise.
* gnu/packages/emacs.scm (geiser, emacs-wget, bbdb)[arguments]: Likewise.
* gnu/packages/engineering.scm (pcb)[arguments]: Likewise.
* gnu/packages/firmware.scm (ath9k-htc-firmware)[arguments]: Likewise.
* gnu/packages/flashing-tools.scm (flashrom)[arguments]: Likewise.
* gnu/packages/fltk.scm (fltk)[arguments]: Likewise.
* gnu/packages/freedesktop.scm (python-pyxdg)[arguments]: Likewise.
* gnu/packages/gd.scm (perl-gd)[arguments]: Likewise.
* gnu/packages/gkrellm.scm (gkrellm)[arguments]: Likewise.
* gnu/packages/glib.scm (glibmm)[arguments]: Likewise.
* gnu/packages/gl.scm (glew)[arguments]: Likewise.
* gnu/packages/gnome.scm (icon-naming-utils, orbit2, libbonobo, gnome-vfs,
libgnome, libbonoboui, goffice-0.8, dconf)[arguments]: Likewise.
* gnu/packages/gprolog.scm (gprolog)[arguments]: Likewise.
* gnu/packages/gps.scm (gpscorrelate)[arguments]: Likewise.
* gnu/packages/graphics.scm (agg)[arguments]: Likewise.
* gnu/packages/gtk.scm (ganv, girara, gtksourceview-2, guile-present,
python2-pycairo)[arguments]: Likewise.
* gnu/packages/guile.scm (guile-1.8)[arguments]: Likewise.
* gnu/packages/guile-wm.scm (guile-wm)[arguments]: Likewise.
* gnu/packages/hugs.scm (hugs)[arguments]: Likewise.
* gnu/packages/hurd.scm (gnumach-headers, hurd-headers, hurd-minimal)
[arguments]: Likewise.
* gnu/packages/image-viewers.scm (feh, sxiv)[arguments]: Likewise.
* gnu/packages/libcanberra.scm (libcanberra)[arguments]: Likewise.
* gnu/packages/linux.scm (bridge-utils, iw, fuse, unionfs-fuse/static,
lm-sensors, i2c-tools, xsensors, perf, mdadm, libaio, module-init-tools)
[arguments]: Likewise.
* gnu/packages/lisp.scm (ccl)[arguments]: Likewise.
* gnu/packages/lout.scm (lout)[arguments]: Likewise.
* gnu/packages/lua.scm (luajit)[arguments]: Likewise.
* gnu/packages/machine-learning.scm (shogun)[arguments]: Likewise.
* gnu/packages/mail.scm (exim)[arguments]: Likewise.
* gnu/packages/man.scm (man-pages, txt2man)[arguments]: Likewise.
* gnu/packages/maths.scm (lapack, superlu-dist, openlibm, openspecfun)
[arguments]: Likewise.
* gnu/packages/messaging.scm (bitlbee)[arguments]: Likewise.
* gnu/packages/mp3.scm (libmad, id3lib, mp3info)[arguments]: Likewise.
* gnu/packages/music.scm (solfege)[arguments]: Likewise.
* gnu/packages/noweb.scm (noweb)[arguments]: Likewise.
* gnu/packages/patchutils.scm (patchutils, quilt, colordiff)[arguments]:
Likewise.
* gnu/packages/pdf.scm (xpdf, zathura-cb, zathura-ps, zathura-djvu,
zathura-pdf-poppler, zathura, podofo, fbida)[arguments]: Likewise.
* gnu/packages/perl.scm (perl-file-list, perl-test-harness)[arguments]:
Likewise.
* gnu/packages/photo.scm (gphoto2)[arguments]: Likewise.
* gnu/packages/popt.scm (popt)[arguments]: Likewise.
* gnu/packages/pretty-print.scm (source-highlight, astyle)[arguments]:
Likewise.
* gnu/packages/pumpio.scm (pumpa)[arguments]: Likewise.
* gnu/packages/python.scm (python-passlib, python-pycrypto, python2-empy,
python-sqlalchemy, python-docopt)[arguments]: Likewise.
* gnu/packages/rdf.scm (lrdf)[arguments]: Likewise.
* gnu/packages/regex.scm (tre)[arguments]: Likewise.
* gnu/packages/rrdtool.scm (rrdtool)[arguments]: Likewise.
* gnu/packages/ruby.scm (ruby-2.1, ruby-1.8)[arguments]: Likewise.
* gnu/packages/sawfish.scm (sawfish)[arguments]: Likewise.
* gnu/packages/scheme.scm (racket)[arguments]: Likewise.
* gnu/packages/sdl.scm (guile-sdl)[arguments]: Likewise.
* gnu/packages/serveez.scm (serveez)[arguments]: Likewise.
* gnu/packages/skribilo.scm (skribilo)[arguments]: Likewise.
* gnu/packages/smalltalk.scm (smalltalk)[arguments]: Likewise.
* gnu/packages/suckless.scm (dmenu, slock)[arguments]: Likewise.
* gnu/packages/tcl.scm (expect)[arguments]: Likewise.
* gnu/packages/telephony.scm (commoncpp)[arguments]: Likewise.
* gnu/packages/textutils.scm (recode, libgtextutils)[arguments]:
Likewise.
* gnu/packages/time.scm (time)[arguments]: Likewise.
* gnu/packages/tor.scm (privoxy)[arguments]: Likewise.
* gnu/packages/uucp.scm (uucp)[arguments]: Likewise.
* gnu/packages/video.scm (libdvdnav-4)[arguments]: Likewise.
* gnu/packages/web-browsers.scm (lynx)[arguments]: Likewise.
* gnu/packages/web.scm (tinyproxy)[arguments]: Likewise.
* gnu/packages/wicd.scm (wicd)[arguments]: Likewise.
* gnu/packages/wm.scm (bspwm)[arguments]: Likewise.
* gnu/packages/xdisorg.scm (sxhkd, xcape)[arguments]: Likewise.
* gnu/packages/xfce.scm (xfconf)[arguments]: Likewise.
* gnu/packages/xfig.scm (transfig)[arguments]: Likewise.
* gnu/packages/xorg.scm (imake)[arguments]: Likewise.
2017-07-29 17:28:42 +02:00
|
|
|
|
(modify-phases %standard-phases
|
|
|
|
|
(delete 'configure)
|
|
|
|
|
(add-before 'build 'patch-exec-paths
|
|
|
|
|
(lambda* (#:key inputs outputs #:allow-other-keys)
|
|
|
|
|
(substitute* "prog/detect/sensors-detect"
|
|
|
|
|
(("`uname")
|
|
|
|
|
(string-append "`" (assoc-ref inputs "coreutils")
|
|
|
|
|
"/bin/uname"))
|
|
|
|
|
(("(`|\")modprobe" all open-quote)
|
|
|
|
|
(string-append open-quote
|
|
|
|
|
(assoc-ref inputs "kmod")
|
|
|
|
|
"/bin/modprobe")))
|
|
|
|
|
(substitute* '("prog/pwm/pwmconfig"
|
|
|
|
|
"prog/pwm/fancontrol")
|
|
|
|
|
(("gnuplot")
|
|
|
|
|
(string-append (assoc-ref inputs "gnuplot")
|
|
|
|
|
"/bin/gnuplot"))
|
|
|
|
|
(("cat ")
|
|
|
|
|
(string-append (assoc-ref inputs "coreutils")
|
|
|
|
|
"/bin/cat "))
|
|
|
|
|
(("egrep ")
|
|
|
|
|
(string-append (assoc-ref inputs "grep")
|
|
|
|
|
"/bin/egrep "))
|
|
|
|
|
(("sed -e")
|
|
|
|
|
(string-append (assoc-ref inputs "sed")
|
|
|
|
|
"/bin/sed -e"))
|
|
|
|
|
(("cut -d")
|
|
|
|
|
(string-append (assoc-ref inputs "coreutils")
|
|
|
|
|
"/bin/cut -d"))
|
|
|
|
|
(("sleep ")
|
|
|
|
|
(string-append (assoc-ref inputs "coreutils")
|
|
|
|
|
"/bin/sleep "))
|
|
|
|
|
(("readlink -f")
|
|
|
|
|
(string-append (assoc-ref inputs "coreutils")
|
|
|
|
|
"/bin/readlink -f")))
|
|
|
|
|
#t)))))
|
2016-01-08 22:29:04 +01:00
|
|
|
|
(home-page "http://jdelvare.nerim.net/devel.html#lmsensors")
|
2014-08-08 02:29:32 +02:00
|
|
|
|
(synopsis "Utilities to read temperature/voltage/fan sensors")
|
|
|
|
|
(description
|
gnu: Some cleanup based on lint checkers.
* gnu/packages/admin.scm, gnu/packages/aidc.scm, gnu/packages/algebra.scm,
gnu/packages/apr.scm, gnu/packages/avahi.scm, gnu/packages/backup.scm,
gnu/packages/base.scm, gnu/packages/calcurse.scm, gnu/packages/cdrom.scm,
gnu/packages/check.scm, gnu/packages/compression.scm, gnu/packages/cook.scm,
gnu/packages/crypto.scm, gnu/packages/cryptsetup.scm, gnu/packages/curl.scm,
gnu/packages/cyrus-sasl.scm, gnu/packages/databases.scm,
gnu/packages/doxygen.scm, gnu/packages/dwm.scm, gnu/packages/elf.scm,
gnu/packages/emacs.scm, gnu/packages/feh.scm, gnu/packages/file.scm,
gnu/packages/fish.scm, gnu/packages/flex.scm, gnu/packages/fltk.scm,
gnu/packages/fontutils.scm, gnu/packages/games.scm, gnu/packages/gcal.scm,
gnu/packages/gcc.scm, gnu/packages/geeqie.scm, gnu/packages/ghostscript.scm,
gnu/packages/gimp.scm, gnu/packages/gl.scm, gnu/packages/glib.scm,
gnu/packages/gnome.scm, gnu/packages/gnunet.scm, gnu/packages/gnupg.scm,
gnu/packages/gperf.scm, gnu/packages/grub.scm, gnu/packages/gsasl.scm,
gnu/packages/gtk.scm, gnu/packages/guile-wm.scm, gnu/packages/guile.scm,
gnu/packages/hurd.scm, gnu/packages/icu4c.scm, gnu/packages/image.scm,
gnu/packages/imagemagick.scm, gnu/packages/irssi.scm, gnu/packages/kde.scm,
gnu/packages/libdaemon.scm, gnu/packages/libevent.scm,
gnu/packages/libidn.scm, gnu/packages/libusb.scm, gnu/packages/linux.scm,
gnu/packages/lout.scm, gnu/packages/lsh.scm, gnu/packages/lsof.scm,
gnu/packages/lua.scm, gnu/packages/maths.scm, gnu/packages/mcrypt.scm,
gnu/packages/mp3.scm, gnu/packages/netpbm.scm, gnu/packages/noweb.scm,
gnu/packages/ocaml.scm, gnu/packages/openssl.scm, gnu/packages/pcre.scm,
gnu/packages/pdf.scm, gnu/packages/pkg-config.scm,
gnu/packages/pretty-print.scm, gnu/packages/python.scm, gnu/packages/qt.scm,
gnu/packages/rsync.scm, gnu/packages/scheme.scm, gnu/packages/scrot.scm,
gnu/packages/sdl.scm, gnu/packages/skribilo.scm, gnu/packages/ssh.scm,
gnu/packages/stalonetray.scm, gnu/packages/tcl.scm, gnu/packages/tcsh.scm,
gnu/packages/telephony.scm, gnu/packages/texlive.scm, gnu/packages/tor.scm,
gnu/packages/valgrind.scm, gnu/packages/version-control.scm,
gnu/packages/vim.scm, gnu/packages/vpn.scm, gnu/packages/w3m.scm,
gnu/packages/web.scm, gnu/packages/wordnet.scm, gnu/packages/xiph.scm,
gnu/packages/xml.scm, gnu/packages/xorg.scm, gnu/packages/zile.scm,
gnu/packages/zip.scm, gnu/packages/zsh.scm [synopsis, description]: Adjust
according to lint checkers.
* gnu/packages/fltk.scm (fltk)[source]: Wrap long line in uri.
* /gnu/packages/xiph.scm (libogg, libtheora, vorbis-tools)[source]: Same.
2014-10-24 06:46:59 +02:00
|
|
|
|
"Lm-sensors is a hardware health monitoring package for Linux. It allows
|
2014-08-08 02:29:32 +02:00
|
|
|
|
you to access information from temperature, voltage, and fan speed sensors.
|
|
|
|
|
It works with most newer systems.")
|
2015-12-19 00:30:33 +01:00
|
|
|
|
(license license:gpl2+)))
|
2014-08-08 02:35:10 +02:00
|
|
|
|
|
2018-01-05 17:51:43 +01:00
|
|
|
|
(define-public iucode-tool
|
|
|
|
|
(package
|
|
|
|
|
(name "iucode-tool")
|
|
|
|
|
(version "2.2")
|
|
|
|
|
(source (origin
|
|
|
|
|
(method url-fetch)
|
|
|
|
|
(uri (string-append "https://gitlab.com/iucode-tool/releases"
|
|
|
|
|
"/raw/latest/iucode-tool_" version ".tar.xz"))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
|
|
|
|
"0w99k1aq1xw148ffk1xykqf60rdbphb1jknw98jcmadq4pwxl44q"))))
|
|
|
|
|
(build-system gnu-build-system)
|
|
|
|
|
(home-page "https://gitlab.com/iucode-tool/iucode-tool/wikis/home")
|
|
|
|
|
(synopsis "Manipulate Intel microcode bundles")
|
|
|
|
|
(description
|
|
|
|
|
"@command{iucode_tool} is a utility to work with microcode packages for
|
|
|
|
|
Intel processors. It can convert between formats, extract specific versions,
|
|
|
|
|
create a firmware image suitable for the Linux kernel, and more.")
|
2018-01-09 21:46:04 +01:00
|
|
|
|
;; cpuid.h is available for i686, x86_64, and ia64.
|
|
|
|
|
(supported-systems '("i686-linux" "x86_64-linux"))
|
2018-01-05 17:51:43 +01:00
|
|
|
|
(license license:gpl2+)))
|
|
|
|
|
|
2015-02-21 19:22:23 +01:00
|
|
|
|
(define-public i2c-tools
|
|
|
|
|
(package
|
|
|
|
|
(name "i2c-tools")
|
|
|
|
|
(version "3.1.1")
|
|
|
|
|
(source (origin
|
|
|
|
|
(method url-fetch)
|
|
|
|
|
(uri (string-append
|
2016-01-08 22:29:57 +01:00
|
|
|
|
"http://jdelvare.nerim.net/mirror/i2c-tools/i2c-tools-"
|
2015-02-21 19:22:23 +01:00
|
|
|
|
version ".tar.bz2"))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
|
|
|
|
"000pvg995qy1b15ks59gd0klri55hb33kqpg5czy84hw1pbdgm0l"))))
|
|
|
|
|
(build-system gnu-build-system)
|
|
|
|
|
(arguments
|
|
|
|
|
`(#:tests? #f ; no 'check' target
|
|
|
|
|
#:make-flags (list (string-append "prefix=" %output)
|
|
|
|
|
"CC=gcc")
|
|
|
|
|
;; no configure script
|
gnu: Use 'modify-phases' syntax.
* gnu/packages/admin.scm (mingetty, clusterssh, wpa-supplicant-minimal,
wpa-supplicant, wakelan, acpica, tree, direvent, dstat)[arguments]: Use
'modify-phases' syntax.
* gnu/packages/algebra.scm (arb)[arguments]: Likewise.
* gnu/packages/apr.scm (apr-util)[arguments]: Likewise.
* gnu/packages/audio.scm (clalsadrv, fluidsynth, faad2, lv2-mda-piano,
lv2-mda-epiano, timidity++, vamp, soundtouch, portaudio, rsound,
zita-convolver, zita-alsa-pcmi)[arguments]: Likewise.
* gnu/packages/backup.scm (rdup, btar)[arguments]: Likewise.
* gnu/packages/bioinformatics.scm (bedops, bwa, crossmap, express,
flexbar, grit, hisat, ngs-sdk, subread)[arguments]: Likewise.
* gnu/packages/bittorrent.scm (transmission)[arguments]: Likewise.
* gnu/packages/cdrom.scm (cd-discid)[arguments]: Likewise.
* gnu/packages/compression.scm (sharutils)[arguments]: Likewise.
* gnu/packages/conky.scm (conky)[arguments]: Likewise.
* gnu/packages/databases.scm (bdb, bdb-5.3)[arguments]: Likewise.
* gnu/packages/debug.scm (delta, c-reduce)[arguments]: Likewise.
* gnu/packages/display-managers.scm (slim)[arguments]: Likewise.
* gnu/packages/dns.scm (dnsmasq)[arguments]: Likewise.
* gnu/packages/emacs.scm (geiser, emacs-wget, bbdb)[arguments]: Likewise.
* gnu/packages/engineering.scm (pcb)[arguments]: Likewise.
* gnu/packages/firmware.scm (ath9k-htc-firmware)[arguments]: Likewise.
* gnu/packages/flashing-tools.scm (flashrom)[arguments]: Likewise.
* gnu/packages/fltk.scm (fltk)[arguments]: Likewise.
* gnu/packages/freedesktop.scm (python-pyxdg)[arguments]: Likewise.
* gnu/packages/gd.scm (perl-gd)[arguments]: Likewise.
* gnu/packages/gkrellm.scm (gkrellm)[arguments]: Likewise.
* gnu/packages/glib.scm (glibmm)[arguments]: Likewise.
* gnu/packages/gl.scm (glew)[arguments]: Likewise.
* gnu/packages/gnome.scm (icon-naming-utils, orbit2, libbonobo, gnome-vfs,
libgnome, libbonoboui, goffice-0.8, dconf)[arguments]: Likewise.
* gnu/packages/gprolog.scm (gprolog)[arguments]: Likewise.
* gnu/packages/gps.scm (gpscorrelate)[arguments]: Likewise.
* gnu/packages/graphics.scm (agg)[arguments]: Likewise.
* gnu/packages/gtk.scm (ganv, girara, gtksourceview-2, guile-present,
python2-pycairo)[arguments]: Likewise.
* gnu/packages/guile.scm (guile-1.8)[arguments]: Likewise.
* gnu/packages/guile-wm.scm (guile-wm)[arguments]: Likewise.
* gnu/packages/hugs.scm (hugs)[arguments]: Likewise.
* gnu/packages/hurd.scm (gnumach-headers, hurd-headers, hurd-minimal)
[arguments]: Likewise.
* gnu/packages/image-viewers.scm (feh, sxiv)[arguments]: Likewise.
* gnu/packages/libcanberra.scm (libcanberra)[arguments]: Likewise.
* gnu/packages/linux.scm (bridge-utils, iw, fuse, unionfs-fuse/static,
lm-sensors, i2c-tools, xsensors, perf, mdadm, libaio, module-init-tools)
[arguments]: Likewise.
* gnu/packages/lisp.scm (ccl)[arguments]: Likewise.
* gnu/packages/lout.scm (lout)[arguments]: Likewise.
* gnu/packages/lua.scm (luajit)[arguments]: Likewise.
* gnu/packages/machine-learning.scm (shogun)[arguments]: Likewise.
* gnu/packages/mail.scm (exim)[arguments]: Likewise.
* gnu/packages/man.scm (man-pages, txt2man)[arguments]: Likewise.
* gnu/packages/maths.scm (lapack, superlu-dist, openlibm, openspecfun)
[arguments]: Likewise.
* gnu/packages/messaging.scm (bitlbee)[arguments]: Likewise.
* gnu/packages/mp3.scm (libmad, id3lib, mp3info)[arguments]: Likewise.
* gnu/packages/music.scm (solfege)[arguments]: Likewise.
* gnu/packages/noweb.scm (noweb)[arguments]: Likewise.
* gnu/packages/patchutils.scm (patchutils, quilt, colordiff)[arguments]:
Likewise.
* gnu/packages/pdf.scm (xpdf, zathura-cb, zathura-ps, zathura-djvu,
zathura-pdf-poppler, zathura, podofo, fbida)[arguments]: Likewise.
* gnu/packages/perl.scm (perl-file-list, perl-test-harness)[arguments]:
Likewise.
* gnu/packages/photo.scm (gphoto2)[arguments]: Likewise.
* gnu/packages/popt.scm (popt)[arguments]: Likewise.
* gnu/packages/pretty-print.scm (source-highlight, astyle)[arguments]:
Likewise.
* gnu/packages/pumpio.scm (pumpa)[arguments]: Likewise.
* gnu/packages/python.scm (python-passlib, python-pycrypto, python2-empy,
python-sqlalchemy, python-docopt)[arguments]: Likewise.
* gnu/packages/rdf.scm (lrdf)[arguments]: Likewise.
* gnu/packages/regex.scm (tre)[arguments]: Likewise.
* gnu/packages/rrdtool.scm (rrdtool)[arguments]: Likewise.
* gnu/packages/ruby.scm (ruby-2.1, ruby-1.8)[arguments]: Likewise.
* gnu/packages/sawfish.scm (sawfish)[arguments]: Likewise.
* gnu/packages/scheme.scm (racket)[arguments]: Likewise.
* gnu/packages/sdl.scm (guile-sdl)[arguments]: Likewise.
* gnu/packages/serveez.scm (serveez)[arguments]: Likewise.
* gnu/packages/skribilo.scm (skribilo)[arguments]: Likewise.
* gnu/packages/smalltalk.scm (smalltalk)[arguments]: Likewise.
* gnu/packages/suckless.scm (dmenu, slock)[arguments]: Likewise.
* gnu/packages/tcl.scm (expect)[arguments]: Likewise.
* gnu/packages/telephony.scm (commoncpp)[arguments]: Likewise.
* gnu/packages/textutils.scm (recode, libgtextutils)[arguments]:
Likewise.
* gnu/packages/time.scm (time)[arguments]: Likewise.
* gnu/packages/tor.scm (privoxy)[arguments]: Likewise.
* gnu/packages/uucp.scm (uucp)[arguments]: Likewise.
* gnu/packages/video.scm (libdvdnav-4)[arguments]: Likewise.
* gnu/packages/web-browsers.scm (lynx)[arguments]: Likewise.
* gnu/packages/web.scm (tinyproxy)[arguments]: Likewise.
* gnu/packages/wicd.scm (wicd)[arguments]: Likewise.
* gnu/packages/wm.scm (bspwm)[arguments]: Likewise.
* gnu/packages/xdisorg.scm (sxhkd, xcape)[arguments]: Likewise.
* gnu/packages/xfce.scm (xfconf)[arguments]: Likewise.
* gnu/packages/xfig.scm (transfig)[arguments]: Likewise.
* gnu/packages/xorg.scm (imake)[arguments]: Likewise.
2017-07-29 17:28:42 +02:00
|
|
|
|
#:phases (modify-phases %standard-phases (delete 'configure))))
|
2015-02-22 18:50:13 +01:00
|
|
|
|
(inputs
|
|
|
|
|
`(("perl" ,perl)))
|
2016-01-08 22:29:57 +01:00
|
|
|
|
(home-page "http://jdelvare.nerim.net/devel.html#i2ctools")
|
2015-02-21 19:22:23 +01:00
|
|
|
|
(synopsis "I2C tools for Linux")
|
|
|
|
|
(description
|
|
|
|
|
"The i2c-tools package contains a heterogeneous set of I2C tools for
|
|
|
|
|
Linux: a bus probing tool, a chip dumper, register-level SMBus access helpers,
|
|
|
|
|
EEPROM decoding scripts, EEPROM programming tools, and a python module for
|
|
|
|
|
SMBus access.")
|
2015-12-19 00:30:33 +01:00
|
|
|
|
(license license:gpl2+)))
|
2015-02-21 19:22:23 +01:00
|
|
|
|
|
2014-08-08 02:35:10 +02:00
|
|
|
|
(define-public xsensors
|
|
|
|
|
(package
|
|
|
|
|
(name "xsensors")
|
|
|
|
|
(version "0.70")
|
|
|
|
|
(source (origin
|
|
|
|
|
(method url-fetch)
|
|
|
|
|
(uri (string-append
|
|
|
|
|
"http://www.linuxhardware.org/xsensors/xsensors-"
|
|
|
|
|
version ".tar.gz"))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
|
|
|
|
"1siplsfgvcxamyqf44h71jx6jdfmvhfm7mh0y1q8ps4zs6pj2zwh"))))
|
|
|
|
|
(build-system gnu-build-system)
|
2017-09-25 12:42:07 +02:00
|
|
|
|
(inputs `(("lm-sensors" ,lm-sensors "lib")
|
2014-08-08 02:35:10 +02:00
|
|
|
|
("gtk" ,gtk+-2)))
|
|
|
|
|
(native-inputs `(("pkg-config" ,pkg-config)))
|
|
|
|
|
(arguments
|
gnu: Use 'modify-phases' syntax.
* gnu/packages/admin.scm (mingetty, clusterssh, wpa-supplicant-minimal,
wpa-supplicant, wakelan, acpica, tree, direvent, dstat)[arguments]: Use
'modify-phases' syntax.
* gnu/packages/algebra.scm (arb)[arguments]: Likewise.
* gnu/packages/apr.scm (apr-util)[arguments]: Likewise.
* gnu/packages/audio.scm (clalsadrv, fluidsynth, faad2, lv2-mda-piano,
lv2-mda-epiano, timidity++, vamp, soundtouch, portaudio, rsound,
zita-convolver, zita-alsa-pcmi)[arguments]: Likewise.
* gnu/packages/backup.scm (rdup, btar)[arguments]: Likewise.
* gnu/packages/bioinformatics.scm (bedops, bwa, crossmap, express,
flexbar, grit, hisat, ngs-sdk, subread)[arguments]: Likewise.
* gnu/packages/bittorrent.scm (transmission)[arguments]: Likewise.
* gnu/packages/cdrom.scm (cd-discid)[arguments]: Likewise.
* gnu/packages/compression.scm (sharutils)[arguments]: Likewise.
* gnu/packages/conky.scm (conky)[arguments]: Likewise.
* gnu/packages/databases.scm (bdb, bdb-5.3)[arguments]: Likewise.
* gnu/packages/debug.scm (delta, c-reduce)[arguments]: Likewise.
* gnu/packages/display-managers.scm (slim)[arguments]: Likewise.
* gnu/packages/dns.scm (dnsmasq)[arguments]: Likewise.
* gnu/packages/emacs.scm (geiser, emacs-wget, bbdb)[arguments]: Likewise.
* gnu/packages/engineering.scm (pcb)[arguments]: Likewise.
* gnu/packages/firmware.scm (ath9k-htc-firmware)[arguments]: Likewise.
* gnu/packages/flashing-tools.scm (flashrom)[arguments]: Likewise.
* gnu/packages/fltk.scm (fltk)[arguments]: Likewise.
* gnu/packages/freedesktop.scm (python-pyxdg)[arguments]: Likewise.
* gnu/packages/gd.scm (perl-gd)[arguments]: Likewise.
* gnu/packages/gkrellm.scm (gkrellm)[arguments]: Likewise.
* gnu/packages/glib.scm (glibmm)[arguments]: Likewise.
* gnu/packages/gl.scm (glew)[arguments]: Likewise.
* gnu/packages/gnome.scm (icon-naming-utils, orbit2, libbonobo, gnome-vfs,
libgnome, libbonoboui, goffice-0.8, dconf)[arguments]: Likewise.
* gnu/packages/gprolog.scm (gprolog)[arguments]: Likewise.
* gnu/packages/gps.scm (gpscorrelate)[arguments]: Likewise.
* gnu/packages/graphics.scm (agg)[arguments]: Likewise.
* gnu/packages/gtk.scm (ganv, girara, gtksourceview-2, guile-present,
python2-pycairo)[arguments]: Likewise.
* gnu/packages/guile.scm (guile-1.8)[arguments]: Likewise.
* gnu/packages/guile-wm.scm (guile-wm)[arguments]: Likewise.
* gnu/packages/hugs.scm (hugs)[arguments]: Likewise.
* gnu/packages/hurd.scm (gnumach-headers, hurd-headers, hurd-minimal)
[arguments]: Likewise.
* gnu/packages/image-viewers.scm (feh, sxiv)[arguments]: Likewise.
* gnu/packages/libcanberra.scm (libcanberra)[arguments]: Likewise.
* gnu/packages/linux.scm (bridge-utils, iw, fuse, unionfs-fuse/static,
lm-sensors, i2c-tools, xsensors, perf, mdadm, libaio, module-init-tools)
[arguments]: Likewise.
* gnu/packages/lisp.scm (ccl)[arguments]: Likewise.
* gnu/packages/lout.scm (lout)[arguments]: Likewise.
* gnu/packages/lua.scm (luajit)[arguments]: Likewise.
* gnu/packages/machine-learning.scm (shogun)[arguments]: Likewise.
* gnu/packages/mail.scm (exim)[arguments]: Likewise.
* gnu/packages/man.scm (man-pages, txt2man)[arguments]: Likewise.
* gnu/packages/maths.scm (lapack, superlu-dist, openlibm, openspecfun)
[arguments]: Likewise.
* gnu/packages/messaging.scm (bitlbee)[arguments]: Likewise.
* gnu/packages/mp3.scm (libmad, id3lib, mp3info)[arguments]: Likewise.
* gnu/packages/music.scm (solfege)[arguments]: Likewise.
* gnu/packages/noweb.scm (noweb)[arguments]: Likewise.
* gnu/packages/patchutils.scm (patchutils, quilt, colordiff)[arguments]:
Likewise.
* gnu/packages/pdf.scm (xpdf, zathura-cb, zathura-ps, zathura-djvu,
zathura-pdf-poppler, zathura, podofo, fbida)[arguments]: Likewise.
* gnu/packages/perl.scm (perl-file-list, perl-test-harness)[arguments]:
Likewise.
* gnu/packages/photo.scm (gphoto2)[arguments]: Likewise.
* gnu/packages/popt.scm (popt)[arguments]: Likewise.
* gnu/packages/pretty-print.scm (source-highlight, astyle)[arguments]:
Likewise.
* gnu/packages/pumpio.scm (pumpa)[arguments]: Likewise.
* gnu/packages/python.scm (python-passlib, python-pycrypto, python2-empy,
python-sqlalchemy, python-docopt)[arguments]: Likewise.
* gnu/packages/rdf.scm (lrdf)[arguments]: Likewise.
* gnu/packages/regex.scm (tre)[arguments]: Likewise.
* gnu/packages/rrdtool.scm (rrdtool)[arguments]: Likewise.
* gnu/packages/ruby.scm (ruby-2.1, ruby-1.8)[arguments]: Likewise.
* gnu/packages/sawfish.scm (sawfish)[arguments]: Likewise.
* gnu/packages/scheme.scm (racket)[arguments]: Likewise.
* gnu/packages/sdl.scm (guile-sdl)[arguments]: Likewise.
* gnu/packages/serveez.scm (serveez)[arguments]: Likewise.
* gnu/packages/skribilo.scm (skribilo)[arguments]: Likewise.
* gnu/packages/smalltalk.scm (smalltalk)[arguments]: Likewise.
* gnu/packages/suckless.scm (dmenu, slock)[arguments]: Likewise.
* gnu/packages/tcl.scm (expect)[arguments]: Likewise.
* gnu/packages/telephony.scm (commoncpp)[arguments]: Likewise.
* gnu/packages/textutils.scm (recode, libgtextutils)[arguments]:
Likewise.
* gnu/packages/time.scm (time)[arguments]: Likewise.
* gnu/packages/tor.scm (privoxy)[arguments]: Likewise.
* gnu/packages/uucp.scm (uucp)[arguments]: Likewise.
* gnu/packages/video.scm (libdvdnav-4)[arguments]: Likewise.
* gnu/packages/web-browsers.scm (lynx)[arguments]: Likewise.
* gnu/packages/web.scm (tinyproxy)[arguments]: Likewise.
* gnu/packages/wicd.scm (wicd)[arguments]: Likewise.
* gnu/packages/wm.scm (bspwm)[arguments]: Likewise.
* gnu/packages/xdisorg.scm (sxhkd, xcape)[arguments]: Likewise.
* gnu/packages/xfce.scm (xfconf)[arguments]: Likewise.
* gnu/packages/xfig.scm (transfig)[arguments]: Likewise.
* gnu/packages/xorg.scm (imake)[arguments]: Likewise.
2017-07-29 17:28:42 +02:00
|
|
|
|
`(#:phases
|
|
|
|
|
(modify-phases %standard-phases
|
|
|
|
|
(add-before 'configure 'enable-deprecated
|
|
|
|
|
(lambda _
|
|
|
|
|
(substitute* "src/Makefile.in"
|
|
|
|
|
(("-DGDK_DISABLE_DEPRECATED") "")
|
|
|
|
|
(("-DGTK_DISABLE_DEPRECATED") ""))
|
|
|
|
|
#t))
|
|
|
|
|
(add-before 'configure 'remove-Werror
|
|
|
|
|
(lambda _
|
|
|
|
|
(substitute* '("configure" "src/Makefile.in")
|
|
|
|
|
(("-Werror") ""))
|
|
|
|
|
#t)))))
|
2014-08-08 02:35:10 +02:00
|
|
|
|
(home-page "http://www.linuxhardware.org/xsensors/")
|
|
|
|
|
(synopsis "Hardware health information viewer")
|
|
|
|
|
(description
|
gnu: Some cleanup based on lint checkers.
* gnu/packages/admin.scm, gnu/packages/aidc.scm, gnu/packages/algebra.scm,
gnu/packages/apr.scm, gnu/packages/avahi.scm, gnu/packages/backup.scm,
gnu/packages/base.scm, gnu/packages/calcurse.scm, gnu/packages/cdrom.scm,
gnu/packages/check.scm, gnu/packages/compression.scm, gnu/packages/cook.scm,
gnu/packages/crypto.scm, gnu/packages/cryptsetup.scm, gnu/packages/curl.scm,
gnu/packages/cyrus-sasl.scm, gnu/packages/databases.scm,
gnu/packages/doxygen.scm, gnu/packages/dwm.scm, gnu/packages/elf.scm,
gnu/packages/emacs.scm, gnu/packages/feh.scm, gnu/packages/file.scm,
gnu/packages/fish.scm, gnu/packages/flex.scm, gnu/packages/fltk.scm,
gnu/packages/fontutils.scm, gnu/packages/games.scm, gnu/packages/gcal.scm,
gnu/packages/gcc.scm, gnu/packages/geeqie.scm, gnu/packages/ghostscript.scm,
gnu/packages/gimp.scm, gnu/packages/gl.scm, gnu/packages/glib.scm,
gnu/packages/gnome.scm, gnu/packages/gnunet.scm, gnu/packages/gnupg.scm,
gnu/packages/gperf.scm, gnu/packages/grub.scm, gnu/packages/gsasl.scm,
gnu/packages/gtk.scm, gnu/packages/guile-wm.scm, gnu/packages/guile.scm,
gnu/packages/hurd.scm, gnu/packages/icu4c.scm, gnu/packages/image.scm,
gnu/packages/imagemagick.scm, gnu/packages/irssi.scm, gnu/packages/kde.scm,
gnu/packages/libdaemon.scm, gnu/packages/libevent.scm,
gnu/packages/libidn.scm, gnu/packages/libusb.scm, gnu/packages/linux.scm,
gnu/packages/lout.scm, gnu/packages/lsh.scm, gnu/packages/lsof.scm,
gnu/packages/lua.scm, gnu/packages/maths.scm, gnu/packages/mcrypt.scm,
gnu/packages/mp3.scm, gnu/packages/netpbm.scm, gnu/packages/noweb.scm,
gnu/packages/ocaml.scm, gnu/packages/openssl.scm, gnu/packages/pcre.scm,
gnu/packages/pdf.scm, gnu/packages/pkg-config.scm,
gnu/packages/pretty-print.scm, gnu/packages/python.scm, gnu/packages/qt.scm,
gnu/packages/rsync.scm, gnu/packages/scheme.scm, gnu/packages/scrot.scm,
gnu/packages/sdl.scm, gnu/packages/skribilo.scm, gnu/packages/ssh.scm,
gnu/packages/stalonetray.scm, gnu/packages/tcl.scm, gnu/packages/tcsh.scm,
gnu/packages/telephony.scm, gnu/packages/texlive.scm, gnu/packages/tor.scm,
gnu/packages/valgrind.scm, gnu/packages/version-control.scm,
gnu/packages/vim.scm, gnu/packages/vpn.scm, gnu/packages/w3m.scm,
gnu/packages/web.scm, gnu/packages/wordnet.scm, gnu/packages/xiph.scm,
gnu/packages/xml.scm, gnu/packages/xorg.scm, gnu/packages/zile.scm,
gnu/packages/zip.scm, gnu/packages/zsh.scm [synopsis, description]: Adjust
according to lint checkers.
* gnu/packages/fltk.scm (fltk)[source]: Wrap long line in uri.
* /gnu/packages/xiph.scm (libogg, libtheora, vorbis-tools)[source]: Same.
2014-10-24 06:46:59 +02:00
|
|
|
|
"Xsensors reads data from the libsensors library regarding hardware
|
2014-08-08 02:35:10 +02:00
|
|
|
|
health such as temperature, voltage and fan speed and displays the information
|
|
|
|
|
in a digital read-out.")
|
2015-12-19 00:30:33 +01:00
|
|
|
|
(license license:gpl2+)))
|
2014-09-30 15:56:47 +02:00
|
|
|
|
|
|
|
|
|
(define-public perf
|
|
|
|
|
(package
|
|
|
|
|
(name "perf")
|
|
|
|
|
(version (package-version linux-libre))
|
|
|
|
|
(source (package-source linux-libre))
|
|
|
|
|
(build-system gnu-build-system)
|
|
|
|
|
(arguments
|
gnu: Use 'modify-phases' syntax.
* gnu/packages/admin.scm (mingetty, clusterssh, wpa-supplicant-minimal,
wpa-supplicant, wakelan, acpica, tree, direvent, dstat)[arguments]: Use
'modify-phases' syntax.
* gnu/packages/algebra.scm (arb)[arguments]: Likewise.
* gnu/packages/apr.scm (apr-util)[arguments]: Likewise.
* gnu/packages/audio.scm (clalsadrv, fluidsynth, faad2, lv2-mda-piano,
lv2-mda-epiano, timidity++, vamp, soundtouch, portaudio, rsound,
zita-convolver, zita-alsa-pcmi)[arguments]: Likewise.
* gnu/packages/backup.scm (rdup, btar)[arguments]: Likewise.
* gnu/packages/bioinformatics.scm (bedops, bwa, crossmap, express,
flexbar, grit, hisat, ngs-sdk, subread)[arguments]: Likewise.
* gnu/packages/bittorrent.scm (transmission)[arguments]: Likewise.
* gnu/packages/cdrom.scm (cd-discid)[arguments]: Likewise.
* gnu/packages/compression.scm (sharutils)[arguments]: Likewise.
* gnu/packages/conky.scm (conky)[arguments]: Likewise.
* gnu/packages/databases.scm (bdb, bdb-5.3)[arguments]: Likewise.
* gnu/packages/debug.scm (delta, c-reduce)[arguments]: Likewise.
* gnu/packages/display-managers.scm (slim)[arguments]: Likewise.
* gnu/packages/dns.scm (dnsmasq)[arguments]: Likewise.
* gnu/packages/emacs.scm (geiser, emacs-wget, bbdb)[arguments]: Likewise.
* gnu/packages/engineering.scm (pcb)[arguments]: Likewise.
* gnu/packages/firmware.scm (ath9k-htc-firmware)[arguments]: Likewise.
* gnu/packages/flashing-tools.scm (flashrom)[arguments]: Likewise.
* gnu/packages/fltk.scm (fltk)[arguments]: Likewise.
* gnu/packages/freedesktop.scm (python-pyxdg)[arguments]: Likewise.
* gnu/packages/gd.scm (perl-gd)[arguments]: Likewise.
* gnu/packages/gkrellm.scm (gkrellm)[arguments]: Likewise.
* gnu/packages/glib.scm (glibmm)[arguments]: Likewise.
* gnu/packages/gl.scm (glew)[arguments]: Likewise.
* gnu/packages/gnome.scm (icon-naming-utils, orbit2, libbonobo, gnome-vfs,
libgnome, libbonoboui, goffice-0.8, dconf)[arguments]: Likewise.
* gnu/packages/gprolog.scm (gprolog)[arguments]: Likewise.
* gnu/packages/gps.scm (gpscorrelate)[arguments]: Likewise.
* gnu/packages/graphics.scm (agg)[arguments]: Likewise.
* gnu/packages/gtk.scm (ganv, girara, gtksourceview-2, guile-present,
python2-pycairo)[arguments]: Likewise.
* gnu/packages/guile.scm (guile-1.8)[arguments]: Likewise.
* gnu/packages/guile-wm.scm (guile-wm)[arguments]: Likewise.
* gnu/packages/hugs.scm (hugs)[arguments]: Likewise.
* gnu/packages/hurd.scm (gnumach-headers, hurd-headers, hurd-minimal)
[arguments]: Likewise.
* gnu/packages/image-viewers.scm (feh, sxiv)[arguments]: Likewise.
* gnu/packages/libcanberra.scm (libcanberra)[arguments]: Likewise.
* gnu/packages/linux.scm (bridge-utils, iw, fuse, unionfs-fuse/static,
lm-sensors, i2c-tools, xsensors, perf, mdadm, libaio, module-init-tools)
[arguments]: Likewise.
* gnu/packages/lisp.scm (ccl)[arguments]: Likewise.
* gnu/packages/lout.scm (lout)[arguments]: Likewise.
* gnu/packages/lua.scm (luajit)[arguments]: Likewise.
* gnu/packages/machine-learning.scm (shogun)[arguments]: Likewise.
* gnu/packages/mail.scm (exim)[arguments]: Likewise.
* gnu/packages/man.scm (man-pages, txt2man)[arguments]: Likewise.
* gnu/packages/maths.scm (lapack, superlu-dist, openlibm, openspecfun)
[arguments]: Likewise.
* gnu/packages/messaging.scm (bitlbee)[arguments]: Likewise.
* gnu/packages/mp3.scm (libmad, id3lib, mp3info)[arguments]: Likewise.
* gnu/packages/music.scm (solfege)[arguments]: Likewise.
* gnu/packages/noweb.scm (noweb)[arguments]: Likewise.
* gnu/packages/patchutils.scm (patchutils, quilt, colordiff)[arguments]:
Likewise.
* gnu/packages/pdf.scm (xpdf, zathura-cb, zathura-ps, zathura-djvu,
zathura-pdf-poppler, zathura, podofo, fbida)[arguments]: Likewise.
* gnu/packages/perl.scm (perl-file-list, perl-test-harness)[arguments]:
Likewise.
* gnu/packages/photo.scm (gphoto2)[arguments]: Likewise.
* gnu/packages/popt.scm (popt)[arguments]: Likewise.
* gnu/packages/pretty-print.scm (source-highlight, astyle)[arguments]:
Likewise.
* gnu/packages/pumpio.scm (pumpa)[arguments]: Likewise.
* gnu/packages/python.scm (python-passlib, python-pycrypto, python2-empy,
python-sqlalchemy, python-docopt)[arguments]: Likewise.
* gnu/packages/rdf.scm (lrdf)[arguments]: Likewise.
* gnu/packages/regex.scm (tre)[arguments]: Likewise.
* gnu/packages/rrdtool.scm (rrdtool)[arguments]: Likewise.
* gnu/packages/ruby.scm (ruby-2.1, ruby-1.8)[arguments]: Likewise.
* gnu/packages/sawfish.scm (sawfish)[arguments]: Likewise.
* gnu/packages/scheme.scm (racket)[arguments]: Likewise.
* gnu/packages/sdl.scm (guile-sdl)[arguments]: Likewise.
* gnu/packages/serveez.scm (serveez)[arguments]: Likewise.
* gnu/packages/skribilo.scm (skribilo)[arguments]: Likewise.
* gnu/packages/smalltalk.scm (smalltalk)[arguments]: Likewise.
* gnu/packages/suckless.scm (dmenu, slock)[arguments]: Likewise.
* gnu/packages/tcl.scm (expect)[arguments]: Likewise.
* gnu/packages/telephony.scm (commoncpp)[arguments]: Likewise.
* gnu/packages/textutils.scm (recode, libgtextutils)[arguments]:
Likewise.
* gnu/packages/time.scm (time)[arguments]: Likewise.
* gnu/packages/tor.scm (privoxy)[arguments]: Likewise.
* gnu/packages/uucp.scm (uucp)[arguments]: Likewise.
* gnu/packages/video.scm (libdvdnav-4)[arguments]: Likewise.
* gnu/packages/web-browsers.scm (lynx)[arguments]: Likewise.
* gnu/packages/web.scm (tinyproxy)[arguments]: Likewise.
* gnu/packages/wicd.scm (wicd)[arguments]: Likewise.
* gnu/packages/wm.scm (bspwm)[arguments]: Likewise.
* gnu/packages/xdisorg.scm (sxhkd, xcape)[arguments]: Likewise.
* gnu/packages/xfce.scm (xfconf)[arguments]: Likewise.
* gnu/packages/xfig.scm (transfig)[arguments]: Likewise.
* gnu/packages/xorg.scm (imake)[arguments]: Likewise.
2017-07-29 17:28:42 +02:00
|
|
|
|
'(#:phases
|
|
|
|
|
(modify-phases %standard-phases
|
|
|
|
|
(replace 'configure
|
|
|
|
|
(lambda* (#:key inputs #:allow-other-keys)
|
|
|
|
|
(setenv "SHELL_PATH" (which "bash"))
|
|
|
|
|
(chdir "tools/perf")
|
|
|
|
|
#t)))
|
2017-10-17 13:17:54 +02:00
|
|
|
|
#:make-flags (list (string-append "prefix="
|
2014-09-30 15:56:47 +02:00
|
|
|
|
(assoc-ref %outputs "out"))
|
2015-01-21 15:04:09 +01:00
|
|
|
|
"WERROR=0"
|
|
|
|
|
|
|
|
|
|
;; By default, 'config/Makefile' uses lib64 on
|
|
|
|
|
;; x86_64. Work around that.
|
|
|
|
|
"lib=lib")
|
2014-09-30 15:56:47 +02:00
|
|
|
|
#:tests? #f)) ;no tests
|
|
|
|
|
(native-inputs
|
|
|
|
|
`(("pkg-config" ,pkg-config)
|
|
|
|
|
("bison" ,bison)
|
|
|
|
|
("flex" ,flex)
|
|
|
|
|
|
|
|
|
|
;; There are build scripts written in these languages.
|
|
|
|
|
("perl" ,perl)
|
|
|
|
|
("python" ,python-2)))
|
|
|
|
|
(inputs
|
2015-01-21 14:54:56 +01:00
|
|
|
|
`(("slang" ,slang) ;for the interactive TUI
|
2014-09-30 15:56:47 +02:00
|
|
|
|
;; ("newt" ,newt)
|
2015-01-21 13:50:07 +01:00
|
|
|
|
("python" ,python-2) ;'perf' links against libpython
|
2014-09-30 15:56:47 +02:00
|
|
|
|
("elfutils" ,elfutils)
|
2017-04-07 16:36:43 +02:00
|
|
|
|
("libiberty" ,libiberty) ;used alongside BDF for symbol demangling
|
2017-10-17 11:30:31 +02:00
|
|
|
|
("libunwind" ,libunwind) ;better stack walking
|
|
|
|
|
("numactl" ,numactl) ;for 'perf bench numa mem'
|
2014-09-30 15:56:47 +02:00
|
|
|
|
|
2015-01-21 14:18:44 +01:00
|
|
|
|
;; Documentation.
|
|
|
|
|
("libxml2" ,libxml2) ;for $XML_CATALOG_FILES
|
|
|
|
|
("docbook-xsl" ,docbook-xsl)
|
|
|
|
|
("xmlto" ,xmlto)
|
|
|
|
|
("asciidoc" ,asciidoc)))
|
2014-09-30 15:56:47 +02:00
|
|
|
|
(home-page "https://perf.wiki.kernel.org/")
|
|
|
|
|
(synopsis "Linux profiling with performance counters")
|
|
|
|
|
(description
|
|
|
|
|
"perf is a tool suite for profiling using hardware performance counters,
|
|
|
|
|
with support in the Linux kernel. perf can instrument CPU performance
|
|
|
|
|
counters, tracepoints, kprobes, and uprobes (dynamic tracing). It is capable
|
|
|
|
|
of lightweight profiling. This package contains the user-land tools and in
|
|
|
|
|
particular the 'perf' command.")
|
|
|
|
|
(license (package-license linux-libre))))
|
2014-11-21 04:31:56 +01:00
|
|
|
|
|
|
|
|
|
(define-public pflask
|
|
|
|
|
(package
|
|
|
|
|
(name "pflask")
|
|
|
|
|
(version "0.2")
|
|
|
|
|
(source (origin
|
|
|
|
|
(method url-fetch)
|
|
|
|
|
(uri (string-append "https://github.com/ghedo/pflask/archive/v"
|
|
|
|
|
version ".tar.gz"))
|
gnu: Add 'file-name' fields for github source tarballs without a name.
* gnu/packages/aarddict.scm (aarddict), gnu/packages/algebra.scm (arb),
gnu/packages/audio.scm (jack-2, lvtk),
gnu/packages/bioinformatics.scm (bedops, bedtools, bowtie),
gnu/packages/game-development.scm (tiled),
gnu/packages/games.scm (minetest-data, minetest, retroarch),
gnu/packages/jrnl.scm (jrnl), gnu/packages/kde.scm (qjson),
gnu/packages/libevent.scm (libuv), gnu/packages/linux.scm (pflask),
gnu/packages/mail.scm (offlineimap, libetpan),
gnu/packages/maths.scm (arpack-ng), gnu/packages/ninja.scm (ninja),
gnu/packages/nutrition.scm (gourmet),
gnu/packages/python.scm (python-cairocffi), gnu/packages/rdf.scm (lrdf),
gnu/packages/ruby.scm (ruby-i18n), gnu/packages/sxiv.scm (sxiv): Add
'file-name' field to origin.
2015-02-27 18:23:27 +01:00
|
|
|
|
(file-name (string-append name "-" version ".tar.gz"))
|
2014-11-21 04:31:56 +01:00
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
|
|
|
|
"1g8fjj67dfkc2s0852l9vqi1pm61gp4rxbpzbzg780f5s5hd1fys"))))
|
|
|
|
|
(build-system cmake-build-system)
|
|
|
|
|
(arguments
|
|
|
|
|
'(#:tests? #f)) ; no tests
|
2018-01-15 07:29:02 +01:00
|
|
|
|
(home-page "https://ghedo.github.io/pflask/")
|
2014-11-21 04:31:56 +01:00
|
|
|
|
(synopsis "Simple tool for creating Linux namespace containers")
|
|
|
|
|
(description "pflask is a simple tool for creating Linux namespace
|
|
|
|
|
containers. It can be used for running a command or even booting an OS inside
|
|
|
|
|
an isolated container, created with the help of Linux namespaces. It is
|
|
|
|
|
similar in functionality to chroot, although pflask provides better isolation
|
|
|
|
|
thanks to the use of namespaces.")
|
2015-12-19 00:30:33 +01:00
|
|
|
|
(license license:bsd-2)))
|
2015-02-02 18:12:52 +01:00
|
|
|
|
|
2018-05-25 16:17:51 +02:00
|
|
|
|
(define-public singularity
|
|
|
|
|
(package
|
|
|
|
|
(name "singularity")
|
|
|
|
|
(version "2.5.1")
|
|
|
|
|
(source (origin
|
|
|
|
|
(method url-fetch)
|
|
|
|
|
(uri (string-append "https://github.com/singularityware/singularity/"
|
|
|
|
|
"releases/download/" version
|
|
|
|
|
"/singularity-" version ".tar.gz"))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
|
|
|
|
"0f28dgf2qcy8ljjfix7p9q36q12j7rxyicfzzi4n0fl8zr8ab88g"))))
|
|
|
|
|
(build-system gnu-build-system)
|
|
|
|
|
(arguments
|
|
|
|
|
`(#:configure-flags
|
|
|
|
|
(list "--disable-suid"
|
|
|
|
|
"--localstatedir=/var")
|
|
|
|
|
#:phases
|
|
|
|
|
(modify-phases %standard-phases
|
|
|
|
|
;; Do not create directories in /var.
|
|
|
|
|
(add-after 'unpack 'disable-install-hook
|
|
|
|
|
(lambda _
|
|
|
|
|
(substitute* "Makefile.in"
|
|
|
|
|
(("\\$\\(MAKE\\) .*install-data-hook") ""))
|
|
|
|
|
#t))
|
|
|
|
|
(add-after 'unpack 'patch-reference-to-squashfs-tools
|
|
|
|
|
(lambda _
|
|
|
|
|
(substitute* "libexec/cli/build.exec"
|
|
|
|
|
(("if ! singularity_which mksquashfs") "if 0")
|
|
|
|
|
(("if ! mksquashfs")
|
|
|
|
|
(string-append "if ! " (which "mksquashfs"))))
|
|
|
|
|
#t)))))
|
|
|
|
|
(inputs
|
|
|
|
|
`(("libarchive" ,libarchive)
|
|
|
|
|
("python" ,python-wrapper)
|
|
|
|
|
("nettle" ,nettle)
|
|
|
|
|
("zlib" ,zlib)
|
|
|
|
|
("squashfs-tools" ,squashfs-tools)))
|
|
|
|
|
(home-page "https://singularity.lbl.gov/")
|
|
|
|
|
(synopsis "Container platform")
|
|
|
|
|
(description "Singularity is a container platform supporting a number of
|
|
|
|
|
container image formats. It can build SquashFS container images or import
|
|
|
|
|
existing Docker images. Singularity requires kernel support for container
|
|
|
|
|
isolation or root privileges.")
|
|
|
|
|
(license license:bsd-3)))
|
|
|
|
|
|
2015-02-02 18:12:52 +01:00
|
|
|
|
(define-public hdparm
|
|
|
|
|
(package
|
|
|
|
|
(name "hdparm")
|
2018-03-19 14:41:47 +01:00
|
|
|
|
(version "9.55")
|
2015-02-02 18:12:52 +01:00
|
|
|
|
(source (origin
|
|
|
|
|
(method url-fetch)
|
2016-07-21 08:35:30 +02:00
|
|
|
|
(uri (string-append "mirror://sourceforge/" name "/" name "/"
|
2015-02-02 18:12:52 +01:00
|
|
|
|
name "-" version ".tar.gz"))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
2018-03-19 14:41:47 +01:00
|
|
|
|
"1ivdvrzimaayiq03by8mcq0mhmdljndj06h012zkdpw34irnpixm"))))
|
2015-02-02 18:12:52 +01:00
|
|
|
|
(build-system gnu-build-system)
|
|
|
|
|
(arguments
|
|
|
|
|
`(#:make-flags (let ((out (assoc-ref %outputs "out")))
|
|
|
|
|
(list (string-append "binprefix=" out)
|
|
|
|
|
(string-append "manprefix=" out)
|
|
|
|
|
"CC=gcc"))
|
2017-03-31 00:30:16 +02:00
|
|
|
|
#:phases
|
|
|
|
|
(modify-phases %standard-phases
|
|
|
|
|
(delete 'configure)) ; no configure script
|
|
|
|
|
#:tests? #f)) ; no test suite
|
gnu: Use HTTPS for all sourceforge.net home pages.
* gnu/packages/admin.scm (mingetty, clusterssh)[home-page]: Use HTTPS.
* gnu/packages/audio.scm (libbs2b, soxr)[home-page]: Likewise.
* gnu/packages/bioinformatics.scm (bless)[home-page]: Likewise.
* gnu/packages/display-managers.scm (slim)[home-page]: Likewise.
* gnu/packages/games.scm (extremetuxracer)[home-page]: Likewise.
* gnu/packages/ghostscript.scm (gs-fonts)[home-page]: Likewise.
* gnu/packages/haskell.scm (ghc-regex-base, ghc-regex-posix,
ghc-regex-compat)[home-page]: Likewise.
* gnu/packages/image.scm (imlib2)[home-page]: Likewise.
* gnu/packages/libreoffice.scm (librevenge, libcmis, libodfgen, libmwaw)
[home-page]: Likewise.
* gnu/packages/linux.scm (hdparm, acpid, libavc1394, rng-tools)
[home-page]: Likewise.
* gnu/packages/mail.scm (esmtp)[home-page]: Likewise.
* gnu/packages/mp3.scm (ripperx)[home-page]: Likewise.
* gnu/packages/onc-rpc.scm (libtirpc)[home-page]: Likewise.
* gnu/packages/perl.scm (perl-czplib)[home-page]: Likewise.
* gnu/packages/python.scm (python-pyasn1-modules)[home-page]: Likewise.
* gnu/packages/xdisorg.scm (xosd)[home-page]: Likewise.
2017-01-04 01:30:46 +01:00
|
|
|
|
(home-page "https://sourceforge.net/projects/hdparm/")
|
2017-03-31 01:25:03 +02:00
|
|
|
|
(synopsis "View and tune ATA disk drive parameters")
|
2015-02-02 18:12:52 +01:00
|
|
|
|
(description
|
2017-03-31 01:25:03 +02:00
|
|
|
|
"@command{hdparm} is a command-line utility to control ATA controllers and
|
|
|
|
|
disk drives. It can increase performance and/or reliability by careful tuning
|
|
|
|
|
of hardware settings like power and acoustic management, DMA modes, and caching.
|
|
|
|
|
It can also display detailed device information, or be used as a simple
|
|
|
|
|
performance benchmarking tool.
|
|
|
|
|
|
|
|
|
|
@command{hdparm} provides a command line interface to various Linux kernel
|
|
|
|
|
interfaces provided by the SATA/ATA/SAS @code{libata} subsystem, and the older
|
2018-01-05 11:14:21 +01:00
|
|
|
|
IDE driver subsystem. Many external USB drive enclosures with SCSI-ATA Command
|
|
|
|
|
Translation (@dfn{SAT}) are also supported.")
|
2015-12-19 00:30:33 +01:00
|
|
|
|
(license (license:non-copyleft "file://LICENSE.TXT"))))
|
2015-02-02 18:12:52 +01:00
|
|
|
|
|
2015-08-12 16:36:50 +02:00
|
|
|
|
(define-public rfkill
|
|
|
|
|
(package
|
|
|
|
|
(name "rfkill")
|
|
|
|
|
(version "0.5")
|
|
|
|
|
(source (origin
|
|
|
|
|
(method url-fetch)
|
|
|
|
|
(uri (string-append "mirror://kernel.org/software/network/"
|
|
|
|
|
name "/" name "-" version ".tar.xz"))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
|
|
|
|
"0snqj5h0y991lszbigbyyqb8swj0hxajc1vfqg2scfay44231bp0"))))
|
|
|
|
|
(build-system gnu-build-system)
|
|
|
|
|
(arguments
|
|
|
|
|
`(#:make-flags (list "CC=gcc"
|
|
|
|
|
(string-append "PREFIX=" %output))
|
|
|
|
|
#:phases (modify-phases %standard-phases
|
|
|
|
|
(delete 'configure))
|
|
|
|
|
#:tests? #f))
|
|
|
|
|
(home-page "https://wireless.wiki.kernel.org/en/users/Documentation/rfkill")
|
|
|
|
|
(synopsis "Tool for enabling and disabling wireless devices")
|
|
|
|
|
(description
|
|
|
|
|
"rfkill is a simple tool for accessing the rfkill device interface,
|
|
|
|
|
which is used to enable and disable wireless networking devices, typically
|
|
|
|
|
WLAN, Bluetooth and mobile broadband.")
|
2015-12-19 00:30:33 +01:00
|
|
|
|
(license (license:non-copyleft "file://COPYING"
|
2017-11-02 21:43:09 +01:00
|
|
|
|
"See COPYING in the distribution."))
|
|
|
|
|
;; rfkill is part of util-linux as of 2.31.
|
|
|
|
|
(properties `((superseded . ,util-linux)))))
|
2015-08-12 16:36:50 +02:00
|
|
|
|
|
2016-04-18 21:36:42 +02:00
|
|
|
|
(define-public acpi
|
|
|
|
|
(package
|
|
|
|
|
(name "acpi")
|
|
|
|
|
(version "1.7")
|
|
|
|
|
(source (origin
|
|
|
|
|
(method url-fetch)
|
2018-01-15 07:29:02 +01:00
|
|
|
|
(uri (string-append "mirror://sourceforge/acpiclient/acpiclient/"
|
2016-07-21 08:35:30 +02:00
|
|
|
|
version "/" name "-" version ".tar.gz"))
|
2016-04-18 21:36:42 +02:00
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
|
|
|
|
"01ahldvf0gc29dmbd5zi4rrnrw2i1ajnf30sx2vyaski3jv099fp"))))
|
|
|
|
|
(build-system gnu-build-system)
|
|
|
|
|
(home-page "http://acpiclient.sourceforge.net")
|
|
|
|
|
(synopsis "Display information on ACPI devices")
|
|
|
|
|
(description "@code{acpi} attempts to replicate the functionality of the
|
|
|
|
|
\"old\" @code{apm} command on ACPI systems, including battery and thermal
|
|
|
|
|
information. It does not support ACPI suspending, only displays information
|
|
|
|
|
about ACPI devices.")
|
|
|
|
|
(license license:gpl2+)))
|
|
|
|
|
|
2015-02-13 11:24:00 +01:00
|
|
|
|
(define-public acpid
|
|
|
|
|
(package
|
|
|
|
|
(name "acpid")
|
2017-03-03 17:57:11 +01:00
|
|
|
|
(version "2.0.28")
|
2015-02-13 11:24:00 +01:00
|
|
|
|
(source (origin
|
|
|
|
|
(method url-fetch)
|
|
|
|
|
(uri (string-append "mirror://sourceforge/acpid2/acpid-"
|
|
|
|
|
version ".tar.xz"))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
2017-03-03 17:57:11 +01:00
|
|
|
|
"043igasvp1l6nv5rzh4sksmymay2qn20anl4zm4zvwnkn1a3l34q"))))
|
2015-02-13 11:24:00 +01:00
|
|
|
|
(build-system gnu-build-system)
|
gnu: Use HTTPS for all sourceforge.net home pages.
* gnu/packages/admin.scm (mingetty, clusterssh)[home-page]: Use HTTPS.
* gnu/packages/audio.scm (libbs2b, soxr)[home-page]: Likewise.
* gnu/packages/bioinformatics.scm (bless)[home-page]: Likewise.
* gnu/packages/display-managers.scm (slim)[home-page]: Likewise.
* gnu/packages/games.scm (extremetuxracer)[home-page]: Likewise.
* gnu/packages/ghostscript.scm (gs-fonts)[home-page]: Likewise.
* gnu/packages/haskell.scm (ghc-regex-base, ghc-regex-posix,
ghc-regex-compat)[home-page]: Likewise.
* gnu/packages/image.scm (imlib2)[home-page]: Likewise.
* gnu/packages/libreoffice.scm (librevenge, libcmis, libodfgen, libmwaw)
[home-page]: Likewise.
* gnu/packages/linux.scm (hdparm, acpid, libavc1394, rng-tools)
[home-page]: Likewise.
* gnu/packages/mail.scm (esmtp)[home-page]: Likewise.
* gnu/packages/mp3.scm (ripperx)[home-page]: Likewise.
* gnu/packages/onc-rpc.scm (libtirpc)[home-page]: Likewise.
* gnu/packages/perl.scm (perl-czplib)[home-page]: Likewise.
* gnu/packages/python.scm (python-pyasn1-modules)[home-page]: Likewise.
* gnu/packages/xdisorg.scm (xosd)[home-page]: Likewise.
2017-01-04 01:30:46 +01:00
|
|
|
|
(home-page "https://sourceforge.net/projects/acpid2/")
|
2015-02-13 11:24:00 +01:00
|
|
|
|
(synopsis "Daemon for delivering ACPI events to user-space programs")
|
|
|
|
|
(description
|
|
|
|
|
"acpid is designed to notify user-space programs of Advanced
|
|
|
|
|
Configuration and Power Interface (ACPI) events. acpid should be started
|
|
|
|
|
during the system boot, and will run as a background process. When an ACPI
|
|
|
|
|
event is received from the kernel, acpid will examine the list of rules
|
|
|
|
|
specified in /etc/acpi/events and execute the rules that match the event.")
|
2015-12-19 00:30:33 +01:00
|
|
|
|
(license license:gpl2+)))
|
2015-02-18 21:20:38 +01:00
|
|
|
|
|
|
|
|
|
(define-public sysfsutils
|
|
|
|
|
(package
|
|
|
|
|
(name "sysfsutils")
|
|
|
|
|
(version "2.1.0")
|
|
|
|
|
(source
|
|
|
|
|
(origin
|
|
|
|
|
(method url-fetch)
|
|
|
|
|
(uri
|
|
|
|
|
(string-append
|
|
|
|
|
"mirror://sourceforge/linux-diag/sysfsutils/" version "/sysfsutils-"
|
|
|
|
|
version ".tar.gz"))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32 "12i0ip11xbfcjzxz4r10cvz7mbzgq1hfcdn97w6zz7sm3wndwrg8"))))
|
|
|
|
|
(build-system gnu-build-system)
|
|
|
|
|
(home-page "http://linux-diag.sourceforge.net/Sysfsutils.html")
|
|
|
|
|
(synopsis "System utilities based on Linux sysfs")
|
|
|
|
|
(description
|
2016-09-16 08:08:48 +02:00
|
|
|
|
"These are a set of utilities built upon sysfs, a virtual file system in
|
2015-02-18 21:20:38 +01:00
|
|
|
|
Linux kernel versions 2.5+ that exposes a system's device tree. The package
|
|
|
|
|
also contains the libsysfs library.")
|
|
|
|
|
;; The library is under lgpl2.1+ (all files say "or any later version").
|
|
|
|
|
;; The rest is mostly gpl2, with a few files indicating gpl2+.
|
2015-12-19 00:30:33 +01:00
|
|
|
|
(license (list license:gpl2 license:gpl2+ license:lgpl2.1+))))
|
2015-02-18 22:17:01 +01:00
|
|
|
|
|
|
|
|
|
(define-public sysfsutils-1
|
|
|
|
|
(package
|
|
|
|
|
(inherit sysfsutils)
|
|
|
|
|
(version "1.3.0")
|
|
|
|
|
(source
|
|
|
|
|
(origin
|
|
|
|
|
(method url-fetch)
|
|
|
|
|
(uri
|
|
|
|
|
(string-append
|
|
|
|
|
"mirror://sourceforge/linux-diag/sysfsutils/sysfsutils-" version
|
|
|
|
|
"/sysfsutils-" version ".tar.gz"))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32 "0kdhs07fm8263pxwd5blwn2x211cg4fk63fyf9ijcdkvzmwxrqq3"))
|
|
|
|
|
(modules '((guix build utils)))
|
|
|
|
|
(snippet
|
|
|
|
|
'(begin
|
|
|
|
|
(substitute* "Makefile.in"
|
|
|
|
|
(("includedir = /usr/include/sysfs")
|
|
|
|
|
"includedir = @includedir@"))
|
|
|
|
|
(substitute* "configure"
|
|
|
|
|
(("includedir='(\\$\\{prefix\\}/include)'" all orig)
|
|
|
|
|
(string-append "includedir='" orig "/sysfs'")))))))
|
|
|
|
|
(synopsis "System utilities based on Linux sysfs (version 1.x)")))
|
2015-02-18 21:20:57 +01:00
|
|
|
|
|
|
|
|
|
(define-public cpufrequtils
|
|
|
|
|
(package
|
|
|
|
|
(name "cpufrequtils")
|
|
|
|
|
(version "0.3")
|
|
|
|
|
(source
|
|
|
|
|
(origin
|
|
|
|
|
(method url-fetch)
|
|
|
|
|
(uri
|
|
|
|
|
(string-append
|
|
|
|
|
"https://www.kernel.org/pub/linux/utils/kernel/cpufreq/cpufrequtils-"
|
|
|
|
|
version ".tar.gz"))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32 "0qfqv7nqmjfr3p0bwrdlxkiqwqr7vmx053cadaa548ybqbghxmvm"))
|
2016-04-08 14:18:13 +02:00
|
|
|
|
(patches (search-patches "cpufrequtils-fix-aclocal.patch"))))
|
2015-02-18 21:20:57 +01:00
|
|
|
|
(build-system gnu-build-system)
|
|
|
|
|
(native-inputs
|
|
|
|
|
`(("sysfsutils" ,sysfsutils-1)))
|
|
|
|
|
(arguments
|
|
|
|
|
'(#:make-flags (list (string-append "LDFLAGS=-Wl,-rpath="
|
|
|
|
|
(assoc-ref %outputs "out") "/lib"))))
|
|
|
|
|
(home-page "https://www.kernel.org/pub/linux/utils/kernel/cpufreq/")
|
|
|
|
|
(synopsis "Utilities to get and set CPU frequency on Linux")
|
|
|
|
|
(description
|
gnu packages: Clean up synopses and descriptions.
* gnu/packages/admin.scm, gnu/packages/algebra.scm, gnu/packages/audio.scm,
gnu/packages/backup.scm, gnu/packages/base.scm, gnu/packages/bittorrent.scm,
gnu/packages/code.scm, gnu/packages/compression.scm,
gnu/packages/databases.scm, gnu/packages/enchant.scm,
gnu/packages/firmware.scm, gnu/packages/fonts.scm,
gnu/packages/freedesktop.scm, gnu/packages/games.scm, gnu/packages/gd.scm,
gnu/packages/gl.scm, gnu/packages/gnome.scm, gnu/packages/gsasl.scm,
gnu/packages/gstreamer.scm, gnu/packages/gtk.scm, gnu/packages/guile.scm,
gnu/packages/haskell.scm, gnu/packages/language.scm,
gnu/packages/lesstif.scm, gnu/packages/libreoffice.scm,
gnu/packages/linux.scm, gnu/packages/llvm.scm, gnu/packages/maths.scm,
gnu/packages/mcrypt.scm, gnu/packages/mit-krb5.scm, gnu/packages/mp3.scm,
gnu/packages/ncdu.scm, gnu/packages/networking.scm, gnu/packages/ntp.scm,
gnu/packages/ocaml.scm, gnu/packages/openbox.scm, gnu/packages/pdf.scm,
gnu/packages/perl.scm, gnu/packages/pretty-print.scm,
gnu/packages/pulseaudio.scm, gnu/packages/python.scm,
gnu/packages/rdesktop.scm, gnu/packages/rdf.scm, gnu/packages/ruby.scm,
gnu/packages/slang.scm, gnu/packages/slim.scm, gnu/packages/telephony.scm,
gnu/packages/tls.scm, gnu/packages/tmux.scm, gnu/packages/tre.scm,
gnu/packages/unrtf.scm, gnu/packages/version-control.scm,
gnu/packages/vpn.scm, gnu/packages/web.scm, gnu/packages/wget.scm,
gnu/packages/xdisorg.scm, gnu/packages/xfce.scm, gnu/packages/xiph.scm:
Fix typos. Trim long lines. Add missing periods in the end of sentences.
Use double spaces between sentences. Remove trailing whitespaces.
2015-07-17 14:16:07 +02:00
|
|
|
|
"The cpufrequtils suite contains utilities to retrieve CPU frequency
|
2015-02-18 21:20:57 +01:00
|
|
|
|
information, and set the CPU frequency if supported, using the cpufreq
|
|
|
|
|
capabilities of the Linux kernel.")
|
2015-12-19 00:30:33 +01:00
|
|
|
|
(license license:gpl2)))
|
2015-04-04 10:00:05 +02:00
|
|
|
|
|
|
|
|
|
(define-public libraw1394
|
|
|
|
|
(package
|
|
|
|
|
(name "libraw1394")
|
2016-12-15 23:47:40 +01:00
|
|
|
|
(version "2.1.2")
|
2015-04-04 10:00:05 +02:00
|
|
|
|
(source (origin
|
|
|
|
|
(method url-fetch)
|
|
|
|
|
(uri (string-append
|
|
|
|
|
"mirror://kernel.org/linux/libs/ieee1394/"
|
|
|
|
|
name "-" version ".tar.xz"))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
2016-12-15 23:47:40 +01:00
|
|
|
|
"0pm5b415j1qdzyw38wdv8h7ff4yx20831z1727mpsb6jc6bwdk03"))))
|
2015-04-04 10:00:05 +02:00
|
|
|
|
(build-system gnu-build-system)
|
|
|
|
|
(home-page "https://ieee1394.wiki.kernel.org/index.php/Main_Page")
|
|
|
|
|
(synopsis "Interface library for the Linux IEEE1394 drivers")
|
|
|
|
|
(description
|
|
|
|
|
"Libraw1394 is the only supported interface to the kernel side raw1394 of
|
|
|
|
|
the Linux IEEE-1394 subsystem, which provides direct access to the connected
|
|
|
|
|
1394 buses to user space. Through libraw1394/raw1394, applications can directly
|
|
|
|
|
send to and receive from other nodes without requiring a kernel driver for the
|
|
|
|
|
protocol in question.")
|
2015-12-19 00:30:33 +01:00
|
|
|
|
(license license:lgpl2.1+)))
|
2015-04-04 10:19:18 +02:00
|
|
|
|
|
|
|
|
|
(define-public libavc1394
|
|
|
|
|
(package
|
|
|
|
|
(name "libavc1394")
|
|
|
|
|
(version "0.5.4")
|
|
|
|
|
(source (origin
|
|
|
|
|
(method url-fetch)
|
2016-07-21 08:35:30 +02:00
|
|
|
|
(uri (string-append "mirror://sourceforge/libavc1394/libavc1394/"
|
2015-04-04 10:19:18 +02:00
|
|
|
|
name "-" version ".tar.gz"))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
|
|
|
|
"0lsv46jdqvdx5hx92v0z2cz3yh6212pz9gk0k3513sbaa04zzcbw"))))
|
|
|
|
|
(build-system gnu-build-system)
|
|
|
|
|
(native-inputs
|
|
|
|
|
`(("pkg-config" ,pkg-config)))
|
|
|
|
|
(propagated-inputs
|
|
|
|
|
`(("libraw1394" ,libraw1394))) ; required by libavc1394.pc
|
gnu: Use HTTPS for all sourceforge.net home pages.
* gnu/packages/admin.scm (mingetty, clusterssh)[home-page]: Use HTTPS.
* gnu/packages/audio.scm (libbs2b, soxr)[home-page]: Likewise.
* gnu/packages/bioinformatics.scm (bless)[home-page]: Likewise.
* gnu/packages/display-managers.scm (slim)[home-page]: Likewise.
* gnu/packages/games.scm (extremetuxracer)[home-page]: Likewise.
* gnu/packages/ghostscript.scm (gs-fonts)[home-page]: Likewise.
* gnu/packages/haskell.scm (ghc-regex-base, ghc-regex-posix,
ghc-regex-compat)[home-page]: Likewise.
* gnu/packages/image.scm (imlib2)[home-page]: Likewise.
* gnu/packages/libreoffice.scm (librevenge, libcmis, libodfgen, libmwaw)
[home-page]: Likewise.
* gnu/packages/linux.scm (hdparm, acpid, libavc1394, rng-tools)
[home-page]: Likewise.
* gnu/packages/mail.scm (esmtp)[home-page]: Likewise.
* gnu/packages/mp3.scm (ripperx)[home-page]: Likewise.
* gnu/packages/onc-rpc.scm (libtirpc)[home-page]: Likewise.
* gnu/packages/perl.scm (perl-czplib)[home-page]: Likewise.
* gnu/packages/python.scm (python-pyasn1-modules)[home-page]: Likewise.
* gnu/packages/xdisorg.scm (xosd)[home-page]: Likewise.
2017-01-04 01:30:46 +01:00
|
|
|
|
(home-page "https://sourceforge.net/projects/libavc1394/")
|
2015-04-04 10:19:18 +02:00
|
|
|
|
(synopsis "AV/C protocol library for IEEE 1394")
|
|
|
|
|
(description
|
|
|
|
|
"Libavc1394 is a programming interface to the AV/C specification from
|
2015-07-23 09:40:05 +02:00
|
|
|
|
the 1394 Trade Association. AV/C stands for Audio/Video Control.")
|
2015-12-19 00:30:33 +01:00
|
|
|
|
(license license:lgpl2.1+)))
|
2015-04-07 07:22:40 +02:00
|
|
|
|
|
|
|
|
|
(define-public libiec61883
|
|
|
|
|
(package
|
|
|
|
|
(name "libiec61883")
|
|
|
|
|
(version "1.2.0")
|
|
|
|
|
(source (origin
|
|
|
|
|
(method url-fetch)
|
|
|
|
|
(uri (string-append
|
|
|
|
|
"mirror://kernel.org/linux/libs/ieee1394/"
|
|
|
|
|
name "-" version ".tar.xz"))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
|
|
|
|
"17ph458zya2l8dr2xwqnzy195qd9swrir31g78qkgb3g4xz2rq6i"))))
|
|
|
|
|
(build-system gnu-build-system)
|
|
|
|
|
(native-inputs
|
|
|
|
|
`(("pkg-config" ,pkg-config)))
|
|
|
|
|
(propagated-inputs
|
|
|
|
|
`(("libraw1394" ,libraw1394))) ; required by libiec61883.pc
|
|
|
|
|
(home-page "https://ieee1394.wiki.kernel.org/index.php/Main_Page")
|
|
|
|
|
(synopsis "Isochronous streaming media library for IEEE 1394")
|
|
|
|
|
(description
|
|
|
|
|
"The libiec61883 library provides a higher level API for streaming DV,
|
|
|
|
|
MPEG-2 and audio over Linux IEEE 1394.")
|
2015-12-19 00:30:33 +01:00
|
|
|
|
(license license:lgpl2.1+)))
|
2015-04-09 03:00:32 +02:00
|
|
|
|
|
|
|
|
|
(define-public mdadm
|
|
|
|
|
(package
|
|
|
|
|
(name "mdadm")
|
2017-01-31 23:48:59 +01:00
|
|
|
|
(version "4.0")
|
2015-04-09 03:00:32 +02:00
|
|
|
|
(source (origin
|
|
|
|
|
(method url-fetch)
|
|
|
|
|
(uri (string-append
|
|
|
|
|
"mirror://kernel.org/linux/utils/raid/mdadm/mdadm-"
|
|
|
|
|
version ".tar.xz"))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
2017-01-31 23:48:59 +01:00
|
|
|
|
"1ad3mma641946wn5lsllwf0lifw9lps34fv1nnkhyfpd9krffshx"))))
|
2015-04-09 03:00:32 +02:00
|
|
|
|
(build-system gnu-build-system)
|
|
|
|
|
(inputs
|
|
|
|
|
`(("udev" ,eudev)))
|
|
|
|
|
(arguments
|
|
|
|
|
`(#:make-flags (let ((out (assoc-ref %outputs "out")))
|
2017-01-31 23:48:59 +01:00
|
|
|
|
(list "CC=gcc"
|
|
|
|
|
"INSTALL=install"
|
2015-04-09 03:00:32 +02:00
|
|
|
|
"CHECK_RUN_DIR=0"
|
|
|
|
|
;; TODO: tell it where to find 'sendmail'
|
|
|
|
|
;; (string-append "MAILCMD=" <???> "/sbin/sendmail")
|
|
|
|
|
(string-append "BINDIR=" out "/sbin")
|
|
|
|
|
(string-append "MANDIR=" out "/share/man")
|
|
|
|
|
(string-append "UDEVDIR=" out "/lib/udev")))
|
gnu: Use 'modify-phases' syntax.
* gnu/packages/admin.scm (mingetty, clusterssh, wpa-supplicant-minimal,
wpa-supplicant, wakelan, acpica, tree, direvent, dstat)[arguments]: Use
'modify-phases' syntax.
* gnu/packages/algebra.scm (arb)[arguments]: Likewise.
* gnu/packages/apr.scm (apr-util)[arguments]: Likewise.
* gnu/packages/audio.scm (clalsadrv, fluidsynth, faad2, lv2-mda-piano,
lv2-mda-epiano, timidity++, vamp, soundtouch, portaudio, rsound,
zita-convolver, zita-alsa-pcmi)[arguments]: Likewise.
* gnu/packages/backup.scm (rdup, btar)[arguments]: Likewise.
* gnu/packages/bioinformatics.scm (bedops, bwa, crossmap, express,
flexbar, grit, hisat, ngs-sdk, subread)[arguments]: Likewise.
* gnu/packages/bittorrent.scm (transmission)[arguments]: Likewise.
* gnu/packages/cdrom.scm (cd-discid)[arguments]: Likewise.
* gnu/packages/compression.scm (sharutils)[arguments]: Likewise.
* gnu/packages/conky.scm (conky)[arguments]: Likewise.
* gnu/packages/databases.scm (bdb, bdb-5.3)[arguments]: Likewise.
* gnu/packages/debug.scm (delta, c-reduce)[arguments]: Likewise.
* gnu/packages/display-managers.scm (slim)[arguments]: Likewise.
* gnu/packages/dns.scm (dnsmasq)[arguments]: Likewise.
* gnu/packages/emacs.scm (geiser, emacs-wget, bbdb)[arguments]: Likewise.
* gnu/packages/engineering.scm (pcb)[arguments]: Likewise.
* gnu/packages/firmware.scm (ath9k-htc-firmware)[arguments]: Likewise.
* gnu/packages/flashing-tools.scm (flashrom)[arguments]: Likewise.
* gnu/packages/fltk.scm (fltk)[arguments]: Likewise.
* gnu/packages/freedesktop.scm (python-pyxdg)[arguments]: Likewise.
* gnu/packages/gd.scm (perl-gd)[arguments]: Likewise.
* gnu/packages/gkrellm.scm (gkrellm)[arguments]: Likewise.
* gnu/packages/glib.scm (glibmm)[arguments]: Likewise.
* gnu/packages/gl.scm (glew)[arguments]: Likewise.
* gnu/packages/gnome.scm (icon-naming-utils, orbit2, libbonobo, gnome-vfs,
libgnome, libbonoboui, goffice-0.8, dconf)[arguments]: Likewise.
* gnu/packages/gprolog.scm (gprolog)[arguments]: Likewise.
* gnu/packages/gps.scm (gpscorrelate)[arguments]: Likewise.
* gnu/packages/graphics.scm (agg)[arguments]: Likewise.
* gnu/packages/gtk.scm (ganv, girara, gtksourceview-2, guile-present,
python2-pycairo)[arguments]: Likewise.
* gnu/packages/guile.scm (guile-1.8)[arguments]: Likewise.
* gnu/packages/guile-wm.scm (guile-wm)[arguments]: Likewise.
* gnu/packages/hugs.scm (hugs)[arguments]: Likewise.
* gnu/packages/hurd.scm (gnumach-headers, hurd-headers, hurd-minimal)
[arguments]: Likewise.
* gnu/packages/image-viewers.scm (feh, sxiv)[arguments]: Likewise.
* gnu/packages/libcanberra.scm (libcanberra)[arguments]: Likewise.
* gnu/packages/linux.scm (bridge-utils, iw, fuse, unionfs-fuse/static,
lm-sensors, i2c-tools, xsensors, perf, mdadm, libaio, module-init-tools)
[arguments]: Likewise.
* gnu/packages/lisp.scm (ccl)[arguments]: Likewise.
* gnu/packages/lout.scm (lout)[arguments]: Likewise.
* gnu/packages/lua.scm (luajit)[arguments]: Likewise.
* gnu/packages/machine-learning.scm (shogun)[arguments]: Likewise.
* gnu/packages/mail.scm (exim)[arguments]: Likewise.
* gnu/packages/man.scm (man-pages, txt2man)[arguments]: Likewise.
* gnu/packages/maths.scm (lapack, superlu-dist, openlibm, openspecfun)
[arguments]: Likewise.
* gnu/packages/messaging.scm (bitlbee)[arguments]: Likewise.
* gnu/packages/mp3.scm (libmad, id3lib, mp3info)[arguments]: Likewise.
* gnu/packages/music.scm (solfege)[arguments]: Likewise.
* gnu/packages/noweb.scm (noweb)[arguments]: Likewise.
* gnu/packages/patchutils.scm (patchutils, quilt, colordiff)[arguments]:
Likewise.
* gnu/packages/pdf.scm (xpdf, zathura-cb, zathura-ps, zathura-djvu,
zathura-pdf-poppler, zathura, podofo, fbida)[arguments]: Likewise.
* gnu/packages/perl.scm (perl-file-list, perl-test-harness)[arguments]:
Likewise.
* gnu/packages/photo.scm (gphoto2)[arguments]: Likewise.
* gnu/packages/popt.scm (popt)[arguments]: Likewise.
* gnu/packages/pretty-print.scm (source-highlight, astyle)[arguments]:
Likewise.
* gnu/packages/pumpio.scm (pumpa)[arguments]: Likewise.
* gnu/packages/python.scm (python-passlib, python-pycrypto, python2-empy,
python-sqlalchemy, python-docopt)[arguments]: Likewise.
* gnu/packages/rdf.scm (lrdf)[arguments]: Likewise.
* gnu/packages/regex.scm (tre)[arguments]: Likewise.
* gnu/packages/rrdtool.scm (rrdtool)[arguments]: Likewise.
* gnu/packages/ruby.scm (ruby-2.1, ruby-1.8)[arguments]: Likewise.
* gnu/packages/sawfish.scm (sawfish)[arguments]: Likewise.
* gnu/packages/scheme.scm (racket)[arguments]: Likewise.
* gnu/packages/sdl.scm (guile-sdl)[arguments]: Likewise.
* gnu/packages/serveez.scm (serveez)[arguments]: Likewise.
* gnu/packages/skribilo.scm (skribilo)[arguments]: Likewise.
* gnu/packages/smalltalk.scm (smalltalk)[arguments]: Likewise.
* gnu/packages/suckless.scm (dmenu, slock)[arguments]: Likewise.
* gnu/packages/tcl.scm (expect)[arguments]: Likewise.
* gnu/packages/telephony.scm (commoncpp)[arguments]: Likewise.
* gnu/packages/textutils.scm (recode, libgtextutils)[arguments]:
Likewise.
* gnu/packages/time.scm (time)[arguments]: Likewise.
* gnu/packages/tor.scm (privoxy)[arguments]: Likewise.
* gnu/packages/uucp.scm (uucp)[arguments]: Likewise.
* gnu/packages/video.scm (libdvdnav-4)[arguments]: Likewise.
* gnu/packages/web-browsers.scm (lynx)[arguments]: Likewise.
* gnu/packages/web.scm (tinyproxy)[arguments]: Likewise.
* gnu/packages/wicd.scm (wicd)[arguments]: Likewise.
* gnu/packages/wm.scm (bspwm)[arguments]: Likewise.
* gnu/packages/xdisorg.scm (sxhkd, xcape)[arguments]: Likewise.
* gnu/packages/xfce.scm (xfconf)[arguments]: Likewise.
* gnu/packages/xfig.scm (transfig)[arguments]: Likewise.
* gnu/packages/xorg.scm (imake)[arguments]: Likewise.
2017-07-29 17:28:42 +02:00
|
|
|
|
#:phases
|
|
|
|
|
(modify-phases %standard-phases
|
|
|
|
|
(add-before 'build 'patch-program-paths
|
|
|
|
|
(lambda* (#:key inputs #:allow-other-keys)
|
|
|
|
|
(let ((coreutils (assoc-ref inputs "coreutils")))
|
|
|
|
|
(substitute* "udev-md-raid-arrays.rules"
|
|
|
|
|
(("/usr/bin/(readlink|basename)" all program)
|
|
|
|
|
(string-append coreutils "/bin/" program))))
|
|
|
|
|
#t))
|
|
|
|
|
(add-before 'build 'remove-W-error
|
|
|
|
|
(lambda _
|
|
|
|
|
;; We cannot build with -Werror on i686 due to a
|
|
|
|
|
;; 'sign-compare' warning in util.c.
|
|
|
|
|
(substitute* "Makefile"
|
|
|
|
|
(("-Werror") ""))
|
|
|
|
|
#t))
|
|
|
|
|
(delete 'configure))
|
2015-04-09 03:00:32 +02:00
|
|
|
|
;;tests must be done as root
|
|
|
|
|
#:tests? #f))
|
|
|
|
|
(home-page "http://neil.brown.name/blog/mdadm")
|
|
|
|
|
(synopsis "Tool for managing Linux Software RAID arrays")
|
|
|
|
|
(description
|
|
|
|
|
"mdadm is a tool for managing Linux Software RAID arrays. It can create,
|
|
|
|
|
assemble, report on, and monitor arrays. It can also move spares between raid
|
|
|
|
|
arrays when needed.")
|
2015-12-19 00:30:33 +01:00
|
|
|
|
(license license:gpl2+)))
|
2015-04-16 10:47:44 +02:00
|
|
|
|
|
2016-10-27 11:18:53 +02:00
|
|
|
|
(define-public mdadm-static
|
|
|
|
|
(package
|
|
|
|
|
(inherit mdadm)
|
|
|
|
|
(name "mdadm-static")
|
|
|
|
|
(arguments
|
|
|
|
|
(substitute-keyword-arguments (package-arguments mdadm)
|
|
|
|
|
((#:make-flags flags)
|
|
|
|
|
`(cons "LDFLAGS = -static" ,flags))
|
|
|
|
|
((#:phases phases)
|
|
|
|
|
`(modify-phases ,phases
|
|
|
|
|
(add-after 'install 'remove-cruft
|
|
|
|
|
(lambda* (#:key outputs #:allow-other-keys)
|
|
|
|
|
(let* ((out (assoc-ref outputs "out"))
|
|
|
|
|
(precious? (lambda (file)
|
|
|
|
|
(member file '("." ".." "sbin"))))
|
|
|
|
|
(directories (scandir out (negate precious?))))
|
|
|
|
|
(with-directory-excursion out
|
|
|
|
|
(for-each delete-file-recursively directories)
|
|
|
|
|
(remove-store-references "sbin/mdadm")
|
|
|
|
|
(delete-file "sbin/mdmon")
|
|
|
|
|
#t))))))
|
|
|
|
|
((#:modules modules %gnu-build-system-modules)
|
|
|
|
|
`((ice-9 ftw) ,@modules))
|
|
|
|
|
((#:strip-flags _ '())
|
|
|
|
|
''("--strip-all")) ;strip a few extra KiB
|
|
|
|
|
((#:allowed-references _ '("out"))
|
|
|
|
|
'("out")))) ;refer only self
|
|
|
|
|
(synopsis "Statically-linked 'mdadm' command for use in an initrd")))
|
|
|
|
|
|
2017-02-16 01:02:08 +01:00
|
|
|
|
(define-public multipath-tools
|
|
|
|
|
(package
|
|
|
|
|
(name "multipath-tools")
|
2018-04-25 12:45:39 +02:00
|
|
|
|
(version "0.7.6")
|
2017-02-16 01:02:08 +01:00
|
|
|
|
(source (origin
|
|
|
|
|
(method url-fetch)
|
2018-03-04 05:54:48 +01:00
|
|
|
|
(uri (string-append "https://git.opensvc.com/?p=multipath-tools/"
|
2017-02-16 01:02:08 +01:00
|
|
|
|
".git;a=snapshot;h=" version ";sf=tgz"))
|
|
|
|
|
(file-name (string-append name "-" version ".tar.gz"))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
2018-04-25 12:45:39 +02:00
|
|
|
|
"0zkcayi3mmp43ji2zid1gprgsvqhjjapsw7jjd60sf75prf50h2r"))
|
2017-02-16 01:02:08 +01:00
|
|
|
|
(modules '((guix build utils)))
|
|
|
|
|
(snippet
|
|
|
|
|
'(begin
|
|
|
|
|
;; Drop bundled valgrind headers.
|
|
|
|
|
(delete-file-recursively "third-party")
|
|
|
|
|
(substitute* '("multipathd/main.c"
|
|
|
|
|
"libmultipath/debug.c")
|
|
|
|
|
(("#include \"../third-party/")
|
|
|
|
|
"#include \""))
|
|
|
|
|
#t))))
|
|
|
|
|
(build-system gnu-build-system)
|
|
|
|
|
(arguments
|
|
|
|
|
'(#:tests? #f ; No tests.
|
|
|
|
|
#:make-flags (list (string-append "DESTDIR="
|
|
|
|
|
(assoc-ref %outputs "out"))
|
2017-04-18 15:30:22 +02:00
|
|
|
|
"SYSTEMDPATH=lib"
|
2017-02-16 01:02:08 +01:00
|
|
|
|
(string-append "LDFLAGS=-Wl,-rpath="
|
|
|
|
|
(assoc-ref %outputs "out")
|
|
|
|
|
"/lib"))
|
|
|
|
|
#:phases
|
|
|
|
|
(modify-phases %standard-phases
|
2017-04-18 15:30:22 +02:00
|
|
|
|
(add-after 'unpack 'patch-source
|
2017-04-18 15:42:40 +02:00
|
|
|
|
(lambda* (#:key inputs #:allow-other-keys)
|
|
|
|
|
(let ((lvm2 (assoc-ref inputs "lvm2"))
|
|
|
|
|
(udev (assoc-ref inputs "udev")))
|
|
|
|
|
(substitute* "Makefile.inc"
|
|
|
|
|
(("\\$\\(prefix\\)/usr") "$(prefix)"))
|
|
|
|
|
(substitute* '("kpartx/Makefile" "libmultipath/Makefile")
|
|
|
|
|
(("/usr/include/libdevmapper.h")
|
|
|
|
|
(string-append lvm2 "/include/libdevmapper.h"))
|
|
|
|
|
(("/usr/include/libudev.h")
|
|
|
|
|
(string-append udev "/include/libudev.h")))
|
|
|
|
|
#t)))
|
2017-02-16 01:02:08 +01:00
|
|
|
|
(delete 'configure)
|
|
|
|
|
(add-before 'build 'set-CC
|
|
|
|
|
(lambda _
|
|
|
|
|
(setenv "CC" "gcc")
|
|
|
|
|
#t)))))
|
|
|
|
|
(native-inputs
|
2017-04-18 15:42:40 +02:00
|
|
|
|
`(("perl" ,perl)
|
|
|
|
|
("pkg-config" ,pkg-config)
|
|
|
|
|
("valgrind" ,valgrind)))
|
2017-02-16 01:02:08 +01:00
|
|
|
|
(inputs
|
|
|
|
|
`(("ceph:lib" ,ceph "lib")
|
2017-04-18 15:42:40 +02:00
|
|
|
|
("json-c" ,json-c)
|
2017-02-16 01:02:08 +01:00
|
|
|
|
("libaio" ,libaio)
|
|
|
|
|
("liburcu" ,liburcu)
|
|
|
|
|
("lvm2" ,lvm2)
|
|
|
|
|
("readline" ,readline)
|
|
|
|
|
("udev" ,eudev)))
|
|
|
|
|
(home-page "http://christophe.varoqui.free.fr/")
|
|
|
|
|
(synopsis "Access block devices through multiple paths")
|
|
|
|
|
(description
|
|
|
|
|
"This package provides the following binaries to drive the
|
|
|
|
|
Linux Device Mapper multipathing driver:
|
|
|
|
|
@enumerate
|
|
|
|
|
@item @command{multipath} - Device mapper target autoconfig.
|
|
|
|
|
@item @command{multipathd} - Multipath daemon.
|
|
|
|
|
@item @command{mpathpersist} - Manages SCSI persistent reservations on
|
|
|
|
|
@code{dm} multipath devices.
|
|
|
|
|
@item @command{kpartx} - Create device maps from partition tables.
|
|
|
|
|
@end enumerate")
|
|
|
|
|
(license (list license:gpl2+ ; Main distribution.
|
|
|
|
|
license:lgpl2.0+)))) ; libmpathcmd/mpath_cmd.h
|
|
|
|
|
|
2015-04-16 10:47:44 +02:00
|
|
|
|
(define-public libaio
|
|
|
|
|
(package
|
|
|
|
|
(name "libaio")
|
|
|
|
|
(version "0.3.110")
|
|
|
|
|
(source (origin
|
|
|
|
|
(method url-fetch)
|
|
|
|
|
(uri (list
|
|
|
|
|
(string-append "mirror://debian/pool/main/liba/libaio/"
|
2017-05-11 04:41:40 +02:00
|
|
|
|
name "_" version ".orig.tar.gz")))
|
2015-04-16 10:47:44 +02:00
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
|
|
|
|
"0zjzfkwd1kdvq6zpawhzisv7qbq1ffs343i5fs9p498pcf7046g0"))))
|
|
|
|
|
(build-system gnu-build-system)
|
|
|
|
|
(arguments
|
|
|
|
|
'(#:make-flags
|
|
|
|
|
(list "CC=gcc" (string-append "prefix=" %output))
|
|
|
|
|
#:test-target "partcheck" ; need root for a full 'check'
|
|
|
|
|
#:phases
|
gnu: Use 'modify-phases' syntax.
* gnu/packages/admin.scm (mingetty, clusterssh, wpa-supplicant-minimal,
wpa-supplicant, wakelan, acpica, tree, direvent, dstat)[arguments]: Use
'modify-phases' syntax.
* gnu/packages/algebra.scm (arb)[arguments]: Likewise.
* gnu/packages/apr.scm (apr-util)[arguments]: Likewise.
* gnu/packages/audio.scm (clalsadrv, fluidsynth, faad2, lv2-mda-piano,
lv2-mda-epiano, timidity++, vamp, soundtouch, portaudio, rsound,
zita-convolver, zita-alsa-pcmi)[arguments]: Likewise.
* gnu/packages/backup.scm (rdup, btar)[arguments]: Likewise.
* gnu/packages/bioinformatics.scm (bedops, bwa, crossmap, express,
flexbar, grit, hisat, ngs-sdk, subread)[arguments]: Likewise.
* gnu/packages/bittorrent.scm (transmission)[arguments]: Likewise.
* gnu/packages/cdrom.scm (cd-discid)[arguments]: Likewise.
* gnu/packages/compression.scm (sharutils)[arguments]: Likewise.
* gnu/packages/conky.scm (conky)[arguments]: Likewise.
* gnu/packages/databases.scm (bdb, bdb-5.3)[arguments]: Likewise.
* gnu/packages/debug.scm (delta, c-reduce)[arguments]: Likewise.
* gnu/packages/display-managers.scm (slim)[arguments]: Likewise.
* gnu/packages/dns.scm (dnsmasq)[arguments]: Likewise.
* gnu/packages/emacs.scm (geiser, emacs-wget, bbdb)[arguments]: Likewise.
* gnu/packages/engineering.scm (pcb)[arguments]: Likewise.
* gnu/packages/firmware.scm (ath9k-htc-firmware)[arguments]: Likewise.
* gnu/packages/flashing-tools.scm (flashrom)[arguments]: Likewise.
* gnu/packages/fltk.scm (fltk)[arguments]: Likewise.
* gnu/packages/freedesktop.scm (python-pyxdg)[arguments]: Likewise.
* gnu/packages/gd.scm (perl-gd)[arguments]: Likewise.
* gnu/packages/gkrellm.scm (gkrellm)[arguments]: Likewise.
* gnu/packages/glib.scm (glibmm)[arguments]: Likewise.
* gnu/packages/gl.scm (glew)[arguments]: Likewise.
* gnu/packages/gnome.scm (icon-naming-utils, orbit2, libbonobo, gnome-vfs,
libgnome, libbonoboui, goffice-0.8, dconf)[arguments]: Likewise.
* gnu/packages/gprolog.scm (gprolog)[arguments]: Likewise.
* gnu/packages/gps.scm (gpscorrelate)[arguments]: Likewise.
* gnu/packages/graphics.scm (agg)[arguments]: Likewise.
* gnu/packages/gtk.scm (ganv, girara, gtksourceview-2, guile-present,
python2-pycairo)[arguments]: Likewise.
* gnu/packages/guile.scm (guile-1.8)[arguments]: Likewise.
* gnu/packages/guile-wm.scm (guile-wm)[arguments]: Likewise.
* gnu/packages/hugs.scm (hugs)[arguments]: Likewise.
* gnu/packages/hurd.scm (gnumach-headers, hurd-headers, hurd-minimal)
[arguments]: Likewise.
* gnu/packages/image-viewers.scm (feh, sxiv)[arguments]: Likewise.
* gnu/packages/libcanberra.scm (libcanberra)[arguments]: Likewise.
* gnu/packages/linux.scm (bridge-utils, iw, fuse, unionfs-fuse/static,
lm-sensors, i2c-tools, xsensors, perf, mdadm, libaio, module-init-tools)
[arguments]: Likewise.
* gnu/packages/lisp.scm (ccl)[arguments]: Likewise.
* gnu/packages/lout.scm (lout)[arguments]: Likewise.
* gnu/packages/lua.scm (luajit)[arguments]: Likewise.
* gnu/packages/machine-learning.scm (shogun)[arguments]: Likewise.
* gnu/packages/mail.scm (exim)[arguments]: Likewise.
* gnu/packages/man.scm (man-pages, txt2man)[arguments]: Likewise.
* gnu/packages/maths.scm (lapack, superlu-dist, openlibm, openspecfun)
[arguments]: Likewise.
* gnu/packages/messaging.scm (bitlbee)[arguments]: Likewise.
* gnu/packages/mp3.scm (libmad, id3lib, mp3info)[arguments]: Likewise.
* gnu/packages/music.scm (solfege)[arguments]: Likewise.
* gnu/packages/noweb.scm (noweb)[arguments]: Likewise.
* gnu/packages/patchutils.scm (patchutils, quilt, colordiff)[arguments]:
Likewise.
* gnu/packages/pdf.scm (xpdf, zathura-cb, zathura-ps, zathura-djvu,
zathura-pdf-poppler, zathura, podofo, fbida)[arguments]: Likewise.
* gnu/packages/perl.scm (perl-file-list, perl-test-harness)[arguments]:
Likewise.
* gnu/packages/photo.scm (gphoto2)[arguments]: Likewise.
* gnu/packages/popt.scm (popt)[arguments]: Likewise.
* gnu/packages/pretty-print.scm (source-highlight, astyle)[arguments]:
Likewise.
* gnu/packages/pumpio.scm (pumpa)[arguments]: Likewise.
* gnu/packages/python.scm (python-passlib, python-pycrypto, python2-empy,
python-sqlalchemy, python-docopt)[arguments]: Likewise.
* gnu/packages/rdf.scm (lrdf)[arguments]: Likewise.
* gnu/packages/regex.scm (tre)[arguments]: Likewise.
* gnu/packages/rrdtool.scm (rrdtool)[arguments]: Likewise.
* gnu/packages/ruby.scm (ruby-2.1, ruby-1.8)[arguments]: Likewise.
* gnu/packages/sawfish.scm (sawfish)[arguments]: Likewise.
* gnu/packages/scheme.scm (racket)[arguments]: Likewise.
* gnu/packages/sdl.scm (guile-sdl)[arguments]: Likewise.
* gnu/packages/serveez.scm (serveez)[arguments]: Likewise.
* gnu/packages/skribilo.scm (skribilo)[arguments]: Likewise.
* gnu/packages/smalltalk.scm (smalltalk)[arguments]: Likewise.
* gnu/packages/suckless.scm (dmenu, slock)[arguments]: Likewise.
* gnu/packages/tcl.scm (expect)[arguments]: Likewise.
* gnu/packages/telephony.scm (commoncpp)[arguments]: Likewise.
* gnu/packages/textutils.scm (recode, libgtextutils)[arguments]:
Likewise.
* gnu/packages/time.scm (time)[arguments]: Likewise.
* gnu/packages/tor.scm (privoxy)[arguments]: Likewise.
* gnu/packages/uucp.scm (uucp)[arguments]: Likewise.
* gnu/packages/video.scm (libdvdnav-4)[arguments]: Likewise.
* gnu/packages/web-browsers.scm (lynx)[arguments]: Likewise.
* gnu/packages/web.scm (tinyproxy)[arguments]: Likewise.
* gnu/packages/wicd.scm (wicd)[arguments]: Likewise.
* gnu/packages/wm.scm (bspwm)[arguments]: Likewise.
* gnu/packages/xdisorg.scm (sxhkd, xcape)[arguments]: Likewise.
* gnu/packages/xfce.scm (xfconf)[arguments]: Likewise.
* gnu/packages/xfig.scm (transfig)[arguments]: Likewise.
* gnu/packages/xorg.scm (imake)[arguments]: Likewise.
2017-07-29 17:28:42 +02:00
|
|
|
|
(modify-phases %standard-phases (delete 'configure)))) ; no configure script
|
2015-04-16 10:47:44 +02:00
|
|
|
|
(home-page "http://lse.sourceforge.net/io/aio.html")
|
|
|
|
|
(synopsis "Linux-native asynchronous I/O access library")
|
|
|
|
|
(description
|
|
|
|
|
"This library enables userspace to use Linux kernel asynchronous I/O
|
|
|
|
|
system calls, important for the performance of databases and other advanced
|
|
|
|
|
applications.")
|
2015-12-19 00:30:33 +01:00
|
|
|
|
(license license:lgpl2.1+)))
|
2015-04-26 23:49:53 +02:00
|
|
|
|
|
2016-05-14 11:27:12 +02:00
|
|
|
|
(define-public sbc
|
|
|
|
|
(package
|
|
|
|
|
(name "sbc")
|
|
|
|
|
(version "1.3")
|
|
|
|
|
(source (origin
|
|
|
|
|
(method url-fetch)
|
|
|
|
|
(uri (string-append "https://www.kernel.org/pub/linux/bluetooth/"
|
|
|
|
|
name "-" version ".tar.xz"))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
|
|
|
|
"02ckd2z51z0h85qgv7x8vv8ybp5czm9if1z78411j53gaz7j4476"))))
|
|
|
|
|
(build-system gnu-build-system)
|
|
|
|
|
(inputs
|
|
|
|
|
`(("libsndfile" ,libsndfile)))
|
|
|
|
|
(native-inputs
|
|
|
|
|
`(("pkg-config" ,pkg-config)))
|
|
|
|
|
(home-page "https://www.kernel.org/pub/linux/bluetooth/")
|
|
|
|
|
(synopsis "Bluetooth subband audio codec")
|
|
|
|
|
(description
|
|
|
|
|
"The SBC is a digital audio encoder and decoder used to transfer data to
|
|
|
|
|
Bluetooth audio output devices like headphones or loudspeakers.")
|
|
|
|
|
(license license:gpl2+)))
|
|
|
|
|
|
2015-04-26 23:49:53 +02:00
|
|
|
|
(define-public bluez
|
|
|
|
|
(package
|
|
|
|
|
(name "bluez")
|
2018-03-12 17:40:21 +01:00
|
|
|
|
(version "5.49")
|
2015-04-26 23:49:53 +02:00
|
|
|
|
(source (origin
|
|
|
|
|
(method url-fetch)
|
|
|
|
|
(uri (string-append
|
2016-05-12 20:09:08 +02:00
|
|
|
|
"mirror://kernel.org/linux/bluetooth/bluez-"
|
2015-04-26 23:49:53 +02:00
|
|
|
|
version ".tar.xz"))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
2018-03-12 17:40:21 +01:00
|
|
|
|
"15ffsaz7l3fgdg03l7g1xx9jw7xgs6pc548zxqsxawsca5x1sc1k"))))
|
2015-04-26 23:49:53 +02:00
|
|
|
|
(build-system gnu-build-system)
|
|
|
|
|
(arguments
|
2017-08-05 00:02:55 +02:00
|
|
|
|
`(#:configure-flags
|
2015-04-26 23:49:53 +02:00
|
|
|
|
(let ((out (assoc-ref %outputs "out")))
|
2016-06-17 13:14:10 +02:00
|
|
|
|
(list "--sysconfdir=/etc"
|
|
|
|
|
"--localstatedir=/var"
|
|
|
|
|
"--enable-library"
|
2015-05-23 20:39:57 +02:00
|
|
|
|
"--disable-systemd"
|
2015-04-26 23:49:53 +02:00
|
|
|
|
;; Install dbus/udev files to the correct location.
|
|
|
|
|
(string-append "--with-dbusconfdir=" out "/etc")
|
2016-06-17 14:35:21 +02:00
|
|
|
|
(string-append "--with-udevdir=" out "/lib/udev")))
|
|
|
|
|
#:phases
|
|
|
|
|
(modify-phases %standard-phases
|
2017-10-16 08:36:28 +02:00
|
|
|
|
;; Test unit/test-gatt fails unpredictably. Seems to be a timing
|
|
|
|
|
;; issue (discussion on upstream mailing list:
|
|
|
|
|
;; https://marc.info/?t=149578476300002&r=1&w=2)
|
|
|
|
|
(add-before 'check 'skip-wonky-test
|
|
|
|
|
(lambda _
|
|
|
|
|
(substitute* "unit/test-gatt.c"
|
|
|
|
|
(("tester_init\\(&argc, &argv\\);") "return 77;"))
|
|
|
|
|
#t))
|
2016-06-17 14:35:21 +02:00
|
|
|
|
(add-after 'install 'post-install
|
|
|
|
|
(lambda* (#:key inputs outputs #:allow-other-keys)
|
|
|
|
|
(let* ((out (assoc-ref outputs "out"))
|
|
|
|
|
(servicedir (string-append out "/share/dbus-1/services"))
|
|
|
|
|
(service "obexd/src/org.bluez.obex.service")
|
|
|
|
|
(rule (string-append
|
|
|
|
|
out "/lib/udev/rules.d/97-hid2hci.rules")))
|
|
|
|
|
;; Install the obex dbus service file.
|
|
|
|
|
(substitute* service
|
|
|
|
|
(("/bin/false")
|
|
|
|
|
(string-append out "/libexec/bluetooth/obexd")))
|
|
|
|
|
(install-file service servicedir)
|
|
|
|
|
;; Fix paths in the udev rule.
|
|
|
|
|
(substitute* rule
|
|
|
|
|
(("hid2hci --method")
|
|
|
|
|
(string-append out "/lib/udev/hid2hci --method"))
|
|
|
|
|
(("/sbin/udevadm")
|
|
|
|
|
(string-append (assoc-ref inputs "eudev") "/bin/udevadm")))
|
2017-10-11 18:05:24 +02:00
|
|
|
|
#t))))))
|
2015-04-26 23:49:53 +02:00
|
|
|
|
(native-inputs
|
|
|
|
|
`(("pkg-config" ,pkg-config)
|
2016-09-25 09:33:02 +02:00
|
|
|
|
("gettext" ,gettext-minimal)))
|
2015-04-26 23:49:53 +02:00
|
|
|
|
(inputs
|
|
|
|
|
`(("glib" ,glib)
|
|
|
|
|
("dbus" ,dbus)
|
|
|
|
|
("eudev" ,eudev)
|
|
|
|
|
("libical" ,libical)
|
|
|
|
|
("readline" ,readline)))
|
|
|
|
|
(home-page "http://www.bluez.org/")
|
|
|
|
|
(synopsis "Linux Bluetooth protocol stack")
|
|
|
|
|
(description
|
|
|
|
|
"BlueZ provides support for the core Bluetooth layers and protocols. It
|
|
|
|
|
is flexible, efficient and uses a modular implementation.")
|
2015-12-19 00:30:33 +01:00
|
|
|
|
(license license:gpl2+)))
|
2015-08-20 21:00:09 +02:00
|
|
|
|
|
|
|
|
|
(define-public fuse-exfat
|
|
|
|
|
(package
|
|
|
|
|
(name "fuse-exfat")
|
2018-02-13 10:24:28 +01:00
|
|
|
|
(version "1.2.8")
|
2015-08-20 21:00:09 +02:00
|
|
|
|
(source (origin
|
|
|
|
|
(method url-fetch)
|
2016-12-05 20:29:15 +01:00
|
|
|
|
(uri (string-append
|
|
|
|
|
"https://github.com/relan/exfat/releases/download/v"
|
|
|
|
|
version "/" name "-" version ".tar.gz"))
|
2015-08-20 21:00:09 +02:00
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
2018-02-13 10:24:28 +01:00
|
|
|
|
"1jwnxw0bg9v5ij8xvbg4xpjr50nykq8a1lmc2xkblz204rq7wd8z"))))
|
2015-08-20 21:00:09 +02:00
|
|
|
|
(build-system gnu-build-system)
|
|
|
|
|
(native-inputs
|
2016-12-05 20:29:15 +01:00
|
|
|
|
`(("pkg-config" ,pkg-config)))
|
2015-08-20 21:00:09 +02:00
|
|
|
|
(inputs
|
|
|
|
|
`(("fuse" ,fuse)))
|
2016-12-05 20:29:15 +01:00
|
|
|
|
(home-page "https://github.com/relan/exfat")
|
2015-08-20 21:00:09 +02:00
|
|
|
|
(synopsis "Mount exFAT file systems")
|
|
|
|
|
(description
|
|
|
|
|
"This package provides a FUSE-based file system that provides read and
|
|
|
|
|
write access to exFAT devices.")
|
2015-12-19 00:30:33 +01:00
|
|
|
|
(license license:gpl2+)))
|
2015-11-06 23:49:40 +01:00
|
|
|
|
|
|
|
|
|
(define-public gpm
|
|
|
|
|
(package
|
|
|
|
|
(name "gpm")
|
|
|
|
|
(version "1.20.7")
|
|
|
|
|
(source (origin
|
|
|
|
|
(method url-fetch)
|
|
|
|
|
(uri (string-append
|
|
|
|
|
"http://www.nico.schottelius.org/software/gpm/archives/gpm-"
|
|
|
|
|
version ".tar.bz2"))
|
2018-01-04 05:24:51 +01:00
|
|
|
|
(patches (search-patches "gpm-glibc-2.26.patch"))
|
2015-11-06 23:49:40 +01:00
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
|
|
|
|
"13d426a8h403ckpc8zyf7s2p5rql0lqbg2bv0454x0pvgbfbf4gh"))))
|
|
|
|
|
(build-system gnu-build-system)
|
|
|
|
|
(arguments
|
|
|
|
|
'(#:phases (modify-phases %standard-phases
|
gnu: Put autoconf-related phases immediately after the 'unpack phase.
* gnu/packages/audio.scm (audacity, rtmidi)[arguments]: Correct phases
accordingly.
* gnu/packages/bioinformatics.scm (mash, seek, vsearch, emboss,
htslib-for-sambamba)[arguments]: Likewise.
* gnu/packages/ci.scm (cuirass)[arguments]: Likewise.
* gnu/packages/compression.scm (minizip, xdelta)[arguments]: Likewise.
* gnu/packages/cpp.scm (libzen)[arguments]: Likewise.
* gnu/packages/crypto.scm (opendht)[arguments]: Likewise.
* gnu/packages/databases.scm (4store, mdbtools)[arguments]: Likewise.
* gnu/packages/debug.scm (stress-make)[arguments]: Likewise.
* gnu/packages/dns.scm (dnscrypt-proxy, dnscrypt-wrapper)[arguments]:
Likewise.
* gnu/packages/emacs.scm (emacs-pdf-tools)[arguments]: Likewise.
* gnu/packages/embedded.scm (libjaylink, openocd)[arguments]: Likewise.
* gnu/packages/engineering.scm (gerbv)[arguments]: Likewise.
* gnu/packages/erlang.scm (erlang)[arguments]: Likewise.
* gnu/packages/ftp.scm (weex)[arguments]: Likewise.
* gnu/packages/gnome.scm (dia)[arguments]: Likewise.
* gnu/packages/gnunet.scm (gnurl, guile-gnunet)[arguments]: Likewise.
* gnu/packages/gtk.scm (guile-rsvg, graphene)[arguments]: Likewise.
* gnu/packages/guile.scm (guildhall, guile-ics, guile-sqlite3)[arguments]:
Likewise.
* gnu/packages/ibus.scm (ibus-libpinyin)[arguments]: Likewise.
* gnu/packages/irc.scm (weechat)[arguments]: Likewise.
* gnu/packages/java.scm (classpath-devel)[arguments]: Likewise.
* gnu/packages/libreoffice.scm (libetonyek)[arguments]: Likewise.
* gnu/packages/libusb.scm (hidapi)[arguments]: Likewise.
* gnu/packages/linux.scm (gpm)[arguments]: Likewise.
* gnu/packages/logging.scm (glog)[arguments]: Likewise.
* gnu/packages/machine-learning.scm (ghmm)[arguments]: Likewise.
* gnu/packages/mail.scm (dovecot-trees, dovecot-libsodium-plugin, esmtp)
[arguments]: Likewise.
* gnu/packages/messaging.scm (freetalk, libmesode, libstrophe)[arguments]:
Likewise.
* gnu/packages/microcom.scm (microcom)[arguments]: Likewise.
* gnu/packages/ocaml.scm (ocaml-ssl)[arguments]: Likewise.
* gnu/packages/parallel.scm (slurm)[arguments]: Likewise.
* gnu/packages/pdf.scm (libharu)[arguments]: Likewise.
* gnu/packages/samba.scm (cifs-utils)[arguments]: Likewise.
* gnu/packages/serialization.scm (msgpack)[arguments]: Likewise.
* gnu/packages/shells.scm (scsh)[arguments]: Likewise.
* gnu/packages/telephony.scm (libiax2)[arguments]: Likewise.
* gnu/packages/textutils.scm (dotconf)[arguments]: Likewise.
* gnu/packages/version-control.scm (findnewest)[arguments]: Likewise.
* gnu/packages/video.scm (libmediainfo, mediainfo)[arguments]: Likewise.
2017-07-31 03:02:35 +02:00
|
|
|
|
(add-after 'unpack 'bootstrap
|
2015-11-06 23:49:40 +01:00
|
|
|
|
(lambda _
|
|
|
|
|
;; The tarball was not generated with 'make dist' so we
|
|
|
|
|
;; need to bootstrap things ourselves.
|
2017-09-04 21:35:25 +02:00
|
|
|
|
(substitute* "autogen.sh"
|
|
|
|
|
(("/bin/sh") (which "sh")))
|
2015-11-06 23:49:40 +01:00
|
|
|
|
(and (zero? (system* "./autogen.sh"))
|
|
|
|
|
(begin
|
|
|
|
|
(patch-makefile-SHELL "Makefile.include.in")
|
|
|
|
|
#t)))))
|
|
|
|
|
|
|
|
|
|
;; Make sure programs find libgpm.so.
|
|
|
|
|
#:configure-flags (list (string-append "LDFLAGS=-Wl,-rpath="
|
|
|
|
|
(assoc-ref %outputs "out")
|
|
|
|
|
"/lib"))))
|
|
|
|
|
(native-inputs
|
|
|
|
|
`(("texinfo" ,texinfo)
|
|
|
|
|
("bison" ,bison)
|
|
|
|
|
("flex" ,flex)
|
|
|
|
|
("autoconf" ,autoconf)
|
|
|
|
|
("automake" ,automake)
|
|
|
|
|
("libtool" ,libtool)))
|
|
|
|
|
(home-page "http://www.nico.schottelius.org/software/gpm/")
|
|
|
|
|
(synopsis "Mouse support for the Linux console")
|
|
|
|
|
(description
|
|
|
|
|
"The GPM (general-purpose mouse) daemon is a mouse server for
|
|
|
|
|
applications running on the Linux console. It allows users to select items
|
|
|
|
|
and copy/paste text in the console and in xterm.")
|
2015-12-19 00:30:33 +01:00
|
|
|
|
(license license:gpl2+)))
|
2016-02-10 05:01:46 +01:00
|
|
|
|
|
|
|
|
|
(define-public btrfs-progs
|
|
|
|
|
(package
|
|
|
|
|
(name "btrfs-progs")
|
2018-01-05 20:32:15 +01:00
|
|
|
|
(version "4.14.1")
|
2016-02-10 05:01:46 +01:00
|
|
|
|
(source (origin
|
|
|
|
|
(method url-fetch)
|
|
|
|
|
(uri (string-append "mirror://kernel.org/linux/kernel/"
|
|
|
|
|
"people/kdave/btrfs-progs/"
|
|
|
|
|
"btrfs-progs-v" version ".tar.xz"))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
2018-01-05 20:32:15 +01:00
|
|
|
|
"1palnddw3d50kyflwk1j4xapbc6jniid6j5i9dsr8l8a7nkv7ich"))))
|
2016-02-10 05:01:46 +01:00
|
|
|
|
(build-system gnu-build-system)
|
2016-04-03 21:36:29 +02:00
|
|
|
|
(outputs '("out"
|
2017-07-28 16:31:00 +02:00
|
|
|
|
"static")) ; static versions of the binaries in "out"
|
2016-02-10 05:01:46 +01:00
|
|
|
|
(arguments
|
2016-04-03 21:36:29 +02:00
|
|
|
|
'(#:phases (modify-phases %standard-phases
|
|
|
|
|
(add-after 'build 'build-static
|
|
|
|
|
(lambda _ (zero? (system* "make" "static"))))
|
2017-09-14 15:30:02 +02:00
|
|
|
|
(add-after 'install 'install-bash-completion
|
|
|
|
|
(lambda* (#:key outputs #:allow-other-keys)
|
2018-02-17 15:56:01 +01:00
|
|
|
|
(let* ((out (assoc-ref outputs "out"))
|
|
|
|
|
(bashcomp (string-append out "/etc/bash_completion.d")))
|
|
|
|
|
(mkdir-p bashcomp)
|
|
|
|
|
(copy-file "btrfs-completion"
|
|
|
|
|
(string-append bashcomp "/btrfs"))
|
|
|
|
|
#t)))
|
2016-04-03 21:36:29 +02:00
|
|
|
|
(add-after 'install 'install-static
|
|
|
|
|
(let ((staticbin (string-append (assoc-ref %outputs "static")
|
|
|
|
|
"/bin")))
|
|
|
|
|
(lambda _
|
|
|
|
|
(zero? (system* "make"
|
|
|
|
|
(string-append "bindir=" staticbin)
|
|
|
|
|
"install-static"))))))
|
|
|
|
|
#:test-target "test"
|
2016-02-10 05:01:46 +01:00
|
|
|
|
#:parallel-tests? #f)) ; tests fail when run in parallel
|
|
|
|
|
(inputs `(("e2fsprogs" ,e2fsprogs)
|
|
|
|
|
("libblkid" ,util-linux)
|
2016-04-03 21:36:29 +02:00
|
|
|
|
("libblkid:static" ,util-linux "static")
|
2016-02-10 05:01:46 +01:00
|
|
|
|
("libuuid" ,util-linux)
|
2016-04-03 21:36:29 +02:00
|
|
|
|
("libuuid:static" ,util-linux "static")
|
2017-09-26 11:50:47 +02:00
|
|
|
|
("lzo" ,lzo)
|
2016-02-10 05:01:46 +01:00
|
|
|
|
("zlib" ,zlib)
|
2017-09-26 11:50:47 +02:00
|
|
|
|
("zstd" ,zstd)))
|
2016-02-10 05:01:46 +01:00
|
|
|
|
(native-inputs `(("pkg-config" ,pkg-config)
|
|
|
|
|
("asciidoc" ,asciidoc)
|
|
|
|
|
("xmlto" ,xmlto)
|
2016-12-23 20:12:37 +01:00
|
|
|
|
;; For building documentation.
|
2016-02-10 05:01:46 +01:00
|
|
|
|
("libxml2" ,libxml2)
|
2016-07-30 00:26:16 +02:00
|
|
|
|
("docbook-xsl" ,docbook-xsl)
|
2016-12-23 20:12:37 +01:00
|
|
|
|
;; For tests.
|
2017-09-10 01:27:16 +02:00
|
|
|
|
("acl" ,acl)
|
2016-07-30 00:26:16 +02:00
|
|
|
|
("which" ,which)))
|
2016-02-10 05:01:46 +01:00
|
|
|
|
(home-page "https://btrfs.wiki.kernel.org/")
|
|
|
|
|
(synopsis "Create and manage btrfs copy-on-write file systems")
|
2017-03-17 19:33:22 +01:00
|
|
|
|
(description "Btrfs is a @dfn{copy-on-write} (CoW) file system for Linux
|
|
|
|
|
aimed at implementing advanced features while focusing on fault tolerance,
|
|
|
|
|
repair and easy administration.")
|
2016-02-15 03:04:05 +01:00
|
|
|
|
;; GPL2+: crc32.c, radix-tree.c, raid6.c, rbtree.c.
|
|
|
|
|
;; GPL2: Everything else.
|
|
|
|
|
(license (list license:gpl2 license:gpl2+))))
|
2016-03-16 21:45:12 +01:00
|
|
|
|
|
2016-11-30 19:34:31 +01:00
|
|
|
|
(define-public btrfs-progs/static
|
|
|
|
|
(package
|
|
|
|
|
(name "btrfs-progs-static")
|
|
|
|
|
(version (package-version btrfs-progs))
|
|
|
|
|
(source #f)
|
|
|
|
|
(build-system trivial-build-system)
|
|
|
|
|
(inputs
|
|
|
|
|
`(("btrfs-progs:static" ,btrfs-progs "static")))
|
|
|
|
|
(arguments
|
|
|
|
|
`(#:modules ((guix build utils))
|
|
|
|
|
#:builder
|
|
|
|
|
(begin
|
|
|
|
|
(use-modules (guix build utils)
|
|
|
|
|
(ice-9 ftw)
|
|
|
|
|
(srfi srfi-26))
|
|
|
|
|
|
|
|
|
|
(let* ((btrfs (assoc-ref %build-inputs "btrfs-progs:static"))
|
|
|
|
|
(out (assoc-ref %outputs "out"))
|
|
|
|
|
(source (string-append btrfs "/bin/btrfs.static"))
|
|
|
|
|
(target (string-append out "/bin/btrfs")))
|
|
|
|
|
(mkdir-p (dirname target))
|
|
|
|
|
(copy-file source target)
|
|
|
|
|
(remove-store-references target)
|
|
|
|
|
(chmod target #o555)))))
|
|
|
|
|
(home-page (package-home-page btrfs-progs))
|
2017-03-09 22:33:10 +01:00
|
|
|
|
(synopsis "Statically-linked btrfs command from btrfs-progs")
|
|
|
|
|
(description "This package provides the statically-linked @command{btrfs}
|
|
|
|
|
from the btrfs-progs package. It is meant to be used in initrds.")
|
2016-11-30 19:34:31 +01:00
|
|
|
|
(license (package-license btrfs-progs))))
|
|
|
|
|
|
2018-04-26 02:15:55 +02:00
|
|
|
|
(define-public f2fs-tools-1.7
|
2017-07-29 13:24:56 +02:00
|
|
|
|
(package
|
|
|
|
|
(name "f2fs-tools")
|
2018-04-26 02:15:55 +02:00
|
|
|
|
(version "1.7.0")
|
2017-07-29 13:24:56 +02:00
|
|
|
|
(source (origin
|
|
|
|
|
(method url-fetch)
|
|
|
|
|
(uri (string-append
|
|
|
|
|
"https://git.kernel.org/cgit/linux/kernel/git/jaegeuk"
|
|
|
|
|
"/f2fs-tools.git/snapshot/" name "-" version ".tar.gz"))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
2018-04-26 02:15:55 +02:00
|
|
|
|
"1m6bn1ibq0p53m0n97il91xqgjgn2pzlz74lb5bfzassx7159m1k"))))
|
|
|
|
|
|
2017-07-29 13:24:56 +02:00
|
|
|
|
(build-system gnu-build-system)
|
|
|
|
|
(arguments
|
|
|
|
|
`(#:phases
|
|
|
|
|
(modify-phases %standard-phases
|
|
|
|
|
(add-after 'unpack 'bootstrap
|
|
|
|
|
(lambda _
|
2018-04-26 02:15:55 +02:00
|
|
|
|
(zero? (system* "autoreconf" "-vif"))))
|
|
|
|
|
(add-after 'install 'install-headers
|
|
|
|
|
(lambda* (#:key outputs #:allow-other-keys)
|
|
|
|
|
(let* ((out (assoc-ref outputs "out"))
|
|
|
|
|
(out-include (string-append out "/include")))
|
|
|
|
|
(install-file "include/f2fs_fs.h" out-include)
|
|
|
|
|
(install-file "mkfs/f2fs_format_utils.h" out-include)
|
|
|
|
|
#t))))))
|
2017-07-29 13:24:56 +02:00
|
|
|
|
(native-inputs
|
|
|
|
|
`(("autoconf" ,autoconf)
|
|
|
|
|
("automake" ,automake)
|
|
|
|
|
("libtool" ,libtool)
|
|
|
|
|
("pkg-config" ,pkg-config)))
|
|
|
|
|
(inputs
|
2018-04-26 02:15:55 +02:00
|
|
|
|
`(("libuuid" ,util-linux)
|
|
|
|
|
("libselinux" ,libselinux)))
|
2017-07-29 13:24:56 +02:00
|
|
|
|
(home-page "https://f2fs.wiki.kernel.org/")
|
|
|
|
|
(synopsis "Userland tools for f2fs")
|
|
|
|
|
(description
|
|
|
|
|
"F2FS, the Flash-Friendly File System, is a modern file system
|
|
|
|
|
designed to be fast and durable on flash devices such as solid-state
|
|
|
|
|
disks and SD cards. This package provides the userland utilities.")
|
|
|
|
|
;; The formatting utility, libf2fs and include/f2fs_fs.h is dual
|
|
|
|
|
;; GPL2/LGPL2.1, everything else is GPL2 only. See 'COPYING'.
|
|
|
|
|
(license (list license:gpl2 license:lgpl2.1))))
|
|
|
|
|
|
2018-04-26 02:15:55 +02:00
|
|
|
|
(define-public f2fs-tools
|
|
|
|
|
(package
|
|
|
|
|
(inherit f2fs-tools-1.7)
|
|
|
|
|
(name "f2fs-tools")
|
|
|
|
|
(version "1.8.0")
|
|
|
|
|
(source (origin
|
|
|
|
|
(method url-fetch)
|
|
|
|
|
(uri (string-append
|
|
|
|
|
"https://git.kernel.org/cgit/linux/kernel/git/jaegeuk"
|
|
|
|
|
"/f2fs-tools.git/snapshot/" name "-" version ".tar.gz"))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
|
|
|
|
"1bir9ladb58ijlcvrjrq1fb1xv5ys50zdjaq0yzliib0apsyrnyl"))))
|
|
|
|
|
(inputs
|
|
|
|
|
`(("libuuid" ,util-linux)))))
|
|
|
|
|
|
2016-03-16 21:45:12 +01:00
|
|
|
|
(define-public freefall
|
|
|
|
|
(package
|
|
|
|
|
(name "freefall")
|
|
|
|
|
(version (package-version linux-libre))
|
|
|
|
|
(source (package-source linux-libre))
|
|
|
|
|
(build-system gnu-build-system)
|
|
|
|
|
(arguments
|
|
|
|
|
'(#:phases (modify-phases %standard-phases
|
|
|
|
|
(add-after 'unpack 'enter-subdirectory
|
|
|
|
|
(lambda _
|
|
|
|
|
(chdir "tools/laptop/freefall")))
|
|
|
|
|
(delete 'configure)
|
|
|
|
|
(add-before 'build 'increase-timeout
|
|
|
|
|
(lambda _
|
|
|
|
|
;; The default of 2 seconds is too low: it assumes an
|
|
|
|
|
;; open lid and AC power without actually checking.
|
|
|
|
|
(substitute* "freefall.c"
|
|
|
|
|
(("alarm\\(2\\)") "alarm(5)")))))
|
|
|
|
|
#:make-flags (list (string-append "PREFIX="
|
2018-04-21 22:04:11 +02:00
|
|
|
|
(assoc-ref %outputs "out"))
|
|
|
|
|
"CC=gcc")
|
2016-03-16 21:45:12 +01:00
|
|
|
|
#:tests? #f)) ;no tests
|
|
|
|
|
(home-page (package-home-page linux-libre))
|
|
|
|
|
(synopsis "Free-fall protection for spinning laptop hard drives")
|
|
|
|
|
(description
|
|
|
|
|
"Prevents shock damage to the internal spinning hard drive(s) of some
|
|
|
|
|
HP and Dell laptops. When sudden movement is detected, all input/output
|
|
|
|
|
operations on the drive are suspended and its heads are parked on the ramp,
|
|
|
|
|
where they are less likely to cause damage to the spinning disc. Requires a
|
|
|
|
|
drive that supports the ATA/ATAPI-7 IDLE IMMEDIATE command with unload
|
|
|
|
|
feature, and a laptop with an accelerometer. It has no effect on SSDs.")
|
|
|
|
|
(license license:gpl2)))
|
2016-04-30 10:31:13 +02:00
|
|
|
|
|
|
|
|
|
(define-public thinkfan
|
|
|
|
|
(package
|
|
|
|
|
(name "thinkfan")
|
|
|
|
|
(version "0.9.3")
|
|
|
|
|
(source (origin
|
|
|
|
|
(method url-fetch)
|
|
|
|
|
(uri (string-append "mirror://sourceforge/thinkfan/"
|
2016-07-21 08:35:30 +02:00
|
|
|
|
"/thinkfan-" version ".tar.gz"))
|
2016-04-30 10:31:13 +02:00
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
|
|
|
|
"0nz4c48f0i0dljpk5y33c188dnnwg8gz82s4grfl8l64jr4n675n"))
|
|
|
|
|
(modules '((guix build utils)))
|
|
|
|
|
;; Fix erroneous man page location in Makefile leading to
|
|
|
|
|
;; a compilation failure.
|
|
|
|
|
(snippet
|
|
|
|
|
'(substitute* "CMakeLists.txt"
|
|
|
|
|
(("thinkfan\\.1") "src/thinkfan.1")))))
|
|
|
|
|
(build-system cmake-build-system)
|
|
|
|
|
(arguments
|
|
|
|
|
`(#:modules ((guix build cmake-build-system)
|
|
|
|
|
(guix build utils)
|
|
|
|
|
(srfi srfi-26))
|
|
|
|
|
#:tests? #f ;no test target
|
|
|
|
|
#:configure-flags
|
|
|
|
|
;; Enable reading temperatures from hard disks via S.M.A.R.T.
|
|
|
|
|
`("-DUSE_ATASMART:BOOL=ON")
|
|
|
|
|
#:phases
|
|
|
|
|
(modify-phases %standard-phases
|
2016-05-10 21:20:49 +02:00
|
|
|
|
;; Install scripts for various foreign init systems. Also fix
|
|
|
|
|
;; hard-coded path for daemon.
|
2016-04-30 10:31:13 +02:00
|
|
|
|
(add-after 'install 'install-rc-scripts
|
|
|
|
|
(lambda* (#:key outputs #:allow-other-keys)
|
2016-05-10 21:20:49 +02:00
|
|
|
|
(let ((out (assoc-ref outputs "out"))
|
|
|
|
|
(files (find-files
|
|
|
|
|
(string-append "../thinkfan-" ,version "/rcscripts")
|
|
|
|
|
".*")))
|
|
|
|
|
(substitute* files
|
|
|
|
|
(("/usr/sbin/(\\$NAME|thinkfan)" _ name)
|
|
|
|
|
(string-append out "/sbin/" name)))
|
|
|
|
|
(for-each (cute install-file <>
|
|
|
|
|
(string-append out "/share/thinkfan"))
|
|
|
|
|
files))
|
2016-04-30 10:31:13 +02:00
|
|
|
|
#t)))))
|
|
|
|
|
(inputs
|
|
|
|
|
`(("libatasmart" ,libatasmart)))
|
|
|
|
|
(home-page "http://thinkfan.sourceforge.net/")
|
|
|
|
|
(synopsis "Simple fan control program")
|
|
|
|
|
(description
|
|
|
|
|
"Thinkfan is a simple fan control program. It reads temperatures,
|
|
|
|
|
checks them against configured limits and switches to appropriate (also
|
|
|
|
|
pre-configured) fan level. It requires a working @code{thinkpad_acpi} or any
|
|
|
|
|
other @code{hwmon} driver that enables temperature reading and fan control
|
|
|
|
|
from userspace.")
|
|
|
|
|
(license license:gpl3+)))
|
2016-05-18 21:59:38 +02:00
|
|
|
|
|
|
|
|
|
(define-public ntfs-3g
|
|
|
|
|
(package
|
|
|
|
|
(name "ntfs-3g")
|
2017-08-07 00:21:11 +02:00
|
|
|
|
(version "2017.3.23")
|
2016-05-18 21:59:38 +02:00
|
|
|
|
(source (origin
|
|
|
|
|
(method url-fetch)
|
|
|
|
|
(uri (string-append "https://tuxera.com/opensource/"
|
|
|
|
|
"ntfs-3g_ntfsprogs-" version ".tgz"))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
2017-08-07 00:21:11 +02:00
|
|
|
|
"1mb228p80hv97pgk3myyvgp975r9mxq56c6bdn1n24kngcfh4niy"))
|
2016-05-18 21:59:38 +02:00
|
|
|
|
(modules '((guix build utils)))
|
|
|
|
|
(snippet
|
|
|
|
|
;; Install under $prefix.
|
|
|
|
|
'(substitute* '("src/Makefile.in" "ntfsprogs/Makefile.in")
|
|
|
|
|
(("/sbin")
|
|
|
|
|
"@sbindir@")))))
|
|
|
|
|
(build-system gnu-build-system)
|
|
|
|
|
(inputs `(("util-linux" ,util-linux)
|
|
|
|
|
("fuse" ,fuse))) ;libuuid
|
|
|
|
|
(native-inputs `(("pkg-config" ,pkg-config)))
|
|
|
|
|
(arguments
|
|
|
|
|
'(#:configure-flags (list "--exec-prefix=${prefix}"
|
|
|
|
|
"--with-fuse=external" ;use our own FUSE
|
|
|
|
|
"--enable-mount-helper"
|
|
|
|
|
"--enable-posix-acls"
|
2018-05-23 14:42:36 +02:00
|
|
|
|
"--enable-xattr-mappings")
|
|
|
|
|
#:phases
|
|
|
|
|
(modify-phases %standard-phases
|
|
|
|
|
;; If users install ntfs-3g, they probably want to make it the
|
|
|
|
|
;; default driver as well, so we opt for sensible defaults and link
|
|
|
|
|
;; mount.ntfs to mount.ntfs-3g. (libmount tries to run mount.ntfs to
|
|
|
|
|
;; mount NTFS filesystems.)
|
|
|
|
|
(add-after 'install 'install-link
|
|
|
|
|
(lambda* (#:key outputs #:allow-other-keys)
|
|
|
|
|
(let* ((out (assoc-ref outputs "out"))
|
|
|
|
|
(sbin (string-append out "/sbin")))
|
|
|
|
|
(symlink "mount.ntfs-3g"
|
|
|
|
|
(string-append sbin "/mount.ntfs"))))))))
|
2017-08-07 00:01:43 +02:00
|
|
|
|
(home-page "https://www.tuxera.com/community/open-source-ntfs-3g/")
|
2016-05-18 21:59:38 +02:00
|
|
|
|
(synopsis "Read-write access to NTFS file systems")
|
|
|
|
|
(description
|
|
|
|
|
"NTFS-3G provides read-write access to NTFS file systems, which are
|
|
|
|
|
commonly found on Microsoft Windows. It is implemented as a FUSE file system.
|
|
|
|
|
The package provides additional NTFS tools.")
|
|
|
|
|
(license license:gpl2+)))
|
2016-07-03 04:26:28 +02:00
|
|
|
|
|
2017-03-17 09:27:31 +01:00
|
|
|
|
(define-public rdma-core
|
|
|
|
|
(package
|
|
|
|
|
(name "rdma-core")
|
2017-07-07 00:31:28 +02:00
|
|
|
|
(version "14")
|
2017-03-17 09:27:31 +01:00
|
|
|
|
(source (origin
|
|
|
|
|
(method url-fetch)
|
|
|
|
|
(uri (string-append "https://github.com/linux-rdma/rdma-core"
|
|
|
|
|
"/releases/download/v" version "/rdma-core-"
|
|
|
|
|
version ".tar.gz"))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
2017-07-07 00:31:28 +02:00
|
|
|
|
"0w03zd49k96bmly44qc8l0s9l671sd26k4wrilsp13xaspy048kd"))))
|
2017-03-17 09:27:31 +01:00
|
|
|
|
(build-system cmake-build-system)
|
|
|
|
|
(arguments
|
|
|
|
|
'(#:tests? #f ; no tests
|
|
|
|
|
;; Upstream uses the "ninja" build system and encourage distros
|
|
|
|
|
;; to do the same for consistency. They also recommend using the
|
|
|
|
|
;; "Release" build type.
|
2018-03-17 12:23:59 +01:00
|
|
|
|
#:build-type "Release"
|
|
|
|
|
#:configure-flags (list "-GNinja")
|
2017-03-17 09:27:31 +01:00
|
|
|
|
#:phases
|
|
|
|
|
(modify-phases %standard-phases
|
|
|
|
|
(replace 'build
|
|
|
|
|
(lambda _
|
|
|
|
|
(zero? (system* "ninja"
|
|
|
|
|
"-j" (number->string (parallel-job-count))))))
|
|
|
|
|
(replace 'install
|
|
|
|
|
(lambda _
|
|
|
|
|
(zero? (system* "ninja" "install")))))))
|
|
|
|
|
(native-inputs
|
|
|
|
|
`(("ninja" ,ninja)
|
|
|
|
|
("pkg-config" ,pkg-config)
|
|
|
|
|
("python" ,python-wrapper)))
|
|
|
|
|
(inputs
|
|
|
|
|
`(("libnl" ,libnl)
|
|
|
|
|
("udev" ,eudev)))
|
|
|
|
|
(home-page "https://github.com/linux-rdma/rdma-core")
|
|
|
|
|
(synopsis "Utilities and libraries for working with RDMA devices")
|
|
|
|
|
(description
|
|
|
|
|
"This package provides userspace components for the InfiniBand
|
|
|
|
|
subsystem of the Linux kernel. Specifically it contains userspace
|
|
|
|
|
libraries for the following device nodes:
|
|
|
|
|
|
|
|
|
|
@enumerate
|
|
|
|
|
@item @file{/dev/infiniband/uverbsX} (@code{libibverbs})
|
|
|
|
|
@item @file{/dev/infiniband/rdma_cm} (@code{librdmacm})
|
|
|
|
|
@item @file{/dev/infiniband/umadX} (@code{libibumad})
|
|
|
|
|
@end enumerate
|
|
|
|
|
|
|
|
|
|
The following service daemons are also provided:
|
|
|
|
|
@enumerate
|
|
|
|
|
@item @code{srp_daemon} (for the @code{ib_srp} kernel module)
|
|
|
|
|
@item @code{iwpmd} (for iWARP kernel providers)
|
|
|
|
|
@item @code{ibacm} (for InfiniBand communication management assistant)
|
|
|
|
|
@end enumerate")
|
|
|
|
|
;; All library code is dual licensed under GPL2 and a custom MIT
|
|
|
|
|
;; variant. The package also includes some components covered by
|
|
|
|
|
;; other licenses. Consult COPYING.md for full details.
|
|
|
|
|
(license
|
|
|
|
|
(list license:gpl2
|
|
|
|
|
(license:x11-style "See COPYING.BSD_MIT in the distribution")
|
|
|
|
|
license:bsd-2 ; Files referring to COPYING.BSD_FB
|
|
|
|
|
license:cc0 ; most files in ccan/
|
|
|
|
|
license:bsd-3)))) ; providers/hfi1verbs are dual GPL2/BSD-3
|
|
|
|
|
|
2016-07-03 04:26:28 +02:00
|
|
|
|
(define-public rng-tools
|
|
|
|
|
(package
|
|
|
|
|
(name "rng-tools")
|
2018-05-16 15:42:29 +02:00
|
|
|
|
(version "6.2")
|
2016-07-03 04:26:28 +02:00
|
|
|
|
(source (origin
|
|
|
|
|
(method url-fetch)
|
2017-12-03 00:08:21 +01:00
|
|
|
|
(uri (string-append "https://github.com/nhorman/rng-tools/"
|
|
|
|
|
"archive/v" version ".tar.gz"))
|
|
|
|
|
(file-name (string-append name "-" version ".tar.gz"))
|
2016-07-03 04:26:28 +02:00
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
2018-05-16 15:42:29 +02:00
|
|
|
|
"0xy4qmfhvkr5z4jr9j55dn5gnajr2jccdp6n0xsxkipjcgag342j"))))
|
2016-07-03 04:26:28 +02:00
|
|
|
|
(build-system gnu-build-system)
|
2017-12-03 00:08:21 +01:00
|
|
|
|
(arguments
|
|
|
|
|
`(;; Avoid using OpenSSL, curl, and libxml2, reducing the closure by 166 MiB.
|
|
|
|
|
#:configure-flags '("--without-nistbeacon")
|
|
|
|
|
#:phases
|
|
|
|
|
(modify-phases %standard-phases
|
|
|
|
|
(add-after 'unpack 'bootstrap
|
|
|
|
|
(lambda _
|
2018-05-16 15:43:23 +02:00
|
|
|
|
(invoke "sh" "autogen.sh")
|
|
|
|
|
#t)))))
|
2017-12-03 00:08:21 +01:00
|
|
|
|
(native-inputs
|
|
|
|
|
`(("autoconf" ,autoconf)
|
|
|
|
|
("automake" ,automake)
|
|
|
|
|
("pkg-config" ,pkg-config)))
|
|
|
|
|
(inputs
|
|
|
|
|
`(("libsysfs" ,sysfsutils)))
|
2016-07-03 04:26:28 +02:00
|
|
|
|
(synopsis "Random number generator daemon")
|
|
|
|
|
(description
|
|
|
|
|
"Monitor a hardware random number generator, and supply entropy
|
|
|
|
|
from that to the system kernel's @file{/dev/random} machinery.")
|
gnu: Use HTTPS for all sourceforge.net home pages.
* gnu/packages/admin.scm (mingetty, clusterssh)[home-page]: Use HTTPS.
* gnu/packages/audio.scm (libbs2b, soxr)[home-page]: Likewise.
* gnu/packages/bioinformatics.scm (bless)[home-page]: Likewise.
* gnu/packages/display-managers.scm (slim)[home-page]: Likewise.
* gnu/packages/games.scm (extremetuxracer)[home-page]: Likewise.
* gnu/packages/ghostscript.scm (gs-fonts)[home-page]: Likewise.
* gnu/packages/haskell.scm (ghc-regex-base, ghc-regex-posix,
ghc-regex-compat)[home-page]: Likewise.
* gnu/packages/image.scm (imlib2)[home-page]: Likewise.
* gnu/packages/libreoffice.scm (librevenge, libcmis, libodfgen, libmwaw)
[home-page]: Likewise.
* gnu/packages/linux.scm (hdparm, acpid, libavc1394, rng-tools)
[home-page]: Likewise.
* gnu/packages/mail.scm (esmtp)[home-page]: Likewise.
* gnu/packages/mp3.scm (ripperx)[home-page]: Likewise.
* gnu/packages/onc-rpc.scm (libtirpc)[home-page]: Likewise.
* gnu/packages/perl.scm (perl-czplib)[home-page]: Likewise.
* gnu/packages/python.scm (python-pyasn1-modules)[home-page]: Likewise.
* gnu/packages/xdisorg.scm (xosd)[home-page]: Likewise.
2017-01-04 01:30:46 +01:00
|
|
|
|
(home-page "https://sourceforge.net/projects/gkernel")
|
2016-07-03 04:26:28 +02:00
|
|
|
|
;; The source package is offered under the GPL2+, but the files
|
|
|
|
|
;; 'rngd_rdrand.c' and 'rdrand_asm.S' are only available under the GPL2.
|
|
|
|
|
(license (list license:gpl2 license:gpl2+))))
|
2016-07-19 04:45:19 +02:00
|
|
|
|
|
|
|
|
|
(define-public cpupower
|
|
|
|
|
(package
|
|
|
|
|
(name "cpupower")
|
|
|
|
|
(version (package-version linux-libre))
|
|
|
|
|
(source (package-source linux-libre))
|
|
|
|
|
(build-system gnu-build-system)
|
|
|
|
|
(arguments
|
|
|
|
|
'(#:phases (modify-phases %standard-phases
|
|
|
|
|
(add-after 'unpack 'enter-subdirectory
|
|
|
|
|
(lambda _
|
|
|
|
|
(chdir "tools/power/cpupower")))
|
|
|
|
|
(delete 'configure)
|
|
|
|
|
(add-before 'build 'fix-makefiles
|
|
|
|
|
(lambda _
|
|
|
|
|
(substitute* "Makefile"
|
|
|
|
|
(("/usr/") "/")
|
|
|
|
|
(("/bin/(install|pwd)" _ command) command))
|
|
|
|
|
(substitute* "bench/Makefile"
|
|
|
|
|
(("\\$\\(CC\\) -o") "$(CC) $(LDFLAGS) -o")))))
|
|
|
|
|
#:make-flags (let ((out (assoc-ref %outputs "out")))
|
|
|
|
|
(list (string-append "DESTDIR=" out)
|
|
|
|
|
(string-append "LDFLAGS=-Wl,-rpath=" out "/lib")
|
|
|
|
|
"docdir=/share/doc/cpupower"
|
|
|
|
|
"confdir=$(docdir)/examples"
|
|
|
|
|
;; The Makefile recommends the following changes
|
|
|
|
|
"DEBUG=false"
|
|
|
|
|
"PACKAGE_BUGREPORT=bug-guix@gnu.org"))
|
|
|
|
|
#:tests? #f)) ;no tests
|
2016-09-25 09:33:02 +02:00
|
|
|
|
(native-inputs `(("gettext" ,gettext-minimal)))
|
2016-07-19 04:45:19 +02:00
|
|
|
|
(inputs `(("pciutils" ,pciutils)))
|
|
|
|
|
(home-page (package-home-page linux-libre))
|
|
|
|
|
(synopsis "CPU frequency and voltage scaling tools for Linux")
|
|
|
|
|
(description
|
|
|
|
|
"cpupower is a set of user-space tools that use the cpufreq feature of the
|
|
|
|
|
Linux kernel to retrieve and control processor features related to power saving,
|
|
|
|
|
such as frequency and voltage scaling.")
|
|
|
|
|
(license license:gpl2)))
|
2016-07-23 23:49:45 +02:00
|
|
|
|
|
|
|
|
|
(define-public haveged
|
|
|
|
|
(package
|
|
|
|
|
(name "haveged")
|
2018-01-26 23:05:41 +01:00
|
|
|
|
(version "1.9.2")
|
2016-07-23 23:49:45 +02:00
|
|
|
|
(source
|
|
|
|
|
(origin
|
|
|
|
|
(method url-fetch)
|
|
|
|
|
(uri (string-append "http://www.issihosts.com/haveged/haveged-"
|
|
|
|
|
version ".tar.gz"))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
2018-01-26 23:05:41 +01:00
|
|
|
|
"0w5ypz6451msckivjriwyw8djydlwffam7x23xh626s2vzdrlzgp"))))
|
2016-07-23 23:49:45 +02:00
|
|
|
|
(build-system gnu-build-system)
|
|
|
|
|
(home-page "http://www.issihosts.com/haveged")
|
|
|
|
|
(synopsis "Entropy source for the Linux random number generator")
|
|
|
|
|
(description
|
|
|
|
|
"haveged generates an unpredictable stream of random numbers for use by
|
|
|
|
|
Linux's @file{/dev/random} and @file{/dev/urandom} devices. The kernel's
|
|
|
|
|
standard mechanisms for filling the entropy pool may not be sufficient for
|
|
|
|
|
systems with high needs or limited user interaction, such as headless servers.
|
|
|
|
|
@command{haveged} runs as a privileged daemon, harvesting randomness from the
|
|
|
|
|
indirect effects of hardware events on hidden processor state using the HArdware
|
|
|
|
|
Volatile Entropy Gathering and Expansion (HAVEGE) algorithm. It tunes itself to
|
|
|
|
|
its environment and provides the same built-in test suite for the output stream
|
|
|
|
|
as used on certified hardware security devices.")
|
|
|
|
|
(license (list (license:non-copyleft "file://nist/mconf.h")
|
|
|
|
|
(license:non-copyleft "file://nist/packtest.c")
|
|
|
|
|
license:public-domain ; nist/dfft.c
|
|
|
|
|
license:gpl3+)))) ; everything else
|
2016-08-24 02:51:52 +02:00
|
|
|
|
|
|
|
|
|
(define-public ecryptfs-utils
|
|
|
|
|
(package
|
|
|
|
|
(name "ecryptfs-utils")
|
|
|
|
|
(version "111")
|
|
|
|
|
(source
|
|
|
|
|
(origin
|
|
|
|
|
(method url-fetch)
|
|
|
|
|
(uri (string-append "https://launchpad.net/ecryptfs/trunk/"
|
|
|
|
|
version "/+download/ecryptfs-utils_"
|
|
|
|
|
version ".orig.tar.gz"))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
|
|
|
|
"0zwq19siiwf09h7lwa7n7mgmrr8cxifp45lmwgcfr8c1gviv6b0i"))))
|
|
|
|
|
(build-system gnu-build-system)
|
|
|
|
|
(arguments
|
|
|
|
|
`(#:configure-flags (list "--disable-pywrap")))
|
|
|
|
|
(native-inputs
|
|
|
|
|
`(("intltool" ,intltool)
|
|
|
|
|
("perl" ,perl) ; for pod2man
|
|
|
|
|
("pkg-config" ,pkg-config)))
|
|
|
|
|
(inputs
|
|
|
|
|
`(("keyutils" ,keyutils)
|
|
|
|
|
("linux-pam" ,linux-pam)
|
|
|
|
|
("nss" ,nss)))
|
|
|
|
|
(home-page "http://ecryptfs.org/")
|
|
|
|
|
(synopsis "eCryptfs cryptographic file system utilities")
|
|
|
|
|
(description
|
|
|
|
|
"eCryptfs is a POSIX-compliant stacked cryptographic file system for Linux.
|
|
|
|
|
Each file's cryptographic meta-data is stored inside the file itself, along
|
|
|
|
|
with the encrypted contents. This allows individual encrypted files to be
|
|
|
|
|
copied between hosts and still be decrypted with the proper key. eCryptfs is a
|
|
|
|
|
native Linux file system, and has been part of the Linux kernel since version
|
|
|
|
|
2.6.19. This package contains the userland utilities to manage it.")
|
|
|
|
|
;; The files src/key_mod/ecryptfs_key_mod_{openssl,pkcs11_helper,tspi}.c
|
|
|
|
|
;; grant additional permission to link with OpenSSL.
|
|
|
|
|
(license license:gpl2+)))
|
2016-09-13 20:58:07 +02:00
|
|
|
|
|
|
|
|
|
(define-public libnfsidmap
|
|
|
|
|
(package
|
|
|
|
|
(name "libnfsidmap")
|
|
|
|
|
(version "0.25")
|
|
|
|
|
(source (origin
|
|
|
|
|
(method url-fetch)
|
|
|
|
|
(uri (string-append
|
|
|
|
|
"http://www.citi.umich.edu/projects/nfsv4/linux/"
|
|
|
|
|
name "/" name "-" version ".tar.gz"))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
|
|
|
|
"1kzgwxzh83qi97rblcm9qj80cdvnv8kml2plz0q103j0hifj8vb5"))))
|
|
|
|
|
(build-system gnu-build-system)
|
|
|
|
|
(arguments
|
|
|
|
|
`(#:configure-flags (list
|
|
|
|
|
(string-append "--with-pluginpath="
|
|
|
|
|
(assoc-ref %outputs "out")
|
|
|
|
|
"/lib/libnfsidmap"))))
|
|
|
|
|
(home-page
|
|
|
|
|
"http://www.citi.umich.edu/projects/nfsv4/crossrealm/libnfsidmap_config.html")
|
|
|
|
|
(synopsis
|
|
|
|
|
"NFSv4 support library for name/ID mapping")
|
|
|
|
|
(description "Libnfsidmap is a library holding mulitiple methods of
|
|
|
|
|
mapping names to ids and visa versa, mainly for NFSv4. It provides an
|
|
|
|
|
extensible array of mapping functions, currently consisting of two choices:
|
|
|
|
|
the default @code{nsswitch} and the experimental @code{umich_ldap}.")
|
|
|
|
|
(license (license:non-copyleft "file://COPYING"
|
|
|
|
|
"See COPYING in the distribution."))))
|
2016-09-13 20:59:34 +02:00
|
|
|
|
|
|
|
|
|
(define-public module-init-tools
|
|
|
|
|
(package
|
|
|
|
|
(name "module-init-tools")
|
|
|
|
|
(version "3.16")
|
|
|
|
|
(source (origin
|
|
|
|
|
(method url-fetch)
|
|
|
|
|
(uri (string-append
|
|
|
|
|
"mirror://kernel.org/linux/utils/kernel/module-init-tools/"
|
|
|
|
|
"module-init-tools-" version ".tar.bz2"))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
|
|
|
|
"0jxnz9ahfic79rp93l5wxcbgh4pkv85mwnjlbv1gz3jawv5cvwp1"))
|
|
|
|
|
(patches (search-patches "module-init-tools-moduledir.patch"))))
|
|
|
|
|
(build-system gnu-build-system)
|
|
|
|
|
(arguments
|
|
|
|
|
;; FIXME: The upstream tarball lacks man pages, and building them would
|
|
|
|
|
;; require DocBook & co. We used to use Gentoo's pre-built man pages,
|
|
|
|
|
;; but they vanished. In the meantime, fake it.
|
gnu: Use 'modify-phases' syntax.
* gnu/packages/admin.scm (mingetty, clusterssh, wpa-supplicant-minimal,
wpa-supplicant, wakelan, acpica, tree, direvent, dstat)[arguments]: Use
'modify-phases' syntax.
* gnu/packages/algebra.scm (arb)[arguments]: Likewise.
* gnu/packages/apr.scm (apr-util)[arguments]: Likewise.
* gnu/packages/audio.scm (clalsadrv, fluidsynth, faad2, lv2-mda-piano,
lv2-mda-epiano, timidity++, vamp, soundtouch, portaudio, rsound,
zita-convolver, zita-alsa-pcmi)[arguments]: Likewise.
* gnu/packages/backup.scm (rdup, btar)[arguments]: Likewise.
* gnu/packages/bioinformatics.scm (bedops, bwa, crossmap, express,
flexbar, grit, hisat, ngs-sdk, subread)[arguments]: Likewise.
* gnu/packages/bittorrent.scm (transmission)[arguments]: Likewise.
* gnu/packages/cdrom.scm (cd-discid)[arguments]: Likewise.
* gnu/packages/compression.scm (sharutils)[arguments]: Likewise.
* gnu/packages/conky.scm (conky)[arguments]: Likewise.
* gnu/packages/databases.scm (bdb, bdb-5.3)[arguments]: Likewise.
* gnu/packages/debug.scm (delta, c-reduce)[arguments]: Likewise.
* gnu/packages/display-managers.scm (slim)[arguments]: Likewise.
* gnu/packages/dns.scm (dnsmasq)[arguments]: Likewise.
* gnu/packages/emacs.scm (geiser, emacs-wget, bbdb)[arguments]: Likewise.
* gnu/packages/engineering.scm (pcb)[arguments]: Likewise.
* gnu/packages/firmware.scm (ath9k-htc-firmware)[arguments]: Likewise.
* gnu/packages/flashing-tools.scm (flashrom)[arguments]: Likewise.
* gnu/packages/fltk.scm (fltk)[arguments]: Likewise.
* gnu/packages/freedesktop.scm (python-pyxdg)[arguments]: Likewise.
* gnu/packages/gd.scm (perl-gd)[arguments]: Likewise.
* gnu/packages/gkrellm.scm (gkrellm)[arguments]: Likewise.
* gnu/packages/glib.scm (glibmm)[arguments]: Likewise.
* gnu/packages/gl.scm (glew)[arguments]: Likewise.
* gnu/packages/gnome.scm (icon-naming-utils, orbit2, libbonobo, gnome-vfs,
libgnome, libbonoboui, goffice-0.8, dconf)[arguments]: Likewise.
* gnu/packages/gprolog.scm (gprolog)[arguments]: Likewise.
* gnu/packages/gps.scm (gpscorrelate)[arguments]: Likewise.
* gnu/packages/graphics.scm (agg)[arguments]: Likewise.
* gnu/packages/gtk.scm (ganv, girara, gtksourceview-2, guile-present,
python2-pycairo)[arguments]: Likewise.
* gnu/packages/guile.scm (guile-1.8)[arguments]: Likewise.
* gnu/packages/guile-wm.scm (guile-wm)[arguments]: Likewise.
* gnu/packages/hugs.scm (hugs)[arguments]: Likewise.
* gnu/packages/hurd.scm (gnumach-headers, hurd-headers, hurd-minimal)
[arguments]: Likewise.
* gnu/packages/image-viewers.scm (feh, sxiv)[arguments]: Likewise.
* gnu/packages/libcanberra.scm (libcanberra)[arguments]: Likewise.
* gnu/packages/linux.scm (bridge-utils, iw, fuse, unionfs-fuse/static,
lm-sensors, i2c-tools, xsensors, perf, mdadm, libaio, module-init-tools)
[arguments]: Likewise.
* gnu/packages/lisp.scm (ccl)[arguments]: Likewise.
* gnu/packages/lout.scm (lout)[arguments]: Likewise.
* gnu/packages/lua.scm (luajit)[arguments]: Likewise.
* gnu/packages/machine-learning.scm (shogun)[arguments]: Likewise.
* gnu/packages/mail.scm (exim)[arguments]: Likewise.
* gnu/packages/man.scm (man-pages, txt2man)[arguments]: Likewise.
* gnu/packages/maths.scm (lapack, superlu-dist, openlibm, openspecfun)
[arguments]: Likewise.
* gnu/packages/messaging.scm (bitlbee)[arguments]: Likewise.
* gnu/packages/mp3.scm (libmad, id3lib, mp3info)[arguments]: Likewise.
* gnu/packages/music.scm (solfege)[arguments]: Likewise.
* gnu/packages/noweb.scm (noweb)[arguments]: Likewise.
* gnu/packages/patchutils.scm (patchutils, quilt, colordiff)[arguments]:
Likewise.
* gnu/packages/pdf.scm (xpdf, zathura-cb, zathura-ps, zathura-djvu,
zathura-pdf-poppler, zathura, podofo, fbida)[arguments]: Likewise.
* gnu/packages/perl.scm (perl-file-list, perl-test-harness)[arguments]:
Likewise.
* gnu/packages/photo.scm (gphoto2)[arguments]: Likewise.
* gnu/packages/popt.scm (popt)[arguments]: Likewise.
* gnu/packages/pretty-print.scm (source-highlight, astyle)[arguments]:
Likewise.
* gnu/packages/pumpio.scm (pumpa)[arguments]: Likewise.
* gnu/packages/python.scm (python-passlib, python-pycrypto, python2-empy,
python-sqlalchemy, python-docopt)[arguments]: Likewise.
* gnu/packages/rdf.scm (lrdf)[arguments]: Likewise.
* gnu/packages/regex.scm (tre)[arguments]: Likewise.
* gnu/packages/rrdtool.scm (rrdtool)[arguments]: Likewise.
* gnu/packages/ruby.scm (ruby-2.1, ruby-1.8)[arguments]: Likewise.
* gnu/packages/sawfish.scm (sawfish)[arguments]: Likewise.
* gnu/packages/scheme.scm (racket)[arguments]: Likewise.
* gnu/packages/sdl.scm (guile-sdl)[arguments]: Likewise.
* gnu/packages/serveez.scm (serveez)[arguments]: Likewise.
* gnu/packages/skribilo.scm (skribilo)[arguments]: Likewise.
* gnu/packages/smalltalk.scm (smalltalk)[arguments]: Likewise.
* gnu/packages/suckless.scm (dmenu, slock)[arguments]: Likewise.
* gnu/packages/tcl.scm (expect)[arguments]: Likewise.
* gnu/packages/telephony.scm (commoncpp)[arguments]: Likewise.
* gnu/packages/textutils.scm (recode, libgtextutils)[arguments]:
Likewise.
* gnu/packages/time.scm (time)[arguments]: Likewise.
* gnu/packages/tor.scm (privoxy)[arguments]: Likewise.
* gnu/packages/uucp.scm (uucp)[arguments]: Likewise.
* gnu/packages/video.scm (libdvdnav-4)[arguments]: Likewise.
* gnu/packages/web-browsers.scm (lynx)[arguments]: Likewise.
* gnu/packages/web.scm (tinyproxy)[arguments]: Likewise.
* gnu/packages/wicd.scm (wicd)[arguments]: Likewise.
* gnu/packages/wm.scm (bspwm)[arguments]: Likewise.
* gnu/packages/xdisorg.scm (sxhkd, xcape)[arguments]: Likewise.
* gnu/packages/xfce.scm (xfconf)[arguments]: Likewise.
* gnu/packages/xfig.scm (transfig)[arguments]: Likewise.
* gnu/packages/xorg.scm (imake)[arguments]: Likewise.
2017-07-29 17:28:42 +02:00
|
|
|
|
'(#:phases
|
|
|
|
|
(modify-phases %standard-phases
|
|
|
|
|
(add-before 'configure 'fake-docbook
|
|
|
|
|
(lambda _
|
|
|
|
|
(substitute* "Makefile.in"
|
|
|
|
|
(("^DOCBOOKTOMAN.*$")
|
|
|
|
|
"DOCBOOKTOMAN = true\n"))
|
|
|
|
|
#t)))))
|
2018-01-15 07:29:02 +01:00
|
|
|
|
(home-page "https://www.kernel.org/pub/linux/utils/kernel/module-init-tools/")
|
2016-09-13 20:59:34 +02:00
|
|
|
|
(synopsis "Tools for loading and managing Linux kernel modules")
|
|
|
|
|
(description
|
|
|
|
|
"Tools for loading and managing Linux kernel modules, such as `modprobe',
|
|
|
|
|
`insmod', `lsmod', and more.")
|
|
|
|
|
(license license:gpl2+)))
|
2016-08-29 02:14:11 +02:00
|
|
|
|
|
|
|
|
|
(define-public mcelog
|
|
|
|
|
(package
|
|
|
|
|
(name "mcelog")
|
2017-10-12 23:57:02 +02:00
|
|
|
|
(version "154")
|
2016-08-29 02:14:11 +02:00
|
|
|
|
(source (origin
|
|
|
|
|
(method url-fetch)
|
|
|
|
|
(uri (string-append "https://git.kernel.org/cgit/utils/cpu/mce/"
|
|
|
|
|
"mcelog.git/snapshot/v" version ".tar.gz"))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
2017-10-12 23:57:02 +02:00
|
|
|
|
"07628cr05f50m7lsvw26wxlnb7qcl0x6rymdpp5spqzhz91l58p3"))
|
2016-08-29 02:14:11 +02:00
|
|
|
|
(file-name (string-append name "-" version ".tar.gz"))
|
|
|
|
|
(modules '((guix build utils)))
|
|
|
|
|
(snippet
|
|
|
|
|
;; The snapshots lack a .git directory, breaking ‘git describe’.
|
|
|
|
|
`(substitute* "Makefile"
|
|
|
|
|
(("\"unknown\"") (string-append "\"v" ,version "\""))))))
|
|
|
|
|
(build-system gnu-build-system)
|
|
|
|
|
(arguments
|
|
|
|
|
`(#:phases (modify-phases %standard-phases
|
|
|
|
|
(delete 'configure)) ; no configure script
|
|
|
|
|
#:make-flags (let ((out (assoc-ref %outputs "out")))
|
|
|
|
|
(list "CC=gcc"
|
|
|
|
|
(string-append "prefix=" out)
|
|
|
|
|
(string-append "DOCDIR=" out "/share/doc/mcelog")
|
|
|
|
|
"etcprefix=$(DOCDIR)/examples"))
|
|
|
|
|
;; The tests will only run as root on certain supported CPU models.
|
|
|
|
|
#:tests? #f))
|
|
|
|
|
(supported-systems (list "i686-linux" "x86_64-linux"))
|
2017-10-12 23:57:29 +02:00
|
|
|
|
(home-page "https://mcelog.org/")
|
2016-08-29 02:14:11 +02:00
|
|
|
|
(synopsis "Machine check monitor for x86 Linux systems")
|
|
|
|
|
(description
|
|
|
|
|
"The mcelog daemon is required by the Linux kernel to log memory, I/O, CPU,
|
|
|
|
|
and other hardware errors on x86 systems. It can also perform user-defined
|
|
|
|
|
tasks, such as bringing bad pages off-line, when configurable error thresholds
|
|
|
|
|
are exceeded.")
|
|
|
|
|
(license license:gpl2)))
|
2016-09-01 14:33:57 +02:00
|
|
|
|
|
|
|
|
|
(define-public mtd-utils
|
|
|
|
|
(package
|
|
|
|
|
(name "mtd-utils")
|
|
|
|
|
(version "1.5.2")
|
|
|
|
|
(source (origin
|
|
|
|
|
(method url-fetch)
|
|
|
|
|
(uri (string-append
|
|
|
|
|
"ftp://ftp.infradead.org/pub/mtd-utils/"
|
|
|
|
|
"mtd-utils-" version ".tar.bz2"))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
|
|
|
|
"007lhsd8yb34l899r4m37whhzdw815cz4fnjbpnblfha524p7dax"))))
|
|
|
|
|
(inputs
|
|
|
|
|
`(("acl" ,acl)
|
|
|
|
|
("libuuid" ,util-linux)
|
2018-03-16 16:50:14 +01:00
|
|
|
|
("lzo" ,lzo)
|
2016-09-01 14:33:57 +02:00
|
|
|
|
("zlib" ,zlib)))
|
|
|
|
|
(build-system gnu-build-system)
|
|
|
|
|
(arguments
|
|
|
|
|
`(#:test-target "tests"
|
|
|
|
|
#:make-flags (list (string-append "PREFIX=" (assoc-ref %outputs "out")))
|
|
|
|
|
#:phases (modify-phases %standard-phases
|
|
|
|
|
(delete 'configure))))
|
|
|
|
|
(synopsis "MTD Flash Storage Utilities")
|
|
|
|
|
(description "This package provides utilities for testing, partitioning, etc
|
|
|
|
|
of flash storage.")
|
|
|
|
|
(home-page "http://www.linux-mtd.infradead.org/")
|
|
|
|
|
(license
|
|
|
|
|
(list license:gpl2 ; Almost everything is gpl2 or gpl2+
|
|
|
|
|
license:mpl1.1 ; All ftl* files
|
|
|
|
|
license:expat)))) ; libiniparser
|
2016-10-19 04:39:50 +02:00
|
|
|
|
|
|
|
|
|
(define-public libseccomp
|
|
|
|
|
(package
|
|
|
|
|
(name "libseccomp")
|
2018-03-02 22:40:45 +01:00
|
|
|
|
(version "2.3.3")
|
2016-10-19 04:39:50 +02:00
|
|
|
|
(source (origin
|
|
|
|
|
(method url-fetch)
|
|
|
|
|
(uri (string-append "https://github.com/seccomp/libseccomp/"
|
|
|
|
|
"releases/download/v" version
|
|
|
|
|
"/libseccomp-" version ".tar.gz"))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
2018-03-02 22:40:45 +01:00
|
|
|
|
"0mdiyfljrkfl50q1m3ws8yfcyfjwf1zgkvcva8ffcwncji18zhkz"))))
|
2016-10-19 04:39:50 +02:00
|
|
|
|
(build-system gnu-build-system)
|
|
|
|
|
(native-inputs
|
|
|
|
|
`(("which" ,which)))
|
|
|
|
|
(synopsis "Interface to Linux's seccomp syscall filtering mechanism")
|
|
|
|
|
(description "The libseccomp library provides an easy to use, platform
|
|
|
|
|
independent, interface to the Linux Kernel's syscall filtering mechanism. The
|
|
|
|
|
libseccomp API is designed to abstract away the underlying BPF based syscall
|
|
|
|
|
filter language and present a more conventional function-call based filtering
|
|
|
|
|
interface that should be familiar to, and easily adopted by, application
|
|
|
|
|
developers.")
|
|
|
|
|
(home-page "https://github.com/seccomp/libseccomp")
|
|
|
|
|
(license license:lgpl2.1)))
|
2016-10-28 00:56:10 +02:00
|
|
|
|
|
|
|
|
|
(define-public radeontop
|
|
|
|
|
(package
|
|
|
|
|
(name "radeontop")
|
2018-03-27 02:23:01 +02:00
|
|
|
|
(version "1.1")
|
2016-10-28 00:56:10 +02:00
|
|
|
|
(home-page "https://github.com/clbr/radeontop/")
|
|
|
|
|
(source (origin
|
|
|
|
|
(method url-fetch)
|
2017-04-29 01:00:10 +02:00
|
|
|
|
(uri (string-append home-page "archive/v" version ".tar.gz"))
|
2016-10-28 00:56:10 +02:00
|
|
|
|
(file-name (string-append name "-" version ".tar.gz"))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
2018-03-27 02:23:01 +02:00
|
|
|
|
"1fv06j5c99imvzkac3j40lgjhr5b2i77fnyffhlvj92bli1fm1c6"))))
|
2016-10-28 00:56:10 +02:00
|
|
|
|
(build-system gnu-build-system)
|
|
|
|
|
(arguments
|
|
|
|
|
`(#:phases (modify-phases %standard-phases
|
|
|
|
|
;; getver.sh uses ‘git --describe’, isn't worth an extra git
|
|
|
|
|
;; dependency, and doesn't even work on release(!) tarballs.
|
|
|
|
|
(add-after 'unpack 'report-correct-version
|
|
|
|
|
(lambda _ (substitute* "getver.sh"
|
|
|
|
|
(("ver=unknown")
|
|
|
|
|
(string-append "ver=" ,version)))))
|
|
|
|
|
(delete 'configure)) ; no configure script
|
|
|
|
|
#:make-flags (list "CC=gcc"
|
|
|
|
|
(string-append "PREFIX=" %output))
|
|
|
|
|
#:tests? #f)) ; no tests
|
|
|
|
|
(native-inputs
|
2016-11-18 18:26:08 +01:00
|
|
|
|
`(("gettext" ,gettext-minimal)
|
2016-10-28 00:56:10 +02:00
|
|
|
|
("pkg-config" ,pkg-config)))
|
|
|
|
|
(inputs
|
|
|
|
|
`(("libdrm" ,libdrm)
|
|
|
|
|
("libpciaccess" ,libpciaccess)
|
2017-04-29 01:00:10 +02:00
|
|
|
|
("libxcb" ,libxcb)
|
2016-10-28 00:56:10 +02:00
|
|
|
|
("ncurses" ,ncurses)))
|
|
|
|
|
(synopsis "Usage monitor for AMD Radeon graphics")
|
|
|
|
|
(description "RadeonTop monitors resource consumption on supported AMD
|
|
|
|
|
Radeon Graphics Processing Units (GPUs), either in real time as bar graphs on
|
|
|
|
|
a terminal or saved to a file for further processing. It measures both the
|
|
|
|
|
activity of the GPU as a whole, which is also accurate during OpenCL
|
|
|
|
|
computations, as well as separate component statistics that are only meaningful
|
|
|
|
|
under OpenGL graphics workloads.")
|
|
|
|
|
(license license:gpl3)))
|
2016-10-07 08:28:27 +02:00
|
|
|
|
|
|
|
|
|
(define-public efivar
|
|
|
|
|
(package
|
|
|
|
|
(name "efivar")
|
2018-04-15 12:55:39 +02:00
|
|
|
|
(version "35")
|
2016-10-07 08:28:27 +02:00
|
|
|
|
(source (origin
|
|
|
|
|
(method url-fetch)
|
|
|
|
|
(uri (string-append "https://github.com/rhinstaller/" name
|
|
|
|
|
"/releases/download/" version "/" name
|
|
|
|
|
"-" version ".tar.bz2"))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
2018-04-15 12:55:39 +02:00
|
|
|
|
"153k2ifyl4giz5fkryxhz8z621diqjy7v25hfga4z94rs32ks0qy"))))
|
2016-10-07 08:28:27 +02:00
|
|
|
|
(build-system gnu-build-system)
|
|
|
|
|
(arguments
|
|
|
|
|
`(;; Tests require a UEFI system and is not detected in the chroot.
|
|
|
|
|
#:tests? #f
|
|
|
|
|
#:make-flags (list (string-append "prefix=" %output)
|
|
|
|
|
(string-append "libdir=" %output "/lib")
|
2018-02-13 22:35:21 +01:00
|
|
|
|
"CC_FOR_BUILD=gcc"
|
2016-10-07 08:28:27 +02:00
|
|
|
|
(string-append "LDFLAGS=-Wl,-rpath=" %output "/lib"))
|
|
|
|
|
#:phases
|
|
|
|
|
(modify-phases %standard-phases
|
|
|
|
|
(delete 'configure))))
|
|
|
|
|
(native-inputs
|
|
|
|
|
`(("pkg-config" ,pkg-config)))
|
|
|
|
|
(inputs
|
|
|
|
|
`(("popt" ,popt)))
|
|
|
|
|
(home-page "https://github.com/rhinstaller/efivar")
|
|
|
|
|
(synopsis "Tool and library to manipulate EFI variables")
|
|
|
|
|
(description "This package provides a library and a command line
|
|
|
|
|
interface to the variable facility of UEFI boot firmware.")
|
|
|
|
|
(license license:lgpl2.1+)))
|
2016-10-07 08:58:10 +02:00
|
|
|
|
|
|
|
|
|
(define-public efibootmgr
|
|
|
|
|
(package
|
|
|
|
|
(name "efibootmgr")
|
2018-04-15 12:52:41 +02:00
|
|
|
|
(version "16")
|
2016-10-07 08:58:10 +02:00
|
|
|
|
(source (origin
|
|
|
|
|
(method url-fetch)
|
|
|
|
|
(uri (string-append "https://github.com/rhinstaller/" name
|
|
|
|
|
"/releases/download/" version "/" name
|
|
|
|
|
"-" version ".tar.bz2"))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
2018-04-15 12:52:41 +02:00
|
|
|
|
"0pzn67vxxaf7jna4cd0i4kqm60h04kb21hckksv9z82q9gxra1wm"))))
|
2016-10-07 08:58:10 +02:00
|
|
|
|
(build-system gnu-build-system)
|
|
|
|
|
(arguments
|
|
|
|
|
`(#:tests? #f ; No tests.
|
|
|
|
|
#:make-flags (list (string-append "prefix=" %output)
|
|
|
|
|
(string-append "libdir=" %output "/lib")
|
2018-04-15 12:52:41 +02:00
|
|
|
|
;; EFIDIR denotes a subdirectory relative to the
|
|
|
|
|
;; EFI System Partition where the loader will be
|
|
|
|
|
;; installed (known as OS_VENDOR in the code).
|
|
|
|
|
;; GRUB overrides this, as such it's only used if
|
|
|
|
|
;; nothing else is specified on the command line.
|
|
|
|
|
"EFIDIR=gnu"
|
2016-10-07 08:58:10 +02:00
|
|
|
|
;; Override CFLAGS to add efivar include directory.
|
|
|
|
|
(string-append "CFLAGS=-O2 -g -flto -I"
|
|
|
|
|
(assoc-ref %build-inputs "efivar")
|
|
|
|
|
"/include/efivar"))
|
2018-04-15 12:52:41 +02:00
|
|
|
|
#:phases (modify-phases %standard-phases (delete 'configure))))
|
2016-10-07 08:58:10 +02:00
|
|
|
|
(native-inputs
|
|
|
|
|
`(("pkg-config" ,pkg-config)))
|
|
|
|
|
(inputs
|
|
|
|
|
`(("efivar" ,efivar)
|
|
|
|
|
("popt" ,popt)))
|
|
|
|
|
(home-page "https://github.com/rhinstaller/efibootmgr")
|
|
|
|
|
(synopsis "Modify the Extensible Firmware Interface (EFI) boot manager")
|
|
|
|
|
(description
|
|
|
|
|
"@code{efibootmgr} is a user-space application to modify the Intel
|
|
|
|
|
Extensible Firmware Interface (EFI) Boot Manager. This application can
|
|
|
|
|
create and destroy boot entries, change the boot order, change the next
|
|
|
|
|
running boot option, and more.")
|
|
|
|
|
(license license:gpl2+)))
|
2017-01-07 19:57:58 +01:00
|
|
|
|
|
|
|
|
|
(define-public sysstat
|
|
|
|
|
(package
|
|
|
|
|
(name "sysstat")
|
2017-03-30 23:08:38 +02:00
|
|
|
|
(version "11.4.3")
|
2017-01-07 19:57:58 +01:00
|
|
|
|
(source (origin
|
|
|
|
|
(method url-fetch)
|
|
|
|
|
(uri (string-append "http://perso.orange.fr/sebastien.godard/"
|
|
|
|
|
"sysstat-" version ".tar.xz"))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
2017-03-30 23:08:38 +02:00
|
|
|
|
"1ryf9myjzpa2279i3rvsh6fr5psm6qvr5r9kbm1sxyspapxcms82"))))
|
2017-01-07 19:57:58 +01:00
|
|
|
|
(build-system gnu-build-system)
|
|
|
|
|
(arguments
|
|
|
|
|
`(#:tests? #f ; No test suite.
|
|
|
|
|
;; Without this flag, it tries to install the man pages with group 'root'
|
|
|
|
|
;; and fails because /etc/passwd lacks an entry for the root user.
|
|
|
|
|
#:configure-flags
|
|
|
|
|
(list "--disable-file-attr"
|
|
|
|
|
(string-append "conf_dir=" (assoc-ref %outputs "out") "/etc"))
|
|
|
|
|
#:phases
|
|
|
|
|
(modify-phases %standard-phases
|
|
|
|
|
;; The build process tries to create '/var/lib/sa', so we skip that
|
|
|
|
|
;; instruction.
|
|
|
|
|
(add-after 'build 'skip-touching-var
|
|
|
|
|
(lambda _
|
|
|
|
|
(substitute* "Makefile"
|
|
|
|
|
(("mkdir -p \\$\\(DESTDIR\\)\\$\\(SA_DIR\\)")
|
|
|
|
|
""))
|
|
|
|
|
#t)))))
|
|
|
|
|
(home-page "http://sebastien.godard.pagesperso-orange.fr/")
|
|
|
|
|
(synopsis "Performance monitoring tools for Linux")
|
|
|
|
|
(description "The sysstat utilities are a collection of performance
|
|
|
|
|
monitoring tools for Linux. These include @code{mpstat}, @code{iostat},
|
|
|
|
|
@code{tapestat}, @code{cifsiostat}, @code{pidstat}, @code{sar}, @code{sadc},
|
|
|
|
|
@code{sadf} and @code{sa}.")
|
|
|
|
|
(license license:gpl2+)))
|
2017-01-28 13:07:57 +01:00
|
|
|
|
|
|
|
|
|
(define-public light
|
|
|
|
|
(package
|
|
|
|
|
(name "light")
|
|
|
|
|
(version "1.0")
|
|
|
|
|
(source (origin
|
|
|
|
|
(method url-fetch)
|
|
|
|
|
(uri (string-append "https://github.com/haikarainen/" name
|
|
|
|
|
"/archive/v" version ".tar.gz"))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
|
|
|
|
"0r5gn6c0jcxknzybl6059dplxv46dpahchqq4gymrs7z8bp0hilp"))
|
|
|
|
|
(file-name (string-append name "-" version ".tar.gz"))))
|
|
|
|
|
(build-system gnu-build-system)
|
|
|
|
|
(arguments
|
|
|
|
|
'(#:tests? #f ; no tests
|
|
|
|
|
#:make-flags (list "CC=gcc"
|
|
|
|
|
(string-append "PREFIX=" %output))
|
|
|
|
|
#:phases
|
|
|
|
|
(modify-phases %standard-phases
|
|
|
|
|
(delete 'configure)
|
|
|
|
|
(add-after 'unpack 'patch-makefile
|
|
|
|
|
(lambda _
|
|
|
|
|
(substitute* "Makefile" (("chown") "#")))))))
|
|
|
|
|
(native-inputs
|
|
|
|
|
`(("help2man" ,help2man)))
|
|
|
|
|
(home-page "https://haikarainen.github.io/light")
|
|
|
|
|
(synopsis "GNU/Linux application to control backlights")
|
|
|
|
|
(description
|
|
|
|
|
"Light is a program to send commands to screen backlight controllers
|
|
|
|
|
under GNU/Linux. Features include:
|
|
|
|
|
|
|
|
|
|
@itemize
|
|
|
|
|
@item It does not rely on X.
|
|
|
|
|
@item Light can automatically figure out the best controller to use, making
|
|
|
|
|
full use of underlying hardware.
|
|
|
|
|
@item It is possible to set a minimum brightness value, as some controllers
|
|
|
|
|
set the screen to be pitch black at a vaĺue of 0 (or higher).
|
|
|
|
|
@end itemize
|
|
|
|
|
|
|
|
|
|
Light is the successor of lightscript.")
|
|
|
|
|
(license license:gpl3+)))
|
2017-02-07 00:13:10 +01:00
|
|
|
|
|
2017-01-31 22:01:18 +01:00
|
|
|
|
(define-public tlp
|
|
|
|
|
(package
|
|
|
|
|
(name "tlp")
|
2018-02-10 10:36:03 +01:00
|
|
|
|
(version "1.1")
|
2017-01-31 22:01:18 +01:00
|
|
|
|
(source (origin
|
|
|
|
|
(method url-fetch)
|
|
|
|
|
(uri (string-append
|
|
|
|
|
"https://github.com/linrunner/"
|
|
|
|
|
(string-upcase name)
|
|
|
|
|
"/archive/" version ".tar.gz"))
|
|
|
|
|
(file-name (string-append name "-" version ".tar.gz"))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
2018-02-10 10:36:03 +01:00
|
|
|
|
"068hzmh90x600saynbl7iwg1pm0ywldn4jazyxx5y1fixs8s1qbn"))))
|
2017-01-31 22:01:18 +01:00
|
|
|
|
(inputs `(("bash" ,bash)
|
|
|
|
|
("dbus" ,dbus)
|
|
|
|
|
("ethtool" ,ethtool)
|
|
|
|
|
("eudev" ,eudev)
|
|
|
|
|
("grep" ,grep)
|
|
|
|
|
("hdparm" ,hdparm)
|
|
|
|
|
("inetutils" ,inetutils)
|
|
|
|
|
("iw" ,iw)
|
|
|
|
|
("kmod" ,kmod)
|
|
|
|
|
("pciutils" ,pciutils)
|
|
|
|
|
("perl" ,perl)
|
|
|
|
|
("rfkill" ,rfkill)
|
|
|
|
|
("sed" ,sed)
|
|
|
|
|
("usbutils" ,usbutils)
|
|
|
|
|
("util-linux" ,util-linux)
|
|
|
|
|
("wireless-tools" ,wireless-tools)))
|
|
|
|
|
(build-system gnu-build-system)
|
|
|
|
|
(arguments
|
|
|
|
|
`(#:phases
|
|
|
|
|
(modify-phases %standard-phases
|
2017-05-03 17:22:33 +02:00
|
|
|
|
(delete 'configure) ; no configure script
|
2017-01-31 22:01:18 +01:00
|
|
|
|
(add-before 'build 'setenv
|
|
|
|
|
(lambda* (#:key outputs #:allow-other-keys)
|
|
|
|
|
(let ((out (assoc-ref outputs "out")))
|
|
|
|
|
(setenv "TLP_WITH_SYSTEMD" "0")
|
|
|
|
|
(setenv "TLP_NO_INIT" "1")
|
|
|
|
|
(setenv "TLP_NO_PMUTILS" "1")
|
|
|
|
|
(setenv "TLP_SBIN" (string-append out "/bin"))
|
|
|
|
|
(setenv "TLP_BIN" (string-append out "/bin"))
|
|
|
|
|
(setenv "TLP_TLIB" (string-append out "/share/tlp-pm"))
|
|
|
|
|
(setenv "TLP_ULIB" (string-append out "/lib/udev"))
|
2017-03-24 11:00:12 +01:00
|
|
|
|
(setenv "TLP_CONF" "/etc/tlp")
|
2017-01-31 22:01:18 +01:00
|
|
|
|
(setenv "TLP_SHCPL"
|
|
|
|
|
(string-append out "/share/bash-completion/completions"))
|
2018-02-10 12:47:59 +01:00
|
|
|
|
(setenv "TLP_MAN" (string-append out "/share/man"))
|
|
|
|
|
(setenv "TLP_META" (string-append out "/share/metainfo")))))
|
2017-05-03 17:22:33 +02:00
|
|
|
|
(delete 'check) ; no tests
|
|
|
|
|
(add-before 'install 'fix-installation
|
|
|
|
|
(lambda _
|
|
|
|
|
;; Stop the Makefile from trying to create system directories.
|
|
|
|
|
(substitute* "Makefile" (("\\[ -f \\$\\(_CONF\\) \\]") "#"))))
|
2017-01-31 22:01:18 +01:00
|
|
|
|
(replace 'install
|
|
|
|
|
(lambda _
|
2018-02-10 12:47:59 +01:00
|
|
|
|
(invoke "make" "install-tlp" "install-man")
|
|
|
|
|
#t))
|
2017-01-31 22:01:18 +01:00
|
|
|
|
(add-after 'install 'wrap
|
|
|
|
|
(lambda* (#:key inputs outputs #:allow-other-keys)
|
|
|
|
|
(let* ((bin (string-append (assoc-ref outputs "out") "/bin"))
|
|
|
|
|
(bin-files (find-files bin ".*")))
|
|
|
|
|
(define (bin-directory input-name)
|
|
|
|
|
(string-append (assoc-ref inputs input-name) "/bin"))
|
|
|
|
|
(define (sbin-directory input-name)
|
|
|
|
|
(string-append (assoc-ref inputs input-name) "/sbin"))
|
|
|
|
|
(for-each (lambda (program)
|
|
|
|
|
(wrap-program program
|
|
|
|
|
`("PATH" ":" prefix
|
|
|
|
|
,(append
|
|
|
|
|
(map bin-directory '("bash"
|
|
|
|
|
"coreutils"
|
|
|
|
|
"dbus"
|
|
|
|
|
"eudev"
|
|
|
|
|
"grep"
|
|
|
|
|
"inetutils"
|
|
|
|
|
"kmod"
|
|
|
|
|
"perl"
|
|
|
|
|
"sed"
|
|
|
|
|
"usbutils"
|
|
|
|
|
"util-linux"))
|
|
|
|
|
(map sbin-directory '("ethtool"
|
|
|
|
|
"hdparm"
|
|
|
|
|
"iw"
|
|
|
|
|
"pciutils"
|
|
|
|
|
"rfkill"
|
|
|
|
|
"wireless-tools"))))))
|
|
|
|
|
bin-files)))))))
|
|
|
|
|
(home-page "http://linrunner.de/en/tlp/tlp.html")
|
|
|
|
|
(synopsis "Power management tool for Linux")
|
|
|
|
|
(description "TLP is a power management tool for Linux. It comes with
|
|
|
|
|
a default configuration already optimized for battery life. Nevertheless,
|
|
|
|
|
TLP is customizable to fulfil system requirements. TLP settings are applied
|
|
|
|
|
every time the power supply source is changed.")
|
|
|
|
|
|
|
|
|
|
;; 'COPYING' is a custom version that says that one file is GPLv3+ and the
|
|
|
|
|
;; rest is GPLv2+.
|
|
|
|
|
(license (list license:gpl2+ license:gpl3+))))
|
|
|
|
|
|
2017-02-07 00:13:10 +01:00
|
|
|
|
(define-public lshw
|
|
|
|
|
(package
|
|
|
|
|
(name "lshw")
|
|
|
|
|
(version "B.02.18")
|
|
|
|
|
(source (origin
|
|
|
|
|
(method url-fetch)
|
|
|
|
|
(uri (string-append "https://www.ezix.org/software/"
|
|
|
|
|
"files/lshw-" version
|
|
|
|
|
".tar.gz"))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
|
|
|
|
"0brwra4jld0d53d7jsgca415ljglmmx1l2iazpj4ndilr48yy8mf"))))
|
|
|
|
|
(build-system gnu-build-system)
|
|
|
|
|
(arguments
|
|
|
|
|
`(#:phases (modify-phases %standard-phases (delete 'configure))
|
|
|
|
|
#:tests? #f ; no tests
|
|
|
|
|
#:make-flags
|
|
|
|
|
(list (string-append "PREFIX=" (assoc-ref %outputs "out")))))
|
|
|
|
|
(synopsis "List hardware information")
|
|
|
|
|
(description
|
|
|
|
|
"@command{lshw} (Hardware Lister) is a small tool to provide
|
|
|
|
|
detailed information on the hardware configuration of the machine.
|
|
|
|
|
It can report exact memory configuration, firmware version, mainboard
|
|
|
|
|
configuration, CPU version and speed, cache configuration, bus speed,
|
|
|
|
|
and more on DMI-capable x86 or EFI (IA-64) systems and on some PowerPC
|
|
|
|
|
machines (PowerMac G4 is known to work).")
|
|
|
|
|
(home-page "https://www.ezix.org/project/wiki/HardwareLiSter")
|
|
|
|
|
(license license:gpl2+)))
|
2017-04-15 23:57:00 +02:00
|
|
|
|
|
|
|
|
|
(define-public libmnl
|
|
|
|
|
(package
|
|
|
|
|
(name "libmnl")
|
|
|
|
|
(version "1.0.4")
|
|
|
|
|
(source
|
|
|
|
|
(origin
|
|
|
|
|
(method url-fetch)
|
2017-02-27 01:32:57 +01:00
|
|
|
|
(uri (string-append "mirror://netfilter.org/libmnl/"
|
2017-04-15 23:57:00 +02:00
|
|
|
|
"libmnl-" version ".tar.bz2"))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
|
|
|
|
"108zampspaalv44zn0ar9h386dlfixpd149bnxa5hsi8kxlqj7qp"))))
|
|
|
|
|
(build-system gnu-build-system)
|
|
|
|
|
(home-page "https://www.netfilter.org/projects/libmnl/")
|
|
|
|
|
(synopsis "Netlink utility library")
|
|
|
|
|
(description "Libmnl is a minimalistic user-space library oriented to
|
|
|
|
|
Netlink developers. There are a lot of common tasks in parsing, validating,
|
|
|
|
|
constructing of both the Netlink header and TLVs that are repetitive and easy to
|
|
|
|
|
get wrong. This library aims to provide simple helpers that allows you to
|
|
|
|
|
re-use code and to avoid re-inventing the wheel.")
|
|
|
|
|
(license license:lgpl2.1+)))
|
2017-04-16 00:12:31 +02:00
|
|
|
|
|
|
|
|
|
(define-public libnftnl
|
|
|
|
|
(package
|
|
|
|
|
(name "libnftnl")
|
2018-05-16 15:57:06 +02:00
|
|
|
|
(version "1.1.0")
|
2017-04-16 00:12:31 +02:00
|
|
|
|
(source
|
|
|
|
|
(origin
|
|
|
|
|
(method url-fetch)
|
2017-02-27 01:32:57 +01:00
|
|
|
|
(uri (string-append "mirror://netfilter.org/libnftnl/"
|
2017-04-16 00:12:31 +02:00
|
|
|
|
"libnftnl-" version ".tar.bz2"))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
2018-05-16 15:57:06 +02:00
|
|
|
|
"0v4gywcjvv2vg4zk632al1zv3ad0lx87nshynv110l8n3fhsq3pc"))))
|
2017-04-16 00:12:31 +02:00
|
|
|
|
(build-system gnu-build-system)
|
|
|
|
|
(native-inputs
|
|
|
|
|
`(("pkg-config" ,pkg-config)))
|
|
|
|
|
(inputs
|
|
|
|
|
`(("libmnl" ,libmnl)))
|
|
|
|
|
(home-page "https://www.netfilter.org/projects/libnftnl/index.html")
|
|
|
|
|
(synopsis "Netlink programming interface to the Linux nf_tables subsystem")
|
|
|
|
|
(description "Libnftnl is a userspace library providing a low-level netlink
|
|
|
|
|
programming interface to the in-kernel nf_tables subsystem. The library
|
|
|
|
|
libnftnl has been previously known as libnftables. This library is currently
|
|
|
|
|
used by nftables.")
|
|
|
|
|
(license license:gpl2+)))
|
2017-05-11 17:48:58 +02:00
|
|
|
|
|
2017-06-08 10:33:36 +02:00
|
|
|
|
(define-public nftables
|
|
|
|
|
(package
|
|
|
|
|
(name "nftables")
|
2018-01-25 08:32:13 +01:00
|
|
|
|
(version "0.8.1")
|
2017-06-08 10:33:36 +02:00
|
|
|
|
(source
|
|
|
|
|
(origin
|
|
|
|
|
(method url-fetch)
|
|
|
|
|
(uri (string-append "http://www.nftables.org/projects/nftables"
|
|
|
|
|
"/files/nftables-" version ".tar.bz2"))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
2018-01-25 08:32:13 +01:00
|
|
|
|
"1i1gfy8l7qyhc5vlrpp63s0n5kybmc9pi4dywiq8rmkhrrnddsla"))))
|
2017-06-08 10:33:36 +02:00
|
|
|
|
(build-system gnu-build-system)
|
2018-03-16 16:50:14 +01:00
|
|
|
|
(inputs `(("bison" ,bison)
|
|
|
|
|
("flex" ,flex)
|
|
|
|
|
("gmp" ,gmp)
|
|
|
|
|
("libmnl" ,libmnl)
|
|
|
|
|
("libnftnl" ,libnftnl)
|
|
|
|
|
("readline" ,readline)))
|
|
|
|
|
(native-inputs `(("pkg-config" ,pkg-config)))
|
2017-06-08 10:33:36 +02:00
|
|
|
|
(home-page "http://www.nftables.org")
|
|
|
|
|
(synopsis "Userspace utility for Linux packet filtering")
|
|
|
|
|
(description "nftables is the project that aims to replace the existing
|
|
|
|
|
{ip,ip6,arp,eb}tables framework. Basically, this project provides a new packet
|
|
|
|
|
filtering framework, a new userspace utility and also a compatibility layer for
|
|
|
|
|
{ip,ip6}tables. nftables is built upon the building blocks of the Netfilter
|
|
|
|
|
infrastructure such as the existing hooks, the connection tracking system, the
|
|
|
|
|
userspace queueing component and the logging subsystem.")
|
|
|
|
|
(license license:gpl2)))
|
|
|
|
|
|
2017-05-11 17:48:58 +02:00
|
|
|
|
(define-public proot
|
|
|
|
|
(package
|
|
|
|
|
(name "proot")
|
|
|
|
|
(version "5.1.0")
|
|
|
|
|
(home-page "https://github.com/proot-me/PRoot")
|
|
|
|
|
(source (origin
|
|
|
|
|
(method url-fetch)
|
|
|
|
|
(uri (string-append home-page "/archive/v" version ".tar.gz"))
|
|
|
|
|
(file-name (string-append name "-" version ".tar.gz"))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
|
|
|
|
"11h30i83vdhc3khlj6hrh3a21sbmmz8nhfv09vkf6b9bcs1biz2h"))
|
|
|
|
|
(patches (search-patches "proot-test-fhs.patch"))))
|
|
|
|
|
(build-system gnu-build-system)
|
|
|
|
|
(arguments
|
|
|
|
|
'(#:make-flags '("-C" "src")
|
|
|
|
|
|
|
|
|
|
#:phases (modify-phases %standard-phases
|
|
|
|
|
(delete 'configure)
|
|
|
|
|
(add-before 'build 'set-shell-file-name
|
|
|
|
|
(lambda* (#:key inputs #:allow-other-keys)
|
|
|
|
|
(substitute* (find-files "src" "\\.[ch]$")
|
|
|
|
|
(("\"/bin/sh\"")
|
|
|
|
|
(string-append "\""
|
|
|
|
|
(assoc-ref inputs "bash")
|
|
|
|
|
"/bin/sh\"")))
|
|
|
|
|
#t))
|
|
|
|
|
(add-before 'check 'fix-fhs-assumptions-in-tests
|
|
|
|
|
(lambda _
|
|
|
|
|
(substitute* "tests/test-c6b77b77.mk"
|
|
|
|
|
(("/bin/bash") (which "bash"))
|
|
|
|
|
(("/usr/bin/test") (which "test")))
|
|
|
|
|
(substitute* '("tests/test-16573e73.c")
|
|
|
|
|
(("/bin/([a-z-]+)" _ program)
|
|
|
|
|
(which program)))
|
|
|
|
|
|
|
|
|
|
(substitute* (find-files "tests" "\\.sh$")
|
|
|
|
|
;; Some of the tests try to "bind-mount" /bin/true.
|
|
|
|
|
(("-b /bin/true:")
|
|
|
|
|
(string-append "-b " (which "true") ":"))
|
|
|
|
|
;; Likewise for /bin.
|
|
|
|
|
(("-b /bin:") "-b /gnu:")
|
|
|
|
|
;; Others try to run /bin/sh.
|
|
|
|
|
(("/bin/sh") (which "sh"))
|
|
|
|
|
;; Others assume /etc/fstab exists.
|
|
|
|
|
(("/etc/fstab") "/etc/passwd"))
|
|
|
|
|
|
|
|
|
|
(substitute* "tests/GNUmakefile"
|
|
|
|
|
(("-b /bin:") "-b /gnu:"))
|
|
|
|
|
|
|
|
|
|
;; XXX: This test fails in an obscure corner case, just
|
|
|
|
|
;; skip it.
|
|
|
|
|
(delete-file "tests/test-kkkkkkkk.c")
|
|
|
|
|
|
|
|
|
|
#t))
|
|
|
|
|
(replace 'check
|
|
|
|
|
(lambda _
|
|
|
|
|
(let ((n (parallel-job-count)))
|
|
|
|
|
;; For some reason we get lots of segfaults with
|
|
|
|
|
;; seccomp support (x86_64, Linux-libre 4.11.0).
|
|
|
|
|
(setenv "PROOT_NO_SECCOMP" "1")
|
|
|
|
|
|
|
|
|
|
;; Most of the tests expect "/bin" to be in $PATH so
|
|
|
|
|
;; they can run things that live in $ROOTFS/bin.
|
|
|
|
|
(setenv "PATH"
|
|
|
|
|
(string-append (getenv "PATH") ":/bin"))
|
|
|
|
|
|
|
|
|
|
(zero? (system* "make" "check" "-C" "tests"
|
|
|
|
|
;;"V=1"
|
|
|
|
|
"-j" (number->string n))))))
|
|
|
|
|
(replace 'install
|
|
|
|
|
(lambda* (#:key outputs #:allow-other-keys)
|
|
|
|
|
;; The 'install' rule does nearly nothing.
|
|
|
|
|
(let ((out (assoc-ref outputs "out")))
|
|
|
|
|
(and (zero?
|
|
|
|
|
;; TODO: 'make install-care' (does not even
|
|
|
|
|
;; build currently.)
|
|
|
|
|
(system* "make" "-C" "src" "install"
|
|
|
|
|
(string-append "PREFIX=" out)))
|
2017-06-15 15:47:32 +02:00
|
|
|
|
(let ((man1 (string-append out
|
|
|
|
|
"/share/man/man1")))
|
|
|
|
|
(mkdir-p man1)
|
|
|
|
|
(copy-file "doc/proot/man.1"
|
|
|
|
|
(string-append man1 "/proot.1"))
|
2017-05-11 17:48:58 +02:00
|
|
|
|
#t))))))))
|
|
|
|
|
(native-inputs `(("which" ,which)
|
|
|
|
|
|
|
|
|
|
;; For 'mcookie', used by some of the tests.
|
|
|
|
|
("util-linux" ,util-linux)))
|
|
|
|
|
(inputs `(("talloc" ,talloc)))
|
|
|
|
|
(synopsis "Unprivileged chroot, bind mount, and binfmt_misc")
|
|
|
|
|
(description
|
|
|
|
|
"PRoot is a user-space implementation of @code{chroot}, @code{mount --bind},
|
|
|
|
|
and @code{binfmt_misc}. This means that users don't need any privileges or
|
|
|
|
|
setup to do things like using an arbitrary directory as the new root
|
2018-01-19 16:25:13 +01:00
|
|
|
|
file system, making files accessible somewhere else in the file system
|
2017-05-11 17:48:58 +02:00
|
|
|
|
hierarchy, or executing programs built for another CPU architecture
|
|
|
|
|
transparently through QEMU user-mode. Also, developers can use PRoot as a
|
|
|
|
|
generic process instrumentation engine thanks to its extension mechanism.
|
|
|
|
|
Technically PRoot relies on @code{ptrace}, an unprivileged system-call
|
|
|
|
|
available in the kernel Linux.")
|
|
|
|
|
(license license:gpl2+)))
|
2017-05-12 11:55:14 +02:00
|
|
|
|
|
|
|
|
|
(define-public proot-static
|
|
|
|
|
(package
|
|
|
|
|
(inherit proot)
|
|
|
|
|
(name "proot-static")
|
|
|
|
|
(synopsis
|
|
|
|
|
"Unprivileged chroot, bind mount, and binfmt_misc (statically linked)")
|
|
|
|
|
(inputs `(("talloc" ,talloc/static)))
|
|
|
|
|
(arguments
|
|
|
|
|
(substitute-keyword-arguments (package-arguments proot)
|
|
|
|
|
((#:make-flags flags)
|
|
|
|
|
`(cons "LDFLAGS = -ltalloc -static -static-libgcc" ,flags))
|
|
|
|
|
((#:phases phases)
|
|
|
|
|
`(modify-phases ,phases
|
|
|
|
|
(add-after 'strip 'remove-store-references
|
|
|
|
|
(lambda* (#:key outputs #:allow-other-keys)
|
|
|
|
|
(let* ((out (assoc-ref outputs "out")))
|
|
|
|
|
(with-directory-excursion out
|
|
|
|
|
(remove-store-references "bin/proot")
|
|
|
|
|
#t))))))
|
|
|
|
|
((#:allowed-references _ '("out"))
|
|
|
|
|
'("out"))))))
|
2017-05-25 20:02:45 +02:00
|
|
|
|
|
|
|
|
|
(define-public cpuid
|
|
|
|
|
(package
|
|
|
|
|
(name "cpuid")
|
2018-04-27 00:51:02 +02:00
|
|
|
|
(version "20180419")
|
2017-05-25 20:02:45 +02:00
|
|
|
|
(source (origin
|
|
|
|
|
(method url-fetch)
|
|
|
|
|
(uri (string-append "http://www.etallen.com/cpuid/cpuid-"
|
|
|
|
|
version ".src.tar.gz"))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
2018-04-27 00:51:02 +02:00
|
|
|
|
"0cnxj72pjalsszhn862r6shw64zbrkw0k3mm36fn93bivswjnj12"))))
|
2017-05-25 20:02:45 +02:00
|
|
|
|
(build-system gnu-build-system)
|
|
|
|
|
(arguments
|
|
|
|
|
'(#:make-flags '("CC=gcc")
|
2018-04-27 00:51:02 +02:00
|
|
|
|
#:tests? #f ; no tests
|
2017-05-25 20:02:45 +02:00
|
|
|
|
#:phases (modify-phases %standard-phases
|
2018-04-27 00:51:02 +02:00
|
|
|
|
(delete 'configure) ; no configure script
|
2017-05-25 20:02:45 +02:00
|
|
|
|
(add-before 'install 'fix-makefile
|
|
|
|
|
(lambda* (#:key outputs #:allow-other-keys)
|
|
|
|
|
(substitute* "Makefile"
|
|
|
|
|
(("\\$\\(BUILDROOT\\)/usr") (assoc-ref outputs "out")))
|
|
|
|
|
;; Make the compressed manpages writable so that the
|
|
|
|
|
;; reset-gzip-timestamps phase does not error out.
|
|
|
|
|
(substitute* "Makefile"
|
|
|
|
|
(("-m 444") "-m 644"))
|
|
|
|
|
#t)))))
|
|
|
|
|
(inputs `(("perl" ,perl)))
|
|
|
|
|
(supported-systems '("i686-linux" "x86_64-linux"))
|
|
|
|
|
(home-page "http://www.etallen.com/cpuid.html")
|
|
|
|
|
(synopsis "Linux tool to dump x86 CPUID information about the CPU(s)")
|
|
|
|
|
(description "cpuid dumps detailed information about the CPU(s) gathered
|
|
|
|
|
from the CPUID instruction, and also determines the exact model of CPU(s). It
|
|
|
|
|
supports Intel, AMD, and VIA CPUs, as well as older Transmeta, Cyrix, UMC,
|
|
|
|
|
NexGen, Rise, and SiS CPUs.")
|
|
|
|
|
(license license:gpl2+)))
|
2017-06-24 00:46:02 +02:00
|
|
|
|
|
|
|
|
|
(define-public jmtpfs
|
|
|
|
|
(package
|
|
|
|
|
(name "jmtpfs")
|
|
|
|
|
(version "0.5")
|
|
|
|
|
(source
|
|
|
|
|
(origin
|
|
|
|
|
(method url-fetch)
|
|
|
|
|
(uri (string-append "https://github.com/JasonFerrara/jmtpfs/archive/v"
|
|
|
|
|
version ".tar.gz"))
|
|
|
|
|
(file-name (string-append name "-" version ".tar.gz"))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
|
|
|
|
"10v8d7mmx8b8123x5f9y9zaaa428ms6wkngwn2ra71n5a53wrjn0"))))
|
|
|
|
|
(build-system gnu-build-system)
|
|
|
|
|
(inputs
|
|
|
|
|
`(("file" ,file)
|
|
|
|
|
("fuse" ,fuse)
|
|
|
|
|
("libmtp" ,libmtp)))
|
|
|
|
|
(native-inputs
|
|
|
|
|
`(("pkg-config" ,pkg-config)))
|
|
|
|
|
(home-page "https://github.com/JasonFerrara/jmtpfs")
|
2018-01-19 16:25:13 +01:00
|
|
|
|
(synopsis "Use a FUSE file system to access data over MTP")
|
|
|
|
|
(description "jmtpfs uses FUSE (file system in userspace) to provide access
|
2017-06-24 00:46:02 +02:00
|
|
|
|
to data over the Media Transfer Protocol (MTP). Unprivileged users can mount
|
2018-01-19 16:25:13 +01:00
|
|
|
|
the MTP device as a file system.")
|
2017-06-24 00:46:02 +02:00
|
|
|
|
(license license:gpl3)))
|
2017-06-26 16:28:12 +02:00
|
|
|
|
|
|
|
|
|
(define-public procenv
|
|
|
|
|
(package
|
|
|
|
|
(name "procenv")
|
2017-11-21 10:44:24 +01:00
|
|
|
|
(version "0.50")
|
2017-06-26 16:28:12 +02:00
|
|
|
|
(source
|
|
|
|
|
(origin
|
|
|
|
|
(method url-fetch)
|
|
|
|
|
(uri (string-append "https://github.com/jamesodhunt/procenv/archive/"
|
|
|
|
|
version ".tar.gz"))
|
|
|
|
|
(file-name (string-append name "-" version ".tar.gz"))
|
|
|
|
|
(sha256
|
2017-11-21 10:44:24 +01:00
|
|
|
|
(base32 "0dvscyf47i3j5ay0amncqmqw9kd916689r2pqdvpnsrhp6j46zp1"))))
|
2017-06-26 16:28:12 +02:00
|
|
|
|
(build-system gnu-build-system)
|
|
|
|
|
(arguments `(#:configure-flags '("--disable-silent-rules")))
|
2018-01-30 08:22:16 +01:00
|
|
|
|
(native-inputs `(("pkg-config" ,pkg-config)))
|
2017-06-26 16:28:12 +02:00
|
|
|
|
(inputs `(("expat" ,expat) ("libcap" ,libcap) ("check" ,check)
|
|
|
|
|
("groff" ,groff) ; for tests
|
|
|
|
|
("libselinux" ,libselinux)))
|
|
|
|
|
(synopsis "Utility to show process environment")
|
|
|
|
|
(description "Procenv is a command-line tool that displays as much detail about
|
|
|
|
|
itself and its environment as possible. It can be used as a test
|
|
|
|
|
tool, to understand the type of environment a process runs in, and for
|
|
|
|
|
comparing system environments.")
|
|
|
|
|
(home-page "http://github.com/jamesodhunt/procenv/")
|
|
|
|
|
(license license:gpl3+)))
|
2017-08-02 15:22:49 +02:00
|
|
|
|
|
|
|
|
|
(define-public libfabric
|
|
|
|
|
(package
|
|
|
|
|
(name "libfabric")
|
|
|
|
|
(version "1.4.1")
|
|
|
|
|
(source
|
|
|
|
|
(origin
|
|
|
|
|
(method url-fetch)
|
|
|
|
|
(uri
|
|
|
|
|
(string-append "https://github.com/ofiwg/libfabric/releases/download/v"
|
|
|
|
|
version "/libfabric-" version ".tar.bz2"))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32 "19l2m1frna1l765z4j7wl8hp4rb9wrh0hy5496685hd183hmy5pv"))))
|
|
|
|
|
(build-system gnu-build-system)
|
|
|
|
|
(inputs `(("rdma-core" ,rdma-core)
|
2017-11-07 19:26:34 +01:00
|
|
|
|
,@(match (%current-system)
|
|
|
|
|
((member (package-supported-systems psm))
|
|
|
|
|
`(("psm" ,psm)))
|
|
|
|
|
(_ `()))
|
2017-08-02 15:22:49 +02:00
|
|
|
|
("libnl" ,libnl)))
|
|
|
|
|
(home-page "https://ofiwg.github.io/libfabric/")
|
|
|
|
|
(synopsis "Open Fabric Interfaces")
|
|
|
|
|
(description
|
|
|
|
|
"OpenFabrics Interfaces (OFI) is a framework focused on exporting fabric
|
|
|
|
|
communication services to applications. OFI is best described as a collection
|
|
|
|
|
of libraries and applications used to export fabric services. The key
|
|
|
|
|
components of OFI are: application interfaces, provider libraries, kernel
|
|
|
|
|
services, daemons, and test applications.
|
|
|
|
|
|
|
|
|
|
Libfabric is a core component of OFI. It is the library that defines and
|
|
|
|
|
exports the user-space API of OFI, and is typically the only software that
|
|
|
|
|
applications deal with directly. It works in conjunction with provider
|
|
|
|
|
libraries, which are often integrated directly into libfabric.")
|
|
|
|
|
(license (list license:bsd-2 license:gpl2)))) ;dual
|
2017-11-07 17:57:47 +01:00
|
|
|
|
|
|
|
|
|
(define-public psm
|
|
|
|
|
(package
|
|
|
|
|
(name "psm")
|
|
|
|
|
(version "3.3.20170428")
|
2017-12-18 17:00:24 +01:00
|
|
|
|
(home-page "https://github.com/intel/psm")
|
2017-11-07 17:57:47 +01:00
|
|
|
|
(source
|
|
|
|
|
(origin
|
|
|
|
|
(method git-fetch)
|
2017-12-18 17:00:24 +01:00
|
|
|
|
(uri (git-reference (url home-page)
|
2017-11-07 17:57:47 +01:00
|
|
|
|
(commit "604758e76dc31e68d1de736ccf5ddf16cb22355b")))
|
|
|
|
|
(file-name (string-append "psm-" version ".tar.gz"))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32 "0nsb325dmhn5ia3d2cnksqr0gdvrrx2hmvlylfgvmaqdpq76zm85"))
|
|
|
|
|
(patches (search-patches
|
|
|
|
|
"psm-arch.patch" ; uname -p returns "unknown" on Debian 9
|
|
|
|
|
"psm-ldflags.patch" ; build shared lib with LDFLAGS
|
|
|
|
|
"psm-repro.patch")))) ; reproducibility
|
|
|
|
|
(build-system gnu-build-system)
|
|
|
|
|
(inputs `(("libuuid" ,util-linux)))
|
|
|
|
|
(arguments
|
|
|
|
|
'(#:make-flags `("PSM_USE_SYS_UUID=1" "CC=gcc" "WERROR="
|
|
|
|
|
,(string-append "INSTALL_PREFIX=" %output)
|
|
|
|
|
,(string-append "LDFLAGS=-Wl,-rpath=" %output "/lib"))
|
|
|
|
|
#:tests? #f
|
|
|
|
|
#:phases (modify-phases %standard-phases
|
|
|
|
|
(delete 'configure)
|
|
|
|
|
(add-after 'unpack 'patch-/usr/include
|
|
|
|
|
(lambda _
|
|
|
|
|
(substitute* "Makefile"
|
|
|
|
|
(("\\$\\{DESTDIR}/usr/include")
|
|
|
|
|
(string-append %output "/include")))
|
|
|
|
|
(substitute* "Makefile"
|
|
|
|
|
(("/lib64") "/lib"))
|
|
|
|
|
#t)))))
|
|
|
|
|
(synopsis "Intel Performance Scaled Messaging (PSM) Libraries")
|
|
|
|
|
(description
|
|
|
|
|
"The PSM Messaging API, or PSM API, is Intel's low-level user-level
|
|
|
|
|
communications interface for the True Scale family of products. PSM users are
|
|
|
|
|
enabled with mechanisms necessary to implement higher level communications
|
|
|
|
|
interfaces in parallel environments.")
|
2017-11-07 19:15:47 +01:00
|
|
|
|
;; Only Intel-compatable processors are supported.
|
|
|
|
|
(supported-systems '("i686-linux" "x86_64-linux"))
|
2017-11-07 17:57:47 +01:00
|
|
|
|
(license (list license:bsd-2 license:gpl2)))) ;dual
|
2017-12-09 22:01:11 +01:00
|
|
|
|
|
|
|
|
|
(define-public snapscreenshot
|
|
|
|
|
(package
|
|
|
|
|
(name "snapscreenshot")
|
|
|
|
|
(version "1.0.14.3")
|
|
|
|
|
(source
|
|
|
|
|
(origin
|
|
|
|
|
(method url-fetch)
|
|
|
|
|
(uri (string-append "http://bisqwit.iki.fi/src/arch/"
|
|
|
|
|
name "-" version ".tar.bz2"))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32 "0gzvqsbf6a2sbd1mqvj1lbm57i2bm5k0cr6ncr821d1f32gw03mk"))))
|
|
|
|
|
(build-system gnu-build-system)
|
|
|
|
|
(arguments
|
|
|
|
|
`(#:make-flags
|
|
|
|
|
(let ((out (assoc-ref %outputs "out")))
|
|
|
|
|
(list (string-append "BINDIR=" out "/bin")
|
|
|
|
|
(string-append "MANDIR=" out "/share/man")))
|
|
|
|
|
#:tests? #f ; no test suite
|
|
|
|
|
#:phases
|
|
|
|
|
(modify-phases %standard-phases
|
|
|
|
|
(delete 'configure) ; ./configure is a snarky no-op
|
|
|
|
|
(add-before 'install 'fix-ownership
|
|
|
|
|
;; Install binaries owned by ‘root’ instead of the nonexistent ‘bin’.
|
|
|
|
|
(lambda _
|
|
|
|
|
(substitute* "depfun.mak"
|
|
|
|
|
((" -o bin -g bin ") " "))
|
|
|
|
|
#t))
|
|
|
|
|
(add-before 'install 'create-output-directories
|
|
|
|
|
(lambda* (#:key outputs #:allow-other-keys)
|
|
|
|
|
(let ((out (assoc-ref outputs "out")))
|
|
|
|
|
(mkdir-p (string-append out "/share/man/man1"))
|
|
|
|
|
#t))))))
|
2018-01-15 07:29:02 +01:00
|
|
|
|
(home-page "https://bisqwit.iki.fi/source/snapscreenshot.html")
|
2017-12-09 22:01:11 +01:00
|
|
|
|
(synopsis "Take screenshots of one or more Linux text consoles")
|
|
|
|
|
(description
|
|
|
|
|
"snapscreenshot saves a screenshot of one or more Linux text consoles as a
|
|
|
|
|
Targa (@dfn{.tga}) image. It can be used by anyone with read access to the
|
|
|
|
|
relevant @file{/dev/vcs*} file(s).")
|
|
|
|
|
(license license:gpl2)))
|
2017-12-09 22:16:08 +01:00
|
|
|
|
|
|
|
|
|
(define-public fbcat
|
|
|
|
|
(package
|
|
|
|
|
(name "fbcat")
|
2018-01-26 22:59:15 +01:00
|
|
|
|
(version "0.5.1")
|
2017-12-09 22:16:08 +01:00
|
|
|
|
(source
|
|
|
|
|
(origin
|
|
|
|
|
(method url-fetch)
|
|
|
|
|
(uri (string-append "https://github.com/jwilk/fbcat/releases/download/"
|
|
|
|
|
version "/" name "-" version ".tar.gz"))
|
|
|
|
|
(sha256
|
2018-01-26 22:59:15 +01:00
|
|
|
|
(base32 "0pj9hxmwhbz6kmd7847yx2jh1scl9l25zgndyi8s9vlzdkq2q8d7"))))
|
2017-12-09 22:16:08 +01:00
|
|
|
|
(build-system gnu-build-system)
|
|
|
|
|
(inputs
|
|
|
|
|
;; The ‘fbgrab’ wrapper can use one of several PPM-to-PNG converters. We
|
|
|
|
|
;; choose netpbm simply because it's the smallest. It still adds ~94 MiB
|
|
|
|
|
;; to an otherwise tiny package, so we put ‘fbgrab’ in its own output.
|
|
|
|
|
`(("pnmtopng" ,netpbm)))
|
|
|
|
|
(outputs (list "out" "fbgrab"))
|
|
|
|
|
(arguments
|
2018-01-26 22:59:15 +01:00
|
|
|
|
`(#:make-flags
|
|
|
|
|
(list "CC=gcc"
|
|
|
|
|
(string-append "PREFIX=" (assoc-ref %outputs "out")))
|
2017-12-09 22:16:08 +01:00
|
|
|
|
#:tests? #f ; no tests
|
|
|
|
|
#:phases
|
|
|
|
|
(modify-phases %standard-phases
|
|
|
|
|
(delete 'configure) ; no configure script
|
|
|
|
|
(add-after 'build 'qualify-references
|
|
|
|
|
(lambda* (#:key inputs outputs #:allow-other-keys)
|
|
|
|
|
(let* ((pnmtopng (assoc-ref inputs "pnmtopng"))
|
|
|
|
|
(out (assoc-ref outputs "out")))
|
|
|
|
|
(substitute* "fbgrab"
|
|
|
|
|
(("fbcat" all)
|
|
|
|
|
(string-append out "/bin/" all))
|
|
|
|
|
(("pnmtopng" all)
|
|
|
|
|
(string-append pnmtopng "/bin/" all)))
|
|
|
|
|
#t)))
|
2018-01-26 22:59:15 +01:00
|
|
|
|
(add-after 'install 'split-fbgrab-output
|
2017-12-09 22:16:08 +01:00
|
|
|
|
(lambda* (#:key outputs #:allow-other-keys)
|
|
|
|
|
(let* ((out (assoc-ref outputs "out"))
|
|
|
|
|
(out:fbgrab (assoc-ref outputs "fbgrab")))
|
2018-01-26 22:59:15 +01:00
|
|
|
|
(for-each (lambda (file)
|
|
|
|
|
(let ((old (string-append out "/" file))
|
|
|
|
|
(new (string-append out:fbgrab "/" file)))
|
|
|
|
|
(mkdir-p (dirname new))
|
|
|
|
|
(rename-file old new)))
|
|
|
|
|
(list "bin/fbgrab"
|
|
|
|
|
"share/man/man1/fbgrab.1"))
|
2017-12-09 22:16:08 +01:00
|
|
|
|
#t))))))
|
|
|
|
|
(home-page "https://jwilk.net/software/fbcat")
|
|
|
|
|
(synopsis "Take a screenshot of the contents of the Linux framebuffer")
|
|
|
|
|
(description
|
|
|
|
|
"fbcat saves the contents of the Linux framebuffer (@file{/dev/fb*}), or
|
|
|
|
|
a dump therof. It supports a wide range of drivers and pixel formats.
|
|
|
|
|
@command{fbcat} can take screenshots of virtually any application that can be
|
|
|
|
|
made to write its output to the framebuffer, including (but not limited to)
|
|
|
|
|
text-mode or graphical applications that don't use a display server.
|
|
|
|
|
|
|
|
|
|
Also included is @command{fbgrab}, a wrapper around @command{fbcat} that
|
|
|
|
|
emulates the behaviour of Gunnar Monell's older fbgrab utility.")
|
|
|
|
|
(license license:gpl2)))
|
2018-04-07 12:47:20 +02:00
|
|
|
|
|
|
|
|
|
(define-public libcgroup
|
|
|
|
|
(package
|
|
|
|
|
(name "libcgroup")
|
|
|
|
|
(version "0.41")
|
|
|
|
|
(source
|
|
|
|
|
(origin
|
|
|
|
|
(method url-fetch)
|
|
|
|
|
(uri (string-append
|
|
|
|
|
"mirror://sourceforge/libcg/" name "/"
|
|
|
|
|
version "/" name "-" version ".tar.bz2"))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32 "0lgvyq37gq84sk30sg18admxaj0j0p5dq3bl6g74a1ppgvf8pqz4"))))
|
|
|
|
|
(build-system gnu-build-system)
|
|
|
|
|
(arguments
|
|
|
|
|
`(#:tests? #f))
|
|
|
|
|
(native-inputs
|
|
|
|
|
`(("bison" ,bison)
|
|
|
|
|
("flex" ,flex)))
|
|
|
|
|
(inputs
|
|
|
|
|
`(("linux-pam" ,linux-pam)))
|
|
|
|
|
(home-page "https://sourceforge.net/projects/libcg/")
|
|
|
|
|
(synopsis "Control groups management tools")
|
|
|
|
|
(description "Control groups is Linux kernel method for process resource
|
|
|
|
|
restriction, permission handling and more. This package provides userspace
|
|
|
|
|
interface to this kernel feature.")
|
|
|
|
|
(license license:lgpl2.1)))
|
2018-04-15 05:34:48 +02:00
|
|
|
|
|
|
|
|
|
(define-public mbpfan
|
|
|
|
|
(package
|
|
|
|
|
(name "mbpfan")
|
|
|
|
|
(version "2.0.2")
|
|
|
|
|
(source
|
|
|
|
|
(origin
|
|
|
|
|
(method url-fetch)
|
|
|
|
|
(uri (string-append "https://github.com/dgraziotin/mbpfan/archive/v"
|
|
|
|
|
version ".tar.gz"))
|
|
|
|
|
(file-name (string-append name "-" version ".tar.gz"))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
|
|
|
|
"0wifsws9icki95hhfh4zw1hmk07ddmkcz9mg5a9jr7q2kkrk01cx"))))
|
|
|
|
|
(build-system gnu-build-system)
|
|
|
|
|
(arguments
|
|
|
|
|
'(#:tests? #f ; no tests
|
|
|
|
|
#:make-flags (let ((out (assoc-ref %outputs "out")))
|
|
|
|
|
(list (string-append "DESTDIR=" out)
|
|
|
|
|
"CC=gcc"))
|
|
|
|
|
#:phases
|
|
|
|
|
(modify-phases %standard-phases
|
|
|
|
|
(add-after 'unpack 'patch-paths
|
|
|
|
|
(lambda _
|
|
|
|
|
(substitute* "Makefile"
|
|
|
|
|
(("/usr") ""))
|
|
|
|
|
#t))
|
|
|
|
|
(delete 'configure)))) ; There's no configure phase.
|
|
|
|
|
(home-page "https://github.com/dgraziotin/mbpfan")
|
|
|
|
|
(synopsis "Control fan speed on Macbooks")
|
|
|
|
|
(description
|
|
|
|
|
"mbpfan is a fan control daemon for Apple Macbooks. It uses input from
|
|
|
|
|
the @code{coretemp} module and sets the fan speed using the @code{applesmc}
|
|
|
|
|
module. It can be executed as a daemon or in the foreground with root
|
|
|
|
|
privileges.")
|
|
|
|
|
(license license:gpl3+)))
|
2018-04-25 13:48:50 +02:00
|
|
|
|
|
|
|
|
|
(define-public psm2
|
|
|
|
|
(package
|
|
|
|
|
(name "psm2")
|
|
|
|
|
(version "10.3-46")
|
|
|
|
|
(source (origin
|
|
|
|
|
(method git-fetch)
|
|
|
|
|
(uri (git-reference
|
|
|
|
|
(url "https://github.com/intel/opa-psm2.git")
|
|
|
|
|
(commit (string-append "PSM2_" version))))
|
|
|
|
|
(file-name (git-file-name name version))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
|
|
|
|
"0wadphv4rl5p38x6a3dgpbijlzqdvcn02cfafnp72nh9faz0zvlx"))))
|
|
|
|
|
(build-system gnu-build-system)
|
|
|
|
|
(arguments
|
|
|
|
|
'(#:make-flags
|
|
|
|
|
`(,(string-append "LDFLAGS=-Wl,-rpath=" %output "/lib"))
|
|
|
|
|
#:tests? #f
|
|
|
|
|
#:phases (modify-phases %standard-phases
|
|
|
|
|
(delete 'configure)
|
|
|
|
|
(add-after 'unpack 'patch-Makefiles
|
|
|
|
|
(lambda _
|
|
|
|
|
(substitute* "Makefile"
|
|
|
|
|
(("/lib64") "/lib")
|
|
|
|
|
(("/usr") ""))
|
|
|
|
|
(substitute* "compat/Makefile"
|
|
|
|
|
(("/lib64") "/lib")
|
|
|
|
|
(("/usr") ""))
|
|
|
|
|
#t))
|
|
|
|
|
(replace 'install
|
|
|
|
|
(lambda _
|
|
|
|
|
(setenv "DESTDIR" %output)
|
|
|
|
|
(invoke "make" "install")
|
|
|
|
|
#t)))))
|
|
|
|
|
(inputs
|
|
|
|
|
`(("rdma-core" ,rdma-core)
|
|
|
|
|
("numactl" ,numactl)))
|
|
|
|
|
(synopsis "Intel Performance Scaled Messaging 2 (PSM2) library")
|
|
|
|
|
(description
|
|
|
|
|
"This package is low-level user-level Intel's communications interface.
|
|
|
|
|
The PSM2 API is a high-performance vendor-specific protocol that provides a
|
|
|
|
|
low-level communications interface for the Intel Omni-Path family of
|
|
|
|
|
high-speed networking devices.")
|
|
|
|
|
(home-page "https://github.com/intel/opa-psm2")
|
|
|
|
|
;; Only the x86_64 architecure is supported.
|
|
|
|
|
(supported-systems '("x86_64-linux"))
|
|
|
|
|
(license (list license:bsd-3 license:gpl2)))) ; dual
|
2018-04-20 17:30:57 +02:00
|
|
|
|
|
|
|
|
|
(define-public libpfm4
|
|
|
|
|
(package
|
|
|
|
|
(name "libpfm4")
|
|
|
|
|
(version "4.9.0")
|
|
|
|
|
(source (origin
|
|
|
|
|
(method url-fetch)
|
|
|
|
|
(uri (string-append "mirror://sourceforge/perfmon2/"
|
|
|
|
|
name "/libpfm-" version ".tar.gz"))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
|
|
|
|
"1qp4g4n6dw42p2w5rkwzdb7ynk8h7g5vg01ybpmvxncgwa7bw3yv"))))
|
|
|
|
|
(build-system gnu-build-system)
|
|
|
|
|
(arguments
|
|
|
|
|
'(#:modules ((guix build utils)
|
|
|
|
|
(guix build gnu-build-system))
|
|
|
|
|
#:phases (modify-phases %standard-phases
|
|
|
|
|
(delete 'configure)
|
|
|
|
|
(delete 'check)
|
|
|
|
|
(replace 'build
|
|
|
|
|
(lambda* (#:key inputs outputs #:allow-other-keys)
|
|
|
|
|
(let* ((out (assoc-ref outputs "out")))
|
|
|
|
|
(setenv "CC" "gcc")
|
|
|
|
|
(invoke "make")
|
|
|
|
|
#t)))
|
|
|
|
|
(replace 'install
|
|
|
|
|
(lambda* (#:key outputs #:allow-other-keys)
|
|
|
|
|
(let* ((out (assoc-ref outputs "out")))
|
|
|
|
|
(invoke "make"
|
|
|
|
|
(string-append "PREFIX=" out)
|
|
|
|
|
"install")
|
|
|
|
|
#t))))))
|
|
|
|
|
(synopsis "Performance event monitoring library")
|
|
|
|
|
(description
|
|
|
|
|
"This package provides a library called libpfm4, which is used to develop
|
|
|
|
|
monitoring tools exploiting the performance monitoring events such as those
|
|
|
|
|
provided by the Performance Monitoring Unit (PMU) of modern processors.
|
|
|
|
|
|
|
|
|
|
Libpfm4 helps convert from an event name, expressed as a string, to the event
|
|
|
|
|
encoding that is either the raw event as documented by the hardware vendor or
|
|
|
|
|
the OS-specific encoding. In the latter case, the library is able to prepare
|
|
|
|
|
the OS-specific data structures needed by the kernel to setup the event.
|
|
|
|
|
|
|
|
|
|
libpfm4 provides support for the @code{perf_events} interface, which was
|
|
|
|
|
introduced in Linux 2.6.31.")
|
|
|
|
|
(home-page "http://perfmon2.sourceforge.net/")
|
|
|
|
|
(license license:expat)))
|