gnu/packages/man.scm

   1 ;;; GNU Guix --- Functional package management for GNU
   2 ;;; Copyright © 2012, 2014, 2015, 2017, 2018 Ludovic Courtès <ludo@gnu.org>
   3 ;;; Copyright © 2014 David Thompson <dthompson2@worcester.edu>
   4 ;;; Copyright © 2015, 2016 Ricardo Wurmus <rekado@elephly.net>
   5 ;;; Copyright © 2015 Alex Kost <alezost@gmail.com>
   6 ;;; Copyright © 2015, 2016 Efraim Flashner <efraim@flashner.co.il>
   7 ;;; Copyright © 2017, 2018, 2019 Tobias Geerinckx-Rice <me@tobias.gr>
   8 ;;; Copyright © 2018, 2019 Rutger Helling <rhelling@mykolab.com>
   9 ;;; Copyright © 2018, 2019 Marius Bakke <mbakke@fastmail.com>
  10 ;;;
  11 ;;; This file is part of GNU Guix.
  12 ;;;
  13 ;;; GNU Guix is free software; you can redistribute it and/or modify it
  14 ;;; under the terms of the GNU General Public License as published by
  15 ;;; the Free Software Foundation; either version 3 of the License, or (at
  16 ;;; your option) any later version.
  17 ;;;
  18 ;;; GNU Guix is distributed in the hope that it will be useful, but
  19 ;;; WITHOUT ANY WARRANTY; without even the implied warranty of
  20 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  21 ;;; GNU General Public License for more details.
  22 ;;;
  23 ;;; You should have received a copy of the GNU General Public License
  24 ;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.
  25
  26 (define-module (gnu packages man)
  27   #:use-module (guix licenses)
  28   #:use-module (guix download)
  29   #:use-module (guix packages)
  30   #:use-module (guix build-system gnu)
  31   #:use-module (gnu packages dbm)
  32   #:use-module (gnu packages flex)
  33   #:use-module (gnu packages gawk)
  34   #:use-module (gnu packages groff)
  35   #:use-module (gnu packages less)
  36   #:use-module (gnu packages perl)
  37   #:use-module (gnu packages pkg-config)
  38   #:use-module (gnu packages linux))
  39
  40 (define-public libpipeline
  41   (package
  42     (name "libpipeline")
  43     (version "1.5.1")
  44     (source (origin
  45               (method url-fetch)
  46               (uri (string-append
  47                     "mirror://savannah/libpipeline/libpipeline-"
  48                     version ".tar.gz"))
  49               (sha256
  50                (base32
  51                 "0bwh5xz5f2czwb7f564jz1mp4znm8pldnvf65fs0hpw4gmmp0cyn"))))
  52     (build-system gnu-build-system)
  53     (home-page "http://libpipeline.nongnu.org/")
  54     (synopsis "C library for manipulating pipelines of subprocesses")
  55     (description
  56      "libpipeline is a C library for manipulating pipelines of subprocesses in
  57 a flexible and convenient way.")
  58     (license gpl3+)))
  59
  60 (define-public man-db
  61   (package
  62     (name "man-db")
  63     (version "2.8.3")
  64     (source (origin
  65               (method url-fetch)
  66               (uri (string-append "mirror://savannah/man-db/man-db-"
  67                                   version ".tar.xz"))
  68               (sha256
  69                (base32
  70                 "1b641kcgjvyc41pj67dn4p0zvwlj1vx3l6nf7qdcc7kf6v5a2cjr"))))
  71     (build-system gnu-build-system)
  72     (arguments
  73      `(#:phases
  74        (modify-phases %standard-phases
  75          (add-after 'patch-source-shebangs 'patch-test-shebangs
  76            (lambda* (#:key outputs #:allow-other-keys)
  77              ;; Patch shebangs in test scripts.
  78              (let ((out (assoc-ref outputs "out")))
  79                (for-each (lambda (file)
  80                            (substitute* file
  81                              (("#! /bin/sh")
  82                               (string-append "#!" (which "sh")))))
  83                          (remove file-is-directory?
  84                                  (find-files "src/tests" ".*")))
  85                #t)))
  86          (add-after 'unpack 'patch-absolute-paths
  87            (lambda* (#:key inputs #:allow-other-keys)
  88              (substitute* "src/man.c"
  89                (("\"iconv\"")
  90                 (string-append "\"" (which "iconv") "\"")))
  91              ;; Embed an absolute reference to "preconv", otherwise it
  92              ;; falls back to searching in PATH and ultimately fails
  93              ;; to render unicode data (see <https://bugs.gnu.org/30785>).
  94              (substitute* "lib/encodings.c"
  95                (("groff_preconv = NULL")
  96                 (string-append "groff_preconv = \""
  97                                (assoc-ref inputs "groff-minimal")
  98                                "/bin/preconv\"")))
  99              #t)))
 100        #:configure-flags
 101        (let ((groff (assoc-ref %build-inputs "groff"))
 102              (groff-minimal (assoc-ref %build-inputs "groff-minimal"))
 103              (less  (assoc-ref %build-inputs "less"))
 104              (gzip  (assoc-ref %build-inputs "gzip"))
 105              (bzip2 (assoc-ref %build-inputs "bzip2"))
 106              (xz    (assoc-ref %build-inputs "xz"))
 107              (util  (assoc-ref %build-inputs "util-linux")))
 108          ;; Invoke groff, less, gzip, bzip2, and xz directly from the store.
 109          (append (list ;; Disable setuid man user.
 110                        "--disable-setuid"
 111                        ;; Don't constrain ownership of system-wide cache files.
 112                        ;; Otherwise creating the manpage database fails with
 113                        ;; man-db > 2.7.5.
 114                        "--disable-cache-owner"
 115                        (string-append "--with-pager=" less "/bin/less")
 116                        (string-append "--with-gzip=" gzip "/bin/gzip")
 117                        (string-append "--with-bzip2=" bzip2 "/bin/gzip")
 118                        (string-append "--with-xz=" xz "/bin/xz")
 119                        (string-append "--with-col=" util "/bin/col")
 120                        ;; Default value is "/usr/lib/tmpfiles.d" (not
 121                        ;; prefix-sensitive).
 122                        (string-append "--with-systemdtmpfilesdir="
 123                                       %output "/lib/tmpfiles.d"))
 124                  (map (lambda (prog)
 125                         (string-append "--with-" prog "=" groff-minimal
 126                                        "/bin/" prog))
 127                       '("nroff" "eqn" "neqn" "tbl" "refer" "pic"))))
 128
 129        ;; At run time we should refer to GROFF-MINIMAL, not GROFF (the latter
 130        ;; pulls in Perl.)
 131        #:disallowed-references (,groff)
 132
 133        #:modules ((guix build gnu-build-system)
 134                   (guix build utils)
 135                   (srfi srfi-1))))
 136     (native-inputs
 137      `(("pkg-config" ,pkg-config)
 138        ("groff" ,groff)))   ;needed at build time (troff, grops, soelim, etc.)
 139     (inputs
 140      `(("flex" ,flex)
 141        ("gdbm" ,gdbm)
 142        ("groff-minimal" ,groff-minimal)
 143        ("less" ,less)
 144        ("libpipeline" ,libpipeline)
 145        ;; FIXME: 4.8 and later can use libseccomp, but it causes test
 146        ;; failures in the build chroot.
 147        ;;("libseccomp" ,libseccomp)
 148        ("util-linux" ,util-linux)))
 149     (native-search-paths
 150      (list (search-path-specification
 151             (variable "MANPATH")
 152             (files '("share/man")))))
 153     (home-page "http://man-db.nongnu.org/")
 154     (synopsis "Standard Unix documentation system")
 155     (description
 156      "Man-db is an implementation of the standard Unix documentation system
 157 accessed using the man command.  It uses a Berkeley DB database in place of
 158 the traditional flat-text whatis databases.")
 159     (license gpl2+)))
 160
 161 (define-public man-pages
 162   (package
 163     (name "man-pages")
 164     (version "5.00")
 165     (source
 166      (origin
 167        (method url-fetch)
 168        (uri
 169         (list (string-append "mirror://kernel.org/linux/docs/man-pages/"
 170                              "man-pages-" version ".tar.xz")
 171               (string-append "mirror://kernel.org/linux/docs/man-pages/Archive/"
 172                              "man-pages-" version ".tar.xz")))
 173        (sha256
 174         (base32 "006rcqhs4ay9q8wip2kbgk3065gwvfbzrqgv2dsydwvcnwv50bss"))))
 175     (build-system gnu-build-system)
 176     (arguments
 177      '(#:phases (modify-phases %standard-phases (delete 'configure))
 178
 179        ;; The 'all' target depends on three targets that directly populate
 180        ;; $(MANDIR) based on its current contents.  Doing that in parallel
 181        ;; leads to undefined behavior (see <http://bugs.gnu.org/18701>.)
 182        #:parallel-build? #f
 183
 184        #:tests? #f
 185        #:make-flags (list (string-append "MANDIR="
 186                                          (assoc-ref %outputs "out")
 187                                          "/share/man"))))
 188     (home-page "https://www.kernel.org/doc/man-pages/")
 189     (synopsis "Development manual pages from the Linux project")
 190     (description
 191      "This package provides traditional Unix \"man pages\" documenting the
 192 Linux kernel and C library interfaces employed by user-space programs.")
 193
 194     ;; Each man page has its own license; some are GPLv2+, some are MIT/X11.
 195     (license gpl2+)))
 196
 197 (define-public help2man
 198   (package
 199     (name "help2man")
 200     (version "1.47.6")
 201     (source
 202      (origin
 203       (method url-fetch)
 204       (uri (string-append "mirror://gnu/help2man/help2man-"
 205                           version ".tar.xz"))
 206       (sha256
 207        (base32
 208         "0vz4dlrvy4vc6l7w0a7n668pfa0rdm73wr2gar58wqranyah46yr"))))
 209     (build-system gnu-build-system)
 210     (arguments `(;; There's no `check' target.
 211                  #:tests? #f))
 212     (inputs
 213      `(("perl" ,perl)
 214        ;; TODO: Add these optional dependencies.
 215        ;; ("perl-LocaleGettext" ,perl-LocaleGettext)
 216        ;; ("gettext" ,gettext-minimal)
 217        ))
 218     (home-page "https://www.gnu.org/software/help2man/")
 219     (synopsis "Automatically generate man pages from program --help")
 220     (description
 221      "GNU help2man is a program that converts the output of standard
 222 \"--help\" and \"--version\" command-line arguments into a manual page
 223 automatically.")
 224     (license gpl3+)))
 225
 226 (define-public help2man/latest
 227   (package
 228     (inherit help2man)
 229     (version "1.47.8")
 230     (source (origin
 231               (method url-fetch)
 232               (uri (string-append "mirror://gnu/help2man/help2man-"
 233                                   version ".tar.xz"))
 234               (sha256
 235                (base32
 236                 "1p5830h88cx0zn0snwaj0vpph81xicpsirfwlxmcgjrlmn0nm3sj"))))))
 237
 238 (define-public scdoc
 239   (package
 240    (name "scdoc")
 241    (version "1.9.4")
 242    (source
 243     (origin
 244      (method url-fetch)
 245      (uri (string-append "https://git.sr.ht/%7Esircmpwn/scdoc/archive/" version
 246                          ".tar.gz"))
 247      (file-name (string-append name "-" version ".tar.gz"))
 248      (sha256
 249       (base32
 250        "00zc3rzj97gscby31djlqyczvqpyhrl66i44czwzmmn7rc5j03m1"))))
 251    (build-system gnu-build-system)
 252    (arguments
 253     `(#:make-flags '("CC=gcc")
 254       #:phases
 255       (modify-phases %standard-phases
 256         (delete 'configure)
 257         (add-before 'install 'hardcode-paths
 258           (lambda* (#:key outputs #:allow-other-keys)
 259             (substitute* "Makefile"
 260                          (("/usr/local") (assoc-ref outputs "out")))
 261             #t)))))
 262    (home-page "https://git.sr.ht/~sircmpwn/scdoc")
 263    (synopsis "Simple man page generator")
 264    (description "scdoc is a simple man page generator written for POSIX systems
 265 in C99.")
 266    ;; MIT license, see /share/doc/scdoc-1.6.0/COPYING.
 267    (license expat)))
 268
 269 (define-public txt2man
 270   (package
 271     (name "txt2man")
 272     (version "1.6.0")
 273     (source
 274      (origin
 275        (method url-fetch)
 276        (uri (string-append
 277              "https://github.com/mvertes/txt2man/archive/txt2man-"
 278              version ".tar.gz"))
 279        (sha256
 280         (base32
 281          "168cj96974n2z0igin6j1ic1m45zyic7nm5ark7frq8j78rrx4zn"))))
 282     (build-system gnu-build-system)
 283     (arguments
 284      `(#:tests? #f ; no "check" target
 285        #:make-flags (list (string-append "prefix=" (assoc-ref %outputs "out")))
 286        #:phases (modify-phases %standard-phases (delete 'configure))))
 287     (inputs
 288      `(("gawk" ,gawk)))
 289     (home-page "https://github.com/mvertes/txt2man")
 290     (synopsis "Convert text to man page")
 291     (description "Txt2man converts flat ASCII text to man page format.")
 292     (license gpl2+)))