Maj gnuboot-utils & guix-repo

packages/defs/gnuboot-utils.scm

@@ -0,0 +1,93 @@
+;; Copyright (C) 2021 muradm <mail@muradm.net>
+;; Copyright (C) 2022 Denis 'GNUtoo' Carikli <GNUtoo@cyberdimension.org>
+;;
+;; This program is free software: you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+;;
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+;;
+;; You should have received a copy of the GNU General Public License
+;; along with this program.  If not, see <https://www.gnu.org/licenses/>.
+
+(define-module (gnuboot-utils)
+  #:use-module (gnu packages gnupg)
+  #:use-module (guix build-system gnu)
+  #:use-module (guix build-system trivial)
+  #:use-module (guix download)
+  #:use-module (guix gexp)
+  #:use-module ((guix licenses) #:prefix license:)
+  #:use-module (guix packages)
+  #:use-module (guix utils))
+
+(define-public gnuboot-version "0.1-rc1")
+(define-public gnuboot-source
+  (origin
+   (method url-fetch)
+   (uri (string-append "mirror://gnu/gnuboot/gnuboot-" gnuboot-version
+                       "_src.tar.xz"))
+   (sha256
+    (base32
+     "0h3cdc7manb46zs7marqg63h8fjmg503n5x4wxyi9q638fp10csj"))))
+
+(define-public
+  (make-gnuboot-utils-package
+   name
+   source
+   version
+   synopsis
+   description)
+  (package
+   (name name)
+   (version version)
+   (source source)
+   (build-system gnu-build-system)
+   (arguments
+    (list
+     #:tests? #f
+     #:make-flags
+     #~(list
+        (string-append "CC=" #$(cc-for-target))
+        (string-append "DESTDIR=" #$output)
+        "INSTALL=install"
+        "PREFIX=/")
+     #:phases
+     #~(modify-phases
+        %standard-phases
+        (delete 'configure)
+        (add-after
+         'unpack 'enter-source
+         (lambda _
+           (chdir (string-append "coreboot/default/util/" #$name)))))))
+   (synopsis synopsis)
+   (description description)
+   (home-page "https://www.gnu.org/software/gnuboot")
+   (license license:gpl2)))
+
+(define-public cbfstool
+  (make-gnuboot-utils-package
+   "cbfstool"
+   gnuboot-source
+   gnuboot-version
+   "Tool to manipulate Coreboot image files."
+   ""))
+
+(define-public ifdtool
+  (make-gnuboot-utils-package
+   "ifdtool"
+   gnuboot-source
+   gnuboot-version
+   ""
+   ""))
+
+(define-public nvramtool
+  (make-gnuboot-utils-package
+   "nvramtool"
+   gnuboot-source
+   gnuboot-version
+   ""
+   ""))

shell-authorized-directories

@@ -0,0 +1 @@
+/home/neox/Projets/guix-repo