You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
 
 
 
 
 
 

65 rivejä
2.4 KiB

  1. ;;; GNU Guix --- Functional package management for GNU
  2. ;;; Copyright © 2013 Andreas Enge <andreas@enge.fr>
  3. ;;;
  4. ;;; This file is part of GNU Guix.
  5. ;;;
  6. ;;; GNU Guix is free software; you can redistribute it and/or modify it
  7. ;;; under the terms of the GNU General Public License as published by
  8. ;;; the Free Software Foundation; either version 3 of the License, or (at
  9. ;;; your option) any later version.
  10. ;;;
  11. ;;; GNU Guix is distributed in the hope that it will be useful, but
  12. ;;; WITHOUT ANY WARRANTY; without even the implied warranty of
  13. ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
  14. ;;; GNU General Public License for more details.
  15. ;;;
  16. ;;; You should have received a copy of the GNU General Public License
  17. ;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
  18. (define-module (gnu packages lvm)
  19. #:use-module ((guix licenses)
  20. #:renamer (symbol-prefix-proc 'license:))
  21. #:use-module (guix packages)
  22. #:use-module (guix download)
  23. #:use-module (guix build-system gnu)
  24. #:use-module (gnu packages)
  25. #:use-module (gnu packages linux)
  26. #:use-module (gnu packages pkg-config))
  27. (define-public lvm2
  28. (package
  29. (name "lvm2")
  30. (version "2.02.98")
  31. (source (origin
  32. (method url-fetch)
  33. (uri (string-append "ftp://sources.redhat.com/pub/lvm2/LVM2."
  34. version ".tgz"))
  35. (sha256
  36. (base32
  37. "0r6q6z8ip6q5qgkzng0saljassp4912k6i21ra10vq7pzrc0l0vi"))))
  38. (build-system gnu-build-system)
  39. (inputs
  40. `(("pkg-config" ,pkg-config)
  41. ("procps" ,procps)))
  42. (arguments
  43. `(#:tests? #f ; require to be root
  44. #:configure-flags
  45. `(,(string-append "--with-confdir=" (assoc-ref %outputs "out") "/etc"))
  46. #:phases
  47. (alist-replace
  48. 'configure
  49. (lambda* (#:key #:allow-other-keys #:rest args)
  50. (let ((configure (assoc-ref %standard-phases 'configure)))
  51. (substitute* "make.tmpl.in"
  52. (("/bin/sh") (which "sh"))
  53. (("CC \\?=") "CC =")) ; force CC argument to be set from configure
  54. (apply configure args)))
  55. %standard-phases)))
  56. (synopsis "logical volume management")
  57. (description
  58. "LVM2 refers to the userspace toolset that provides logical volume
  59. management facilities on linux. It is reasonably backwards-compatible with
  60. the original LVM toolset.")
  61. (license license:gpl2)
  62. (home-page "http://www.sourceware.org/lvm2/")))