mirror of
https://git.in.rschanz.org/ryan77627/guix.git
synced 2024-11-07 15:36:20 -05:00
c4f9895bfe
* gnu/packages/docbook.scm (docbook2x): Build from source and fix build. Change-Id: Iefc3e068217875b5de5e79369b24a55b573df042
1000 lines
44 KiB
Scheme
1000 lines
44 KiB
Scheme
;;; GNU Guix --- Functional package management for GNU
|
|
;;; Copyright © 2014, 2021-2022 Ludovic Courtès <ludo@gnu.org>
|
|
;;; Copyright © 2014 Eric Bavier <bavier@member.fsf.org>
|
|
;;; Copyright © 2016 Mathieu Lirzin <mthl@gnu.org>
|
|
;;; Copyright © 2018 Tobias Geerinckx-Rice <me@tobias.gr>
|
|
;;; Copyright © 2020 Marius Bakke <marius@gnu.org>
|
|
;;; Copyright © 2021, 2022, 2023 Maxim Cournoyer <maxim.cournoyer@gmail.com>
|
|
;;; Copyright © 2021 Mark H Weaver <mhw@netris.org>
|
|
;;; Copyright © 2021 Efraim Flashner <efraim@flashner.co.il>
|
|
;;; Copyright © 2021 Andrew Whatson <whatson@gmail.com>
|
|
;;; Copyright © 2023 Bruno Victal <mirai@makinata.eu>
|
|
;;;
|
|
;;; 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 docbook)
|
|
#:use-module (gnu packages)
|
|
#:use-module (gnu packages autotools)
|
|
#:use-module (gnu packages bash)
|
|
#:use-module (gnu packages compression)
|
|
#:use-module (gnu packages groff)
|
|
#:use-module (gnu packages imagemagick)
|
|
#:use-module (gnu packages inkscape)
|
|
#:use-module (gnu packages tex)
|
|
#:use-module (gnu packages texinfo)
|
|
#:use-module (gnu packages perl)
|
|
#:use-module (gnu packages python)
|
|
#:use-module (gnu packages base)
|
|
#:use-module (gnu packages web)
|
|
#:use-module (gnu packages web-browsers)
|
|
#:use-module (gnu packages xfig)
|
|
#:use-module (gnu packages xml)
|
|
#:use-module (guix gexp)
|
|
#:use-module (guix search-paths)
|
|
#:use-module (guix utils)
|
|
#:use-module ((guix licenses) #:prefix license:)
|
|
#:use-module (guix packages)
|
|
#:use-module (guix download)
|
|
#:use-module (guix git-download)
|
|
#:use-module (guix build-system copy)
|
|
#:use-module (guix build-system gnu)
|
|
#:use-module (guix build-system python)
|
|
#:use-module (srfi srfi-26))
|
|
|
|
;; The fetch-plan, install-plan and phases for docbook-xml tend to vary
|
|
;; between releases therefore we use a “template” package for the
|
|
;; transformations that are common to these packages.
|
|
(define* (docbook-xml-package source version)
|
|
"Return a package for a docbook-xml package version @var{version} and
|
|
downloading from @var{source}, where @var{version} is a string and
|
|
@var{source} is a @code{<origin>} record."
|
|
(package
|
|
(name "docbook-xml")
|
|
(version version)
|
|
(source source)
|
|
(build-system copy-build-system)
|
|
(arguments
|
|
(list
|
|
#:modules '((guix build copy-build-system)
|
|
(guix build utils)
|
|
(srfi srfi-26))
|
|
#:phases
|
|
#~(modify-phases %standard-phases
|
|
(add-after 'unpack 'fix-permissions
|
|
(lambda _
|
|
;; These files do not need 0755 permission.
|
|
(for-each (cut chmod <> #o644) (find-files "."))))
|
|
(add-before 'install 'patch-catalog-xml
|
|
(lambda* (#:key inputs #:allow-other-keys)
|
|
(let ((xsltproc (search-input-file inputs "/bin/xsltproc"))
|
|
(xslt-file #$(local-file
|
|
(search-auxiliary-file
|
|
"xml/patch-catalog-xml.xsl")))
|
|
;; Avoid profile conflicts by installing to a
|
|
;; versioned path.
|
|
(dest-path
|
|
(format #f "~a/xml/docbook/~a" #$output #$version)))
|
|
(for-each
|
|
(lambda (catalog)
|
|
(let ((catalog* (string-append catalog ".new")))
|
|
(invoke xsltproc "--nonet" "--novalid" "--noout"
|
|
"--stringparam" "prefix" dest-path
|
|
"--output" catalog*
|
|
xslt-file catalog)
|
|
(rename-file catalog* catalog)))
|
|
(find-files "." "catalog\\.xml$"))))))))
|
|
(native-inputs (list libxslt unzip))
|
|
(home-page "https://docbook.org")
|
|
(synopsis "DocBook XML DTDs for document authoring")
|
|
(description
|
|
"DocBook is general purpose XML and SGML document type particularly well
|
|
suited to books and papers about computer hardware and software (though it is
|
|
by no means limited to these applications.) This package provides XML DTDs.")
|
|
(license (license:x11-style "" "See file headers."))))
|
|
|
|
(define-public docbook-xml-5.1
|
|
(let* ((version "5.1")
|
|
(source (origin
|
|
(method url-fetch/zipbomb)
|
|
(uri (string-append "https://docbook.org/xml/" version
|
|
"/docbook-v" version "-os.zip"))
|
|
(sha256
|
|
(base32
|
|
"0zqy9prj9wam9dn7v3mgr7ld1axqxdhgrmv06dviwg00ahv43wxk"))
|
|
(modules '((guix build utils)))
|
|
(snippet
|
|
;; The .zip release mistakenly uses '5.1CR4' instead of
|
|
;; '5.1' as intended by <https://docbook.org/xml/5.1/catalog.xml>.
|
|
#~(substitute* "schemas/catalog.xml"
|
|
(("5\\.1CR4") #$version)))))
|
|
(template (docbook-xml-package source version)))
|
|
(package
|
|
(inherit template)
|
|
(arguments
|
|
(let ((dest-dir (format #f "xml/docbook/~a/" version)))
|
|
(substitute-keyword-arguments (package-arguments template)
|
|
;; XXX: A default value must be provided otherwise this
|
|
;; substitution has no effect.
|
|
((#:install-plan _ #f)
|
|
#~`(("schemas/" #$dest-dir)))))))))
|
|
|
|
(define-public docbook-xml-5.0.1
|
|
(let* ((version "5.0.1")
|
|
(source (origin
|
|
(method url-fetch)
|
|
(uri (string-append "https://docbook.org/xml/" version
|
|
"/docbook-" version ".zip"))
|
|
(sha256
|
|
(base32
|
|
"1iz3hq1lqgnshvlz4j9gvh4jy1ml74qf90vqf2ikbq0h4i2xzybs"))))
|
|
(template (docbook-xml-package source version)))
|
|
(package
|
|
(inherit template)
|
|
(arguments
|
|
(let ((dest-dir (format #f "xml/docbook/~a/" version)))
|
|
(substitute-keyword-arguments (package-arguments template)
|
|
((#:install-plan _ #f)
|
|
#~`(("catalog.xml" #$dest-dir)
|
|
("docbook.nvdl" #$dest-dir)
|
|
("dtd" #$dest-dir)
|
|
("rng" #$dest-dir)
|
|
("sch" #$dest-dir)
|
|
("xsd" #$dest-dir)))))))))
|
|
|
|
;; XXX: docbook-xml-4.x versions use the same #:install-plan but since the
|
|
;; paths are versioned we can't use (inherit …).
|
|
(define* (docbook-xml-4.x-package source version)
|
|
"Return a template for a docbook-xml-4.x package version @var{version} and
|
|
downloading from @var{source}, where @var{version} is a string and
|
|
@var{source} is a @code{<origin>} record."
|
|
(let ((base-template (docbook-xml-package source version)))
|
|
(package
|
|
(inherit base-template)
|
|
(arguments
|
|
(let* ((dest-dir (format #f "xml/docbook/~a/" version)))
|
|
(substitute-keyword-arguments (package-arguments base-template)
|
|
((#:phases phases)
|
|
;; Some programs, such as kdoctools, instead of using
|
|
;; XML_CATALOG_FILES, prefer to use cmake to locate
|
|
;; the DTDs for docbook-xml-4.x packages but
|
|
;; since there's no agreed standard as to where these files
|
|
;; should be placed, in practice the .cmake files
|
|
;; end up searching for paths that are distribution specific.
|
|
#~(modify-phases #$phases
|
|
(add-after 'install 'symlink-alternate-path
|
|
(lambda _
|
|
;; kdoctools searches under xml/dtd/docbook/
|
|
;; which is the convention used by Nix.
|
|
(mkdir-p (string-append #$output "/xml/dtd"))
|
|
(symlink (string-append #$output "/" #$dest-dir)
|
|
(string-append #$output "/xml/dtd/docbook"))))))
|
|
((#:install-plan _ #f)
|
|
#~`(("./" #$dest-dir
|
|
#:exclude-regexp ("ChangeLog$"
|
|
"README$"
|
|
"docbook\\.cat$"
|
|
"\\.txt$"))))))))))
|
|
|
|
(define-public docbook-xml-4.5
|
|
(let* ((version "4.5")
|
|
(source (origin
|
|
(method url-fetch/zipbomb)
|
|
(uri (string-append "https://docbook.org/xml/" version
|
|
"/docbook-xml-" version ".zip"))
|
|
(sha256
|
|
(base32
|
|
"1d671lcjckjri28xfbf6dq7y3xnkppa910w1jin8rjc35dx06kjf")))))
|
|
(docbook-xml-4.x-package source version)))
|
|
|
|
(define-public docbook-xml-4.4
|
|
(let* ((version "4.4")
|
|
(source (origin
|
|
(method url-fetch/zipbomb)
|
|
(uri (string-append "https://docbook.org/xml/" version
|
|
"/docbook-xml-" version ".zip"))
|
|
(sha256
|
|
(base32
|
|
"141h4zsyc71sfi2zzd89v4bb4qqq9ca1ri9ix2als9f4i3mmkw82")))))
|
|
(docbook-xml-4.x-package source version)))
|
|
|
|
(define-public docbook-xml-4.3
|
|
(let* ((version "4.3")
|
|
(source (origin
|
|
(method url-fetch/zipbomb)
|
|
(uri (string-append "https://docbook.org/xml/" version
|
|
"/docbook-xml-" version ".zip"))
|
|
(sha256
|
|
(base32
|
|
"0r1l2if1z4wm2v664sqdizm4gak6db1kx9y50jq89m3gxaa8l1i3")))))
|
|
(docbook-xml-4.x-package source version)))
|
|
|
|
(define-public docbook-xml-4.2
|
|
(let* ((version "4.2")
|
|
(source (origin
|
|
(method url-fetch/zipbomb)
|
|
(uri (string-append "https://docbook.org/xml/" version
|
|
"/docbook-xml-" version ".zip"))
|
|
(sha256
|
|
(base32
|
|
"18hgwvmywh6a5jh38szjmg3hg2r4v5lb6r3ydc3rd8cp9wg61i5c")))))
|
|
(docbook-xml-4.x-package source version)))
|
|
|
|
(define-public docbook-xml-4.1.2
|
|
(let* ((version "4.1.2")
|
|
(source (origin
|
|
(method url-fetch/zipbomb)
|
|
(uri (string-append "https://docbook.org/xml/" version
|
|
"/docbkx412.zip"))
|
|
(sha256
|
|
(base32
|
|
"0wkp5rvnqj0ghxia0558mnn4c7s3n501j99q2isp3sp0ci069w1h"))))
|
|
(template (docbook-xml-4.x-package source version)))
|
|
(package
|
|
(inherit template)
|
|
(arguments
|
|
(substitute-keyword-arguments (package-arguments template)
|
|
((#:phases phases)
|
|
#~(modify-phases #$phases
|
|
(add-after 'unpack 'copy-catalog-file
|
|
;; docbook-xml-4.1.2 is unique in the fact that it doesn't come
|
|
;; with a catalog.xml file, requiring it to be generated by hand
|
|
;; from the docbook.cat SGML catalog. We could automatically
|
|
;; generate it here at the cost of enlarging the package
|
|
;; definition with a rudimentary (PEG) parser for the SGML
|
|
;; catalog but this is overkill since this file is unlikely to
|
|
;; change, therefore we ship a pre-generated catalog.xml.
|
|
(lambda _
|
|
(copy-file
|
|
#$(local-file
|
|
(search-auxiliary-file
|
|
"xml/docbook-xml/catalog-4.1.2.xml"))
|
|
"catalog.xml")))
|
|
(add-after 'patch-catalog-xml 'add-rewrite-entries
|
|
(lambda* (#:key inputs #:allow-other-keys)
|
|
(let ((xmlcatalog (search-input-file inputs
|
|
"/bin/xmlcatalog"))
|
|
(dtd-path (format #f "~a/xml/docbook/~a"
|
|
#$output #$version)))
|
|
(for-each
|
|
(lambda (type)
|
|
(invoke xmlcatalog "--noout"
|
|
"--add" type
|
|
"http://www.oasis-open.org/docbook/xml/4.1.2/"
|
|
(string-append "file:" dtd-path "/")
|
|
"catalog.xml"))
|
|
(list "rewriteSystem" "rewriteURI")))))))))
|
|
(native-inputs
|
|
(modify-inputs (package-native-inputs template)
|
|
(prepend libxml2))))))
|
|
|
|
(define-public docbook-mathml-1.0
|
|
(package
|
|
(name "docbook-mathml")
|
|
(version "1.0")
|
|
(source (origin
|
|
(method url-fetch)
|
|
(uri
|
|
(string-append "https://www.oasis-open.org/docbook/xml/mathml/"
|
|
version "/dbmathml.dtd"))
|
|
(sha256
|
|
(base32
|
|
"10vmyl29j829w4xn928rznh163pf47gyzbbjjwqrbg2bidfnk7vp"))))
|
|
(build-system copy-build-system)
|
|
(arguments
|
|
(let ((target (format #f "xml/docbook/mathml/~a/" version)))
|
|
(list
|
|
#:modules '((guix build copy-build-system)
|
|
(guix build utils)
|
|
(sxml simple)
|
|
(srfi srfi-1))
|
|
#:phases
|
|
#~(modify-phases %standard-phases
|
|
(add-before 'install 'generate-catalog.xml
|
|
(lambda _
|
|
(let ((store-uri (string-append "file:"
|
|
#$output "/"
|
|
#$target "dbmathml.dtd")))
|
|
(call-with-output-file "catalog.xml"
|
|
(lambda (port)
|
|
(sxml->xml
|
|
`(*TOP*
|
|
(*PI* xml "version='1.0'")
|
|
(catalog (@ (xmlns "urn:oasis:names:tc:entity:xmlns:xml:catalog"))
|
|
(public (@ (publicId "-//OASIS//DTD DocBook MathML Module V1.0//EN")
|
|
(uri ,store-uri)))
|
|
,@(map
|
|
(lambda (scheme)
|
|
`(system
|
|
(@ (systemId
|
|
,(string-append scheme
|
|
"://www.oasis-open.org/docbook/xml/"
|
|
"mathml/1.0/dbmathml.dtd"))
|
|
(uri ,store-uri))))
|
|
'("http" "https"))))
|
|
port)))))))
|
|
#:install-plan
|
|
#~`(("catalog.xml" #$target)
|
|
("dbmathml.dtd" #$target)))))
|
|
(propagated-inputs
|
|
;; These must be propagated for the package to make sense.
|
|
;; TODO: Package MathML2 DTD and propagate it as well.
|
|
(list docbook-xml-4.1.2))
|
|
(home-page
|
|
"https://www.oasis-open.org/docbook/xml/mathml/1.0/index.1.shtml")
|
|
(synopsis "MathML support for DocBook XML V4.1.2.")
|
|
(description "The DocBook MathML Module is an extension to DocBook XML
|
|
V4.1.2 that adds support for MathML in equation markup.")
|
|
(license (license:non-copyleft "" "See file headers."))))
|
|
|
|
(define-public docbook-xml docbook-xml-5.1)
|
|
|
|
;;; There's an issue in docbook-xsl 1.79.2 that causes manpages to be
|
|
;;; generated incorrectly and embed raw nroff syntax such as '.PP' when there
|
|
;;; is a namespace/non-namespace mismatch between the sources and the
|
|
;;; stylesheets used (see:
|
|
;;; https://github.com/docbook/xslt10-stylesheets/issues/109).
|
|
(define-public docbook-xsl
|
|
(let ((commit "fe16c90013b64e316c3e21ef92d1e8813c10f88c")
|
|
(revision "0")
|
|
(base-version "1.79.2"))
|
|
(package
|
|
(name "docbook-xsl")
|
|
(version (git-version base-version revision commit))
|
|
(source (origin
|
|
(method git-fetch)
|
|
(uri (git-reference
|
|
(url "https://github.com/docbook/xslt10-stylesheets")
|
|
(commit commit)))
|
|
(file-name (git-file-name name version))
|
|
(modules '((guix build utils)))
|
|
(snippet
|
|
#~(begin
|
|
;; Multiple .jar files are bundled with the sources.
|
|
(for-each delete-file
|
|
(find-files "." "\\.jar$"))
|
|
;; Do not build webhelp files, as they require a Saxon from
|
|
;; 2005, which is not packaged in Guix.
|
|
(substitute* "xsl/Makefile"
|
|
((" webhelp") ""))))
|
|
(sha256
|
|
(base32
|
|
"1bl8dwrcy7skrlh80fpsmiw045bv2j0aym231ikcv3hvm2pi98dj"))))
|
|
(build-system gnu-build-system)
|
|
(arguments
|
|
(list
|
|
#:make-flags #~(list "XSLTENGINE=xsltproc")
|
|
#:modules '((guix build gnu-build-system)
|
|
(guix build utils)
|
|
(sxml simple))
|
|
#:phases
|
|
#~(let ((dest-path (format #f "~a/xml/xsl/~a-~a"
|
|
#$output #$name #$version)))
|
|
(modify-phases %standard-phases
|
|
(replace 'configure
|
|
(lambda _
|
|
;; The build systems insist on a ~/.xmlc, and it is simpler to
|
|
;; create a dummy config file than to patch it into
|
|
;; submission.
|
|
(setenv "HOME" "/tmp")
|
|
(call-with-output-file "/tmp/.xmlc"
|
|
(lambda (port)
|
|
(sxml->xml
|
|
'(*TOP*
|
|
(*PI* xml "version='1.0'")
|
|
(config
|
|
(java (@ (xml:id "bigmem"))
|
|
(java-options (@ (name "Xmx512m"))))
|
|
(xsltproc (@ (xml:id "xsltproc")
|
|
(exec "xsltproc")))
|
|
(xmllint (@ (xml:id "xmllint")
|
|
(exec "xmllint")))))
|
|
port)))))
|
|
(add-before 'install 'generate-catalog.xml
|
|
(lambda* (#:key make-flags #:allow-other-keys)
|
|
(apply invoke "make" "-C" "xsl" "catalog.xml" make-flags)))
|
|
(add-after 'generate-catalog.xml 'patch-catalog.xml
|
|
;; Note: URI resolutions are not recursive.
|
|
;; A rewrite rule from:
|
|
;; 'http://docbook.sourceforge.net/release/xsl-ns/'
|
|
;; to
|
|
;; 'http://docbook.sourceforge.net/release/xsl/'
|
|
;; will not trigger the rewrite rule that ultimately
|
|
;; remaps to a /gnu/store URI, as can be seen by
|
|
;; invoking:
|
|
;; $ xmlcatalog "" \
|
|
;; 'http://docbook.sourceforge.net/release/xsl-ns/current/'
|
|
;; http://docbook.sourceforge.net/release/xsl/current/
|
|
;; $ xmlcatalog "" \
|
|
;; 'http://docbook.sourceforge.net/release/xsl/current/'
|
|
;; file:/gnu/store/…/xml/xsl/…
|
|
;;
|
|
;; See XML Catalog specification, item 7.2.2. for
|
|
;; details.
|
|
(lambda* (#:key inputs #:allow-other-keys)
|
|
(let ((xmlcatalog (search-input-file inputs
|
|
"/bin/xmlcatalog"))
|
|
(catalog-file "xsl/catalog.xml")
|
|
(store-uri (string-append "file:" dest-path "/")))
|
|
;; Remove /snapshot/ references.
|
|
(for-each
|
|
(lambda (scheme)
|
|
(invoke xmlcatalog "--noout"
|
|
"--del"
|
|
(string-append
|
|
scheme
|
|
"://cdn.docbook.org/release/xsl/snapshot/")
|
|
catalog-file))
|
|
(list "http" "https"))
|
|
;; Rewrite both http:// and https:// URIs.
|
|
(for-each
|
|
(lambda (path)
|
|
(for-each
|
|
(lambda (scheme)
|
|
(for-each
|
|
(lambda (entry-type)
|
|
(let ((uri (string-append scheme "://" path)))
|
|
(invoke xmlcatalog "--noout"
|
|
"--add" entry-type uri store-uri
|
|
catalog-file)))
|
|
(list "rewriteSystem" "rewriteURI")))
|
|
(list "http" "https")))
|
|
(list #$(format #f "cdn.docbook.org/release/xsl/~a/"
|
|
base-version)
|
|
"cdn.docbook.org/release/xsl/current/"
|
|
;; Re-add the no longer present compatibility entries for
|
|
;; v.1.79.1 or earlier URIs.
|
|
"docbook.sourceforge.net/release/xsl/current/"
|
|
;; Originally the
|
|
;; "http://docbook.sourceforge.net/release/xsl/"
|
|
;; URI referred to the non-namespaced docbook-xsl,
|
|
;; with its namespaced version using a URI differing in
|
|
;; the path component as '…/xsl-ns/'.
|
|
;; At some point the namespaced version was made the
|
|
;; canonical docbook-xsl package whilst preserving the
|
|
;; original URI.
|
|
;;
|
|
;; For compatibility with XML files that still specify
|
|
;; the legacy namespaced docbook-xsl URIs we re-add them
|
|
;; here.
|
|
"docbook.sourceforge.net/release/xsl-ns/current/")))))
|
|
(replace 'install
|
|
(lambda _
|
|
(let ((select-rx (make-regexp
|
|
"(\\.xml$|\\.xsl$|\\.dtd$|\\.ent$)")))
|
|
;; Install catalog.
|
|
(chdir "xsl")
|
|
(install-file "catalog.xml" dest-path)
|
|
(install-file "VERSION.xsl" dest-path)
|
|
;; Install style sheets.
|
|
(for-each
|
|
(lambda (dir)
|
|
(for-each (lambda (f)
|
|
(install-file
|
|
f
|
|
(string-append dest-path "/" (dirname f))))
|
|
(find-files dir select-rx)))
|
|
'("assembly" "common" "eclipse" "epub" "epub3" "fo"
|
|
"highlighting" "html" "htmlhelp" "javahelp" "lib"
|
|
"manpages" "params" "profiling" "roundtrip"
|
|
"template" "website"
|
|
"xhtml" "xhtml-1_1" "xhtml5")))))))))
|
|
(native-inputs (list docbook-xml-4.4 ; for tests
|
|
libxml2
|
|
libxslt
|
|
perl
|
|
perl-xml-xpath))
|
|
(home-page "https://docbook.org")
|
|
(synopsis "DocBook XSL style sheets for document authoring")
|
|
(description
|
|
"This package provides XSL style sheets for DocBook.")
|
|
(license (license:x11-style "" "See 'COPYING' file.")))))
|
|
|
|
(define-public docbook-dsssl
|
|
(package
|
|
(name "docbook-dsssl")
|
|
(version "1.79")
|
|
(source (origin
|
|
(method url-fetch)
|
|
(uri (string-append "mirror://sourceforge/docbook/"
|
|
name "/" version "/"
|
|
name "-" version ".tar.bz2"))
|
|
(sha256
|
|
(base32
|
|
"1g72y2yyc2k89kzs0lvrb9n7hjayw1hdskfpplpz97pf1c99wcig"))
|
|
(snippet
|
|
#~(begin
|
|
(chmod "bin/collateindex.pl" #o755)
|
|
;; Remove empty directories.
|
|
(rmdir "doc")
|
|
(rmdir "docsrc")))))
|
|
(build-system copy-build-system)
|
|
(outputs '("out" "doc"))
|
|
(arguments
|
|
(list
|
|
#:install-plan
|
|
#~`(("./" "sgml/dtd/docbook/" #:exclude ("bin"))
|
|
("bin/collateindex.pl" "bin/")
|
|
("bin/collateindex.pl.1" "share/man/man1/")
|
|
(#$(this-package-input "docbook-dsssl-doc") "./" #:output "doc"))))
|
|
(inputs
|
|
(list perl docbook-dsssl-doc))
|
|
(home-page "https://docbook.org/")
|
|
(synopsis "DSSSL style sheets for DocBook")
|
|
(description "This package provides DSSSL style sheets for DocBook.")
|
|
(license (license:non-copyleft "file:/README"))))
|
|
|
|
;;; Private variable, used as the 'doc' output of the docbook-dsssl package.
|
|
(define docbook-dsssl-doc
|
|
(package
|
|
(name "docbook-dsssl-doc")
|
|
(version "1.79")
|
|
(source (origin
|
|
(method url-fetch)
|
|
(uri (string-append "mirror://sourceforge/docbook/"
|
|
name "/" version "/"
|
|
name "-" version ".tar.bz2"))
|
|
(sha256
|
|
(base32
|
|
"1plp5ngc96pbna4rwglp9glcadnirbm3hlcjb4gjvq1f8biic9lz"))))
|
|
(build-system copy-build-system)
|
|
(arguments
|
|
(list
|
|
#:install-plan
|
|
#~`(("doc/" #$(string-append "/share/doc/docbook-dsssl-" version)))))
|
|
(home-page "https://docbook.org/")
|
|
(synopsis "DocBook DSSSL style sheets documentation")
|
|
(description "Documentation for the DocBook DSSSL style sheets.")
|
|
(license (license:non-copyleft "file:/doc/LEGALNOTICE.htm"))))
|
|
|
|
(define-public docbook-sgml-4.2
|
|
(package
|
|
(name "docbook-sgml")
|
|
(version "4.2")
|
|
(source (origin
|
|
(method url-fetch/zipbomb)
|
|
(uri (string-append
|
|
"https://www.oasis-open.org/docbook/sgml/4.2/docbook-"
|
|
version ".zip"))
|
|
(sha256
|
|
(base32
|
|
"1hrm4qmmzi285bkxkc74lxvjvw2gbl7ycbaxhv31h9rl9g4x5sv7"))))
|
|
(build-system copy-build-system)
|
|
(arguments
|
|
(list
|
|
#:modules '((guix build copy-build-system)
|
|
(guix build utils)
|
|
(srfi srfi-26))
|
|
#:install-plan
|
|
#~`(("./" "sgml/dtd/docbook"
|
|
#:exclude-regexp ("catalog\\.xml$"
|
|
"ChangeLog$"
|
|
"README$"
|
|
"\\.txt$")))
|
|
#:phases
|
|
#~(modify-phases %standard-phases
|
|
(add-after 'unpack 'fix-permissions
|
|
(lambda _
|
|
(for-each (cut chmod <> #o644) (find-files "."))))
|
|
(add-before 'install 'patch-iso-entities
|
|
(lambda* (#:key inputs #:allow-other-keys)
|
|
;; Reference the ISO 8879 character entities.
|
|
;; e.g. "iso-lat1.gml" --> "<iso-entities-dir>/ISOlat1"
|
|
(let ((iso-entities-dir
|
|
(assoc-ref %build-inputs "iso-8879-entities")))
|
|
(substitute* "docbook.cat"
|
|
(("\"iso-(.*)\\.gml\"" _ name)
|
|
(string-append "\"" iso-entities-dir "/ISO" name "\"")))))))))
|
|
(native-inputs
|
|
(list unzip))
|
|
(inputs
|
|
(list iso-8879-entities))
|
|
(home-page "https://docbook.org")
|
|
(synopsis "DocBook SGML style sheets for document authoring")
|
|
(description "This package provides SGML style sheets for DocBook.")
|
|
(license (license:x11-style "" "See file headers."))))
|
|
|
|
(define-public docbook-sgml-4.1
|
|
(package
|
|
(inherit docbook-sgml-4.2)
|
|
(version "4.1")
|
|
(source (origin
|
|
(method url-fetch/zipbomb)
|
|
(uri (string-append "https://www.oasis-open.org/docbook/sgml/"
|
|
version "/docbk41.zip"))
|
|
(sha256
|
|
(base32
|
|
"04b3gp4zkh9c5g9kvnywdkdfkcqx3kjc04j4mpkr4xk7lgqgrany"))))))
|
|
|
|
(define-public docbook-sgml docbook-sgml-4.1)
|
|
|
|
(define-public docbook-sgml-3.1
|
|
(package
|
|
(inherit docbook-sgml)
|
|
(version "3.1")
|
|
(source (origin
|
|
(method url-fetch/zipbomb)
|
|
(uri (string-append "https://www.oasis-open.org/docbook/sgml/"
|
|
version "/docbk31.zip"))
|
|
(sha256
|
|
(base32
|
|
"0f25ch7bywwhdxb1qa0hl28mgq1blqdap3rxzamm585rf4kis9i0"))))))
|
|
|
|
;;; Private package referenced by docbook-sgml.
|
|
(define iso-8879-entities
|
|
(package
|
|
(name "iso-8879-entities")
|
|
(version "0.0") ;no proper version
|
|
(source (origin
|
|
(method url-fetch/zipbomb)
|
|
(uri "https://www.oasis-open.org/cover/ISOEnts.zip")
|
|
(sha256
|
|
(base32
|
|
"1clrkaqnvc1ja4lj8blr0rdlphngkcda3snm7b9jzvcn76d3br6w"))))
|
|
(build-system copy-build-system)
|
|
(native-inputs (list unzip))
|
|
(home-page "https://www.oasis-open.org/")
|
|
(synopsis "ISO 8879 character entities")
|
|
(description "ISO 8879 character entities that are typically used in
|
|
the in DocBook SGML DTDs.")
|
|
(license (license:x11-style "" "See file headers."))))
|
|
|
|
(define-public dblatex
|
|
(package
|
|
(name "dblatex")
|
|
(version "0.3.12")
|
|
(source (origin
|
|
(method url-fetch)
|
|
(uri (string-append "mirror://sourceforge/dblatex/dblatex/"
|
|
"dblatex-" version "/dblatex3-"
|
|
version ".tar.bz2"))
|
|
(sha256
|
|
(base32
|
|
"0yd09nypswy3q4scri1dg7dr99d7gd6r2dwx0xm81l9f4y32gs0n"))
|
|
(patches
|
|
(search-patches "dblatex-inkscape-1.0.patch"))))
|
|
(outputs '("out" "doc"))
|
|
(build-system python-build-system)
|
|
(arguments
|
|
(list
|
|
;; Using setuptools causes an invalid "package_base" path in
|
|
;; out/bin/.dblatex-real due to a missing leading '/'. This is caused
|
|
;; by dblatex's setup.py stripping the root path when creating the
|
|
;; script. (dblatex's setup.py still uses distutils and thus has to
|
|
;; create the script by itself. The feature for creating scripts is one
|
|
;; of setuptools' features.)
|
|
;; See this thread for details:
|
|
;; https://lists.gnu.org/archive/html/guix-devel/2016-12/msg00030.html
|
|
#:use-setuptools? #f
|
|
#:tests? #f ;no test suite
|
|
#:phases
|
|
#~(modify-phases %standard-phases
|
|
(add-after 'install 'move-doc
|
|
(lambda _
|
|
(let ((old (string-append #$output "/share/doc"))
|
|
(new (string-append #$output:doc "/share/doc")))
|
|
(mkdir-p (dirname new))
|
|
(rename-file old new))))
|
|
(add-after 'wrap 'wrap-dblatex
|
|
(lambda* (#:key inputs #:allow-other-keys)
|
|
(let ((path
|
|
(search-path-as-list
|
|
'("bin")
|
|
'#$(map (cut this-package-input <>)
|
|
(list "libxslt" "imagemagick" "inkscape"
|
|
"fig2dev" "texlive-bin")))))
|
|
;; dblatex executes helper programs at runtime.
|
|
(wrap-program (string-append #$output "/bin/dblatex")
|
|
`("PATH" ":" prefix ,path)
|
|
`("GUIX_TEXMF" prefix (,(getenv "GUIX_TEXMF")))))))
|
|
(add-after 'check 'check-wrap
|
|
(lambda* (#:key tests? #:allow-other-keys)
|
|
(when tests?
|
|
(unsetenv "GUIX_TEXMF")
|
|
(invoke/quiet (string-append #$output "/bin/dblatex")
|
|
"--quiet" "tests/mathml/mmltest2.xml")))))))
|
|
(native-inputs (list docbook-mathml-1.0))
|
|
(inputs
|
|
(list bash-minimal
|
|
texlive-bin
|
|
(texlive-updmap.cfg (list texlive-amsmath
|
|
texlive-anysize
|
|
texlive-appendix
|
|
texlive-auxhook
|
|
texlive-bigintcalc
|
|
texlive-bin
|
|
texlive-bitset
|
|
texlive-bookmark
|
|
texlive-changebar
|
|
texlive-colortbl
|
|
texlive-courier
|
|
texlive-eepic
|
|
texlive-epstopdf-pkg
|
|
texlive-eso-pic
|
|
texlive-etexcmds
|
|
texlive-fancybox
|
|
texlive-fancyhdr
|
|
texlive-fancyvrb
|
|
texlive-float
|
|
texlive-footmisc
|
|
texlive-gettitlestring
|
|
texlive-graphics
|
|
texlive-graphics-cfg
|
|
texlive-helvetic
|
|
texlive-hycolor
|
|
texlive-hyperref
|
|
texlive-infwarerr
|
|
texlive-intcalc
|
|
texlive-jknapltx
|
|
texlive-kpathsea
|
|
texlive-kvdefinekeys
|
|
texlive-kvoptions
|
|
texlive-kvsetkeys
|
|
texlive-l3backend
|
|
texlive-latex
|
|
texlive-latex-bin
|
|
texlive-letltxmacro
|
|
texlive-listings
|
|
texlive-ltxcmds
|
|
texlive-multirow
|
|
texlive-overpic
|
|
texlive-pdfescape
|
|
texlive-pdflscape
|
|
texlive-pdfpages
|
|
texlive-pdftexcmds
|
|
texlive-psnfss
|
|
texlive-refcount
|
|
texlive-rerunfilecheck
|
|
texlive-rsfs
|
|
texlive-stmaryrd
|
|
texlive-subfigure
|
|
texlive-symbol
|
|
texlive-times
|
|
texlive-titlesec
|
|
texlive-tools
|
|
texlive-uniquecounter
|
|
texlive-url
|
|
texlive-wasysym
|
|
texlive-zapfding))
|
|
fig2dev
|
|
imagemagick ;for convert
|
|
inkscape ;for svg conversion
|
|
docbook-xml
|
|
libxslt)) ;for xsltproc
|
|
;; lib/dbtexmf/xslt/4xslt.py shows that this package
|
|
;; makes use of XML_CATALOG_FILES and also invokes
|
|
;; xsltproc.
|
|
(native-search-paths %libxslt-search-paths)
|
|
(home-page "https://dblatex.sourceforge.net")
|
|
(synopsis "DocBook to LaTeX Publishing")
|
|
(description
|
|
"DocBook to LaTeX Publishing transforms your SGML/XML DocBook documents
|
|
to DVI, PostScript or PDF by translating them in pure LaTeX as a first
|
|
process. MathML 2.0 markups are supported too. It started as a clone of
|
|
DB2LaTeX.")
|
|
;; lib/contrib/which is under an X11 license
|
|
(license license:gpl2+)))
|
|
|
|
;; This is a variant of the 'dblatex' package that is not updated often. It
|
|
;; is intended to be used as a native-input at build-time only, e.g. by
|
|
;; 'gtk-doc' for generating package documentation. This allows the main
|
|
;; 'dblatex' and 'imagemagick' packages to be freely updated on the 'master'
|
|
;; branch without triggering an excessive number of rebuilds.
|
|
(define-public dblatex/stable
|
|
(hidden-package
|
|
(package/inherit dblatex
|
|
(inputs (modify-inputs (package-inputs dblatex)
|
|
(replace "imagemagick" imagemagick/stable)
|
|
(replace "inkscape" inkscape/stable))))))
|
|
|
|
(define-public docbook-utils
|
|
(package
|
|
(name "docbook-utils")
|
|
(version "0.6.14")
|
|
(source (origin
|
|
(method url-fetch)
|
|
;; The original sources are not accessible anymore.
|
|
(uri (string-append "http://deb.debian.org/debian/pool/main/"
|
|
"d/docbook-utils/docbook-utils_"
|
|
version ".orig.tar.gz"))
|
|
(sha256
|
|
(base32
|
|
"1scj5vgw1xz872pq54a89blcxqqm11p90yzv8a9mqq57x27apyj8"))
|
|
(patches
|
|
(search-patches "docbook-utils-documentation-edits.patch"
|
|
"docbook-utils-escape-characters.patch"
|
|
"docbook-utils-remove-jade-sp.patch"
|
|
"docbook-utils-respect-refentry-for-name.patch"
|
|
"docbook-utils-use-date-element.patch"
|
|
"docbook-utils-source-date-epoch.patch"))
|
|
(modules '((guix build utils)))
|
|
(snippet
|
|
#~(begin
|
|
;; Patch build system.
|
|
(substitute* (find-files "." "\\.(in|am)$")
|
|
;; Do not hard-code SGML_CATALOG_FILES.
|
|
((".*SGML_CATALOG_FILES=/etc/sgml/catalog.*") ""))
|
|
|
|
;; Do not override the SGML_CATALOG_FILES environment
|
|
;; variable.
|
|
(substitute* "bin/jw.in"
|
|
((".*SGML_CATALOG_FILES=`find.*")
|
|
"")
|
|
(("SGML_CATALOG_FILES=`echo.*")
|
|
":\n")
|
|
(("SGML_CATALOG_FILES=\"\"")
|
|
":")
|
|
(("\\bwhich\\b")
|
|
"command -v"))
|
|
|
|
;; Locate lynx, links or w3m from the PATH, not from
|
|
;; /usr/bin.
|
|
(substitute* "backends/txt"
|
|
(("CONVERT=/usr/bin/")
|
|
"CONVERT=")
|
|
(("\\[ -x /usr/bin/([^ ]+) \\]" _ command)
|
|
(format #f "command -v ~a > /dev/null" command)))
|
|
|
|
;; This forces autoreconf to be invoked, needed for patches
|
|
;; to be effective.
|
|
(delete-file "configure")))))
|
|
(native-inputs (list autoconf automake libtool))
|
|
(build-system gnu-build-system)
|
|
;; Propagated for convenience. All these tools are used at run time to
|
|
;; provide the complete functionality of the docbook-utils commands.
|
|
(propagated-inputs
|
|
(list texlive-jadetex
|
|
docbook-sgml-3.1
|
|
docbook-dsssl
|
|
openjade
|
|
opensp
|
|
lynx
|
|
perl-sgmls))
|
|
(home-page "https://packages.debian.org/sid/docbook-utils")
|
|
(synopsis "DocBook converter to other formats")
|
|
(description "The docbook-utils package is a collection of utilities
|
|
intended to ease the use of SGML and XML.
|
|
@table @command
|
|
@item jw
|
|
Convert a SGML DocBook file to other formats such as Hyper Text Markup
|
|
Language (HTML), Rich Text Format (RTF), PostScript (PS), man, Portable
|
|
Document Format (PDF), TeX, Texinfo or plain text (txt). It can be used
|
|
more conveniently via the following wrappers:
|
|
@table @command
|
|
@item docbook2dvi
|
|
Convert a SGML DocBook file to the DVI format.
|
|
@item docbook2html
|
|
Convert a SGML DocBook file to an HTML document.
|
|
@item docbook2man
|
|
Convert a SGML DocBook file a man page.
|
|
@item docbook2pdf
|
|
@itemx docbook2ps
|
|
@itemx docbook2rtf
|
|
@itemx docbook2tex
|
|
@itemx docbook2texi
|
|
Convert a SGML DocBook file to a PDF/PS/RTF/TeX document.
|
|
@item docbook2txt
|
|
Convert a SGML DocBook file to a plain text document.
|
|
@end table
|
|
@item sgmldiff
|
|
Detect the differences in markup between two SGML files.
|
|
@end table")
|
|
(license license:gpl2+)))
|
|
|
|
(define-public docbook2x
|
|
(package
|
|
(name "docbook2x")
|
|
(version "0.8.8")
|
|
(source (origin
|
|
(method url-fetch)
|
|
(uri (string-append "mirror://sourceforge/docbook2x/docbook2x/"
|
|
version "/docbook2X-" version ".tar.gz"))
|
|
(sha256
|
|
(base32
|
|
"0ifwzk99rzjws0ixzimbvs83x6cxqk1xzmg84wa1p7bs6rypaxs0"))
|
|
(patches
|
|
(search-patches "docbook2x-filename-handling.patch"
|
|
"docbook2x-fix-synopsis.patch"
|
|
"docbook2x-manpage-typo.patch"
|
|
"docbook2x-preprocessor-declaration.patch"
|
|
"docbook2x-static-datadir-evaluation.patch"))
|
|
(modules '((guix build utils)))
|
|
(snippet
|
|
;; Fix a failing test (maybe it worked with old texinfo?)
|
|
#~(begin
|
|
(substitute* "test/complete-manuals/at1.xml"
|
|
(("<bridgehead>")
|
|
"<bridgehead renderas=\"sect2\">"))
|
|
;; Force a new autoreconf run.
|
|
(delete-file "configure")))))
|
|
(outputs '("out" "doc"))
|
|
(build-system gnu-build-system)
|
|
(arguments
|
|
(list
|
|
#:make-flags ''("AM_MAKEINFOHTMLFLAGS=\"--no-split\"")
|
|
#:modules '((guix build gnu-build-system)
|
|
(guix build utils)
|
|
(srfi srfi-26))
|
|
#:phases
|
|
#~(modify-phases %standard-phases
|
|
(add-before 'build 'clean
|
|
(lambda _
|
|
(invoke "make" "clean")))
|
|
(add-after 'install 'move-doc
|
|
(lambda _
|
|
(let* ((old (string-append #$output "/share/doc"))
|
|
(new (string-append #$output:doc "/share/doc")))
|
|
(mkdir-p (dirname new))
|
|
(rename-file old new))))
|
|
(add-after 'install 'wrap-programs
|
|
(lambda* (#:key inputs outputs #:allow-other-keys)
|
|
(let ((programs
|
|
(map (lambda (p)
|
|
(search-input-file outputs
|
|
(string-append "bin/" p)))
|
|
'("db2x_manxml" "db2x_texixml" "db2x_xsltproc"
|
|
"docbook2man" "docbook2texi")))
|
|
(perl5lib
|
|
(search-path-as-list
|
|
'("/lib/perl5/site_perl")
|
|
(map (cut assoc-ref inputs <>)
|
|
'("perl-xml-namespacesupport"
|
|
"perl-xml-parser"
|
|
"perl-xml-sax"
|
|
"perl-xml-sax-base")))))
|
|
(map (lambda (program)
|
|
(wrap-program program
|
|
`("PERL5LIB" ":" prefix ,perl5lib)))
|
|
programs))))
|
|
(add-after 'install 'sgml-check
|
|
;; This is not covered by 'make check'.
|
|
;; Test that 'sgml2xml-isoent' works.
|
|
(lambda* (#:key tests? #:allow-other-keys)
|
|
(when tests?
|
|
(invoke "make" "installcheck"))))
|
|
(add-after 'install 'create-symlinks
|
|
(lambda _
|
|
;; Create db2x_* symlinks to satisfy some configure scripts
|
|
;; which use these names to differentiate from an older
|
|
;; docbook2man script provided by docbook-utils.
|
|
(map (lambda (prog)
|
|
(symlink prog (string-append #$output
|
|
"/bin/db2x_" prog)))
|
|
'("docbook2man" "docbook2texi")))))))
|
|
(inputs
|
|
(list bash-minimal
|
|
opensp
|
|
perl
|
|
perl-xml-namespacesupport
|
|
perl-xml-parser
|
|
perl-xml-sax
|
|
perl-xml-sax-base
|
|
texinfo
|
|
libxslt))
|
|
(native-inputs
|
|
(list autoconf automake libtool
|
|
tidy-html
|
|
;; For tests
|
|
docbook-xml-4.1.2 docbook-xml-4.2 docbook-xml-4.4
|
|
groff-minimal libxml2))
|
|
(native-search-paths %libxslt-search-paths)
|
|
(home-page "https://docbook2x.sourceforge.net")
|
|
(synopsis "Convert DocBook to man page and Texinfo format")
|
|
(description
|
|
"docbook2X is a software package that converts DocBook documents into the
|
|
traditional Unix man page format and the GNU Texinfo format. Notable features
|
|
include table support for man pages, internationalization support, and easy
|
|
customization of the output using XSLT.")
|
|
(license license:expat)))
|