Nie możesz wybrać więcej, niż 25 tematów Tematy muszą się zaczynać od litery lub cyfry, mogą zawierać myślniki ('-') i mogą mieć do 35 znaków.

64 wiersze
2.4 KiB

;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2013 Andreas Enge <>
;;; This file is part of GNU Guix.
;;; GNU Guix is free software; you can redistribute it and/or modify it
;;; 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.
;;; GNU Guix is distributed in the hope that it will be useful, but
;;; WITHOUT ANY WARRANTY; without even the implied warranty of
;;; GNU General Public License for more details.
;;; You should have received a copy of the GNU General Public License
;;; along with GNU Guix. If not, see <>.
(define-module (gnu packages lvm)
#:use-module ((guix licenses)
#:renamer (symbol-prefix-proc 'license:))
#:use-module (guix packages)
#:use-module (guix download)
#:use-module (guix build-system gnu)
#:use-module (gnu packages)
#:use-module (gnu packages linux)
#:use-module (gnu packages pkg-config))
(define-public lvm2
(name "lvm2")
(version "2.02.98")
(source (origin
(method url-fetch)
(uri (string-append ""
version ".tgz"))
(build-system gnu-build-system)
`(("pkg-config" ,pkg-config)
("procps" ,procps)))
`(#:tests? #f ; require to be root
`(,(string-append "--with-confdir=" (assoc-ref %outputs "out") "/etc"))
(lambda* (#:key #:allow-other-keys #:rest args)
(let ((configure (assoc-ref %standard-phases 'configure)))
(substitute* ""
(("/bin/sh") (which "sh"))
(("CC \\?=") "CC =")) ; force CC argument to be set from configure
(apply configure args)))
(synopsis "logical volume management")
"LVM2 refers to the userspace toolset that provides logical volume
management facilities on linux. It is reasonably backwards-compatible with
the original LVM toolset.")
(license license:gpl2)
(home-page "")))