Commit | Line | Data |
---|---|---|
e04f30e0 | 1 | ;;; GNU Guix --- Functional package management for GNU |
cc4a2aeb | 2 | ;;; Copyright © 2012, 2013 Nikita Karetnikov <nikita@karetnikov.org> |
1b933e62 | 3 | ;;; Copyright © 2015 Mathieu Lirzin <mthl@gnu.org> |
dd4a8620 | 4 | ;;; Copyright © 2015 Mark H Weaver <mhw@netris.org> |
e05647ad | 5 | ;;; Copyright © 2016 Tobias Geerinckx-Rice <me@tobias.gr> |
ce16d1dc | 6 | ;;; Copyright © 2016 Efraim Flashner <efraim@flashner.co.il> |
abba1d08 | 7 | ;;; Copyright © 2016 Jan Nieuwenhuizen <janneke@gnu.org> |
c20e552b | 8 | ;;; Copyright © 2016 Roel Janssen <roel@gnu.org> |
5f0f3686 | 9 | ;;; Copyright © 2016, 2017 Marius Bakke <mbakke@fastmail.com> |
49393691 | 10 | ;;; Copyright © 2017 Hartmut Goebel <h.goebel@crazy-compilers.com> |
893f9d24 | 11 | ;;; Copyright © 2017 Stefan Reichör <stefan@xsteve.at> |
e04f30e0 NK |
12 | ;;; |
13 | ;;; This file is part of GNU Guix. | |
14 | ;;; | |
15 | ;;; GNU Guix is free software; you can redistribute it and/or modify it | |
16 | ;;; under the terms of the GNU General Public License as published by | |
17 | ;;; the Free Software Foundation; either version 3 of the License, or (at | |
18 | ;;; your option) any later version. | |
19 | ;;; | |
20 | ;;; GNU Guix is distributed in the hope that it will be useful, but | |
21 | ;;; WITHOUT ANY WARRANTY; without even the implied warranty of | |
22 | ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
23 | ;;; GNU General Public License for more details. | |
24 | ;;; | |
25 | ;;; You should have received a copy of the GNU General Public License | |
26 | ;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>. | |
27 | ||
cc4a2aeb | 28 | (define-module (gnu packages disk) |
fd297f4a | 29 | #:use-module ((guix licenses) #:prefix license:) |
e04f30e0 NK |
30 | #:use-module (guix packages) |
31 | #:use-module (guix download) | |
32 | #:use-module (guix build-system gnu) | |
51ad11ad | 33 | #:use-module (guix build-system trivial) |
893f9d24 | 34 | #:use-module (guix build-system python) |
abba1d08 | 35 | #:use-module (gnu packages) |
c20e552b RJ |
36 | #:use-module (gnu packages base) |
37 | #:use-module (gnu packages docbook) | |
1dba6407 | 38 | #:use-module (gnu packages gettext) |
c20e552b RJ |
39 | #:use-module (gnu packages glib) |
40 | #:use-module (gnu packages gtk) | |
41 | #:use-module (gnu packages gnome) | |
e04f30e0 | 42 | #:use-module (gnu packages linux) |
abba1d08 | 43 | #:use-module (gnu packages ncurses) |
1b933e62 | 44 | #:use-module (gnu packages perl) |
c20e552b | 45 | #:use-module (gnu packages pkg-config) |
abba1d08 | 46 | #:use-module (gnu packages popt) |
1b933e62 | 47 | #:use-module (gnu packages python) |
cc4a2aeb LC |
48 | #:use-module (gnu packages readline) |
49 | #:use-module (gnu packages guile) | |
c20e552b | 50 | #:use-module (gnu packages compression) |
5f0f3686 | 51 | #:use-module (gnu packages vim) |
c20e552b | 52 | #:use-module (gnu packages xml)) |
e04f30e0 NK |
53 | |
54 | (define-public parted | |
55 | (package | |
56 | (name "parted") | |
1b933e62 ML |
57 | (version "3.2") |
58 | (source (origin | |
59 | (method url-fetch) | |
60 | (uri (string-append "mirror://gnu/parted/parted-" | |
61 | version ".tar.xz")) | |
62 | (sha256 | |
63 | (base32 | |
64 | "1r3qpg3bhz37mgvp9chsaa3k0csby3vayfvz8ggsqz194af5i2w5")))) | |
e04f30e0 | 65 | (build-system gnu-build-system) |
1b933e62 ML |
66 | (arguments |
67 | `(#:phases | |
68 | (modify-phases %standard-phases | |
69 | (add-after | |
70 | 'unpack 'fix-locales-and-python | |
71 | (lambda* (#:key inputs #:allow-other-keys) | |
72 | (substitute* "tests/t0251-gpt-unicode.sh" | |
73 | (("C.UTF-8") "en_US.utf8")) ;not in Glibc locales | |
74 | (substitute* "tests/msdos-overlap" | |
75 | (("/usr/bin/python") (which "python")))))))) | |
e04f30e0 | 76 | (inputs |
1b933e62 ML |
77 | `(("lvm2" ,lvm2) |
78 | ("readline" ,readline) | |
e04f30e0 | 79 | ("util-linux" ,util-linux))) |
c4c4cc05 | 80 | (native-inputs |
b94a6ca0 | 81 | `(("gettext" ,gettext-minimal) |
1b933e62 ML |
82 | ;; For the tests. |
83 | ("perl" ,perl) | |
84 | ("python" ,python-2))) | |
85 | (home-page "https://www.gnu.org/software/parted/") | |
f50d2669 | 86 | (synopsis "Disk partition editor") |
e04f30e0 | 87 | (description |
79c311b8 LC |
88 | "GNU Parted is a package for creating and manipulating disk partition |
89 | tables. It includes a library and command-line utility.") | |
fd297f4a | 90 | (license license:gpl3+))) |
cc4a2aeb LC |
91 | |
92 | (define-public fdisk | |
93 | (package | |
94 | (name "fdisk") | |
ae03ee42 | 95 | (version "2.0.0a1") |
cc4a2aeb LC |
96 | (source |
97 | (origin | |
98 | (method url-fetch) | |
99 | (uri (string-append "mirror://gnu/fdisk/gnufdisk-" | |
100 | version ".tar.gz")) | |
101 | (sha256 | |
102 | (base32 | |
ae03ee42 | 103 | "1d8za79kw8ihnp2br084rgyjv9whkwp7957rzw815i0izx6xhqy9")))) |
cc4a2aeb LC |
104 | (build-system gnu-build-system) |
105 | (inputs | |
b94a6ca0 | 106 | `(("gettext" ,gettext-minimal) |
cc4a2aeb LC |
107 | ("guile" ,guile-1.8) |
108 | ("util-linux" ,util-linux) | |
109 | ("parted" ,parted))) | |
ae03ee42 TGR |
110 | ;; The build neglects to look for its own headers in its own tree. A next |
111 | ;; release should fix this, but may never come: GNU fdisk looks abandoned. | |
112 | (arguments | |
113 | `(#:phases | |
114 | (modify-phases %standard-phases | |
115 | (add-after 'unpack 'skip-broken-header-probes | |
116 | (lambda _ | |
117 | (substitute* "backend/configure" | |
118 | (("gnufdisk-common.h .*") "\n")) | |
119 | #t))) | |
120 | #:make-flags (list (string-append "CPPFLAGS=" | |
121 | " -I../common/include " | |
122 | " -I../debug/include " | |
123 | " -I../exception/include")))) | |
cc4a2aeb LC |
124 | (home-page "https://www.gnu.org/software/fdisk/") |
125 | (synopsis "Low-level disk partitioning and formatting") | |
126 | (description | |
127 | "GNU fdisk provides a GNU version of the common disk partitioning tool | |
128 | fdisk. fdisk is used for the creation and manipulation of disk partition | |
129 | tables, and it understands a variety of different formats.") | |
fd297f4a | 130 | (license license:gpl3+))) |
cc4a2aeb | 131 | |
abba1d08 JN |
132 | (define-public gptfdisk |
133 | (package | |
134 | (name "gptfdisk") | |
9f9b7a0d | 135 | (version "1.0.3") |
abba1d08 JN |
136 | (source |
137 | (origin | |
138 | (method url-fetch) | |
139 | (uri (string-append "mirror://sourceforge/gptfdisk/gptfdisk/" | |
140 | version "/" name "-" version ".tar.gz")) | |
141 | (sha256 | |
142 | (base32 | |
9f9b7a0d | 143 | "0p0vr67lnqdsgdv2y144xmjqa1a2nijrrd3clc8dc2f46pn5mzc9")))) |
abba1d08 JN |
144 | (build-system gnu-build-system) |
145 | (inputs | |
b94a6ca0 | 146 | `(("gettext" ,gettext-minimal) |
abba1d08 JN |
147 | ("ncurses" ,ncurses) |
148 | ("popt" ,popt) | |
149 | ("util-linux" ,util-linux))) ; libuuid | |
150 | (arguments | |
151 | `(#:test-target "test" | |
152 | #:phases | |
153 | (modify-phases %standard-phases | |
154 | ;; no configure script | |
155 | (delete 'configure) | |
156 | ;; no install target | |
157 | (replace 'install | |
158 | (lambda* (#:key outputs #:allow-other-keys) | |
6fb9e069 LF |
159 | (let* ((out (assoc-ref outputs "out")) |
160 | (bin (string-append out "/bin")) | |
161 | (man (string-append out "/share/man/man8"))) | |
abba1d08 JN |
162 | (install-file "gdisk" bin) |
163 | (install-file "sgdisk" bin) | |
164 | (install-file "cgdisk" bin) | |
6fb9e069 LF |
165 | (install-file "fixparts" bin) |
166 | (install-file "cgdisk.8" man) | |
167 | (install-file "fixparts.8" man) | |
168 | (install-file "gdisk.8" man) | |
169 | (install-file "sgdisk.8" man))))))) | |
abba1d08 JN |
170 | (home-page "http://www.rodsbooks.com/gdisk/") |
171 | (synopsis "Low-level GPT disk partitioning and formatting") | |
172 | (description "GPT fdisk (aka gdisk) is a text-mode partitioning tool that | |
73fe4552 TGR |
173 | works on Globally Unique Identifier (@dfn{GUID}) Partition Table (@dfn{GPT}) |
174 | disks, rather than on the older Master Boot Record (@dfn{MBR}) partition | |
175 | scheme.") | |
fd297f4a | 176 | (license license:gpl2))) |
abba1d08 | 177 | |
cc4a2aeb LC |
178 | (define-public ddrescue |
179 | (package | |
180 | (name "ddrescue") | |
416c57f0 | 181 | (version "1.22") |
cc4a2aeb LC |
182 | (source |
183 | (origin | |
184 | (method url-fetch) | |
185 | (uri (string-append "mirror://gnu/ddrescue/ddrescue-" | |
186 | version ".tar.lz")) | |
187 | (sha256 | |
188 | (base32 | |
416c57f0 | 189 | "19qhx9ggkkjl0g3a88g501wmybkj1y4n5lm5kp0km0blh0p7p189")))) |
cc4a2aeb | 190 | (build-system gnu-build-system) |
416c57f0 | 191 | (home-page "https://www.gnu.org/software/ddrescue/ddrescue.html") |
cc4a2aeb LC |
192 | (synopsis "Data recovery utility") |
193 | (native-inputs `(("lzip" ,lzip))) | |
194 | (description | |
195 | "GNU ddrescue is a fully automated data recovery tool. It copies data | |
196 | from one file to another, working to rescue data in case of read errors. The | |
197 | program also includes a tool for manipulating its log files, which are used | |
198 | to recover data more efficiently by only reading the necessary blocks.") | |
fd297f4a | 199 | (license license:gpl3+))) |
dd4a8620 MW |
200 | |
201 | (define-public dosfstools | |
202 | (package | |
203 | (name "dosfstools") | |
5f0f3686 | 204 | (version "4.1") |
dd4a8620 MW |
205 | (source |
206 | (origin | |
207 | (method url-fetch) | |
208 | (uri (string-append "https://github.com/" name "/" name | |
209 | "/releases/download/v" version "/" | |
210 | name "-" version ".tar.xz")) | |
211 | (sha256 | |
212 | (base32 | |
5f0f3686 | 213 | "0wy13i3i4x2bw1hf5m4fd0myh61f9bcrs035fdlf6gyc1jksrcp6")))) |
dd4a8620 MW |
214 | (build-system gnu-build-system) |
215 | (arguments | |
216 | `(#:make-flags (list (string-append "PREFIX=" %output) | |
5f0f3686 MB |
217 | "CC=gcc"))) |
218 | (native-inputs | |
9fc513ad | 219 | `(("xxd" ,xxd))) ; for tests |
dd4a8620 | 220 | (home-page "https://github.com/dosfstools/dosfstools") |
8f65585b | 221 | (synopsis "Utilities for making and checking MS-DOS FAT file systems") |
dd4a8620 MW |
222 | (description |
223 | "The dosfstools package includes the mkfs.fat and fsck.fat utilities, | |
8f65585b | 224 | which respectively make and check MS-DOS FAT file systems.") |
fd297f4a | 225 | (license license:gpl3+))) |
0f860464 | 226 | |
51ad11ad MB |
227 | (define dosfstools/static |
228 | (static-package | |
229 | (package (inherit dosfstools)))) | |
230 | ||
231 | (define-public fatfsck/static | |
232 | (package | |
233 | (name "fatfsck-static") | |
234 | (version (package-version dosfstools)) | |
235 | (build-system trivial-build-system) | |
236 | (source #f) | |
237 | (arguments | |
238 | `(#:modules ((guix build utils)) | |
239 | #:builder | |
240 | (begin | |
241 | (use-modules (guix build utils)) | |
242 | (let ((src (string-append (assoc-ref %build-inputs "dosfstools") | |
243 | "/sbin")) | |
244 | (exe "fsck.fat") | |
245 | (bin (string-append (assoc-ref %outputs "out") "/sbin"))) | |
246 | (mkdir-p bin) | |
247 | (with-directory-excursion bin | |
248 | (copy-file (string-append src "/" exe) exe) | |
249 | (remove-store-references exe) | |
250 | (chmod exe #o555) | |
251 | ;; Add fsck.vfat symlink to match the Linux driver name. | |
252 | (symlink exe "fsck.vfat") | |
253 | #t))))) | |
254 | (inputs `(("dosfstools" ,dosfstools/static))) | |
255 | (home-page (package-home-page dosfstools)) | |
256 | (synopsis "Statically linked fsck.fat from dosfstools") | |
257 | (description "This package provides a statically-linked @command{fsck.fat} | |
258 | and a @command{fsck.vfat} compatibility symlink for use in an initrd.") | |
259 | (license (package-license dosfstools)))) | |
260 | ||
0f860464 TGR |
261 | (define-public sdparm |
262 | (package | |
263 | (name "sdparm") | |
aa588d8a | 264 | (version "1.10") |
0f860464 TGR |
265 | (source |
266 | (origin | |
267 | (method url-fetch) | |
268 | (uri (string-append "http://sg.danny.cz/sg/p/" | |
269 | name "-" version ".tar.xz")) | |
270 | (sha256 | |
271 | (base32 | |
aa588d8a | 272 | "1jjq3lzgfy4r76rc26q02lv4wm5cb4dx5nh913h489zjrr4f3jbx")))) |
0f860464 TGR |
273 | (build-system gnu-build-system) |
274 | (home-page "http://sg.danny.cz/sg/sdparm.html") | |
275 | (synopsis "Provide access to SCSI device parameters") | |
276 | (description | |
277 | "Sdparm reads and modifies SCSI device parameters. These devices can be | |
278 | SCSI disks, in which case the role of @command{sdparm} is similar to its | |
279 | namesake: the @command{hdparm} utility originally designed for ATA disks. | |
280 | However, @command{sdparm} can be used to access parameters on any device that | |
281 | uses a SCSI command set. Such devices include CD/DVD drives (irrespective of | |
282 | transport), SCSI and ATAPI tape drives, and SCSI enclosures. This utility can | |
283 | also send commands associated with starting and stopping the media, loading | |
284 | and unloading removable media and some other housekeeping functions.") | |
fd297f4a | 285 | (license license:bsd-3))) |
8e14e059 TGR |
286 | |
287 | (define-public idle3-tools | |
288 | (package | |
289 | (name "idle3-tools") | |
290 | (version "0.9.1") | |
291 | (source | |
292 | (origin | |
293 | (method url-fetch) | |
294 | (uri (string-append "mirror://sourceforge/idle3-tools/idle3-tools-" | |
295 | version ".tgz")) | |
296 | (sha256 | |
297 | (base32 | |
298 | "00ia7xq9yldxyl9gz0mr4xa568nav14p0fnv82f2rbbkg060cy4p")))) | |
299 | (build-system gnu-build-system) | |
300 | (arguments | |
301 | `(#:tests? #f ;no test suite | |
302 | #:phases | |
303 | (modify-phases %standard-phases | |
304 | (delete 'configure)) | |
305 | #:make-flags (list "CC=gcc" | |
306 | (string-append "manprefix=") | |
307 | (string-append "DESTDIR=" | |
308 | (assoc-ref %outputs "out"))))) | |
309 | (home-page "http://idle3-tools.sourceforge.net") | |
310 | (synopsis "Change or disable Western Digital hard drives' Idle3 timer") | |
311 | (description | |
312 | "Idle3-tools provides a utility to get, set, or disable the Idle3 timer | |
313 | present in many Western Digital hard drives. This timer is part of the | |
314 | \"IntelliPark\" feature that stops the disk when not in use. Unfortunately, | |
315 | the default timer setting is not well suited to Linux or other *nix systems, | |
316 | and can dramatically shorten the lifespan of the drive if left unchecked.") | |
fd297f4a | 317 | (license license:gpl3+))) |
c20e552b RJ |
318 | |
319 | (define-public gparted | |
320 | (package | |
321 | (name "gparted") | |
6b08982d | 322 | (version "0.28.1") |
c20e552b RJ |
323 | (source |
324 | (origin | |
325 | (method url-fetch) | |
326 | (uri (string-append "mirror://sourceforge/gparted/gparted/gparted-" | |
327 | version "/gparted-" version ".tar.gz")) | |
328 | (sha256 | |
6b08982d | 329 | (base32 "0cyk8lpimm6wani8khw0szwqkgw5wpq2mfnfxkbgfm2774a1z2bn")))) |
c20e552b RJ |
330 | (build-system gnu-build-system) |
331 | (arguments | |
332 | `(#:tests? #f ; Tests require a network connection. | |
333 | #:configure-flags '("--disable-scrollkeeper"))) | |
334 | (inputs | |
335 | `(("util-linux" ,util-linux) | |
336 | ("parted" ,parted) | |
337 | ("glib" ,glib) | |
338 | ("gtkmm" ,gtkmm-2) | |
339 | ("libxml2" ,libxml2) | |
340 | ("libxslt" ,libxslt) | |
341 | ("gnome-doc-utils" ,gnome-doc-utils) | |
342 | ("docbook-xml" ,docbook-xml-4.2) | |
343 | ("python" ,python-2) | |
344 | ("python-libxml2" ,python2-libxml2) | |
345 | ("which" ,which))) | |
346 | (native-inputs | |
347 | `(("intltool" ,intltool) | |
348 | ("pkg-config" ,pkg-config))) | |
d5909be9 | 349 | (home-page "https://gparted.org/") |
c20e552b RJ |
350 | (synopsis "Partition editor to graphically manage disk partitions") |
351 | (description "GParted is a GNOME partition editor for creating, | |
352 | reorganizing, and deleting disk partitions. It uses libparted from the parted | |
353 | project to detect and manipulate partition tables. Optional file system tools | |
354 | permit managing file systems not included in libparted.") | |
355 | ;; The home page says GPLv2, but the source code says GPLv2+. | |
356 | (license license:gpl2+))) | |
49393691 | 357 | |
893f9d24 SR |
358 | (define-public pydf |
359 | (package | |
360 | (name "pydf") | |
361 | (version "12") | |
362 | (source | |
363 | (origin | |
364 | (method url-fetch) | |
365 | (uri (pypi-uri "pydf" version)) | |
366 | (sha256 | |
367 | (base32 | |
368 | "0f8ly8xyp93i2hm9c0qjqd4y86nz73axw2f09z01mszwmg1sfivz")))) | |
369 | (build-system python-build-system) | |
370 | (home-page "http://kassiopeia.juls.savba.sk/~garabik/software/pydf/") | |
371 | (synopsis "Colourised @command{df} clone") | |
372 | (description "All-singing, all-dancing, fully colourised @command{df} clone | |
373 | written in Python. It displays the amount of disk space available on the | |
374 | mounted filesystems, using different colours for different types of file | |
375 | systems. Output format is completely customizable.") | |
376 | (license license:public-domain))) | |
49393691 HG |
377 | |
378 | (define-public f3 | |
379 | (package | |
380 | (name "f3") | |
381 | (version "6.0") | |
382 | (source | |
383 | (origin | |
384 | (method url-fetch) | |
385 | (uri (string-append "https://github.com/AltraMayor/f3/archive/" | |
386 | "v" version ".tar.gz")) | |
387 | (file-name (string-append name "-" version ".tar.gz")) | |
388 | (sha256 | |
389 | (base32 | |
390 | "1mgbzc1swvgil45md1336j0aqkmkhwmpxical0ln5g09b2qxsanp")))) | |
391 | (build-system gnu-build-system) | |
392 | (arguments | |
393 | '(#:tests? #f ; no check target | |
394 | #:make-flags (list "CC=gcc" | |
395 | (string-append "PREFIX=" %output)) | |
396 | #:phases | |
397 | (modify-phases %standard-phases | |
398 | (delete 'configure) | |
399 | (add-before 'build 'fix-makefile | |
400 | (lambda _ | |
401 | (substitute* "Makefile" | |
402 | ;; Install without setting owner and group | |
403 | (("\\$\\(INSTALL\\) -oroot -groot ") "$(INSTALL) ") | |
404 | ;; also build and install experimental tools | |
405 | (("^all: ") "all: $(EXPERIMENTAL_TARGETS) ") | |
406 | (("^install: ") "install-all: ") | |
407 | (("^install-experimental: ") "install: install-all ")) | |
408 | #t))))) | |
409 | (inputs | |
410 | `(("eudev" ,eudev) | |
411 | ("parted" ,parted))) | |
412 | (home-page "http://oss.digirati.com.br/f3/") | |
413 | (synopsis "Test real capacity of flash memory cards and such.") | |
414 | (description "F3 (Fight Flash Fraud or Fight Fake Flash) tests the full | |
415 | capacity of a flash card (flash drive, flash disk, pendrive). F3 writes to | |
416 | the card and then checks if can read it. It will assure you haven't been sold | |
417 | a card with a smaller capacity than stated.") | |
418 | (license license:gpl3+))) |