Commit | Line | Data |
---|---|---|
e04f30e0 | 1 | ;;; GNU Guix --- Functional package management for GNU |
cc4a2aeb | 2 | ;;; Copyright © 2012, 2013 Nikita Karetnikov <nikita@karetnikov.org> |
dd4a8620 | 3 | ;;; Copyright © 2015 Mark H Weaver <mhw@netris.org> |
e04f30e0 NK |
4 | ;;; |
5 | ;;; This file is part of GNU Guix. | |
6 | ;;; | |
7 | ;;; GNU Guix is free software; you can redistribute it and/or modify it | |
8 | ;;; under the terms of the GNU General Public License as published by | |
9 | ;;; the Free Software Foundation; either version 3 of the License, or (at | |
10 | ;;; your option) any later version. | |
11 | ;;; | |
12 | ;;; GNU Guix is distributed in the hope that it will be useful, but | |
13 | ;;; WITHOUT ANY WARRANTY; without even the implied warranty of | |
14 | ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
15 | ;;; GNU General Public License for more details. | |
16 | ;;; | |
17 | ;;; You should have received a copy of the GNU General Public License | |
18 | ;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>. | |
19 | ||
cc4a2aeb | 20 | (define-module (gnu packages disk) |
e04f30e0 NK |
21 | #:use-module (guix licenses) |
22 | #:use-module (guix packages) | |
23 | #:use-module (guix download) | |
24 | #:use-module (guix build-system gnu) | |
25 | #:use-module (gnu packages check) | |
1dba6407 | 26 | #:use-module (gnu packages gettext) |
e04f30e0 | 27 | #:use-module (gnu packages linux) |
cc4a2aeb LC |
28 | #:use-module (gnu packages readline) |
29 | #:use-module (gnu packages guile) | |
30 | #:use-module ((gnu packages compression) | |
31 | #:select (lzip))) | |
e04f30e0 NK |
32 | |
33 | (define-public parted | |
34 | (package | |
35 | (name "parted") | |
36 | (version "3.1") | |
37 | (source | |
38 | (origin | |
39 | (method url-fetch) | |
40 | (uri (string-append "mirror://gnu/parted/parted-" | |
41 | version ".tar.xz")) | |
42 | (sha256 | |
43 | (base32 | |
44 | "05fa4m1bky9d13hqv91jlnngzlyn7y4rnnyq6d86w0dg3vww372y")))) | |
45 | (build-system gnu-build-system) | |
46 | (arguments `(#:configure-flags '("--disable-device-mapper") | |
47 | #:phases (alist-cons-before | |
48 | 'configure 'fix-mkswap | |
49 | (lambda* (#:key inputs #:allow-other-keys) | |
50 | (let ((util-linux (assoc-ref inputs | |
51 | "util-linux"))) | |
52 | (substitute* | |
53 | "tests/t9050-partition-table-types.sh" | |
54 | (("mkswap") | |
55 | (string-append util-linux "/sbin/mkswap"))))) | |
56 | %standard-phases))) | |
57 | (inputs | |
58 | ;; XXX: add 'lvm2'. | |
59 | `(("check" ,check) | |
50322c84 LC |
60 | |
61 | ;; With Readline 6.3, parted/ui.c fails to build because it uses the | |
62 | ;; now undefined 'CPPFunction' type. | |
63 | ("readline" ,readline-6.2) | |
64 | ||
e04f30e0 | 65 | ("util-linux" ,util-linux))) |
c4c4cc05 JD |
66 | (native-inputs |
67 | `(("gettext" ,gnu-gettext))) | |
e04f30e0 | 68 | (home-page "http://www.gnu.org/software/parted/") |
f50d2669 | 69 | (synopsis "Disk partition editor") |
e04f30e0 | 70 | (description |
79c311b8 LC |
71 | "GNU Parted is a package for creating and manipulating disk partition |
72 | tables. It includes a library and command-line utility.") | |
f50d2669 | 73 | (license gpl3+))) |
cc4a2aeb LC |
74 | |
75 | (define-public fdisk | |
76 | (package | |
77 | (name "fdisk") | |
78 | (version "2.0.0a") | |
79 | (source | |
80 | (origin | |
81 | (method url-fetch) | |
82 | (uri (string-append "mirror://gnu/fdisk/gnufdisk-" | |
83 | version ".tar.gz")) | |
84 | (sha256 | |
85 | (base32 | |
86 | "04nd7civ561x2lwcmxhsqbprml3178jfc58fy1v7hzqg5k4nbhy3")))) | |
87 | (build-system gnu-build-system) | |
88 | (inputs | |
89 | `(("gettext" ,gnu-gettext) | |
90 | ("guile" ,guile-1.8) | |
91 | ("util-linux" ,util-linux) | |
92 | ("parted" ,parted))) | |
93 | (home-page "https://www.gnu.org/software/fdisk/") | |
94 | (synopsis "Low-level disk partitioning and formatting") | |
95 | (description | |
96 | "GNU fdisk provides a GNU version of the common disk partitioning tool | |
97 | fdisk. fdisk is used for the creation and manipulation of disk partition | |
98 | tables, and it understands a variety of different formats.") | |
99 | (license gpl3+))) | |
100 | ||
101 | (define-public ddrescue | |
102 | (package | |
103 | (name "ddrescue") | |
723fa420 | 104 | (version "1.19") |
cc4a2aeb LC |
105 | (source |
106 | (origin | |
107 | (method url-fetch) | |
108 | (uri (string-append "mirror://gnu/ddrescue/ddrescue-" | |
109 | version ".tar.lz")) | |
110 | (sha256 | |
111 | (base32 | |
723fa420 | 112 | "1f278w7i9sx45jk6fsw1kyzx743k3alx1c4w1q8sk05ckafhr3gd")))) |
cc4a2aeb LC |
113 | (build-system gnu-build-system) |
114 | (home-page "http://www.gnu.org/software/ddrescue/ddrescue.html") | |
115 | (synopsis "Data recovery utility") | |
116 | (native-inputs `(("lzip" ,lzip))) | |
117 | (description | |
118 | "GNU ddrescue is a fully automated data recovery tool. It copies data | |
119 | from one file to another, working to rescue data in case of read errors. The | |
120 | program also includes a tool for manipulating its log files, which are used | |
121 | to recover data more efficiently by only reading the necessary blocks.") | |
122 | (license gpl3+))) | |
dd4a8620 MW |
123 | |
124 | (define-public dosfstools | |
125 | (package | |
126 | (name "dosfstools") | |
127 | (version "3.0.27") | |
128 | (source | |
129 | (origin | |
130 | (method url-fetch) | |
131 | (uri (string-append "https://github.com/" name "/" name | |
132 | "/releases/download/v" version "/" | |
133 | name "-" version ".tar.xz")) | |
134 | (sha256 | |
135 | (base32 | |
136 | "1a2qs5g2zqbk1gzaaf4v3fw3yny6jgbzddpgcamkp3fjifn8wxl5")))) | |
137 | (build-system gnu-build-system) | |
138 | (arguments | |
139 | `(#:make-flags (list (string-append "PREFIX=" %output) | |
140 | "CC=gcc") | |
141 | #:tests? #f ;no tests | |
142 | #:phases (modify-phases %standard-phases | |
143 | (delete 'configure)))) | |
144 | (home-page "https://github.com/dosfstools/dosfstools") | |
145 | (synopsis "Utilities for making and checking MS-DOS FAT filesystems") | |
146 | (description | |
147 | "The dosfstools package includes the mkfs.fat and fsck.fat utilities, | |
148 | which respectively make and check MS-DOS FAT filesystems.") | |
149 | (license gpl3+))) |