A package for those who like to roam around the lower levels of their
machines. As soon as this package is verified to build successfully and
reproducibly on another user's machine, I can push it to the repos.

From 37c3cc1021671d93dca2c34c4d3b392173b84ef1 Mon Sep 17 00:00:00 2001
From: Kei Kebreau <k...@openmailbox.org>
Date: Sun, 31 Jul 2016 13:59:59 -0400
Subject: [PATCH] gnu: Add dmidecode.

* gnu/packages/linux.scm (dmidecode): New variable.
---
 gnu/packages/linux.scm | 35 +++++++++++++++++++++++++++++++++++
 1 file changed, 35 insertions(+)

diff --git a/gnu/packages/linux.scm b/gnu/packages/linux.scm
index fad5a63..dc9e649 100644
--- a/gnu/packages/linux.scm
+++ b/gnu/packages/linux.scm
@@ -14,6 +14,7 @@
 ;;; Copyright © 2016 Nicolas Goaziou <m...@nicolasgoaziou.fr>
 ;;; Copyright © 2016 Ricardo Wurmus <rek...@elephly.net>
 ;;; Copyright © 2016 David Craven <da...@craven.ch>
+;;; Copyright © 2016 Kei Kebreau <k...@openmailbox.org>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -2822,3 +2823,37 @@ as used on certified hardware security devices.")
                    (license:non-copyleft "file://nist/packtest.c")
                    license:public-domain        ; nist/dfft.c
                    license:gpl3+))))            ; everything else
+
+(define-public dmidecode
+  (package
+    (name "dmidecode")
+    (version "3.0")
+    (source (origin
+              (method url-fetch)
+              (uri (string-append "http://download.savannah.gnu.org/releases/";
+                                  name "/" name "-" version ".tar.xz"))
+              (sha256
+               (base32
+                "0iby0xfk5x3cdr0x0gxj5888jjyjhafvaq0l79civ73jjfqmphvy"))))
+    (build-system gnu-build-system)
+    (arguments
+     `(#:tests? #f ; no check target
+       #:phases (modify-phases %standard-phases
+                  (delete 'configure) ; no configure script
+                  (add-before 'install 'patch-prefix-directory
+                    (lambda* (#:key inputs outputs #:allow-other-keys)
+                      (let ((out (assoc-ref outputs "out")))
+                        (substitute* "Makefile"
+                          (("prefix  = /usr/local")
+                           (string-append "prefix  = " %output)))))))))
+    (home-page "http://www.nongnu.org/dmidecode/";)
+    (synopsis "SMBIOS/DMI table decoder")
+    (description
+     "Dmidecode reports information about your system's hardware as described 
in
+your system BIOS according to the SMBIOS/DMI standard.  This information
+typically includes system manufacturer, model name, serial number, BIOS 
version,
+asset tag as well as a lot of other details of varying level of interest and
+reliability depending on the manufacturer.  This will often include usage
+status for the CPU sockets, expansion slots (e.g. AGP, PCI, ISA) and memory
+module slots, and the list of I/O ports (e.g. serial, parallel, USB).")
+    (license license:gpl2+)))
-- 
2.9.2

Attachment: signature.asc
Description: PGP signature

Reply via email to