TakeV/guix
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

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