summaryrefslogtreecommitdiff
path: root/gnu/packages/cdrom.scm
diff options
context:
space:
mode:
authorMarius Bakke <mbakke@fastmail.com>2016-11-01 13:46:44 +0000
committerMarius Bakke <mbakke@fastmail.com>2016-11-03 20:31:36 +0000
commitb4edcd28cf0bc55e3768d1be3044370f9d45ad73 (patch)
tree8aeaa03f826a662dadaac70b9b03fa1056273260 /gnu/packages/cdrom.scm
parentccbc575824d575459f5449f3b852294f2f6443c0 (diff)
downloadpatches-b4edcd28cf0bc55e3768d1be3044370f9d45ad73.tar
patches-b4edcd28cf0bc55e3768d1be3044370f9d45ad73.tar.gz
gnu: Add geteltorito.
* gnu/packages/cdrom.scm (geteltorito): New variable.
Diffstat (limited to 'gnu/packages/cdrom.scm')
-rw-r--r--gnu/packages/cdrom.scm36
1 files changed, 36 insertions, 0 deletions
diff --git a/gnu/packages/cdrom.scm b/gnu/packages/cdrom.scm
index 39c7b52426..99b7d3465f 100644
--- a/gnu/packages/cdrom.scm
+++ b/gnu/packages/cdrom.scm
@@ -5,6 +5,7 @@
;;; Copyright © 2015 Paul van der Walt <paul@denknerd.org>
;;; Copyright © 2015, 2016 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2016 Alex Kost <alezost@gmail.com>
+;;; Copyright © 2016 Marius Bakke <mbakke@fastmail.com>
;;;
;;; This file is part of GNU Guix.
;;;
@@ -359,3 +360,38 @@ from an audio CD.")
that grabs tracks off a CD, encodes them to Ogg/Vorbis, MP3, FLAC, Ogg/Speex
and/or MPP/MP+ (Musepack) format, and tags them, all in one go.")
(license gpl2+)))
+
+(define-public geteltorito
+ (package
+ (name "geteltorito")
+ (version "0.6")
+ (home-page
+ "https://userpages.uni-koblenz.de/~krienke/ftp/noarch/geteltorito/")
+ (source (origin
+ (method url-fetch)
+ (uri (string-append home-page name "-" version ".tar.gz"))
+ (sha256
+ (base32
+ "1gkbm9ahj2mgqrkrfpibzclsriqgsbsvjh19fr815vpd9f6snkxv"))))
+ (build-system gnu-build-system)
+ (arguments
+ `(#:tests? #f ; No tests.
+ #:phases
+ (modify-phases %standard-phases
+ (delete 'configure)
+ (delete 'build)
+ (replace 'install
+ (lambda* (#:key outputs #:allow-other-keys)
+ (let ((out (assoc-ref outputs "out")))
+ (install-file "geteltorito"
+ (string-append out "/bin"))))))))
+ (inputs `(("perl" ,perl)))
+ (synopsis "Extract the boot image from a CD-ROM")
+ (description
+ "@command{geteltorito} can extract the initial/default boot
+image from CDs (and ISOs) that follow the El Torito specification
+for bootable CD-ROMs.
+
+Image data is written to standard output by default and all other
+information is written to standard error.")
+ (license gpl2+)))