ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2025-01-24 11:39:46 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: libstdc++-doc: Use invoke.

Browse source 
* gnu/packages/gcc.scm (make-libstdc++-doc)[arguments]: Use invoke.
This commit is contained in:
Mark H Weaver 2018-03-16 01:48:45 -04:00
parent 67eb6f508e
commit 61a815ebeb
No known key found for this signature in database
GPG key ID: 7CEF29847562C516
1 changed files with 10 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
gnu/packages/gcc.scm
View file

@ -769,7 +769,8 @@ (define (make-libstdc++-doc gcc)
#:phases (modify-phases %standard-phases #:phases (modify-phases %standard-phases
(add-before 'configure 'chdir (add-before 'configure 'chdir
(lambda _ (lambda _
(chdir "libstdc++-v3"))) (chdir "libstdc++-v3")
#t))
(add-before 'configure 'set-xsl-directory (add-before 'configure 'set-xsl-directory
(lambda* (#:key inputs #:allow-other-keys) (lambda* (#:key inputs #:allow-other-keys)
(let ((docbook (assoc-ref inputs "docbook-xsl"))) (let ((docbook (assoc-ref inputs "docbook-xsl")))
@ -778,22 +779,23 @@ (define (make-libstdc++-doc gcc)
(("@XSL_STYLE_DIR@") (("@XSL_STYLE_DIR@")
(string-append (string-append
docbook "/xml/xsl/" docbook "/xml/xsl/"
(strip-store-file-name docbook))))))) (strip-store-file-name docbook))))
#t)))
(replace 'build (replace 'build
(lambda _ (lambda _
;; XXX: There's also a 'doc-info' target, but it ;; XXX: There's also a 'doc-info' target, but it
;; relies on docbook2X, which itself relies on ;; relies on docbook2X, which itself relies on
;; DocBook 4.1.2, which is not really usable ;; DocBook 4.1.2, which is not really usable
;; (lacks a catalog.xml.) ;; (lacks a catalog.xml.)
(zero? (system* "make" (invoke "make"
"doc-html" "doc-html"
"doc-man")))) "doc-man")))
(replace 'install (replace 'install
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out"))) (let ((out (assoc-ref outputs "out")))
(zero? (system* "make" (invoke "make"
"doc-install-html" "doc-install-html"
"doc-install-man")))))))))) "doc-install-man")))))))))
(define-public libstdc++-doc-4.9 (define-public libstdc++-doc-4.9
(make-libstdc++-doc gcc-4.9)) (make-libstdc++-doc gcc-4.9))