me
/
guix
Archived
1
0
Fork 0
Code

gnu: docbook2x: Use gexps and remove input labels. 

* gnu/packages/docbook.scm (docbook2x) [arguments]: Use gexps.
[inputs]: Remove input labels.
master
Maxim Cournoyer 2023-04-20 23:11:43 -04:00
parent e3edddd12d
commit 704f477333
No known key found for this signature in database
GPG Key ID: 1260E46482E63562
1 changed files with 65 additions and 66 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

55
gnu/packages/docbook.scm
View File

@ -707,24 +707,25 @@ Detect the differences in markup between two SGML files.
"0ifwzk99rzjws0ixzimbvs83x6cxqk1xzmg84wa1p7bs6rypaxs0")))) "0ifwzk99rzjws0ixzimbvs83x6cxqk1xzmg84wa1p7bs6rypaxs0"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(inputs (inputs
`(("bash-minimal" ,bash-minimal) (list bash-minimal
("docbook-xml" ,docbook-xml-4.5) docbook-xml-4.5
("perl" ,perl) perl
("perl-xml-namespacesupport" ,perl-xml-namespacesupport) perl-xml-namespacesupport
("perl-xml-parser" ,perl-xml-parser) perl-xml-parser
("perl-xml-sax" ,perl-xml-sax) perl-xml-sax
("perl-xml-sax-base" ,perl-xml-sax-base) perl-xml-sax-base
("texinfo" ,texinfo) texinfo
("xsltproc" ,libxslt))) libxslt))
(arguments (arguments
`(#:phases (list
(modify-phases %standard-phases #:phases
#~(modify-phases %standard-phases
(add-after 'configure 'patch-sources (add-after 'configure 'patch-sources
(lambda* (#:key inputs outputs #:allow-other-keys) (lambda* (#:key inputs #:allow-other-keys)
;; Fix failed substitution in config.pl ;; Fix failed substitution in config.pl
(substitute* "perl/config.pl" (substitute* "perl/config.pl"
(("\\$\\{prefix\\}") (("\\$\\{prefix\\}")
(assoc-ref outputs "out"))) #$output))
;; Fix a failing test (maybe it worked with old texinfo?) ;; Fix a failing test (maybe it worked with old texinfo?)
(substitute* "test/complete-manuals/at1.xml" (substitute* "test/complete-manuals/at1.xml"
(("<bridgehead>") (("<bridgehead>")
@ -741,39 +742,37 @@ Detect the differences in markup between two SGML files.
"/xml/dtd/docbook/catalog.xml")))) "/xml/dtd/docbook/catalog.xml"))))
(add-after 'install 'wrap-programs (add-after 'install 'wrap-programs
(lambda* (#:key inputs outputs #:allow-other-keys) (lambda* (#:key inputs outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out")) (let* ((programs
(programs
(map (lambda (p) (map (lambda (p)
(string-append out "/bin/" p)) (search-input-file outputs
(string-append "bin/" p)))
'("db2x_manxml" "db2x_texixml" "db2x_xsltproc" '("db2x_manxml" "db2x_texixml" "db2x_xsltproc"
"docbook2man" "docbook2texi"))) "docbook2man" "docbook2texi")))
(perl5lib (perl5lib
(map (lambda (i) '#$(map (lambda (i)
(string-append (assoc-ref inputs i) (file-append (this-package-input i)
"/lib/perl5/site_perl")) "/lib/perl5/site_perl"))
'("perl-xml-namespacesupport" '("perl-xml-namespacesupport"
"perl-xml-parser" "perl-xml-parser"
"perl-xml-sax" "perl-xml-sax"
"perl-xml-sax-base"))) "perl-xml-sax-base")))
(xml-catalog-files (xml-catalog-files
(list (string-append (assoc-ref inputs "docbook-xml") (list (search-input-file
"/xml/dtd/docbook/catalog.xml")))) inputs "xml/dtd/docbook/catalog.xml"))))
(map (lambda (program) (map (lambda (program)
(wrap-program program (wrap-program program
`("PERL5LIB" ":" prefix `("PERL5LIB" ":" prefix ,perl5lib)
,perl5lib) `("XML_CATALOG_FILES" " " prefix ,xml-catalog-files)))
`("XML_CATALOG_FILES" " " prefix
,xml-catalog-files)))
programs)))) programs))))
(add-after 'install 'create-symlinks (add-after 'install 'create-symlinks
(lambda* (#:key outputs #:allow-other-keys) (lambda _
(let ((out (assoc-ref outputs "out")))
;; Create db2x_* symlinks to satisfy some configure scripts ;; Create db2x_* symlinks to satisfy some configure scripts
;; which use these names to differentiate from an older ;; which use these names to differentiate from an older
;; docbook2man script provided by docbook-utils. ;; docbook2man script provided by docbook-utils.
(map (lambda (prog) (map (lambda (prog)
(symlink prog (string-append out "/bin/db2x_" prog))) (symlink prog (string-append #$output
'("docbook2man" "docbook2texi")))))))) "/bin/db2x_" prog)))
'("docbook2man" "docbook2texi")))))))
(home-page "https://docbook2x.sourceforge.net") (home-page "https://docbook2x.sourceforge.net")
(synopsis "Convert DocBook to man page and Texinfo format") (synopsis "Convert DocBook to man page and Texinfo format")
(description (description