2013-01-05 23:47:50 +00:00
|
|
|
|
;;; GNU Guix --- Functional package management for GNU
|
2016-02-02 17:17:30 +00:00
|
|
|
|
;;; Copyright © 2012, 2013, 2014, 2015, 2016 Ludovic Courtès <ludo@gnu.org>
|
2016-02-03 20:03:46 +00:00
|
|
|
|
;;; Copyright © 2013, 2014, 2015, 2016 Andreas Enge <andreas@enge.fr>
|
2013-01-05 23:47:50 +00:00
|
|
|
|
;;; Copyright © 2012 Nikita Karetnikov <nikita@karetnikov.org>
|
2016-01-20 18:04:35 +00:00
|
|
|
|
;;; Copyright © 2014, 2015, 2016 Mark H Weaver <mhw@netris.org>
|
2015-01-13 15:25:29 +00:00
|
|
|
|
;;; Copyright © 2015 Federico Beffa <beffa@fbengineering.ch>
|
2015-02-09 22:35:03 +00:00
|
|
|
|
;;; Copyright © 2015 Taylan Ulrich Bayırlı/Kammer <taylanbayirli@gmail.com>
|
2016-01-22 06:52:21 +00:00
|
|
|
|
;;; Copyright © 2015, 2016 Efraim Flashner <efraim@flashner.co.il>
|
2016-01-18 04:34:25 +00:00
|
|
|
|
;;; Copyright © 2016 Christopher Allan Webber <cwebber@dustycloud.org>
|
2016-02-10 04:01:46 +00:00
|
|
|
|
;;; Copyright © 2016 Tobias Geerinckx-Rice <tobias.geerinckx.rice@gmail.com>
|
2016-02-11 10:49:16 +00:00
|
|
|
|
;;; Copyright © 2016 Alex Kost <alezost@gmail.com>
|
2012-11-27 20:56:37 +00:00
|
|
|
|
;;;
|
2013-01-05 23:47:50 +00:00
|
|
|
|
;;; This file is part of GNU Guix.
|
2012-11-27 20:56:37 +00:00
|
|
|
|
;;;
|
2013-01-05 23:47:50 +00:00
|
|
|
|
;;; GNU Guix is free software; you can redistribute it and/or modify it
|
2012-11-27 20:56:37 +00: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-05 23:47:50 +00:00
|
|
|
|
;;; GNU Guix is distributed in the hope that it will be useful, but
|
2012-11-27 20:56:37 +00: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-05 23:47:50 +00:00
|
|
|
|
;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
|
2012-11-27 20:56:37 +00:00
|
|
|
|
|
2013-01-18 00:06:24 +00:00
|
|
|
|
(define-module (gnu packages linux)
|
2015-12-18 23:30:33 +00:00
|
|
|
|
#:use-module ((guix licenses) #:prefix license:)
|
2013-01-18 00:06:47 +00:00
|
|
|
|
#:use-module (gnu packages)
|
2015-03-04 16:02:07 +00:00
|
|
|
|
#:use-module (gnu packages compression)
|
2014-09-23 08:12:17 +00:00
|
|
|
|
#:use-module (gnu packages gcc)
|
2013-01-18 00:06:24 +00:00
|
|
|
|
#:use-module (gnu packages flex)
|
2013-06-17 21:53:42 +00:00
|
|
|
|
#:use-module (gnu packages bison)
|
2015-01-23 13:19:02 +00:00
|
|
|
|
#:use-module (gnu packages admin)
|
2014-06-07 19:27:30 +00:00
|
|
|
|
#:use-module (gnu packages gperf)
|
2013-01-18 00:06:24 +00:00
|
|
|
|
#:use-module (gnu packages libusb)
|
|
|
|
|
#:use-module (gnu packages ncurses)
|
2014-06-07 19:27:30 +00:00
|
|
|
|
#:use-module (gnu packages pciutils)
|
gnu: Consolidate databases in (gnu packages databases).
* gnu/packages/databases.scm: New file, with the contents of the
following deleted files.
* gnu/packages/mysql.scm, gnu/packages/postgresql.scm,
gnu/packages/recutils.scm, gnu/packages/sqlite.scm,
gnu/packages/bdb.scm: Remove.
* gnu-system.am (GNU_SYSTEM_MODULES): Adjust accordingly.
* gnu/packages/apl.scm, gnu/packages/dc.scm, gnu/packages/games.scm,
gnu/packages/gnunet.scm, gnu/packages/linux.scm, gnu/packages/mail.scm,
gnu/packages/mpd.scm, gnu/packages/nvi.scm, gnu/packages/openldap.scm,
gnu/packages/package-management.scm, gnu/packages/python.scm,
gnu/packages/qt.scm, gnu/packages/rdf.scm,
gnu/packages/version-control.scm: Adjust to new module name.
2014-09-08 15:48:03 +00:00
|
|
|
|
#:use-module (gnu packages databases)
|
2013-01-18 00:06:24 +00:00
|
|
|
|
#:use-module (gnu packages perl)
|
|
|
|
|
#:use-module (gnu packages pkg-config)
|
2014-01-27 16:45:21 +00:00
|
|
|
|
#:use-module (gnu packages python)
|
2015-01-21 13:54:56 +00:00
|
|
|
|
#:use-module (gnu packages slang)
|
2013-09-07 23:30:54 +00:00
|
|
|
|
#:use-module (gnu packages algebra)
|
gnu: gettext: Rename binding to 'gnu-gettext'.
* gnu/packages/gettext.scm (gettext): Rename to...
(gnu-gettext): ... this. This is used to work around the circular
dependency introduced in commit c42a4b7, which users with a #:renamer
cannot cope with.
* gnu/packages/acl.scm, gnu/packages/attr.scm, gnu/packages/cdrom.scm,
gnu/packages/fdisk.scm, gnu/packages/gkrellm.scm, gnu/packages/glib.scm,
gnu/packages/gnunet.scm, gnu/packages/grub.scm, gnu/packages/linux.scm,
gnu/packages/maths.scm, gnu/packages/nano.scm, gnu/packages/parted.scm,
gnu/packages/system.scm, gnu/packages/version-control.scm,
gnu/packages/vpn.scm, gnu/packages/w3m.scm, gnu/packages/wget.scm:
Adjust accordingly.
2013-11-20 21:12:49 +00:00
|
|
|
|
#:use-module (gnu packages gettext)
|
2014-05-28 10:31:06 +00:00
|
|
|
|
#:use-module (gnu packages glib)
|
2013-10-06 20:36:22 +00:00
|
|
|
|
#:use-module (gnu packages pulseaudio)
|
2013-10-05 14:47:12 +00:00
|
|
|
|
#:use-module (gnu packages attr)
|
2013-10-06 20:36:22 +00:00
|
|
|
|
#:use-module (gnu packages xml)
|
2013-10-31 22:29:25 +00:00
|
|
|
|
#:use-module (gnu packages autotools)
|
2014-05-06 12:26:49 +00:00
|
|
|
|
#:use-module (gnu packages texinfo)
|
2014-05-19 21:52:11 +00:00
|
|
|
|
#:use-module (gnu packages check)
|
2014-08-08 00:29:32 +00:00
|
|
|
|
#:use-module (gnu packages maths)
|
gnu: Move 'which' to (gnu packages base).
* gnu/packages/which.scm: Remove.
* gnu-system.am (GNU_SYSTEM_MODULES): Remove it.
* gnu/packages/base.scm (which): New variable.
* gnu/packages/aspell.scm, gnu/packages/audio.scm,
gnu/packages/autogen.scm, gnu/packages/cdrom.scm,
gnu/packages/compression.scm, gnu/packages/datamash.scm,
gnu/packages/games.scm, gnu/packages/glib.scm,
gnu/packages/gnu-pw-mgr.scm, gnu/packages/gnutls.scm,
gnu/packages/gps.scm, gnu/packages/guile.scm,
gnu/packages/java.scm, gnu/packages/libevent.scm,
gnu/packages/linux.scm, gnu/packages/lisp.scm,
gnu/packages/node.scm, gnu/packages/ntp.scm,
gnu/packages/orpheus.scm, gnu/packages/pciutils.scm,
gnu/packages/python.scm, gnu/packages/qt.scm,
gnu/packages/rsync.scm, gnu/packages/sawfish.scm,
gnu/packages/scheme.scm, gnu/packages/ssh.scm,
gnu/packages/statistics.scm, gnu/packages/texlive.scm,
gnu/packages/wdiff.scm: Adjust accordingly.
2015-03-04 16:21:21 +00:00
|
|
|
|
#:use-module (gnu packages base)
|
2014-08-08 00:29:32 +00:00
|
|
|
|
#:use-module (gnu packages rrdtool)
|
2014-09-30 13:56:47 +00:00
|
|
|
|
#:use-module (gnu packages elf)
|
2014-08-08 00:35:10 +00:00
|
|
|
|
#:use-module (gnu packages gtk)
|
2015-01-21 13:18:44 +00:00
|
|
|
|
#:use-module (gnu packages docbook)
|
|
|
|
|
#:use-module (gnu packages asciidoc)
|
2015-04-26 21:49:53 +00:00
|
|
|
|
#:use-module (gnu packages readline)
|
|
|
|
|
#:use-module (gnu packages calendar)
|
2015-12-10 14:34:42 +00:00
|
|
|
|
#:use-module (gnu packages tls)
|
2012-12-03 23:13:02 +00:00
|
|
|
|
#:use-module (guix packages)
|
|
|
|
|
#:use-module (guix download)
|
2014-09-13 08:46:10 +00:00
|
|
|
|
#:use-module (guix utils)
|
2014-01-27 16:45:21 +00:00
|
|
|
|
#:use-module (guix build-system gnu)
|
2014-03-10 21:31:08 +00:00
|
|
|
|
#:use-module (guix build-system cmake)
|
2014-05-03 14:37:04 +00:00
|
|
|
|
#:use-module (guix build-system python)
|
2014-07-09 22:31:31 +00:00
|
|
|
|
#:use-module (guix build-system trivial)
|
2016-02-02 06:18:44 +00:00
|
|
|
|
#:use-module (srfi srfi-1)
|
2016-02-02 06:11:12 +00:00
|
|
|
|
#:use-module (srfi srfi-2)
|
2014-07-09 22:31:31 +00:00
|
|
|
|
#:use-module (srfi srfi-26)
|
|
|
|
|
#:use-module (ice-9 match))
|
2012-11-27 20:56:37 +00:00
|
|
|
|
|
2013-02-27 08:25:00 +00:00
|
|
|
|
(define-public (system->linux-architecture arch)
|
|
|
|
|
"Return the Linux architecture name for ARCH, a Guix system name such as
|
|
|
|
|
\"x86_64-linux\"."
|
2013-02-19 11:17:08 +00:00
|
|
|
|
(let ((arch (car (string-split arch #\-))))
|
|
|
|
|
(cond ((string=? arch "i686") "i386")
|
|
|
|
|
((string-prefix? "mips" arch) "mips")
|
2013-02-27 08:25:00 +00:00
|
|
|
|
((string-prefix? "arm" arch) "arm")
|
2013-02-19 11:17:08 +00:00
|
|
|
|
(else arch))))
|
|
|
|
|
|
2013-07-17 13:32:52 +00:00
|
|
|
|
(define (linux-libre-urls version)
|
|
|
|
|
"Return a list of URLs for Linux-Libre VERSION."
|
|
|
|
|
(list (string-append
|
|
|
|
|
"http://linux-libre.fsfla.org/pub/linux-libre/releases/"
|
|
|
|
|
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 21:04:57 +00:00
|
|
|
|
(define-public linux-libre-headers
|
2015-04-06 14:25:03 +00:00
|
|
|
|
(let* ((version "3.14.37")
|
2012-11-27 21:04:57 +00:00
|
|
|
|
(build-phase
|
2013-02-19 11:17:08 +00:00
|
|
|
|
(lambda (arch)
|
|
|
|
|
`(lambda _
|
|
|
|
|
(setenv "ARCH" ,(system->linux-architecture arch))
|
|
|
|
|
(format #t "`ARCH' set to `~a'~%" (getenv "ARCH"))
|
2012-12-18 23:47:39 +00:00
|
|
|
|
|
2013-02-19 11:17:08 +00:00
|
|
|
|
(and (zero? (system* "make" "defconfig"))
|
|
|
|
|
(zero? (system* "make" "mrproper" "headers_check"))))))
|
2012-11-27 21:04:57 +00:00
|
|
|
|
(install-phase
|
|
|
|
|
`(lambda* (#:key outputs #:allow-other-keys)
|
|
|
|
|
(let ((out (assoc-ref outputs "out")))
|
|
|
|
|
(and (zero? (system* "make"
|
|
|
|
|
(string-append "INSTALL_HDR_PATH=" out)
|
|
|
|
|
"headers_install"))
|
2015-06-04 12:37:53 +00: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))))))
|
2012-11-27 21:04:57 +00:00
|
|
|
|
(package
|
|
|
|
|
(name "linux-libre-headers")
|
2013-10-15 21:42:58 +00:00
|
|
|
|
(version version)
|
2012-11-27 21:04:57 +00:00
|
|
|
|
(source (origin
|
|
|
|
|
(method url-fetch)
|
2013-07-17 13:32:52 +00:00
|
|
|
|
(uri (linux-libre-urls version))
|
2012-11-27 21:04:57 +00:00
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
2015-04-06 14:25:03 +00:00
|
|
|
|
"1blxr2bsvfqi9khj4cpspv434bmx252zak2wsbi2mgl60zh77gza"))))
|
2012-11-27 21:04:57 +00:00
|
|
|
|
(build-system gnu-build-system)
|
|
|
|
|
(native-inputs `(("perl" ,perl)))
|
|
|
|
|
(arguments
|
|
|
|
|
`(#:modules ((guix build gnu-build-system)
|
|
|
|
|
(guix build utils)
|
build-system/gnu: Unify with (guix build-system gnu-cross-build).
* guix/build/gnu-build-system.scm (set-paths): Add `native-inputs' and
`native-search-paths' keyword parameters. Honor them.
(configure): Add `target' and `native-inputs' keyword parameters.
Look for Bash in NATIVE-INPUTS or INPUTS. Pass `--host' when TARGET
is true.
(strip): Add `strip-command' keyword parameter. Use it.
* guix/build/gnu-cross-build.scm: Remove.
* Makefile.am (MODULES): Adjust accordingly.
* gnu/packages/acl.scm, gnu/packages/attr.scm, gnu/packages/base.scm,
gnu/packages/bash.scm, gnu/packages/gawk.scm,
gnu/packages/gettext.scm, gnu/packages/guile.scm,
gnu/packages/libffi.scm, gnu/packages/libsigsegv.scm,
gnu/packages/linux.scm, gnu/packages/ncurses.scm,
gnu/packages/readline.scm, guix/build-system/gnu.scm: Replace
`%standard-cross-phases' by `%standard-phases'. Remove references
to (guix build gnu-cross-build).
2013-06-20 22:25:54 +00:00
|
|
|
|
(srfi srfi-1))
|
2012-11-27 21:04:57 +00:00
|
|
|
|
#:phases (alist-replace
|
2013-10-10 19:34:10 +00:00
|
|
|
|
'build ,(build-phase (or (%current-target-system)
|
|
|
|
|
(%current-system)))
|
2012-11-27 21:04:57 +00:00
|
|
|
|
(alist-replace
|
|
|
|
|
'install ,install-phase
|
build-system/gnu: Unify with (guix build-system gnu-cross-build).
* guix/build/gnu-build-system.scm (set-paths): Add `native-inputs' and
`native-search-paths' keyword parameters. Honor them.
(configure): Add `target' and `native-inputs' keyword parameters.
Look for Bash in NATIVE-INPUTS or INPUTS. Pass `--host' when TARGET
is true.
(strip): Add `strip-command' keyword parameter. Use it.
* guix/build/gnu-cross-build.scm: Remove.
* Makefile.am (MODULES): Adjust accordingly.
* gnu/packages/acl.scm, gnu/packages/attr.scm, gnu/packages/base.scm,
gnu/packages/bash.scm, gnu/packages/gawk.scm,
gnu/packages/gettext.scm, gnu/packages/guile.scm,
gnu/packages/libffi.scm, gnu/packages/libsigsegv.scm,
gnu/packages/linux.scm, gnu/packages/ncurses.scm,
gnu/packages/readline.scm, guix/build-system/gnu.scm: Replace
`%standard-cross-phases' by `%standard-phases'. Remove references
to (guix build gnu-cross-build).
2013-06-20 22:25:54 +00:00
|
|
|
|
(alist-delete 'configure %standard-phases)))
|
2015-06-04 12:37:53 +00:00
|
|
|
|
#:allowed-references ()
|
2012-11-27 21:04:57 +00:00
|
|
|
|
#:tests? #f))
|
|
|
|
|
(synopsis "GNU Linux-Libre kernel headers")
|
|
|
|
|
(description "Headers of the Linux-Libre kernel.")
|
2015-12-18 23:30:33 +00:00
|
|
|
|
(license license:gpl2)
|
2012-11-27 21:04:57 +00:00
|
|
|
|
(home-page "http://www.gnu.org/software/linux-libre/"))))
|
|
|
|
|
|
2013-02-11 10:39:57 +00: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
|
2014-06-04 14:22:48 +00:00
|
|
|
|
"0jxnz9ahfic79rp93l5wxcbgh4pkv85mwnjlbv1gz3jawv5cvwp1"))
|
|
|
|
|
(patches
|
|
|
|
|
(list (search-patch "module-init-tools-moduledir.patch")))))
|
2013-02-11 10:39:57 +00:00
|
|
|
|
(build-system gnu-build-system)
|
|
|
|
|
(arguments
|
2013-09-27 06:41:19 +00:00
|
|
|
|
;; 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.
|
2013-02-11 10:39:57 +00:00
|
|
|
|
'(#:phases (alist-cons-before
|
2013-09-27 06:41:19 +00:00
|
|
|
|
'configure 'fake-docbook
|
|
|
|
|
(lambda _
|
|
|
|
|
(substitute* "Makefile.in"
|
|
|
|
|
(("^DOCBOOKTOMAN.*$")
|
|
|
|
|
"DOCBOOKTOMAN = true\n")))
|
2013-02-11 10:39:57 +00:00
|
|
|
|
%standard-phases)))
|
|
|
|
|
(home-page "http://www.kernel.org/pub/linux/utils/kernel/module-init-tools/")
|
|
|
|
|
(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.")
|
2015-12-18 23:30:33 +00:00
|
|
|
|
(license license:gpl2+)))
|
2013-02-11 10:39:57 +00:00
|
|
|
|
|
2014-07-07 20:50:45 +00: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 17:57:29 +00:00
|
|
|
|
"lemote/gnewsense/branches/3.16/100gnu+freedo.patch"))
|
2014-07-07 20:50:45 +00:00
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
|
|
|
|
"1hk9swxxc80bmn2zd2qr5ccrjrk28xkypwhl4z0qx4hbivj7qm06"))))
|
|
|
|
|
|
2016-02-02 06:11:12 +00:00
|
|
|
|
(define* (kernel-config system #:key variant)
|
2014-07-09 22:31:31 +00:00
|
|
|
|
"Return the absolute file name of the Linux-Libre build configuration file
|
2016-02-02 06:11:12 +00:00
|
|
|
|
for SYSTEM and optionally VARIANT, or #f if there is no such configuration."
|
|
|
|
|
(and-let* ((arch (match system
|
|
|
|
|
("i686-linux"
|
|
|
|
|
"i686")
|
|
|
|
|
("x86_64-linux"
|
|
|
|
|
"x86_64")
|
|
|
|
|
(_
|
|
|
|
|
#f)))
|
|
|
|
|
(name (string-append "linux-libre-"
|
|
|
|
|
(if variant
|
|
|
|
|
(string-append variant "-")
|
|
|
|
|
"")
|
|
|
|
|
arch
|
|
|
|
|
".conf"))
|
|
|
|
|
(file (string-append "gnu/packages/" name)))
|
|
|
|
|
(search-path %load-path file)))
|
2014-07-09 22:31:31 +00:00
|
|
|
|
|
2013-02-11 22:02:26 +00:00
|
|
|
|
(define-public linux-libre
|
2016-02-27 02:53:50 +00:00
|
|
|
|
(let* ((version "4.4.3")
|
2013-02-11 22:02:26 +00:00
|
|
|
|
(build-phase
|
2014-07-07 20:50:45 +00:00
|
|
|
|
'(lambda* (#:key system inputs #:allow-other-keys #:rest args)
|
|
|
|
|
;; Apply the neat patch.
|
2014-12-27 13:34:43 +00:00
|
|
|
|
(system* "patch" "-p1" "--force"
|
2014-07-07 20:50:45 +00:00
|
|
|
|
"-i" (assoc-ref inputs "patch/freedo+gnu"))
|
|
|
|
|
|
2013-02-11 22:02:26 +00:00
|
|
|
|
(let ((arch (car (string-split system #\-))))
|
|
|
|
|
(setenv "ARCH"
|
|
|
|
|
(cond ((string=? arch "i686") "i386")
|
2015-08-06 22:15:51 +00:00
|
|
|
|
((string=? arch "mips64el") "mips")
|
2013-02-11 22:02:26 +00:00
|
|
|
|
(else arch)))
|
|
|
|
|
(format #t "`ARCH' set to `~a'~%" (getenv "ARCH")))
|
|
|
|
|
|
2014-07-09 22:31:31 +00:00
|
|
|
|
(let ((build (assoc-ref %standard-phases 'build))
|
|
|
|
|
(config (assoc-ref inputs "kconfig")))
|
2014-07-10 11:03:46 +00:00
|
|
|
|
|
|
|
|
|
;; Use the architecture-specific config if available, and
|
|
|
|
|
;; 'defconfig' otherwise.
|
|
|
|
|
(if config
|
|
|
|
|
(begin
|
|
|
|
|
(copy-file config ".config")
|
|
|
|
|
(chmod ".config" #o666))
|
|
|
|
|
(system* "make" "defconfig"))
|
2014-07-09 22:31:31 +00:00
|
|
|
|
|
|
|
|
|
;; Appending works even when the option wasn't in the
|
|
|
|
|
;; file. The last one prevails if duplicated.
|
|
|
|
|
(let ((port (open-file ".config" "a")))
|
|
|
|
|
(display (string-append "CONFIG_NET_9P=m\n"
|
|
|
|
|
"CONFIG_NET_9P_VIRTIO=m\n"
|
|
|
|
|
"CONFIG_VIRTIO_BLK=m\n"
|
|
|
|
|
"CONFIG_VIRTIO_NET=m\n"
|
|
|
|
|
;; https://lists.gnu.org/archive/html/guix-devel/2014-04/msg00039.html
|
|
|
|
|
"CONFIG_DEVPTS_MULTIPLE_INSTANCES=y\n"
|
|
|
|
|
"CONFIG_VIRTIO_PCI=m\n"
|
|
|
|
|
"CONFIG_VIRTIO_BALLOON=m\n"
|
|
|
|
|
"CONFIG_VIRTIO_MMIO=m\n"
|
|
|
|
|
"CONFIG_FUSE_FS=m\n"
|
|
|
|
|
"CONFIG_CIFS=m\n"
|
|
|
|
|
"CONFIG_9P_FS=m\n")
|
|
|
|
|
port)
|
|
|
|
|
(close-port port))
|
|
|
|
|
|
|
|
|
|
(zero? (system* "make" "oldconfig"))
|
|
|
|
|
|
|
|
|
|
;; Call the default `build' phase so `-j' is correctly
|
|
|
|
|
;; passed.
|
|
|
|
|
(apply build #:make-flags "all" args))))
|
2013-02-11 22:02:26 +00:00
|
|
|
|
(install-phase
|
|
|
|
|
`(lambda* (#:key inputs outputs #:allow-other-keys)
|
|
|
|
|
(let* ((out (assoc-ref outputs "out"))
|
|
|
|
|
(moddir (string-append out "/lib/modules"))
|
|
|
|
|
(mit (assoc-ref inputs "module-init-tools")))
|
|
|
|
|
(mkdir-p moddir)
|
|
|
|
|
(for-each (lambda (file)
|
|
|
|
|
(copy-file file
|
|
|
|
|
(string-append out "/" (basename file))))
|
2015-08-24 02:54:59 +00:00
|
|
|
|
(find-files "." "^(bzImage|vmlinuz|System\\.map)$"))
|
2013-02-11 22:02:26 +00:00
|
|
|
|
(copy-file ".config" (string-append out "/config"))
|
|
|
|
|
(zero? (system* "make"
|
|
|
|
|
(string-append "DEPMOD=" mit "/sbin/depmod")
|
|
|
|
|
(string-append "MODULE_DIR=" moddir)
|
|
|
|
|
(string-append "INSTALL_PATH=" out)
|
|
|
|
|
(string-append "INSTALL_MOD_PATH=" out)
|
2014-07-10 22:26:27 +00:00
|
|
|
|
"INSTALL_MOD_STRIP=1"
|
2013-02-11 22:02:26 +00:00
|
|
|
|
"modules_install"))))))
|
|
|
|
|
(package
|
|
|
|
|
(name "linux-libre")
|
2013-10-15 21:42:58 +00:00
|
|
|
|
(version version)
|
2013-02-11 22:02:26 +00:00
|
|
|
|
(source (origin
|
|
|
|
|
(method url-fetch)
|
2013-07-17 13:32:52 +00:00
|
|
|
|
(uri (linux-libre-urls version))
|
2013-02-11 22:02:26 +00:00
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
2016-02-27 02:53:50 +00:00
|
|
|
|
"06wl6gvhds6j6aaryzpz4jngdf3v70spvp1xb7k2c03kvm9v5f4v"))))
|
2013-02-11 22:02:26 +00:00
|
|
|
|
(build-system gnu-build-system)
|
2015-08-23 17:47:13 +00:00
|
|
|
|
(supported-systems '("x86_64-linux" "i686-linux"))
|
2013-02-11 22:02:26 +00:00
|
|
|
|
(native-inputs `(("perl" ,perl)
|
2013-09-07 23:30:54 +00:00
|
|
|
|
("bc" ,bc)
|
2015-12-10 14:34:42 +00:00
|
|
|
|
("openssl" ,openssl)
|
2014-07-07 20:50:45 +00:00
|
|
|
|
("module-init-tools" ,module-init-tools)
|
2014-07-09 22:31:31 +00:00
|
|
|
|
("patch/freedo+gnu" ,%boot-logo-patch)
|
2014-07-10 11:03:46 +00:00
|
|
|
|
|
|
|
|
|
,@(let ((conf (kernel-config (or (%current-target-system)
|
|
|
|
|
(%current-system)))))
|
|
|
|
|
(if conf
|
|
|
|
|
`(("kconfig" ,conf))
|
|
|
|
|
'()))))
|
2013-02-11 22:02:26 +00:00
|
|
|
|
(arguments
|
|
|
|
|
`(#:modules ((guix build gnu-build-system)
|
|
|
|
|
(guix build utils)
|
|
|
|
|
(srfi srfi-1)
|
|
|
|
|
(ice-9 match))
|
|
|
|
|
#:phases (alist-replace
|
|
|
|
|
'build ,build-phase
|
|
|
|
|
(alist-replace
|
|
|
|
|
'install ,install-phase
|
|
|
|
|
(alist-delete 'configure %standard-phases)))
|
|
|
|
|
#:tests? #f))
|
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 16:04:25 +00: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 14:14:23 +00:00
|
|
|
|
(description
|
2013-12-01 21:33:23 +00: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.")
|
2015-12-18 23:30:33 +00:00
|
|
|
|
(license license:gpl2)
|
2013-02-11 22:02:26 +00:00
|
|
|
|
(home-page "http://www.gnu.org/software/linux-libre/"))))
|
|
|
|
|
|
2016-02-02 06:18:44 +00:00
|
|
|
|
(define-public linux-libre-4.1
|
|
|
|
|
(package
|
|
|
|
|
(inherit linux-libre)
|
2016-02-27 07:28:17 +00:00
|
|
|
|
(version "4.1.18")
|
2016-02-02 06:18:44 +00:00
|
|
|
|
(source (origin
|
|
|
|
|
(method url-fetch)
|
|
|
|
|
(uri (linux-libre-urls version))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
2016-02-27 07:28:17 +00:00
|
|
|
|
"1bddh2rg645lavhjkk9z75vflba5y0g73z2fjwgbfrj5jb44x9i7"))))
|
2016-02-02 06:18:44 +00:00
|
|
|
|
(native-inputs
|
|
|
|
|
(let ((conf (kernel-config (or (%current-target-system)
|
|
|
|
|
(%current-system))
|
|
|
|
|
#:variant "4.1")))
|
|
|
|
|
`(,@(alist-delete "kconfig" (package-native-inputs linux-libre))
|
|
|
|
|
("kconfig" ,conf))))))
|
|
|
|
|
|
2015-07-17 13:35:27 +00:00
|
|
|
|
|
2013-09-10 22:22:45 +00:00
|
|
|
|
;;;
|
|
|
|
|
;;; Pluggable authentication modules (PAM).
|
|
|
|
|
;;;
|
|
|
|
|
|
2012-11-27 20:56:37 +00:00
|
|
|
|
(define-public linux-pam
|
|
|
|
|
(package
|
|
|
|
|
(name "linux-pam")
|
2015-09-11 13:00:43 +00:00
|
|
|
|
(version "1.2.1")
|
2012-11-27 20:56:37 +00:00
|
|
|
|
(source
|
|
|
|
|
(origin
|
|
|
|
|
(method url-fetch)
|
|
|
|
|
(uri (list (string-append "http://www.linux-pam.org/library/Linux-PAM-"
|
|
|
|
|
version ".tar.bz2")
|
|
|
|
|
(string-append "mirror://kernel.org/linux/libs/pam/library/Linux-PAM-"
|
|
|
|
|
version ".tar.bz2")))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
2015-09-11 13:00:43 +00:00
|
|
|
|
"1n9lnf9gjs72kbj1g354v1xhi2j27aqaah15vykh7cnkq08i4arl"))))
|
2012-11-27 20:56:37 +00: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 11:01:56 +00:00
|
|
|
|
(native-inputs
|
2012-11-27 20:56:37 +00:00
|
|
|
|
`(("flex" ,flex)
|
|
|
|
|
|
|
|
|
|
;; TODO: optional dependencies
|
|
|
|
|
;; ("libxcrypt" ,libxcrypt)
|
|
|
|
|
;; ("cracklib" ,cracklib)
|
|
|
|
|
))
|
|
|
|
|
(arguments
|
2013-08-17 13:44:43 +00:00
|
|
|
|
'(;; Most users, such as `shadow', expect the headers to be under
|
|
|
|
|
;; `security'.
|
|
|
|
|
#:configure-flags (list (string-append "--includedir="
|
|
|
|
|
(assoc-ref %outputs "out")
|
|
|
|
|
"/include/security"))
|
|
|
|
|
|
|
|
|
|
;; XXX: Tests won't run in chroot, presumably because /etc/pam.d
|
|
|
|
|
;; isn't available.
|
|
|
|
|
#:tests? #f))
|
2012-11-27 20:56:37 +00: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 12:16:07 +00:00
|
|
|
|
at login. Local and dynamic reconfiguration are its key features.")
|
2015-12-18 23:30:33 +00:00
|
|
|
|
(license license:bsd-3)))
|
2012-12-03 23:17:49 +00:00
|
|
|
|
|
2015-05-23 18:39:57 +00:00
|
|
|
|
|
2013-09-10 22:22:45 +00:00
|
|
|
|
;;;
|
|
|
|
|
;;; Miscellaneous.
|
|
|
|
|
;;;
|
|
|
|
|
|
2012-12-03 23:17:49 +00:00
|
|
|
|
(define-public psmisc
|
|
|
|
|
(package
|
|
|
|
|
(name "psmisc")
|
|
|
|
|
(version "22.20")
|
|
|
|
|
(source
|
|
|
|
|
(origin
|
|
|
|
|
(method url-fetch)
|
|
|
|
|
(uri (string-append "mirror://sourceforge/psmisc/psmisc/psmisc-"
|
|
|
|
|
version ".tar.gz"))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
|
|
|
|
"052mfraykmxnavpi8s78aljx8w87hyvpx8mvzsgpjsjz73i28wmi"))))
|
|
|
|
|
(build-system gnu-build-system)
|
|
|
|
|
(inputs `(("ncurses" ,ncurses)))
|
|
|
|
|
(home-page "http://psmisc.sourceforge.net/")
|
|
|
|
|
(synopsis
|
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 04:46:59 +00:00
|
|
|
|
"Small utilities that use the proc filesystem")
|
2012-12-03 23:17:49 +00:00
|
|
|
|
(description
|
|
|
|
|
"This PSmisc package is a set of some small useful utilities that
|
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 04:46:59 +00:00
|
|
|
|
use the proc filesystem. We're not about changing the world, but
|
2012-12-03 23:17:49 +00:00
|
|
|
|
providing the system administrator with some help in common tasks.")
|
2015-12-18 23:30:33 +00:00
|
|
|
|
(license license:gpl2+)))
|
2012-12-03 23:13:02 +00:00
|
|
|
|
|
|
|
|
|
(define-public util-linux
|
|
|
|
|
(package
|
|
|
|
|
(name "util-linux")
|
2015-09-15 03:59:28 +00:00
|
|
|
|
(version "2.27")
|
2014-06-01 20:53:16 +00:00
|
|
|
|
(source (origin
|
|
|
|
|
(method url-fetch)
|
|
|
|
|
(uri (string-append "mirror://kernel.org/linux/utils/"
|
2015-01-23 13:19:02 +00:00
|
|
|
|
name "/v" (version-major+minor version) "/"
|
|
|
|
|
name "-" version ".tar.xz"))
|
2014-06-01 20:53:16 +00:00
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
2015-09-15 03:59:28 +00:00
|
|
|
|
"1ivdx1bhjbakf77agm9dn3wyxia1wgz9lzxgd61zqxw3xzih9gzw"))
|
2015-01-23 13:19:02 +00:00
|
|
|
|
(patches (list (search-patch "util-linux-tests.patch")))
|
2014-09-12 20:05:50 +00:00
|
|
|
|
(modules '((guix build utils)))
|
|
|
|
|
(snippet
|
2015-01-23 13:32:43 +00:00
|
|
|
|
;; We take the 'logger' program from GNU Inetutils and 'kill'
|
|
|
|
|
;; from GNU Coreutils.
|
2015-09-15 04:02:51 +00:00
|
|
|
|
'(begin
|
|
|
|
|
(substitute* "configure"
|
|
|
|
|
(("build_logger=yes") "build_logger=no")
|
|
|
|
|
(("build_kill=yes") "build_kill=no"))
|
|
|
|
|
#t))))
|
2012-12-03 23:13:02 +00:00
|
|
|
|
(build-system gnu-build-system)
|
|
|
|
|
(arguments
|
2015-04-05 21:18:19 +00:00
|
|
|
|
`(#:configure-flags (list "--disable-use-tty-group"
|
|
|
|
|
|
2015-12-15 22:28:29 +00:00
|
|
|
|
;; Do not build .a files to save 2 MiB.
|
|
|
|
|
"--disable-static"
|
|
|
|
|
|
2015-04-05 21:18:19 +00: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 10:39:58 +00:00
|
|
|
|
#:phases (modify-phases %standard-phases
|
2015-07-14 12:00:46 +00: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 10:39:58 +00: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")))
|
|
|
|
|
#t))))))
|
2015-03-04 16:02:07 +00:00
|
|
|
|
(inputs `(("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 11:01:56 +00:00
|
|
|
|
("ncurses" ,ncurses)))
|
|
|
|
|
(native-inputs
|
2015-01-23 13:19:02 +00:00
|
|
|
|
`(("perl" ,perl)
|
|
|
|
|
("net-base" ,net-base))) ;for tests
|
2012-12-03 23:13:02 +00:00
|
|
|
|
(home-page "https://www.kernel.org/pub/linux/utils/util-linux/")
|
2013-05-18 21:02:25 +00:00
|
|
|
|
(synopsis "Collection of utilities for the Linux kernel")
|
2015-12-07 20:03:07 +00:00
|
|
|
|
(description "Util-linux is a diverse collection of Linux kernel
|
|
|
|
|
utilities. It provides dmesg and includes tools for working with filesystems,
|
|
|
|
|
block devices, UUIDs, TTYs, and many other tools.")
|
2013-01-12 15:51:45 +00:00
|
|
|
|
|
2012-12-03 23:13:02 +00:00
|
|
|
|
;; Note that util-linux doesn't use the same license for all the
|
2013-01-12 15:51:45 +00:00
|
|
|
|
;; code. GPLv2+ is the default license for a code without an
|
2012-12-03 23:13:02 +00:00
|
|
|
|
;; explicitly defined license.
|
2015-12-18 23:30:33 +00:00
|
|
|
|
(license (list license:gpl3+ license:gpl2+ license:gpl2 license:lgpl2.0+
|
|
|
|
|
license:bsd-4 license:public-domain))))
|
2012-12-17 20:29:06 +00:00
|
|
|
|
|
2013-01-12 15:51:16 +00:00
|
|
|
|
(define-public procps
|
|
|
|
|
(package
|
|
|
|
|
(name "procps")
|
2015-09-16 13:17:43 +00:00
|
|
|
|
(version "3.3.11")
|
2013-01-12 15:51:16 +00:00
|
|
|
|
(source (origin
|
2015-09-16 13:17:43 +00:00
|
|
|
|
(method url-fetch)
|
|
|
|
|
(uri (string-append "mirror://sourceforge/procps-ng/Production/"
|
|
|
|
|
"procps-ng-" version ".tar.xz"))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
|
|
|
|
"1va4n0mpsq327ca9dqp4hnrpgs6821rp0f2m0jyc1bfjl9lk2jg9"))))
|
2013-01-12 15:51:16 +00:00
|
|
|
|
(build-system gnu-build-system)
|
|
|
|
|
(arguments
|
2015-02-13 19:27:38 +00:00
|
|
|
|
'(#:modules ((guix build utils)
|
|
|
|
|
(guix build gnu-build-system)
|
|
|
|
|
(srfi srfi-1)
|
|
|
|
|
(srfi srfi-26))
|
2015-09-16 13:17:43 +00: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 21:02:25 +00:00
|
|
|
|
(synopsis "Utilities that give information about processes")
|
2013-01-12 15:51:16 +00: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 04:46:59 +00:00
|
|
|
|
"Procps is the package that has a bunch of small useful utilities
|
2013-01-12 15:51:16 +00: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-18 23:30:33 +00:00
|
|
|
|
(license license:gpl2)))
|
2013-01-12 15:51:16 +00:00
|
|
|
|
|
2012-12-17 20:29:06 +00:00
|
|
|
|
(define-public usbutils
|
|
|
|
|
(package
|
|
|
|
|
(name "usbutils")
|
|
|
|
|
(version "006")
|
|
|
|
|
(source
|
|
|
|
|
(origin
|
|
|
|
|
(method url-fetch)
|
|
|
|
|
(uri (string-append "mirror://kernel.org/linux/utils/usb/usbutils/"
|
|
|
|
|
"usbutils-" version ".tar.xz"))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
|
|
|
|
"03pd57vv8c6x0hgjqcbrxnzi14h8hcghmapg89p8k5zpwpkvbdfr"))))
|
|
|
|
|
(build-system gnu-build-system)
|
|
|
|
|
(inputs
|
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 11:01:56 +00:00
|
|
|
|
`(("libusb" ,libusb)))
|
|
|
|
|
(native-inputs
|
|
|
|
|
`(("pkg-config" ,pkg-config)))
|
2012-12-17 20:29:06 +00: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-18 23:30:33 +00:00
|
|
|
|
(license license:gpl2+)))
|
2013-02-10 22:48:41 +00:00
|
|
|
|
|
|
|
|
|
(define-public e2fsprogs
|
|
|
|
|
(package
|
|
|
|
|
(name "e2fsprogs")
|
2015-07-24 21:11:32 +00:00
|
|
|
|
(version "1.42.13")
|
2013-02-10 22:48:41 +00:00
|
|
|
|
(source (origin
|
|
|
|
|
(method url-fetch)
|
2015-07-24 21:11:32 +00:00
|
|
|
|
(uri (string-append
|
|
|
|
|
"mirror://kernel.org/linux/kernel/people/tytso/"
|
|
|
|
|
name "/v" version "/"
|
|
|
|
|
name "-" version ".tar.xz"))
|
2013-02-10 22:48:41 +00:00
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
2015-07-24 21:11:32 +00:00
|
|
|
|
"1ix0b83zgw5n0p2grh2961c6796m92yr2jqc2sbr23x3lfsp8r71"))
|
2015-01-13 21:13:00 +00:00
|
|
|
|
(modules '((guix build utils)))
|
|
|
|
|
(snippet
|
|
|
|
|
'(substitute* "MCONFIG.in"
|
|
|
|
|
(("INSTALL_SYMLINK = /bin/sh")
|
|
|
|
|
"INSTALL_SYMLINK = sh")))))
|
2013-02-10 22:48:41 +00: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 11:01:56 +00:00
|
|
|
|
(inputs `(("util-linux" ,util-linux)))
|
2014-05-06 12:26:49 +00:00
|
|
|
|
(native-inputs `(("pkg-config" ,pkg-config)
|
2015-01-13 21:13:00 +00:00
|
|
|
|
("texinfo" ,texinfo))) ;for the libext2fs Info manual
|
2013-02-10 22:48:41 +00:00
|
|
|
|
(arguments
|
2015-01-23 13:23:54 +00:00
|
|
|
|
'(;; util-linux is not the preferred source for some of the libraries and
|
|
|
|
|
;; 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 14:50:36 +00:00
|
|
|
|
;; <http://git.buildroot.net/buildroot/commit/?id=e1ffc2f791b33633>.)
|
2015-01-23 13:23:54 +00:00
|
|
|
|
#:configure-flags '("--disable-libblkid"
|
|
|
|
|
"--disable-libuuid" "--disable-uuidd"
|
|
|
|
|
"--disable-fsck"
|
2015-01-13 21:13:00 +00:00
|
|
|
|
|
|
|
|
|
;; Install libext2fs et al.
|
|
|
|
|
"--enable-elf-shlibs")
|
|
|
|
|
|
|
|
|
|
#:make-flags (list (string-append "LDFLAGS=-Wl,-rpath="
|
|
|
|
|
(assoc-ref %outputs "out")
|
|
|
|
|
"/lib"))
|
2014-09-12 15:25:39 +00:00
|
|
|
|
|
|
|
|
|
#:phases (alist-cons-before
|
2013-02-10 22:48:41 +00:00
|
|
|
|
'configure 'patch-shells
|
|
|
|
|
(lambda _
|
|
|
|
|
(substitute* "configure"
|
|
|
|
|
(("/bin/sh (.*)parse-types.sh" _ dir)
|
|
|
|
|
(string-append (which "sh") " " dir
|
|
|
|
|
"parse-types.sh")))
|
|
|
|
|
(substitute* (find-files "." "^Makefile.in$")
|
|
|
|
|
(("#!/bin/sh")
|
|
|
|
|
(string-append "#!" (which "sh")))))
|
2015-01-13 21:14:43 +00:00
|
|
|
|
(alist-cons-after
|
|
|
|
|
'install 'install-libs
|
2015-05-13 20:08:56 +00:00
|
|
|
|
(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)
|
|
|
|
|
#t))))
|
2015-01-13 21:14:43 +00:00
|
|
|
|
%standard-phases))
|
2013-02-10 22:48:41 +00:00
|
|
|
|
|
|
|
|
|
;; FIXME: Tests work by comparing the stdout/stderr of programs, that
|
|
|
|
|
;; they fail because we get an extra line that says "Can't check if
|
|
|
|
|
;; filesystem is mounted due to missing mtab file".
|
|
|
|
|
#:tests? #f))
|
|
|
|
|
(home-page "http://e2fsprogs.sourceforge.net/")
|
2013-05-18 21:02:25 +00:00
|
|
|
|
(synopsis "Creating and checking ext2/ext3/ext4 file systems")
|
2013-02-10 22:48:41 +00:00
|
|
|
|
(description
|
|
|
|
|
"This package provides tools for manipulating ext2/ext3/ext4 file systems.")
|
2015-12-18 23:30:33 +00:00
|
|
|
|
(license (list license:gpl2 ;programs
|
|
|
|
|
license:lgpl2.0 ;libext2fs
|
|
|
|
|
license:x11)))) ;libuuid
|
2013-05-18 21:31:14 +00:00
|
|
|
|
|
2015-01-16 20:07:31 +00: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 14:37:04 +00:00
|
|
|
|
(define-public e2fsck/static
|
|
|
|
|
(package
|
|
|
|
|
(name "e2fsck-static")
|
2014-05-06 12:12:41 +00:00
|
|
|
|
(version (package-version e2fsprogs))
|
2014-05-03 14:37:04 +00:00
|
|
|
|
(build-system trivial-build-system)
|
|
|
|
|
(source #f)
|
|
|
|
|
(arguments
|
|
|
|
|
`(#:modules ((guix build utils))
|
|
|
|
|
#:builder
|
|
|
|
|
(begin
|
|
|
|
|
(use-modules (guix build utils)
|
|
|
|
|
(ice-9 ftw)
|
|
|
|
|
(srfi srfi-26))
|
|
|
|
|
|
|
|
|
|
(let ((source (string-append (assoc-ref %build-inputs "e2fsprogs")
|
|
|
|
|
"/sbin"))
|
|
|
|
|
(bin (string-append (assoc-ref %outputs "out") "/sbin")))
|
|
|
|
|
(mkdir-p bin)
|
|
|
|
|
(with-directory-excursion bin
|
|
|
|
|
(for-each (lambda (file)
|
|
|
|
|
(copy-file (string-append source "/" file)
|
|
|
|
|
file)
|
|
|
|
|
(remove-store-references file)
|
|
|
|
|
(chmod file #o555))
|
|
|
|
|
(scandir source (cut string-prefix? "fsck." <>))))))))
|
2015-01-16 20:07:31 +00:00
|
|
|
|
(inputs `(("e2fsprogs" ,e2fsprogs/static)))
|
2014-05-03 14:37:04 +00:00
|
|
|
|
(synopsis "Statically-linked fsck.* commands from e2fsprogs")
|
|
|
|
|
(description
|
|
|
|
|
"This package provides statically-linked command of fsck.ext[234] taken
|
|
|
|
|
from the e2fsprogs package. It is meant to be used in initrds.")
|
2014-05-06 12:12:41 +00:00
|
|
|
|
(home-page (package-home-page e2fsprogs))
|
|
|
|
|
(license (package-license e2fsprogs))))
|
2014-05-03 14:37:04 +00:00
|
|
|
|
|
2015-07-23 21:25:39 +00:00
|
|
|
|
(define-public extundelete
|
|
|
|
|
(package
|
|
|
|
|
(name "extundelete")
|
|
|
|
|
(version "0.2.4")
|
|
|
|
|
(source (origin
|
|
|
|
|
(method url-fetch)
|
|
|
|
|
(uri (string-append "mirror://sourceforge/extundelete/"
|
|
|
|
|
version "/extundelete-" version ".tar.bz2"))
|
|
|
|
|
(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-18 23:30:33 +00:00
|
|
|
|
(license license:gpl2)))
|
2015-07-23 21:25:39 +00:00
|
|
|
|
|
2015-01-13 21:14:43 +00:00
|
|
|
|
(define-public zerofree
|
|
|
|
|
(package
|
|
|
|
|
(name "zerofree")
|
|
|
|
|
(version "1.0.3")
|
|
|
|
|
(home-page "http://intgat.tigress.co.uk/rmy/uml/")
|
|
|
|
|
(source (origin
|
|
|
|
|
(method url-fetch)
|
|
|
|
|
(uri (string-append home-page name "-" version
|
|
|
|
|
".tgz"))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
|
|
|
|
"1xncw3dn2cp922ly42m96p6fh7jv8ysg6bwqbk5xvw701f3dmkrs"))))
|
|
|
|
|
(build-system gnu-build-system)
|
|
|
|
|
(arguments
|
|
|
|
|
'(#:phases (alist-replace
|
|
|
|
|
'install
|
|
|
|
|
(lambda* (#:key outputs #:allow-other-keys)
|
|
|
|
|
(let* ((out (assoc-ref outputs "out"))
|
|
|
|
|
(bin (string-append out "/bin")))
|
|
|
|
|
(mkdir-p bin)
|
|
|
|
|
(copy-file "zerofree"
|
|
|
|
|
(string-append bin "/zerofree"))
|
|
|
|
|
(chmod (string-append bin "/zerofree")
|
|
|
|
|
#o555)
|
|
|
|
|
#t))
|
|
|
|
|
(alist-delete 'configure %standard-phases))
|
|
|
|
|
#:tests? #f)) ;no tests
|
|
|
|
|
(inputs `(("libext2fs" ,e2fsprogs)))
|
|
|
|
|
(synopsis "Zero non-allocated regions in ext2/ext3/ext4 file systems")
|
|
|
|
|
(description
|
|
|
|
|
"The zerofree command scans the free blocks in an ext2 file system and
|
|
|
|
|
fills any non-zero blocks with zeroes. This is a useful way to make disk
|
|
|
|
|
images more compressible.")
|
2015-12-18 23:30:33 +00:00
|
|
|
|
(license license:gpl2)))
|
2015-01-13 21:14:43 +00:00
|
|
|
|
|
2013-05-18 21:31:14 +00:00
|
|
|
|
(define-public strace
|
|
|
|
|
(package
|
|
|
|
|
(name "strace")
|
|
|
|
|
(version "4.7")
|
|
|
|
|
(source (origin
|
|
|
|
|
(method url-fetch)
|
|
|
|
|
(uri (string-append "mirror://sourceforge/strace/strace-"
|
|
|
|
|
version ".tar.xz"))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
|
|
|
|
"158iwk0pl2mfw93m1843xb7a2zb8p6lh0qim07rca6f1ff4dk764"))))
|
|
|
|
|
(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 11:01:56 +00:00
|
|
|
|
(native-inputs `(("perl" ,perl)))
|
2013-05-18 21:31:14 +00:00
|
|
|
|
(home-page "http://strace.sourceforge.net/")
|
|
|
|
|
(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-18 23:30:33 +00:00
|
|
|
|
(license license:bsd-3)))
|
2013-06-09 21:52:39 +00:00
|
|
|
|
|
2015-02-09 22:35:03 +00: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")))
|
|
|
|
|
(home-page "http://www.ltrace.org/")
|
|
|
|
|
(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-18 23:30:33 +00:00
|
|
|
|
(license license:gpl2+)))
|
2015-02-09 22:35:03 +00:00
|
|
|
|
|
2013-06-09 21:52:39 +00:00
|
|
|
|
(define-public alsa-lib
|
|
|
|
|
(package
|
|
|
|
|
(name "alsa-lib")
|
|
|
|
|
(version "1.0.27.1")
|
|
|
|
|
(source (origin
|
|
|
|
|
(method url-fetch)
|
|
|
|
|
(uri (string-append
|
|
|
|
|
"ftp://ftp.alsa-project.org/pub/lib/alsa-lib-"
|
|
|
|
|
version ".tar.bz2"))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
2013-11-03 23:28:03 +00:00
|
|
|
|
"0fx057746dj7rjdi0jnvx2m9b0y1lgdkh1hks87d8w32xyihf3k9"))
|
|
|
|
|
(patches (list (search-patch "alsa-lib-mips-atomic-fix.patch")))))
|
2013-06-09 21:52:39 +00:00
|
|
|
|
(build-system gnu-build-system)
|
|
|
|
|
(home-page "http://www.alsa-project.org/")
|
|
|
|
|
(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-18 23:30:33 +00:00
|
|
|
|
(license license:lgpl2.1+)))
|
2013-06-17 20:33:35 +00:00
|
|
|
|
|
2013-10-06 20:36:22 +00:00
|
|
|
|
(define-public alsa-utils
|
|
|
|
|
(package
|
|
|
|
|
(name "alsa-utils")
|
2016-02-11 07:17:37 +00:00
|
|
|
|
(version "1.1.0")
|
2013-10-06 20:36:22 +00:00
|
|
|
|
(source (origin
|
|
|
|
|
(method url-fetch)
|
2016-02-11 07:17:37 +00:00
|
|
|
|
(uri (string-append "ftp://ftp.alsa-project.org/pub/utils/"
|
|
|
|
|
name "-" version ".tar.bz2"))
|
2013-10-06 20:36:22 +00:00
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
2016-02-11 07:17:37 +00:00
|
|
|
|
"1wa88wvqcfhak9x3y65wzzwxmmyxb5bv2gyj7lnm653fnwsk271v"))))
|
2013-10-06 20:36:22 +00:00
|
|
|
|
(build-system gnu-build-system)
|
|
|
|
|
(arguments
|
|
|
|
|
;; XXX: Disable man page creation until we have DocBook.
|
|
|
|
|
'(#:configure-flags (list "--disable-xmlto"
|
2014-09-10 20:59:27 +00:00
|
|
|
|
|
|
|
|
|
;; The udev rule is responsible for restoring
|
|
|
|
|
;; the volume.
|
2013-10-06 20:36:22 +00:00
|
|
|
|
(string-append "--with-udev-rules-dir="
|
|
|
|
|
(assoc-ref %outputs "out")
|
|
|
|
|
"/lib/udev/rules.d"))
|
|
|
|
|
#:phases (alist-cons-before
|
|
|
|
|
'install 'pre-install
|
|
|
|
|
(lambda _
|
|
|
|
|
;; Don't try to mkdir /var/lib/alsa.
|
|
|
|
|
(substitute* "Makefile"
|
|
|
|
|
(("\\$\\(MKDIR_P\\) .*ASOUND_STATE_DIR.*")
|
|
|
|
|
"true\n")))
|
|
|
|
|
%standard-phases)))
|
|
|
|
|
(inputs
|
|
|
|
|
`(("libsamplerate" ,libsamplerate)
|
|
|
|
|
("ncurses" ,ncurses)
|
|
|
|
|
("alsa-lib" ,alsa-lib)
|
|
|
|
|
("xmlto" ,xmlto)
|
gnu: gettext: Rename binding to 'gnu-gettext'.
* gnu/packages/gettext.scm (gettext): Rename to...
(gnu-gettext): ... this. This is used to work around the circular
dependency introduced in commit c42a4b7, which users with a #:renamer
cannot cope with.
* gnu/packages/acl.scm, gnu/packages/attr.scm, gnu/packages/cdrom.scm,
gnu/packages/fdisk.scm, gnu/packages/gkrellm.scm, gnu/packages/glib.scm,
gnu/packages/gnunet.scm, gnu/packages/grub.scm, gnu/packages/linux.scm,
gnu/packages/maths.scm, gnu/packages/nano.scm, gnu/packages/parted.scm,
gnu/packages/system.scm, gnu/packages/version-control.scm,
gnu/packages/vpn.scm, gnu/packages/w3m.scm, gnu/packages/wget.scm:
Adjust accordingly.
2013-11-20 21:12:49 +00:00
|
|
|
|
("gettext" ,gnu-gettext)))
|
2013-10-06 20:36:22 +00: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-18 23:30:33 +00:00
|
|
|
|
(license license:gpl2)))
|
2013-10-06 20:36:22 +00:00
|
|
|
|
|
2013-06-17 20:33:35 +00:00
|
|
|
|
(define-public iptables
|
|
|
|
|
(package
|
|
|
|
|
(name "iptables")
|
|
|
|
|
(version "1.4.16.2")
|
|
|
|
|
(source (origin
|
|
|
|
|
(method url-fetch)
|
|
|
|
|
(uri (string-append
|
|
|
|
|
"http://www.netfilter.org/projects/iptables/files/iptables-"
|
|
|
|
|
version ".tar.bz2"))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
|
|
|
|
"0vkg5lzkn4l3i1sm6v3x96zzvnv9g7mi0qgj6279ld383mzcws24"))))
|
|
|
|
|
(build-system gnu-build-system)
|
2015-04-11 10:23:27 +00:00
|
|
|
|
(arguments
|
|
|
|
|
'(#:tests? #f ; no test suite
|
|
|
|
|
#:configure-flags ; add $libdir to the RUNPATH of executables
|
|
|
|
|
(list (string-append "LDFLAGS=-Wl,-rpath=" %output "/lib"))))
|
2013-06-17 20:33:35 +00:00
|
|
|
|
(home-page "http://www.netfilter.org/projects/iptables/index.html")
|
|
|
|
|
(synopsis "Program to configure the Linux IP packet filtering rules")
|
|
|
|
|
(description
|
|
|
|
|
"iptables is the userspace command line program used to configure the
|
|
|
|
|
Linux 2.4.x and later IPv4 packet filtering ruleset. It is targeted towards
|
|
|
|
|
system administrators. Since Network Address Translation is also configured
|
|
|
|
|
from the packet filter ruleset, iptables is used for this, too. The iptables
|
|
|
|
|
package also includes ip6tables. ip6tables is used for configuring the IPv6
|
|
|
|
|
packet filter.")
|
2015-12-18 23:30:33 +00:00
|
|
|
|
(license license:gpl2+)))
|
2013-06-17 21:53:42 +00:00
|
|
|
|
|
|
|
|
|
(define-public iproute
|
|
|
|
|
(package
|
|
|
|
|
(name "iproute2")
|
2016-02-11 10:49:38 +00:00
|
|
|
|
(version "4.4.0")
|
2013-06-17 21:53:42 +00:00
|
|
|
|
(source (origin
|
2016-02-11 10:49:38 +00:00
|
|
|
|
(method url-fetch)
|
|
|
|
|
(uri (string-append
|
|
|
|
|
"mirror://kernel.org/linux/utils/net/iproute2/iproute2-"
|
|
|
|
|
version ".tar.xz"))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
|
|
|
|
"05351m4m0whsivlblvs3m0nz5q9v6r06ik80z27gf6ca51kw74dw"))))
|
2013-06-17 21:53:42 +00:00
|
|
|
|
(build-system gnu-build-system)
|
|
|
|
|
(arguments
|
|
|
|
|
`(#:tests? #f ; no test suite
|
|
|
|
|
#:make-flags (let ((out (assoc-ref %outputs "out")))
|
|
|
|
|
(list "DESTDIR="
|
|
|
|
|
(string-append "LIBDIR=" out "/lib")
|
|
|
|
|
(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 10:49:16 +00: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 21:53:42 +00: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 11:01:56 +00:00
|
|
|
|
("db4" ,bdb)))
|
|
|
|
|
(native-inputs
|
|
|
|
|
`(("pkg-config" ,pkg-config)
|
2013-06-17 21:53:42 +00:00
|
|
|
|
("flex" ,flex)
|
|
|
|
|
("bison" ,bison)))
|
|
|
|
|
(home-page
|
|
|
|
|
"http://www.linuxfoundation.org/collaborate/workgroups/networking/iproute2")
|
|
|
|
|
(synopsis
|
2014-09-13 13:50:30 +00:00
|
|
|
|
"Utilities for controlling TCP/IP networking and traffic in Linux")
|
2013-06-17 21:53:42 +00:00
|
|
|
|
(description
|
|
|
|
|
"Iproute2 is a collection of utilities for controlling TCP/IP
|
|
|
|
|
networking and traffic with the Linux kernel.
|
|
|
|
|
|
|
|
|
|
Most network configuration manuals still refer to ifconfig and route as the
|
|
|
|
|
primary network configuration tools, but ifconfig is known to behave
|
|
|
|
|
inadequately in modern network environments. They should be deprecated, but
|
|
|
|
|
most distros still include them. Most network configuration systems make use
|
|
|
|
|
of ifconfig and thus provide a limited feature set. The /etc/net project aims
|
|
|
|
|
to support most modern network technologies, as it doesn't use ifconfig and
|
|
|
|
|
allows a system administrator to make use of all iproute2 features, including
|
|
|
|
|
traffic control.
|
|
|
|
|
|
|
|
|
|
iproute2 is usually shipped in a package called iproute or iproute2 and
|
|
|
|
|
consists of several tools, of which the most important are ip and tc. ip
|
|
|
|
|
controls IPv4 and IPv6 configuration and tc stands for traffic control. Both
|
|
|
|
|
tools print detailed usage messages and are accompanied by a set of
|
|
|
|
|
manpages.")
|
2015-12-18 23:30:33 +00:00
|
|
|
|
(license license:gpl2+)))
|
2013-09-26 18:54:32 +00: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.
|
|
|
|
|
(package
|
|
|
|
|
(name "net-tools")
|
|
|
|
|
(version "1.60")
|
2016-02-04 21:51:54 +00:00
|
|
|
|
(home-page "http://net-tools.sourceforge.net/")
|
2013-09-26 18:54:32 +00:00
|
|
|
|
(source (origin
|
|
|
|
|
(method url-fetch)
|
2016-02-04 21:51:54 +00:00
|
|
|
|
(uri (list (string-append
|
|
|
|
|
"mirror://sourceforge/net-tools/net-tools-"
|
|
|
|
|
version ".tar.bz2")
|
|
|
|
|
(string-append
|
|
|
|
|
"http://distro.ibiblio.org/rootlinux/rootlinux-ports"
|
|
|
|
|
"/base/net-tools/net-tools-1.60.tar.bz2")))
|
2013-09-26 18:54:32 +00:00
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
2014-10-06 21:10:48 +00:00
|
|
|
|
"0yvxrzk0mzmspr7sa34hm1anw6sif39gyn85w4c5ywfn8inxvr3s"))
|
|
|
|
|
(patches
|
|
|
|
|
(list (search-patch "net-tools-bitrot.patch")))))
|
2013-09-26 18:54:32 +00:00
|
|
|
|
(build-system gnu-build-system)
|
|
|
|
|
(arguments
|
2015-02-13 19:37:56 +00:00
|
|
|
|
'(#:modules ((guix build gnu-build-system)
|
|
|
|
|
(guix build utils)
|
|
|
|
|
(srfi srfi-1)
|
|
|
|
|
(srfi srfi-26))
|
|
|
|
|
#:phases (alist-cons-after
|
2013-11-23 21:17:48 +00:00
|
|
|
|
'unpack 'patch
|
2013-09-26 18:54:32 +00:00
|
|
|
|
(lambda* (#:key inputs #:allow-other-keys)
|
|
|
|
|
(define (apply-patch file)
|
2014-12-27 13:34:43 +00:00
|
|
|
|
(zero? (system* "patch" "-p1" "--force"
|
2013-09-26 18:54:32 +00:00
|
|
|
|
"--input" file)))
|
|
|
|
|
|
|
|
|
|
(let ((patch.gz (assoc-ref inputs "patch")))
|
|
|
|
|
(format #t "applying Debian patch set '~a'...~%"
|
|
|
|
|
patch.gz)
|
|
|
|
|
(system (string-append "gunzip < " patch.gz " > the-patch"))
|
|
|
|
|
(and (apply-patch "the-patch")
|
|
|
|
|
(for-each apply-patch
|
|
|
|
|
(find-files "debian/patches"
|
|
|
|
|
"\\.patch")))))
|
|
|
|
|
(alist-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")
|
|
|
|
|
|
2015-04-12 23:46:20 +00:00
|
|
|
|
;; ... 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.
|
2013-09-26 18:54:32 +00:00
|
|
|
|
(substitute* '("config.make" "config.h")
|
2015-04-12 23:46:20 +00:00
|
|
|
|
(("^.*HAVE_(AFDECnet|HWSTRIP|HWTR)[ =]1.*$") ""))))
|
2015-02-13 19:37:56 +00:00
|
|
|
|
(alist-cons-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))
|
|
|
|
|
%standard-phases)))
|
2013-09-26 18:54:32 +00:00
|
|
|
|
|
|
|
|
|
;; Binaries that depend on libnet-tools.a don't declare that
|
|
|
|
|
;; dependency, making it parallel-unsafe.
|
|
|
|
|
#:parallel-build? #f
|
|
|
|
|
|
|
|
|
|
#:tests? #f ; no test suite
|
2014-04-02 02:58:20 +00:00
|
|
|
|
#: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")))))
|
2013-09-26 18:54:32 +00:00
|
|
|
|
|
|
|
|
|
;; Use the big Debian patch set (the thing does not even compile out of
|
|
|
|
|
;; the box.)
|
|
|
|
|
(inputs `(("patch" ,(origin
|
|
|
|
|
(method url-fetch)
|
|
|
|
|
(uri
|
|
|
|
|
"http://ftp.de.debian.org/debian/pool/main/n/net-tools/net-tools_1.60-24.2.diff.gz")
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
|
|
|
|
"0p93lsqx23v5fv4hpbrydmfvw1ha2rgqpn2zqbs2jhxkzhjc030p"))))))
|
gnu: gettext: Rename binding to 'gnu-gettext'.
* gnu/packages/gettext.scm (gettext): Rename to...
(gnu-gettext): ... this. This is used to work around the circular
dependency introduced in commit c42a4b7, which users with a #:renamer
cannot cope with.
* gnu/packages/acl.scm, gnu/packages/attr.scm, gnu/packages/cdrom.scm,
gnu/packages/fdisk.scm, gnu/packages/gkrellm.scm, gnu/packages/glib.scm,
gnu/packages/gnunet.scm, gnu/packages/grub.scm, gnu/packages/linux.scm,
gnu/packages/maths.scm, gnu/packages/nano.scm, gnu/packages/parted.scm,
gnu/packages/system.scm, gnu/packages/version-control.scm,
gnu/packages/vpn.scm, gnu/packages/w3m.scm, gnu/packages/wget.scm:
Adjust accordingly.
2013-11-20 21:12:49 +00:00
|
|
|
|
(native-inputs `(("gettext" ,gnu-gettext)))
|
2013-09-26 18:54:32 +00: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, hostname, 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).")
|
2015-12-18 23:30:33 +00:00
|
|
|
|
(license license:gpl2+)))
|
2013-10-05 14:47:12 +00:00
|
|
|
|
|
|
|
|
|
(define-public libcap
|
|
|
|
|
(package
|
|
|
|
|
(name "libcap")
|
2015-09-02 09:12:11 +00:00
|
|
|
|
(version "2.24")
|
2013-10-05 14:47:12 +00:00
|
|
|
|
(source (origin
|
|
|
|
|
(method url-fetch)
|
|
|
|
|
(uri (string-append
|
2015-09-02 09:12:11 +00:00
|
|
|
|
"mirror://kernel.org/linux/libs/security/linux-privs/"
|
|
|
|
|
"libcap2/libcap-" version ".tar.xz"))
|
2013-10-05 14:47:12 +00:00
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
2015-09-02 09:12:11 +00:00
|
|
|
|
"0rbc9qbqs5bp9am9s9g83wxj5k4ixps2agy9dxr1v1fwg27mdr6f"))))
|
2013-10-05 14:47:12 +00:00
|
|
|
|
(build-system gnu-build-system)
|
2015-04-11 05:59:54 +00: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 14:47:12 +00: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 04:46:59 +00:00
|
|
|
|
"Libcap2 provides a programming interface to POSIX capabilities on
|
2013-10-05 14:47:12 +00:00
|
|
|
|
Linux-based operating systems.")
|
|
|
|
|
|
|
|
|
|
;; License is BSD-3 or GPLv2, at the user's choice.
|
2015-12-18 23:30:33 +00:00
|
|
|
|
(license license:gpl2)))
|
2013-10-31 22:29:25 +00:00
|
|
|
|
|
|
|
|
|
(define-public bridge-utils
|
|
|
|
|
(package
|
|
|
|
|
(name "bridge-utils")
|
|
|
|
|
(version "1.5")
|
|
|
|
|
(source (origin
|
|
|
|
|
(method url-fetch)
|
|
|
|
|
(uri (string-append "mirror://sourceforge/bridge/bridge-utils-"
|
|
|
|
|
version ".tar.gz"))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
|
|
|
|
"12367cwqmi0yqphi6j8rkx97q8hw52yq2fx4k0xfclkcizxybya2"))))
|
|
|
|
|
(build-system gnu-build-system)
|
|
|
|
|
|
|
|
|
|
;; The tarball lacks all the generated files.
|
|
|
|
|
(native-inputs `(("autoconf" ,autoconf)
|
|
|
|
|
("automake" ,automake)))
|
|
|
|
|
(arguments
|
2015-02-27 16:53:06 +00:00
|
|
|
|
'(#:phases (alist-cons-after
|
|
|
|
|
'unpack 'bootstrap
|
2013-10-31 22:29:25 +00:00
|
|
|
|
(lambda _
|
2015-05-06 21:00:07 +00:00
|
|
|
|
;; 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;"))
|
|
|
|
|
|
2013-10-31 22:29:25 +00:00
|
|
|
|
(zero? (system* "autoreconf" "-vf")))
|
|
|
|
|
%standard-phases)
|
|
|
|
|
#: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-18 23:30:33 +00:00
|
|
|
|
(license license:gpl2+)))
|
2013-11-22 21:50:17 +00:00
|
|
|
|
|
|
|
|
|
(define-public libnl
|
|
|
|
|
(package
|
|
|
|
|
(name "libnl")
|
2015-01-12 22:53:09 +00:00
|
|
|
|
(version "3.2.25")
|
2013-11-22 21:50:17 +00:00
|
|
|
|
(source (origin
|
|
|
|
|
(method url-fetch)
|
|
|
|
|
(uri (string-append
|
|
|
|
|
"http://www.infradead.org/~tgr/libnl/files/libnl-"
|
|
|
|
|
version ".tar.gz"))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
2015-01-12 22:53:09 +00:00
|
|
|
|
"1icfrv8yihcb74as1gcgmp0wfpdq632q2zvbvqqvjms9cy87bswb"))))
|
2013-11-22 21:50:17 +00:00
|
|
|
|
(build-system gnu-build-system)
|
|
|
|
|
(native-inputs `(("flex" ,flex) ("bison" ,bison)))
|
|
|
|
|
(home-page "http://www.infradead.org/~tgr/libnl/")
|
|
|
|
|
(synopsis "NetLink protocol library suite")
|
|
|
|
|
(description
|
|
|
|
|
"The libnl suite is a collection of libraries providing APIs to netlink
|
2015-07-23 07:40:05 +00:00
|
|
|
|
protocol based Linux kernel interfaces. Netlink is an IPC mechanism primarily
|
2013-11-22 21:50:17 +00: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-18 23:30:33 +00:00
|
|
|
|
(license license:gpl2)))
|
2013-11-22 21:55:06 +00:00
|
|
|
|
|
2015-01-12 23:12:16 +00:00
|
|
|
|
(define-public iw
|
|
|
|
|
(package
|
|
|
|
|
(name "iw")
|
|
|
|
|
(version "3.17")
|
|
|
|
|
(source (origin
|
|
|
|
|
(method url-fetch)
|
|
|
|
|
(uri (string-append
|
|
|
|
|
"https://www.kernel.org/pub/software/network/iw/iw-"
|
|
|
|
|
version ".tar.xz"))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
|
|
|
|
"14zsapqhivk0ws5z21y1ys2c2czi05mzk7bl2yb7qxcfrnsjx9j8"))))
|
|
|
|
|
(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")
|
|
|
|
|
#:phases (alist-delete 'configure %standard-phases)))
|
|
|
|
|
(home-page "http://wireless.kernel.org/en/users/Documentation/iw")
|
|
|
|
|
(synopsis "Tool for configuring wireless devices")
|
|
|
|
|
(description
|
|
|
|
|
"iw is a new nl80211 based CLI configuration utility for wireless
|
|
|
|
|
devices. It replaces 'iwconfig', which is deprecated.")
|
2015-12-18 23:30:33 +00:00
|
|
|
|
(license license:isc)))
|
2015-01-12 23:12:16 +00:00
|
|
|
|
|
2013-11-22 21:55:06 +00:00
|
|
|
|
(define-public powertop
|
|
|
|
|
(package
|
|
|
|
|
(name "powertop")
|
2015-12-14 08:29:18 +00:00
|
|
|
|
(version "2.8")
|
2013-11-22 21:55:06 +00:00
|
|
|
|
(source
|
|
|
|
|
(origin
|
|
|
|
|
(method url-fetch)
|
|
|
|
|
(uri (string-append
|
2015-10-01 19:53:12 +00:00
|
|
|
|
"https://01.org/sites/default/files/downloads/powertop/powertop-"
|
2013-11-22 21:55:06 +00:00
|
|
|
|
version ".tar.gz"))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
2015-12-14 08:29:18 +00:00
|
|
|
|
"0nlwazxbnn0k6q5f5b09wdhw0f194lpzkp3l7vxansqhfczmcyx8"))))
|
2013-11-22 21:55:06 +00:00
|
|
|
|
(build-system gnu-build-system)
|
|
|
|
|
(inputs
|
2015-03-04 16:02:07 +00:00
|
|
|
|
`(("zlib" ,zlib)
|
2015-09-30 17:39:40 +00:00
|
|
|
|
("pciutils" ,pciutils)
|
2013-11-22 21:55:06 +00:00
|
|
|
|
("ncurses" ,ncurses)
|
|
|
|
|
("libnl" ,libnl)))
|
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 11:01:56 +00:00
|
|
|
|
(native-inputs
|
2015-12-14 08:29:18 +00:00
|
|
|
|
`(("pkg-config" ,pkg-config)))
|
2013-11-22 21:55:06 +00: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-18 23:30:33 +00:00
|
|
|
|
(license license:gpl2)))
|
2014-01-13 17:47:59 +00: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-18 23:30:33 +00:00
|
|
|
|
(license license:gpl2+)))
|
2014-01-27 16:45:21 +00: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 18:02:51 +00:00
|
|
|
|
;; The setup.py script expects python-2.
|
2014-01-27 16:45:21 +00:00
|
|
|
|
`(#:python ,python-2
|
2014-01-27 18:02:51 +00:00
|
|
|
|
;; There are currently no checks in the package.
|
2014-01-27 16:45:21 +00: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-18 23:30:33 +00:00
|
|
|
|
(license license:gpl2+)))
|
2014-02-08 15:07:02 +00:00
|
|
|
|
|
|
|
|
|
(define-public fuse
|
|
|
|
|
(package
|
|
|
|
|
(name "fuse")
|
2016-01-22 06:52:21 +00:00
|
|
|
|
(version "2.9.5")
|
2014-02-08 15:07:02 +00:00
|
|
|
|
(source (origin
|
|
|
|
|
(method url-fetch)
|
2015-12-26 06:29:21 +00:00
|
|
|
|
(uri (let ((version-with-underscores
|
|
|
|
|
(string-join (string-split version #\.) "_")))
|
|
|
|
|
(string-append
|
|
|
|
|
"https://github.com/libfuse/libfuse/"
|
2015-12-30 03:24:20 +00:00
|
|
|
|
"releases/download/fuse_" version-with-underscores
|
2015-12-26 06:29:21 +00:00
|
|
|
|
"/fuse-" version ".tar.gz")))
|
2014-02-08 15:07:02 +00:00
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
2016-01-22 06:52:21 +00:00
|
|
|
|
"1dfvbi1p57svbv2sfnbqwpnsk219spvjnlapf35azhgzqlf3g7sp"))))
|
2014-02-08 15:07:02 +00:00
|
|
|
|
(build-system gnu-build-system)
|
2014-03-16 22:18:36 +00:00
|
|
|
|
(inputs `(("util-linux" ,util-linux)))
|
2014-02-08 15:07:02 +00: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 08:32:47 +00:00
|
|
|
|
|
|
|
|
|
;; The rule makes /dev/fuse 666.
|
2014-02-08 15:07:02 +00:00
|
|
|
|
(string-append "UDEV_RULES_PATH="
|
|
|
|
|
(assoc-ref %outputs "out")
|
2014-09-13 08:32:47 +00:00
|
|
|
|
"/lib/udev/rules.d"))
|
2014-03-16 22:18:36 +00:00
|
|
|
|
#:phases (alist-cons-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")
|
2014-05-28 13:40:53 +00:00
|
|
|
|
(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\\\"")))
|
2014-03-16 22:18:36 +00:00
|
|
|
|
%standard-phases)))
|
2014-02-08 15:07:02 +00:00
|
|
|
|
(home-page "http://fuse.sourceforge.net/")
|
|
|
|
|
(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-18 23:30:33 +00:00
|
|
|
|
(license (list license:lgpl2.1 ;library
|
|
|
|
|
license:gpl2+)))) ;command-line utilities
|
2014-03-10 21:31:08 +00:00
|
|
|
|
|
|
|
|
|
(define-public unionfs-fuse
|
|
|
|
|
(package
|
|
|
|
|
(name "unionfs-fuse")
|
|
|
|
|
(version "0.26")
|
|
|
|
|
(source (origin
|
|
|
|
|
(method url-fetch)
|
|
|
|
|
(uri (string-append
|
|
|
|
|
"http://podgorny.cz/unionfs-fuse/releases/unionfs-fuse-"
|
|
|
|
|
version ".tar.xz"))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
|
|
|
|
"0qpnr4czgc62vsfnmv933w62nq3xwcbnvqch72qakfgca75rsp4d"))))
|
|
|
|
|
(build-system cmake-build-system)
|
|
|
|
|
(inputs `(("fuse" ,fuse)))
|
|
|
|
|
(arguments '(#:tests? #f)) ; no tests
|
|
|
|
|
(home-page "http://podgorny.cz/moin/UnionFsFuse")
|
|
|
|
|
(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-18 23:30:33 +00:00
|
|
|
|
(license license:bsd-3)))
|
2014-03-12 14:11:30 +00:00
|
|
|
|
|
2014-04-14 21:47:15 +00: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 14:11:30 +00: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 21:26:00 +00:00
|
|
|
|
#:configure-flags '("-DCMAKE_EXE_LINKER_FLAGS=-static")
|
|
|
|
|
#:phases (alist-cons-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)))
|
|
|
|
|
%standard-phases)))
|
2014-04-14 21:47:15 +00:00
|
|
|
|
(inputs `(("fuse" ,fuse-static)))))
|
2014-05-09 12:55:12 +00:00
|
|
|
|
|
2014-05-28 10:31:06 +00:00
|
|
|
|
(define-public sshfs-fuse
|
|
|
|
|
(package
|
|
|
|
|
(name "sshfs-fuse")
|
|
|
|
|
(version "2.5")
|
|
|
|
|
(source (origin
|
|
|
|
|
(method url-fetch)
|
2015-12-26 06:33:28 +00:00
|
|
|
|
(uri (let ((version-with-underscores
|
|
|
|
|
(string-join (string-split version #\.) "_")))
|
|
|
|
|
(string-append "https://github.com/libfuse/sshfs/releases/"
|
|
|
|
|
"download/sshfs_" version-with-underscores
|
|
|
|
|
"/sshfs-fuse-" version ".tar.gz")))
|
2014-05-28 10:31:06 +00:00
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
|
|
|
|
"0gp6qr33l2p0964j0kds0dfmvyyf5lpgsn11daf0n5fhwm9185z9"))))
|
|
|
|
|
(build-system gnu-build-system)
|
|
|
|
|
(inputs
|
|
|
|
|
`(("fuse" ,fuse)
|
|
|
|
|
("glib" ,glib)))
|
|
|
|
|
(native-inputs
|
|
|
|
|
`(("pkg-config" ,pkg-config)))
|
|
|
|
|
(home-page "http://fuse.sourceforge.net/sshfs.html")
|
|
|
|
|
(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-18 23:30:33 +00:00
|
|
|
|
(license license:gpl2+)))
|
2014-05-28 10:31:06 +00:00
|
|
|
|
|
2014-05-09 12:55:12 +00:00
|
|
|
|
(define-public numactl
|
|
|
|
|
(package
|
|
|
|
|
(name "numactl")
|
2015-12-12 09:19:04 +00:00
|
|
|
|
(version "2.0.11")
|
2014-05-09 12:55:12 +00: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 09:19:04 +00:00
|
|
|
|
"0qbqa9gac2vlahrngi553hws2mqgqdwv2lc69a3yx4gq6l90j325"))))
|
2014-05-09 12:55:12 +00:00
|
|
|
|
(build-system gnu-build-system)
|
|
|
|
|
(arguments
|
2015-12-12 09:19:04 +00:00
|
|
|
|
'(;; There's a 'test' target, but it requires NUMA support in the kernel
|
2014-05-09 12:55:12 +00:00
|
|
|
|
;; to run, which we can't assume to have.
|
|
|
|
|
#:tests? #f))
|
2015-10-17 19:42:42 +00:00
|
|
|
|
|
2016-02-03 20:03:46 +00: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 12:55:12 +00: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-18 23:30:33 +00:00
|
|
|
|
(license (list license:gpl2 ;programs
|
|
|
|
|
license:lgpl2.1)))) ;library
|
2014-05-19 21:52:11 +00:00
|
|
|
|
|
|
|
|
|
(define-public kbd
|
|
|
|
|
(package
|
|
|
|
|
(name "kbd")
|
2015-04-07 17:18:22 +00:00
|
|
|
|
(version "2.0.2")
|
2014-05-19 21:52:11 +00:00
|
|
|
|
(source (origin
|
|
|
|
|
(method url-fetch)
|
|
|
|
|
(uri (string-append "mirror://kernel.org/linux/utils/kbd/kbd-"
|
2015-04-07 17:18:22 +00:00
|
|
|
|
version ".tar.xz"))
|
2014-05-19 21:52:11 +00:00
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
2015-04-07 17:18:22 +00:00
|
|
|
|
"04mrms12nm5sas0nxs94yrr3hz7gmqhnmfgb9ff34bh1jszxmzcx"))
|
2014-06-18 13:32:17 +00:00
|
|
|
|
(modules '((guix build utils)))
|
|
|
|
|
(snippet
|
2014-07-16 13:46:57 +00: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 21:52:11 +00:00
|
|
|
|
(build-system gnu-build-system)
|
|
|
|
|
(arguments
|
|
|
|
|
'(#:phases (alist-cons-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")))))
|
2014-07-16 13:46:57 +00:00
|
|
|
|
(alist-cons-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"))))
|
|
|
|
|
%standard-phases))))
|
2014-05-19 21:52:11 +00:00
|
|
|
|
(inputs `(("check" ,check)
|
2015-03-04 16:02:07 +00:00
|
|
|
|
("gzip" ,gzip)
|
|
|
|
|
("bzip2" ,bzip2)
|
2014-05-19 21:52:11 +00:00
|
|
|
|
("pam" ,linux-pam)))
|
|
|
|
|
(native-inputs `(("pkg-config" ,pkg-config)))
|
|
|
|
|
(home-page "ftp://ftp.kernel.org/pub/linux/utils/kbd/")
|
|
|
|
|
(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-18 23:30:33 +00:00
|
|
|
|
(license license:gpl2+)))
|
2014-05-25 22:08:50 +00:00
|
|
|
|
|
|
|
|
|
(define-public inotify-tools
|
|
|
|
|
(package
|
|
|
|
|
(name "inotify-tools")
|
|
|
|
|
(version "3.13")
|
|
|
|
|
(source (origin
|
|
|
|
|
(method url-fetch)
|
|
|
|
|
(uri (string-append
|
|
|
|
|
"mirror://sourceforge/inotify-tools/inotify-tools/"
|
|
|
|
|
version "/inotify-tools-" version ".tar.gz"))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
|
|
|
|
"0icl4bx041axd5dvhg89kilfkysjj86hjakc7bk8n49cxjn4cha6"))))
|
|
|
|
|
(build-system gnu-build-system)
|
|
|
|
|
(home-page "http://inotify-tools.sourceforge.net/")
|
|
|
|
|
(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-18 23:30:33 +00:00
|
|
|
|
(license license:gpl2+)))
|
2014-06-07 19:16:37 +00:00
|
|
|
|
|
|
|
|
|
(define-public kmod
|
|
|
|
|
(package
|
|
|
|
|
(name "kmod")
|
|
|
|
|
(version "17")
|
|
|
|
|
(source (origin
|
|
|
|
|
(method url-fetch)
|
|
|
|
|
(uri
|
|
|
|
|
(string-append "mirror://kernel.org/linux/utils/kernel/kmod/"
|
|
|
|
|
"kmod-" version ".tar.xz"))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
2014-06-22 19:14:23 +00:00
|
|
|
|
"1yid3a9b64a60ybj66fk2ysrq5klnl0ijl4g624cl16y8404g9rv"))
|
|
|
|
|
(patches (list (search-patch "kmod-module-directory.patch")))))
|
2014-06-07 19:16:37 +00:00
|
|
|
|
(build-system gnu-build-system)
|
|
|
|
|
(native-inputs
|
|
|
|
|
`(("pkg-config" ,pkg-config)))
|
|
|
|
|
(inputs
|
2015-03-04 16:02:07 +00:00
|
|
|
|
`(("xz" ,xz)
|
|
|
|
|
("zlib" ,zlib)))
|
2014-06-07 19:16:37 +00:00
|
|
|
|
(arguments
|
|
|
|
|
`(#:tests? #f ; FIXME: Investigate test failures
|
2014-07-23 17:09:27 +00: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 19:16:37 +00: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 04:46:59 +00:00
|
|
|
|
(description "Kmod is a set of tools to handle common tasks with Linux
|
2014-06-07 19:16:37 +00: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-18 23:30:33 +00:00
|
|
|
|
(license license:gpl2+))) ; library under lgpl2.1+
|
2014-06-07 19:27:30 +00:00
|
|
|
|
|
2014-09-12 20:12:33 +00:00
|
|
|
|
(define-public eudev
|
|
|
|
|
;; The post-systemd fork, maintained by Gentoo.
|
2016-02-02 17:17:30 +00:00
|
|
|
|
;; TODO: Merge with 'eudev-with-blkid' below at an opportune time.
|
2015-01-06 19:02:08 +00:00
|
|
|
|
(package
|
2014-09-12 20:12:33 +00:00
|
|
|
|
(name "eudev")
|
2015-10-16 13:13:02 +00:00
|
|
|
|
(version "3.1.5")
|
2014-09-12 20:12:33 +00:00
|
|
|
|
(source (origin
|
|
|
|
|
(method url-fetch)
|
|
|
|
|
(uri (string-append
|
|
|
|
|
"http://dev.gentoo.org/~blueness/eudev/eudev-"
|
|
|
|
|
version ".tar.gz"))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
2015-10-16 13:13:02 +00:00
|
|
|
|
"0akg9gcc3c2p56xbhlvbybqavcprly5q0bvk655zwl6d62j8an7p"))
|
|
|
|
|
(patches (list (search-patch "eudev-rules-directory.patch")))))
|
2015-01-06 19:02:08 +00:00
|
|
|
|
(build-system gnu-build-system)
|
|
|
|
|
(native-inputs
|
|
|
|
|
`(("pkg-config" ,pkg-config)
|
2015-10-16 13:13:02 +00:00
|
|
|
|
("perl" ,perl)
|
|
|
|
|
("gperf" ,gperf)))
|
2015-01-06 19:02:08 +00:00
|
|
|
|
(inputs
|
2015-10-16 13:13:02 +00:00
|
|
|
|
`(("kmod" ,kmod)))
|
2015-12-24 06:38:53 +00:00
|
|
|
|
(home-page "https://wiki.gentoo.org/wiki/Project:Eudev")
|
2015-01-06 19:02:08 +00: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-18 23:30:33 +00:00
|
|
|
|
(license license:gpl2+)))
|
2014-09-12 20:12:33 +00:00
|
|
|
|
|
2016-02-02 17:17:30 +00:00
|
|
|
|
(define-public eudev-with-blkid
|
|
|
|
|
;; TODO: Merge with 'eudev' above at an opportune time.
|
|
|
|
|
(package
|
|
|
|
|
(inherit eudev)
|
|
|
|
|
(name "eudev-with-blkid")
|
|
|
|
|
(inputs
|
|
|
|
|
;; 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
|
|
|
|
|
,@(package-inputs eudev)))))
|
|
|
|
|
|
2014-08-13 10:19:25 +00:00
|
|
|
|
(define-public lvm2
|
|
|
|
|
(package
|
|
|
|
|
(name "lvm2")
|
|
|
|
|
(version "2.02.109")
|
|
|
|
|
(source (origin
|
|
|
|
|
(method url-fetch)
|
|
|
|
|
(uri (string-append "ftp://sources.redhat.com/pub/lvm2/releases/LVM2."
|
|
|
|
|
version ".tgz"))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
|
|
|
|
"1rv5ivg0l1w3nwzwdkqixm96h5bzg7ib4rr196ysb2lw42jmpjbv"))
|
|
|
|
|
(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@")
|
|
|
|
|
"DEFAULT_SYS_DIR = @sysconfdir@"))))))
|
|
|
|
|
(build-system gnu-build-system)
|
|
|
|
|
(native-inputs
|
|
|
|
|
`(("pkg-config" ,pkg-config)
|
|
|
|
|
("procps" ,procps))) ;tests use 'pgrep'
|
|
|
|
|
(inputs
|
2015-01-06 18:52:57 +00:00
|
|
|
|
`(("udev" ,eudev)))
|
2014-08-13 10:19:25 +00:00
|
|
|
|
(arguments
|
|
|
|
|
'(#:phases (alist-cons-after
|
|
|
|
|
'configure 'set-makefile-shell
|
|
|
|
|
(lambda _
|
|
|
|
|
;; Use 'sh', not 'bash', so that '. lib/utils.sh' works as
|
|
|
|
|
;; expected.
|
|
|
|
|
(setenv "SHELL" (which "sh"))
|
|
|
|
|
|
|
|
|
|
;; Replace /bin/sh with the right file name.
|
|
|
|
|
(patch-makefile-SHELL "make.tmpl"))
|
|
|
|
|
%standard-phases)
|
|
|
|
|
|
|
|
|
|
#:configure-flags (list (string-append "--sysconfdir="
|
|
|
|
|
(assoc-ref %outputs "out")
|
|
|
|
|
"/etc/lvm")
|
|
|
|
|
"--enable-udev_sync"
|
2014-09-10 20:59:27 +00:00
|
|
|
|
"--enable-udev_rules"
|
|
|
|
|
|
|
|
|
|
;; Make sure programs such as 'dmsetup' can
|
|
|
|
|
;; find libdevmapper.so.
|
|
|
|
|
(string-append "LDFLAGS=-Wl,-rpath="
|
|
|
|
|
(assoc-ref %outputs "out")
|
|
|
|
|
"/lib"))
|
2014-08-13 10:19:25 +00:00
|
|
|
|
|
|
|
|
|
;; The tests use 'mknod', which requires root access.
|
|
|
|
|
#:tests? #f))
|
|
|
|
|
(home-page "http://sourceware.org/lvm2/")
|
|
|
|
|
(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-18 23:30:33 +00:00
|
|
|
|
(license (list license:gpl2 license:lgpl2.1))))
|
2014-08-13 10:19:25 +00:00
|
|
|
|
|
2014-07-19 01:23:58 +00: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 04:52:59 +00:00
|
|
|
|
"0qscyd44jmhs4k32ggp107hlym1pcyjzihiai48xs7xzib4wbndb"))
|
|
|
|
|
(snippet
|
2015-08-14 15:31:15 +00: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 01:23:58 +00:00
|
|
|
|
(build-system gnu-build-system)
|
|
|
|
|
(arguments
|
2015-08-14 15:31:15 +00: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 01:23:58 +00:00
|
|
|
|
#:tests? #f))
|
|
|
|
|
(synopsis "Tools for manipulating Linux Wireless Extensions")
|
2015-01-13 10:42:24 +00: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 01:23:58 +00:00
|
|
|
|
(home-page "http://www.hpl.hp.com/personal/Jean_Tourrilhes/Linux/Tools.html")
|
2015-08-14 15:31:15 +00:00
|
|
|
|
;; wireless.21.h and wireless.22.h are distributed under lgpl2.1+, the
|
|
|
|
|
;; other files are distributed under gpl2.
|
2015-12-18 23:30:33 +00:00
|
|
|
|
(license (list license:gpl2 license:lgpl2.1+))))
|
2014-08-08 00:29:32 +00:00
|
|
|
|
|
2015-07-17 10:14:48 +00: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"))
|
|
|
|
|
(patches (list (search-patch "crda-optional-gcrypt.patch")))))
|
|
|
|
|
(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-18 23:30:33 +00:00
|
|
|
|
(license license:copyleft-next)))
|
2015-07-17 10:14:48 +00:00
|
|
|
|
|
2015-07-17 10:14:26 +00:00
|
|
|
|
(define-public wireless-regdb
|
|
|
|
|
(package
|
|
|
|
|
(name "wireless-regdb")
|
|
|
|
|
(version "2015.04.06")
|
|
|
|
|
(source (origin
|
|
|
|
|
(method url-fetch)
|
|
|
|
|
(uri (string-append
|
|
|
|
|
"mirror://kernel.org/software/network/wireless-regdb/"
|
|
|
|
|
"wireless-regdb-" version ".tar.xz"))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
2015-12-13 14:14:06 +00:00
|
|
|
|
"0czi83k311fp27z42hxjm8vi88fsbc23mhavv96lkb4pmari0jjc"))
|
|
|
|
|
|
|
|
|
|
;; We're building 'regulatory.bin' by ourselves.
|
|
|
|
|
(snippet '(delete-file "regulatory.bin"))))
|
2015-07-17 10:14:26 +00:00
|
|
|
|
(build-system gnu-build-system)
|
|
|
|
|
(arguments
|
|
|
|
|
'(#:phases (modify-phases %standard-phases
|
|
|
|
|
(delete 'configure))
|
2015-12-13 14:14:06 +00: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 10:14:26 +00: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-18 23:30:33 +00:00
|
|
|
|
(license license:isc)))
|
2015-07-17 10:14:26 +00:00
|
|
|
|
|
2014-08-08 00:29:32 +00:00
|
|
|
|
(define-public lm-sensors
|
|
|
|
|
(package
|
|
|
|
|
(name "lm-sensors")
|
|
|
|
|
(version "3.3.5")
|
|
|
|
|
(source (origin
|
|
|
|
|
(method url-fetch)
|
|
|
|
|
(uri (string-append
|
2016-01-08 21:29:04 +00:00
|
|
|
|
"ftp://ftp.netroedge.com/pub/lm-sensors/lm_sensors-"
|
2014-08-08 00:29:32 +00:00
|
|
|
|
version ".tar.bz2"))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
|
|
|
|
"1ksgrynxgrq590nb2fwxrl1gwzisjkqlyg3ljfd1al0ibrk6mbjx"))
|
|
|
|
|
(patches (list (search-patch "lm-sensors-hwmon-attrs.patch")))))
|
|
|
|
|
(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)))
|
|
|
|
|
(arguments
|
|
|
|
|
`(#:tests? #f ; no 'check' target
|
|
|
|
|
#:make-flags (list (string-append "PREFIX=" %output)
|
|
|
|
|
(string-append "ETCDIR=" %output "/etc")
|
|
|
|
|
(string-append "MANDIR=" %output "/share/man"))
|
|
|
|
|
#:phases
|
|
|
|
|
(alist-delete
|
|
|
|
|
'configure
|
|
|
|
|
(alist-cons-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"))))
|
|
|
|
|
%standard-phases))))
|
2016-01-08 21:29:04 +00:00
|
|
|
|
(home-page "http://jdelvare.nerim.net/devel.html#lmsensors")
|
2014-08-08 00:29:32 +00: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 04:46:59 +00:00
|
|
|
|
"Lm-sensors is a hardware health monitoring package for Linux. It allows
|
2014-08-08 00:29:32 +00:00
|
|
|
|
you to access information from temperature, voltage, and fan speed sensors.
|
|
|
|
|
It works with most newer systems.")
|
2015-12-18 23:30:33 +00:00
|
|
|
|
(license license:gpl2+)))
|
2014-08-08 00:35:10 +00:00
|
|
|
|
|
2015-02-21 18:22:23 +00:00
|
|
|
|
(define-public i2c-tools
|
|
|
|
|
(package
|
|
|
|
|
(name "i2c-tools")
|
|
|
|
|
(version "3.1.1")
|
|
|
|
|
(source (origin
|
|
|
|
|
(method url-fetch)
|
|
|
|
|
(uri (string-append
|
2016-01-08 21:29:57 +00:00
|
|
|
|
"http://jdelvare.nerim.net/mirror/i2c-tools/i2c-tools-"
|
2015-02-21 18:22:23 +00: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
|
|
|
|
|
#:phases (alist-delete 'configure %standard-phases)))
|
2015-02-22 17:50:13 +00:00
|
|
|
|
(inputs
|
|
|
|
|
`(("perl" ,perl)))
|
2016-01-08 21:29:57 +00:00
|
|
|
|
(home-page "http://jdelvare.nerim.net/devel.html#i2ctools")
|
2015-02-21 18:22:23 +00: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-18 23:30:33 +00:00
|
|
|
|
(license license:gpl2+)))
|
2015-02-21 18:22:23 +00:00
|
|
|
|
|
2014-08-08 00:35:10 +00: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)
|
|
|
|
|
(inputs `(("lm-sensors" ,lm-sensors)
|
|
|
|
|
("gtk" ,gtk+-2)))
|
|
|
|
|
(native-inputs `(("pkg-config" ,pkg-config)))
|
|
|
|
|
(arguments
|
|
|
|
|
`(#:phases (alist-cons-before
|
|
|
|
|
'configure 'enable-deprecated
|
|
|
|
|
(lambda _
|
|
|
|
|
(substitute* "src/Makefile.in"
|
|
|
|
|
(("-DGDK_DISABLE_DEPRECATED") "")
|
|
|
|
|
(("-DGTK_DISABLE_DEPRECATED") "")))
|
|
|
|
|
(alist-cons-before
|
|
|
|
|
'configure 'remove-Werror
|
|
|
|
|
(lambda _
|
|
|
|
|
(substitute* '("configure" "src/Makefile.in")
|
|
|
|
|
(("-Werror") "")))
|
|
|
|
|
%standard-phases))))
|
|
|
|
|
(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 04:46:59 +00:00
|
|
|
|
"Xsensors reads data from the libsensors library regarding hardware
|
2014-08-08 00:35:10 +00:00
|
|
|
|
health such as temperature, voltage and fan speed and displays the information
|
|
|
|
|
in a digital read-out.")
|
2015-12-18 23:30:33 +00:00
|
|
|
|
(license license:gpl2+)))
|
2014-09-30 13:56:47 +00:00
|
|
|
|
|
|
|
|
|
(define-public perf
|
|
|
|
|
(package
|
|
|
|
|
(name "perf")
|
|
|
|
|
(version (package-version linux-libre))
|
|
|
|
|
(source (package-source linux-libre))
|
|
|
|
|
(build-system gnu-build-system)
|
|
|
|
|
(arguments
|
|
|
|
|
'(#:phases (alist-replace
|
|
|
|
|
'configure
|
|
|
|
|
(lambda* (#:key inputs #:allow-other-keys)
|
|
|
|
|
(setenv "SHELL_PATH" (which "bash"))
|
|
|
|
|
(chdir "tools/perf"))
|
|
|
|
|
%standard-phases)
|
|
|
|
|
#:make-flags (list (string-append "DESTDIR="
|
|
|
|
|
(assoc-ref %outputs "out"))
|
2015-01-21 14:04:09 +00:00
|
|
|
|
"WERROR=0"
|
|
|
|
|
|
|
|
|
|
;; By default, 'config/Makefile' uses lib64 on
|
|
|
|
|
;; x86_64. Work around that.
|
|
|
|
|
"lib=lib")
|
2014-09-30 13:56:47 +00: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 13:54:56 +00:00
|
|
|
|
`(("slang" ,slang) ;for the interactive TUI
|
2014-09-30 13:56:47 +00:00
|
|
|
|
;; ("newt" ,newt)
|
2015-01-21 12:50:07 +00:00
|
|
|
|
("python" ,python-2) ;'perf' links against libpython
|
2014-09-30 13:56:47 +00:00
|
|
|
|
("elfutils" ,elfutils)
|
|
|
|
|
|
2015-01-21 13:18:44 +00:00
|
|
|
|
;; Documentation.
|
|
|
|
|
("libxml2" ,libxml2) ;for $XML_CATALOG_FILES
|
|
|
|
|
("libxslt" ,libxslt)
|
|
|
|
|
("docbook-xml" ,docbook-xml)
|
|
|
|
|
("docbook-xsl" ,docbook-xsl)
|
|
|
|
|
("xmlto" ,xmlto)
|
|
|
|
|
("asciidoc" ,asciidoc)))
|
2014-09-30 13:56:47 +00: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 03:31:56 +00: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 17:23:27 +00:00
|
|
|
|
(file-name (string-append name "-" version ".tar.gz"))
|
2014-11-21 03:31:56 +00:00
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
|
|
|
|
"1g8fjj67dfkc2s0852l9vqi1pm61gp4rxbpzbzg780f5s5hd1fys"))))
|
|
|
|
|
(build-system cmake-build-system)
|
|
|
|
|
(arguments
|
|
|
|
|
'(#:tests? #f)) ; no tests
|
|
|
|
|
(home-page "http://ghedo.github.io/pflask/")
|
|
|
|
|
(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-18 23:30:33 +00:00
|
|
|
|
(license license:bsd-2)))
|
2015-02-02 17:12:52 +00:00
|
|
|
|
|
|
|
|
|
(define-public hdparm
|
|
|
|
|
(package
|
|
|
|
|
(name "hdparm")
|
|
|
|
|
(version "9.45")
|
|
|
|
|
(source (origin
|
|
|
|
|
(method url-fetch)
|
|
|
|
|
(uri (string-append "mirror://sourceforge/" name "/"
|
|
|
|
|
name "-" version ".tar.gz"))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
|
|
|
|
"0sc6yf3k6sd7n6a2ig2my9fjlqpak3znlyw7jw4cz5d9asm1rc13"))))
|
|
|
|
|
(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"))
|
|
|
|
|
#:phases (alist-delete 'configure %standard-phases)
|
|
|
|
|
#:tests? #f)) ; no test suite
|
|
|
|
|
(home-page "http://sourceforge.net/projects/hdparm/")
|
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 12:16:07 +00:00
|
|
|
|
(synopsis "Tune hard disk parameters for high performance")
|
2015-02-02 17:12:52 +00:00
|
|
|
|
(description
|
|
|
|
|
"Get/set device parameters for Linux SATA/IDE drives. It's primary use
|
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 12:16:07 +00:00
|
|
|
|
is for enabling irq-unmasking and IDE multiple-mode.")
|
2015-12-18 23:30:33 +00:00
|
|
|
|
(license (license:non-copyleft "file://LICENSE.TXT"))))
|
2015-02-02 17:12:52 +00:00
|
|
|
|
|
2015-08-12 14:36:50 +00: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-18 23:30:33 +00:00
|
|
|
|
(license (license:non-copyleft "file://COPYING"
|
|
|
|
|
"See COPYING in the distribution."))))
|
2015-08-12 14:36:50 +00:00
|
|
|
|
|
2015-02-13 10:24:00 +00:00
|
|
|
|
(define-public acpid
|
|
|
|
|
(package
|
|
|
|
|
(name "acpid")
|
|
|
|
|
(version "2.0.23")
|
|
|
|
|
(source (origin
|
|
|
|
|
(method url-fetch)
|
|
|
|
|
(uri (string-append "mirror://sourceforge/acpid2/acpid-"
|
|
|
|
|
version ".tar.xz"))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
|
|
|
|
"1vl7c6vc724v4jwki17czgj6lnrknnj1a6llm8gkl32i2gnam5j3"))))
|
|
|
|
|
(build-system gnu-build-system)
|
|
|
|
|
(home-page "http://sourceforge.net/projects/acpid2/")
|
|
|
|
|
(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-18 23:30:33 +00:00
|
|
|
|
(license license:gpl2+)))
|
2015-02-18 20:20:38 +00: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
|
2015-07-23 07:40:05 +00:00
|
|
|
|
"These are a set of utilities built upon sysfs, a virtual filesystem in
|
2015-02-18 20:20:38 +00: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-18 23:30:33 +00:00
|
|
|
|
(license (list license:gpl2 license:gpl2+ license:lgpl2.1+))))
|
2015-02-18 21:17:01 +00: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 20:20:57 +00: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"))
|
|
|
|
|
(patches (list (search-patch "cpufrequtils-fix-aclocal.patch")))))
|
|
|
|
|
(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 12:16:07 +00:00
|
|
|
|
"The cpufrequtils suite contains utilities to retrieve CPU frequency
|
2015-02-18 20:20:57 +00:00
|
|
|
|
information, and set the CPU frequency if supported, using the cpufreq
|
|
|
|
|
capabilities of the Linux kernel.")
|
2015-12-18 23:30:33 +00:00
|
|
|
|
(license license:gpl2)))
|
2015-04-04 08:00:05 +00:00
|
|
|
|
|
|
|
|
|
(define-public libraw1394
|
|
|
|
|
(package
|
|
|
|
|
(name "libraw1394")
|
|
|
|
|
(version "2.1.0")
|
|
|
|
|
(source (origin
|
|
|
|
|
(method url-fetch)
|
|
|
|
|
(uri (string-append
|
|
|
|
|
"mirror://kernel.org/linux/libs/ieee1394/"
|
|
|
|
|
name "-" version ".tar.xz"))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
|
|
|
|
"0kwnf4ha45c04mhc4yla672aqmvqqihxix1gvblns5cd2pc2cc8b"))))
|
|
|
|
|
(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-18 23:30:33 +00:00
|
|
|
|
(license license:lgpl2.1+)))
|
2015-04-04 08:19:18 +00:00
|
|
|
|
|
|
|
|
|
(define-public libavc1394
|
|
|
|
|
(package
|
|
|
|
|
(name "libavc1394")
|
|
|
|
|
(version "0.5.4")
|
|
|
|
|
(source (origin
|
|
|
|
|
(method url-fetch)
|
|
|
|
|
(uri (string-append "mirror://sourceforge/libavc1394/"
|
|
|
|
|
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
|
|
|
|
|
(home-page "http://sourceforge.net/projects/libavc1394/")
|
|
|
|
|
(synopsis "AV/C protocol library for IEEE 1394")
|
|
|
|
|
(description
|
|
|
|
|
"Libavc1394 is a programming interface to the AV/C specification from
|
2015-07-23 07:40:05 +00:00
|
|
|
|
the 1394 Trade Association. AV/C stands for Audio/Video Control.")
|
2015-12-18 23:30:33 +00:00
|
|
|
|
(license license:lgpl2.1+)))
|
2015-04-07 05:22:40 +00: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-18 23:30:33 +00:00
|
|
|
|
(license license:lgpl2.1+)))
|
2015-04-09 01:00:32 +00:00
|
|
|
|
|
|
|
|
|
(define-public mdadm
|
|
|
|
|
(package
|
|
|
|
|
(name "mdadm")
|
|
|
|
|
(version "3.3.2")
|
|
|
|
|
(source (origin
|
|
|
|
|
(method url-fetch)
|
|
|
|
|
(uri (string-append
|
|
|
|
|
"mirror://kernel.org/linux/utils/raid/mdadm/mdadm-"
|
|
|
|
|
version ".tar.xz"))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
2015-06-20 02:42:12 +00:00
|
|
|
|
"132vdvh3myjgcjn6i9w90ck16ddjxjcszklzkyvr4f5ifqd7wfhg"))
|
|
|
|
|
(patches (list (search-patch "mdadm-gcc-4.9-fix.patch")))))
|
2015-04-09 01:00:32 +00:00
|
|
|
|
(build-system gnu-build-system)
|
|
|
|
|
(inputs
|
|
|
|
|
`(("udev" ,eudev)))
|
|
|
|
|
(arguments
|
|
|
|
|
`(#:make-flags (let ((out (assoc-ref %outputs "out")))
|
|
|
|
|
(list "INSTALL=install"
|
|
|
|
|
"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")))
|
|
|
|
|
#:phases (alist-cons-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)))))
|
|
|
|
|
(alist-delete 'configure %standard-phases))
|
|
|
|
|
;;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-18 23:30:33 +00:00
|
|
|
|
(license license:gpl2+)))
|
2015-04-16 08:47:44 +00: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/"
|
|
|
|
|
name "_" version ".orig.tar.gz")
|
|
|
|
|
(string-append "https://fedorahosted.org/releases/l/i/libaio/"
|
|
|
|
|
name "-" version ".tar.gz")))
|
|
|
|
|
(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
|
|
|
|
|
(alist-delete 'configure %standard-phases))) ; no configure script
|
|
|
|
|
(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-18 23:30:33 +00:00
|
|
|
|
(license license:lgpl2.1+)))
|
2015-04-26 21:49:53 +00:00
|
|
|
|
|
|
|
|
|
(define-public bluez
|
|
|
|
|
(package
|
|
|
|
|
(name "bluez")
|
2015-12-14 08:50:55 +00:00
|
|
|
|
(version "5.36")
|
2015-04-26 21:49:53 +00:00
|
|
|
|
(source (origin
|
|
|
|
|
(method url-fetch)
|
|
|
|
|
(uri (string-append
|
|
|
|
|
"https://www.kernel.org/pub/linux/bluetooth/bluez-"
|
|
|
|
|
version ".tar.xz"))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
2015-12-14 08:50:55 +00:00
|
|
|
|
"1wkqwmi5krr37mxcqqlp5m2xnw7vw70v3ww7j09vvlskxcdflhx3"))))
|
2015-04-26 21:49:53 +00:00
|
|
|
|
(build-system gnu-build-system)
|
|
|
|
|
(arguments
|
|
|
|
|
'(#:configure-flags
|
|
|
|
|
(let ((out (assoc-ref %outputs "out")))
|
2015-05-23 18:39:57 +00:00
|
|
|
|
(list "--enable-library"
|
|
|
|
|
"--disable-systemd"
|
2015-04-26 21:49:53 +00:00
|
|
|
|
;; Install dbus/udev files to the correct location.
|
|
|
|
|
(string-append "--with-dbusconfdir=" out "/etc")
|
|
|
|
|
(string-append "--with-udevdir=" out "/lib/udev")))))
|
|
|
|
|
(native-inputs
|
|
|
|
|
`(("pkg-config" ,pkg-config)
|
|
|
|
|
("gettext" ,gnu-gettext)))
|
|
|
|
|
(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-18 23:30:33 +00:00
|
|
|
|
(license license:gpl2+)))
|
2015-08-20 19:00:09 +00:00
|
|
|
|
|
|
|
|
|
(define-public fuse-exfat
|
|
|
|
|
(package
|
|
|
|
|
(name "fuse-exfat")
|
|
|
|
|
(version "1.1.0")
|
|
|
|
|
(source (origin
|
|
|
|
|
(method url-fetch)
|
|
|
|
|
(uri "https://docs.google.com/uc?export=download&\
|
|
|
|
|
id=0B7CLI-REKbE3VTdaa0EzTkhYdU0")
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
|
|
|
|
"0glmgwrf0nv09am54i6s35ksbvrywrwc51w6q32mv5by8475530r"))
|
|
|
|
|
(file-name (string-append name "-" version ".tar.gz"))))
|
|
|
|
|
(build-system gnu-build-system)
|
|
|
|
|
(native-inputs
|
|
|
|
|
`(("scons" ,scons)
|
|
|
|
|
("pkg-config" ,pkg-config)))
|
|
|
|
|
(inputs
|
|
|
|
|
`(("fuse" ,fuse)))
|
|
|
|
|
(arguments
|
|
|
|
|
'(#:tests? #f ;no test suite
|
|
|
|
|
|
|
|
|
|
;; XXX: Factorize with 'exfat-utils'.
|
|
|
|
|
#:phases (modify-phases %standard-phases
|
|
|
|
|
(delete 'configure)
|
|
|
|
|
(add-after 'unpack 'scons-propagate-environment
|
|
|
|
|
(lambda _
|
|
|
|
|
;; Modify the SConstruct file to arrange for
|
|
|
|
|
;; environment variables to be propagated.
|
|
|
|
|
(substitute* "SConstruct"
|
|
|
|
|
(("^env = Environment\\(")
|
|
|
|
|
"env = Environment(ENV=os.environ, "))))
|
|
|
|
|
(replace 'build
|
|
|
|
|
(lambda _
|
|
|
|
|
(zero? (system* "scons"))))
|
|
|
|
|
(replace 'install
|
|
|
|
|
(lambda* (#:key outputs #:allow-other-keys)
|
|
|
|
|
(let* ((out (assoc-ref outputs "out"))
|
|
|
|
|
(bin (string-append out "/bin"))
|
|
|
|
|
(man8 (string-append out
|
|
|
|
|
"/share/man/man8")))
|
|
|
|
|
(mkdir-p bin)
|
|
|
|
|
(mkdir-p man8)
|
|
|
|
|
(for-each (lambda (file)
|
|
|
|
|
(copy-file
|
|
|
|
|
file
|
|
|
|
|
(string-append man8 "/"
|
|
|
|
|
(basename file))))
|
|
|
|
|
(find-files "." "\\.8$"))
|
|
|
|
|
(zero? (system* "scons" "install"
|
|
|
|
|
(string-append "DESTDIR="
|
|
|
|
|
bin)))))))))
|
|
|
|
|
(home-page "http://code.google.com/p/exfat/")
|
|
|
|
|
(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-18 23:30:33 +00:00
|
|
|
|
(license license:gpl2+)))
|
2015-11-06 22:49:40 +00: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"))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
|
|
|
|
"13d426a8h403ckpc8zyf7s2p5rql0lqbg2bv0454x0pvgbfbf4gh"))))
|
|
|
|
|
(build-system gnu-build-system)
|
|
|
|
|
(arguments
|
|
|
|
|
'(#:phases (modify-phases %standard-phases
|
|
|
|
|
(add-before 'configure 'bootstrap
|
|
|
|
|
(lambda _
|
|
|
|
|
;; The tarball was not generated with 'make dist' so we
|
|
|
|
|
;; need to bootstrap things ourselves.
|
|
|
|
|
(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-18 23:30:33 +00:00
|
|
|
|
(license license:gpl2+)))
|
2016-02-10 04:01:46 +00:00
|
|
|
|
|
|
|
|
|
(define-public btrfs-progs
|
|
|
|
|
(package
|
|
|
|
|
(name "btrfs-progs")
|
2016-02-27 00:17:04 +00:00
|
|
|
|
(version "4.4.1")
|
2016-02-10 04:01:46 +00: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
|
2016-02-27 00:17:04 +00:00
|
|
|
|
"1z5882zx9jx02vyg067siws0irsl8pg37myx17hr4imn9ypf6r4r"))))
|
2016-02-10 04:01:46 +00:00
|
|
|
|
(build-system gnu-build-system)
|
|
|
|
|
(arguments
|
|
|
|
|
'(#:test-target "test"
|
|
|
|
|
#:parallel-tests? #f)) ; tests fail when run in parallel
|
|
|
|
|
(inputs `(("e2fsprogs" ,e2fsprogs)
|
|
|
|
|
("libblkid" ,util-linux)
|
|
|
|
|
("libuuid" ,util-linux)
|
|
|
|
|
("zlib" ,zlib)
|
|
|
|
|
("lzo" ,lzo)))
|
|
|
|
|
(native-inputs `(("pkg-config" ,pkg-config)
|
|
|
|
|
("asciidoc" ,asciidoc)
|
|
|
|
|
("xmlto" ,xmlto)
|
|
|
|
|
;; For building documentation
|
|
|
|
|
("libxml2" ,libxml2)
|
|
|
|
|
("docbook-xml" ,docbook-xml)
|
|
|
|
|
("docbook-xsl" ,docbook-xsl)))
|
|
|
|
|
(home-page "https://btrfs.wiki.kernel.org/")
|
|
|
|
|
(synopsis "Create and manage btrfs copy-on-write file systems")
|
|
|
|
|
(description "Btrfs is a copy-on-write (CoW) filesystem for Linux aimed at
|
|
|
|
|
implementing advanced features while focusing on fault tolerance, repair and
|
|
|
|
|
easy administration.")
|
2016-02-15 02:04:05 +00:00
|
|
|
|
;; GPL2+: crc32.c, radix-tree.c, raid6.c, rbtree.c.
|
|
|
|
|
;; GPL2: Everything else.
|
|
|
|
|
(license (list license:gpl2 license:gpl2+))))
|