Commit | Line | Data |
---|---|---|
65d8b777 LC |
1 | ;;; GNU Guix --- Functional package management for GNU |
2 | ;;; Copyright © 2013 Ludovic Courtès <ludo@gnu.org> | |
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 | ||
19 | (define-module (gnu packages grub) | |
20 | #:use-module (guix download) | |
21 | #:use-module (guix packages) | |
22 | #:use-module ((guix licenses) #:select (gpl3+)) | |
23 | #:use-module (guix build-system gnu) | |
24 | #:use-module (gnu packages) | |
25 | #:use-module (gnu packages flex) | |
26 | #:use-module (gnu packages bison) | |
27 | #:use-module ((gnu packages gettext) #:renamer (symbol-prefix-proc 'gnu:)) | |
a86177d6 | 28 | #:use-module (gnu packages fontutils) |
65d8b777 LC |
29 | #:use-module (gnu packages linux) |
30 | #:use-module (gnu packages qemu) | |
31 | #:use-module (gnu packages ncurses) | |
32 | #:use-module (gnu packages cdrom)) | |
33 | ||
34 | (define-public grub | |
35 | (package | |
36 | (name "grub") | |
37 | (version "2.00") | |
38 | (source (origin | |
39 | (method url-fetch) | |
40 | (uri (string-append "mirror://gnu/grub/grub-" | |
41 | version ".tar.xz")) | |
42 | (sha256 | |
43 | (base32 | |
44 | "0n64hpmsccvicagvr0c6v0kgp2yw0kgnd3jvsyd26cnwgs7c6kkq")))) | |
45 | (build-system gnu-build-system) | |
46 | (arguments | |
47 | '(#:patches (list (assoc-ref %build-inputs "patch/gets")) | |
48 | #:configure-flags '("--disable-werror") | |
49 | #:phases (alist-cons-before | |
50 | 'patch-source-shebangs 'patch-stuff | |
51 | (lambda _ | |
52 | (substitute* "grub-core/Makefile.in" | |
53 | (("/bin/sh") (which "sh"))) | |
54 | ||
55 | ;; TODO: Re-enable this test when we have Parted. | |
56 | (substitute* "tests/partmap_test.in" | |
57 | (("set -e") "exit 77"))) | |
58 | %standard-phases))) | |
59 | (inputs | |
60 | `(;; ("lvm2" ,lvm2) | |
61 | ("gettext" ,gnu:gettext) | |
62 | ("freetype" ,freetype) | |
63 | ;; ("libusb" ,libusb) | |
64 | ("ncurses" ,ncurses) | |
65 | ||
66 | ("patch/gets" ,(search-patch "grub-gets-undeclared.patch")))) | |
67 | (native-inputs | |
68 | `(("bison" ,bison) | |
69 | ("flex" ,flex) | |
70 | ||
71 | ;; Dependencies for the test suite. The "real" QEMU is needed here, | |
72 | ;; because several targets are used. | |
73 | ("qemu" ,qemu) | |
74 | ("xorriso" ,xorriso))) | |
75 | (home-page "http://www.gnu.org/software/grub/") | |
f50d2669 | 76 | (synopsis "GRand unified boot loader") |
65d8b777 LC |
77 | (description |
78 | "GNU GRUB is a Multiboot boot loader. It was derived from GRUB, GRand | |
79 | Unified Bootloader, which was originally designed and implemented by Erich | |
80 | Stefan Boleyn. | |
81 | ||
82 | Briefly, the boot loader is the first software program that runs when a | |
83 | computer starts. It is responsible for loading and transferring control to | |
84 | the operating system kernel software (such as the Hurd or the Linux). The | |
85 | kernel, in turn, initializes the rest of the operating system (e.g., GNU).") | |
86 | (license gpl3+))) |