;;; GNU Guix --- Functional package management for GNU ;;; Copyright © 2013 Andreas Enge <andreas@enge.fr> ;;; Copyright © 2014 Mark H Weaver <mhw@netris.org> ;;; Copyright © 2016 Ricardo Wurmus <rekado@elephly.net> ;;; Copyright © 2017 Ludovic Courtès <ludo@gnu.org> ;;; ;;; This file is part of GNU Guix. ;;; ;;; GNU Guix 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. ;;; ;;; GNU Guix 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 GNU Guix. If not, see <http://www.gnu.org/licenses/>. (define-module (gnu packages groff) #:use-module (guix licenses) #:use-module (guix packages) #:use-module (guix utils) #:use-module (guix download) #:use-module (guix git-download) #:use-module (guix build-system gnu) #:use-module (gnu packages) #:use-module (gnu packages bison) #:use-module (gnu packages ghostscript) #:use-module (gnu packages netpbm) #:use-module (gnu packages perl) #:use-module (gnu packages texinfo)) (define-public groff (package (name "groff") (version "1.22.3") (source (origin (method url-fetch) (uri (string-append "mirror://gnu/groff/groff-" version ".tar.gz")) (sha256 (base32 "1998v2kcs288d3y7kfxpvl369nqi06zbbvjzafyvyl3pr7bajj1s")) (patches (search-patches "groff-source-date-epoch.patch")))) (build-system gnu-build-system) (outputs '("out" "doc")) ;12MiB of PS, PDF, HTML, and examples ;; Note: groff's HTML backend uses executables from netpbm when they are in ;; $PATH. In practice, not having them doesn't prevent it from install its ;; own HTML doc, nor does it change its capabilities, so we removed netpbm ;; from 'inputs'. (inputs `(("ghostscript" ,ghostscript))) (native-inputs `(("bison" ,bison) ("perl" ,perl) ("psutils" ,psutils) ("texinfo" ,texinfo))) (arguments `(#:parallel-build? #f ; parallel build fails #:phases (modify-phases %standard-phases (add-after 'unpack 'setenv (lambda _ (setenv "GS_GENERATE_UUIDS" "0") #t))))) (synopsis "Typesetting from plain text mixed with formatting commands") (description "Groff is a typesetting package that reads plain text and produces formatted output based on formatting commands contained within the text. It is usually the formatter of \"man\" documentation pages.") (license gpl3+) (home-page "https://www.gnu.org/software/groff/"))) (define-public groff-minimal ;; Minimialist groff for use by man-db. Its closure size is less than half ;; that of the full-blown groff. (package (inherit groff) (name "groff-minimal") (synopsis "Minimalist variant of Groff for use by man-db") (outputs '("out")) ;; Omit the DVI, PS, PDF, and HTML backends. (inputs '()) (native-inputs `(("bison" ,bison) ("perl" ,perl))) (arguments `(#:disallowed-references (,perl) #:configure-flags '("--docdir=/tmp/trash/doc") ,@(substitute-keyword-arguments (package-arguments groff) ((#:phases phases) `(modify-phases ,phases (add-after 'unpack 'disable-relocatability (lambda _ ;; Groff contains a Rube Goldberg-esque relocator for the ;; file "charset.alias". ;; It tries to find the current executable using realpath, ;; a do-it-yourself search in $PATH and so on. ;; Furthermore, the routine that does the search is buggy ;; in that it doesn't handle error cases when they arise. ;; This causes preconv to segfault when trying to look up ;; the file "charset.alias" in the NULL location. ;; The "charset.alias" parser is a copy of gnulib's, and a ;; non-broken version of gnulib's "charset.alias" parser ;; is part of glibc's libcharset. ;; However, groff unconditionally uses their own ;; "charset.alias" parser, but then DOES NOT INSTALL the ;; file "charset.alias" when glibc is too new. ;; In Guix, our file "charset.alias" only contains an ;; obscure alias for ASCII and nothing else. ;; So just disable relocation and make the entire ;; "charset.alias" lookup fail. ;; See <https://debbugs.gnu.org/cgi/bugreport.cgi?bug=30785> ;; for details. (substitute* "src/libs/libgroff/Makefile.sub" (("-DENABLE_RELOCATABLE=1") "")) ;; That file contains a crash bug--so make sure that ;; its contents are not there. (call-with-output-file "src/libs/libgroff/relocate.cpp" (lambda (port) #t)) #t)) (add-after 'install 'remove-non-essential-programs (lambda* (#:key outputs #:allow-other-keys) ;; Keep only the programs that man-db needs at run time, ;; and make sure we don't pull in Perl. (let ((out (assoc-ref outputs "out")) (kept '("eqn" "neqn" "pic" "tbl" "refer" "preconv" "nroff" "groff" "troff" "grotty"))) (for-each (lambda (file) (unless (member (basename file) kept) (delete-file file))) (find-files (string-append out "/bin"))) ;; Remove a bunch of unneeded Perl scripts. (for-each delete-file (find-files out "\\.pl$")) (for-each delete-file (find-files out "BuildFoundries")) ;; Remove ~3 MiB from share/groff/X.Y/font/devBACKEND ;; corresponding to the unused backends. (for-each delete-file-recursively (find-files out "^dev(dvi|ps|pdf|html|lj4)$" #:directories? #t)) #t)))))))))) ;; There are no releases, so we take the latest commit. (define-public roffit (let ((commit "e5228388e3faf2b7f1ae5bd048ad46ed565304c6") (revision "1")) (package (name "roffit") (version (string-append "0.11-" revision "." (string-take commit 9))) (source (origin (method git-fetch) (uri (git-reference (url "https://github.com/bagder/roffit.git") (commit commit))) (file-name (string-append "roffit-" commit "-checkout")) (sha256 (base32 "1y7ndbqciy7h0khlpi1bv4v1614vhybnmm4jysj6fwxkw9cwv1nc")))) (build-system gnu-build-system) (arguments `(#:test-target "test" #:make-flags (list (string-append "INSTALLDIR=" (assoc-ref %outputs "out") "/bin")) #:phases (modify-phases %standard-phases (delete 'configure) (add-before 'install 'pre-install (lambda* (#:key outputs #:allow-other-keys) (mkdir-p (string-append (assoc-ref outputs "out") "/bin")) #t))))) (inputs `(("perl" ,perl))) (home-page "https://daniel.haxx.se/projects/roffit/") (synopsis "Convert nroff files to HTML") (description "Roffit is a program that reads an nroff file and outputs an HTML file. It is typically used to display man pages on a web site.") (license expat))))