amaharaneko/guix-mirrors
1
1
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2025-10-02 02:15:12 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

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
Download patch file Download diff file Expand all files Collapse all files

21
gnu/packages/gcc.scm
View file

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