From mboxrd@z Thu Jan 1 00:00:00 1970 From: Marius Bakke Subject: [PATCH] gnu: Add geteltorito. Date: Tue, 1 Nov 2016 13:52:24 +0000 Message-ID: <20161101135224.13574-1-mbakke@fastmail.com> Mime-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:47966) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1c1ZUR-0008WU-4R for guix-devel@gnu.org; Tue, 01 Nov 2016 09:52:36 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1c1ZUM-0005aw-L7 for guix-devel@gnu.org; Tue, 01 Nov 2016 09:52:35 -0400 Received: from out2-smtp.messagingengine.com ([66.111.4.26]:48223) by eggs.gnu.org with esmtps (TLS1.0:DHE_RSA_AES_256_CBC_SHA1:32) (Exim 4.71) (envelope-from ) id 1c1ZUM-0005aq-Hl for guix-devel@gnu.org; Tue, 01 Nov 2016 09:52:30 -0400 List-Id: "Development of GNU Guix and the GNU System distribution." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guix-devel-bounces+gcggd-guix-devel=m.gmane.org@gnu.org Sender: "Guix-devel" To: guix-devel@gnu.org Cc: Marius Bakke * gnu/packages/cdrom.scm (geteltorito): New variable. --- gnu/packages/cdrom.scm | 35 +++++++++++++++++++++++++++++++++++ 1 file changed, 35 insertions(+) diff --git a/gnu/packages/cdrom.scm b/gnu/packages/cdrom.scm index 39c7b52..5f3ddd8 100644 --- a/gnu/packages/cdrom.scm +++ b/gnu/packages/cdrom.scm @@ -5,6 +5,7 @@ ;;; Copyright © 2015 Paul van der Walt ;;; Copyright © 2015, 2016 Efraim Flashner ;;; Copyright © 2016 Alex Kost +;;; Copyright © 2016 Marius Bakke ;;; ;;; This file is part of GNU Guix. ;;; @@ -359,3 +360,37 @@ 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 "Tool to 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. + +Image data is written to standard output by default and all other +information is written to standard error.") + (license gpl2))) -- 2.10.1