Re: gnu-build-system not handling pkg-config properly in package definition

[Tobias Geerinckx-Rice <me@tobias.gr>]

[-- Attachment #1.1: Type: text/plain, Size: 1516 bytes --]

Nathan,

Nathan Dehnel 写道：
> (define-public bcache-tools

So... if you want to learn how to write and submit packages to 
Guix -- please do!  And don't let me distract you.  Your patch 
looks good, if incomplete :-)

However, if you need/want a working Guix bcache-tools package 
ASAP, I have to admit I've been sitting on the attached patch for 
so long I that forgot it wasn't upstream yet.

> (patches (search-patches "bcache-tools-noprobe.patch"))

Sounds useful.  What does this patch do?  Is it related to Guix 
(perhaps our blkid)?

>     (synopsis "These are the userspace tools required for 
>     bcache.")
>    (description "Bcache patches for the Linux kernel allow one 
>    to use
>SSDs to cache other block devices. It's analogous to L2Arc for 
>ZFS,
>but Bcache also does writeback caching (besides just write 
>through
>caching), and it's filesystem agnostic. ")

I think The GNU Way is ‘user space’, ‘file system’, ‘write-back’ 
etc.  Be sure to double-space prose sentences; ‘guix lint 
bcache-tools’ will warn you about this and other possible surface 
issues.

This description sounds out of date (it's been upstream since the 
3.x days) and the ZFS comparison is presumably meaningful only to 
a small minority of ZSF-on-Linux-Libre users.  IMO try to describe 
packages in first-class terms so users don't get sent on a rabbit 
chase.

Feel free to snarf my description but don't feel obligated either.

Kind regards,

T G-R


[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #1.2: 0001-gnu-Add-bcache-tools.patch --]
[-- Type: text/x-patch, Size: 3834 bytes --]

From 283f3d774fcad015d41973304714c30150bf2f2f Mon Sep 17 00:00:00 2001
From: Tobias Geerinckx-Rice <me@tobias.gr>
Date: Thu, 19 Nov 2020 19:01:25 +0100
Subject: [PATCH] gnu: Add bcache-tools.

* gnu/packages/disk.scm (bcache-tools): New public variable.
---
 gnu/packages/disk.scm | 67 +++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 67 insertions(+)

diff --git a/gnu/packages/disk.scm b/gnu/packages/disk.scm
index c4f128d14a..c9ea1cea0b 100644
--- a/gnu/packages/disk.scm
+++ b/gnu/packages/disk.scm
@@ -89,6 +89,73 @@
   #:use-module (guix packages)
   #:use-module (guix utils))
 
+(define-public bcache-tools
+  ;; The 1.1 release is a year old and missing new features & documentation.
+  (let ((commit "096d205a9f1be8540cbc5a468c0da8203023de70")
+        (revision "0"))
+    (package
+      (name "bcache-tools")
+      (version (git-version "1.1" revision commit))
+      (source
+       (origin
+         (method git-fetch)
+         (uri (git-reference
+               (url (string-append "https://git.kernel.org/pub/scm/"
+                                   "linux/kernel/git/colyli/bcache-tools.git"))
+               (commit commit)))
+         (file-name (git-file-name name version))
+         (sha256
+          (base32 "0r0vwg4vacz5zgsafk360xn7gi2scy01c79mkmjrdyxjfij5z3iy"))))
+      (build-system gnu-build-system)
+      (arguments
+       `(#:tests? #f                    ; no test suite
+         #:make-flags
+         (list (string-append "PREFIX=" (assoc-ref %outputs "out"))
+               (string-append "UDEVLIBDIR=" (assoc-ref %outputs "out")
+                              "/lib/udev")
+               (string-append "DRACUTLIBDIR=" (assoc-ref %outputs "out")
+                              "/lib/dracut")
+               (string-append "CC=" ,(cc-for-target)))
+         #:phases
+         (modify-phases %standard-phases
+           (delete 'configure)          ; no configure script
+           (add-before 'install 'fix-hard-coded-file-names
+             (lambda _
+               ;; Some rules still hard-code /usr.
+               (substitute* "Makefile"
+                 (("/usr") "${PREFIX}"))
+               #t))
+           (add-before 'install 'create-target-directories
+             (lambda* (#:key outputs #:allow-other-keys)
+               (let* ((out (assoc-ref outputs "out")))
+                 (for-each (lambda (dir)
+                             (mkdir-p (string-append out dir)))
+                           (list "/lib/udev/rules.d"
+                                 "/sbin"
+                                 "/share/man/man8"))
+                 #t))))))
+      (native-inputs
+       `(("pkg-config" ,pkg-config)))
+      (inputs
+       `(("util-linux:lib" ,util-linux "lib"))) ; libblkid
+      (home-page "https://bcache.evilpiepirate.org")
+      (synopsis "Tools for the Linux kernel block layer cache")
+      (description
+       "This package contains user-space utilities to create and inspect bcache
+partitions.  It's rather minimal as bcache is designed to work well without
+configuration on any system.
+
+Linux's @acronym{bcache, block layer cache} lets one or more fast block devices,
+such as flash-based @acronym{SSDs, solid state drives}, to act as a cache for
+one or more slower (and inexpensive) devices, such as hard disk drives or
+redundant storage arrays.  In fact, bcache intends to be a superior alternative
+to battery-backed RAID controllers.
+
+Bcache is designed around the performance characteristics of SSDs and tries to
+minimize write inflation.  It's file-system agnostic and does both write-through
+and write-back caching.")
+      (license license:gpl2+))))
+
 (define-public udevil
   (package
     (name "udevil")
-- 
2.29.2


[-- Attachment #2: signature.asc --]
[-- Type: application/pgp-signature, Size: 247 bytes --]