;; 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-rc3")
(define-public gnuboot-source
  (origin
   (method url-fetch)
   (uri (string-append "mirror://gnu/gnuboot/gnuboot-" gnuboot-version
                       "/gnuboot-" gnuboot-version
                       "_src.tar.xz"))
   (sha256
    (base32
     "19p4xw32jrkmpx13xbfsk3v58zfrwfmqb77x7psrackdq7ghk21n"))))

(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
   ""
   ""))