futurile/guix-play
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

gnu: libstdc++-doc: Rewrite with G-Expressions.

Browse Source 
* gnu/packages/gcc.scm (make-libstdc++-doc): Rewrite arguments with
G-Expressions.

Signed-off-by: Maxim Cournoyer <maxim.cournoyer@gmail.com>
Change-Id: Idc8da964b7d777e0459c731625296ccd96546fa7
This commit is contained in:
Bruno Victal 2023-10-09 21:06:45 +01:00 committed by Ludovic Courtès
parent af765e47ae
commit f99112099d
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 31 additions and 30 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

61
gnu/packages/gcc.scm
View File

@ -14,6 +14,7 @@
;;; Copyright © 2021 Sarah Morgensen <iskarian@mgsn.dev>
;;; Copyright © 2022 Greg Hogan <code@greghogan.com>
;;; Copyright © 2024 Zheng Junjie <873216071@qq.com>
;;; Copyright © 2023 Bruno Victal <mirai@makinata.eu>
;;; Copyright © 2023 Maxim Cournoyer <maxim.cournoyer@gmail.com>
;;;
;;; This file is part of GNU Guix.
@ -1435,36 +1436,36 @@ provides the GNU compiler for the Go programming language."))
(inputs '())
(propagated-inputs '())
(arguments
'(#:out-of-source? #t
#:tests? #f ;it's just documentation
#:phases (modify-phases %standard-phases
(add-before 'configure 'chdir
(lambda _
(chdir "libstdc++-v3")))
(add-before 'configure 'set-xsl-directory
(lambda* (#:key inputs #:allow-other-keys)
(let ((docbook (assoc-ref inputs "docbook-xsl")))
(substitute* (find-files "doc"
"^Makefile\\.in$")
(("@XSL_STYLE_DIR@")
(string-append
docbook "/xml/xsl/"
(strip-store-file-name docbook)))))))
(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.)
(invoke "make"
"doc-html"
"doc-man")))
(replace 'install
(lambda* (#:key outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out")))
(invoke "make"
"doc-install-html"
"doc-install-man")))))))
(list
#:out-of-source? #t
#:tests? #f ;it's just documentation
#:phases
#~(modify-phases %standard-phases
(add-before 'configure 'chdir
(lambda _
(chdir "libstdc++-v3")))
(add-before 'configure 'set-xsl-directory
(lambda _
(substitute* (find-files "doc"
"^Makefile\\.in$")
(("@XSL_STYLE_DIR@")
(string-append #$(this-package-native-input "docbook-xsl")
"/xml/xsl/"
(strip-store-file-name docbook))))))
(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.)
(invoke "make"
"doc-html"
"doc-man")))
(replace 'install
(lambda _
(invoke "make"
"doc-install-html"
"doc-install-man"))))))
(properties (alist-delete 'hidden? (package-properties gcc)))))
(define-public libstdc++-doc-5