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

61
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,36 +1436,36 @@ provides the GNU compiler for the Go programming language."))
(inputs '()) (inputs '())
(propagated-inputs '()) (propagated-inputs '())
(arguments (arguments
'(#:out-of-source? #t (list
#:tests? #f ;it's just documentation #:out-of-source? #t
#:phases (modify-phases %standard-phases #:tests? #f ;it's just documentation
(add-before 'configure 'chdir #:phases
(lambda _ #~(modify-phases %standard-phases
(chdir "libstdc++-v3"))) (add-before 'configure 'chdir
(add-before 'configure 'set-xsl-directory (lambda _
(lambda* (#:key inputs #:allow-other-keys) (chdir "libstdc++-v3")))
(let ((docbook (assoc-ref inputs "docbook-xsl"))) (add-before 'configure 'set-xsl-directory
(substitute* (find-files "doc" (lambda _
"^Makefile\\.in$") (substitute* (find-files "doc"
(("@XSL_STYLE_DIR@") "^Makefile\\.in$")
(string-append (("@XSL_STYLE_DIR@")
docbook "/xml/xsl/" (string-append #$(this-package-native-input "docbook-xsl")
(strip-store-file-name docbook))))))) "/xml/xsl/"
(replace 'build (strip-store-file-name docbook))))))
(lambda _ (replace 'build
;; XXX: There's also a 'doc-info' target, but it (lambda _
;; relies on docbook2X, which itself relies on ;; XXX: There's also a 'doc-info' target, but it
;; DocBook 4.1.2, which is not really usable ;; relies on docbook2X, which itself relies on
;; (lacks a catalog.xml.) ;; DocBook 4.1.2, which is not really usable
(invoke "make" ;; (lacks a catalog.xml.)
"doc-html" (invoke "make"
"doc-man"))) "doc-html"
(replace 'install "doc-man")))
(lambda* (#:key outputs #:allow-other-keys) (replace 'install
(let ((out (assoc-ref outputs "out"))) (lambda _
(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