me/guix
Archived
1
0
Fork 0
Code Activity

gnu: mingw-w64-tools: Use G-Expressions.

Browse source 
* gnu/packages/mingw.scm (mingw-w64-tools): Use G-Expressions.

Change-Id: I690d0aeae6c6920d2e3eb43732d6b421a3dfc59b
Signed-off-by: Christopher Baines <mail@cbaines.net>
This commit is contained in:
Jean-Pierre De Jesus DIAZ 2024-06-18 13:26:16 +02:00 • committed by Christopher Baines
parent 17188be0f7
commit 21bf76c563
No known key found for this signature in database
GPG key ID: 5E28A33B0B84F577
1 changed files with 37 additions and 37 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

74
gnu/packages/mingw.scm
View file

@ -162,45 +162,45 @@ several new APIs such as DirectX and DDK, and 64-bit support.")
(base32 "047f4m37kxf7g8qj23qplrzfd9cirfkkv8d175sfv2zfd7hbqriz")))) (base32 "047f4m37kxf7g8qj23qplrzfd9cirfkkv8d175sfv2zfd7hbqriz"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
`(#:modules ((guix build gnu-build-system) (list
#:modules '((guix build gnu-build-system)
(guix build utils) (guix build utils)
(srfi srfi-1)) (srfi srfi-1))
#:phases #:phases
(append #~(append
(modify-phases %standard-phases (modify-phases %standard-phases
(add-after 'unpack 'cd-gendef (add-after 'unpack 'cd-gendef
(lambda _ (lambda _
(chdir "mingw-w64-tools/gendef")))) (chdir "mingw-w64-tools/gendef"))))
(modify-phases %standard-phases (modify-phases %standard-phases
(replace 'unpack (replace 'unpack
(lambda _ (lambda _
(chdir "../genidl")))) (chdir "../genidl"))))
(modify-phases %standard-phases (modify-phases %standard-phases
(replace 'unpack (replace 'unpack
(lambda _ (lambda _
(chdir "../genlib")))) (chdir "../genlib"))))
(modify-phases %standard-phases (modify-phases %standard-phases
(replace 'unpack (replace 'unpack
(lambda _ (lambda _
(chdir "../genpeimg")))) (chdir "../genpeimg"))))
(append-map (append-map
(lambda (target) (lambda (target)
(modify-phases %standard-phases (modify-phases %standard-phases
(replace 'unpack (replace 'unpack
(lambda _ (lambda _
(chdir "../widl") (chdir "../widl")
(false-if-exception (false-if-exception
(delete-file-recursively "../build")) (delete-file-recursively "../build"))))
#t)) (replace 'configure
(replace 'configure (lambda args
(lambda args (apply (assoc-ref %standard-phases 'configure)
(apply (assoc-ref %standard-phases 'configure) (append args (list #:out-of-source? #t
(append args (list #:out-of-source? #t #:configure-flags
#:configure-flags `("--target" ,target
`("--target" ,target "--program-prefix"
"--program-prefix" ,(string-append target "-")))))))))
,(string-append target "-"))))))))) '("i686-w64-mingw32" "x86_64-w64-mingw32")))))
'("i686-w64-mingw32" "x86_64-w64-mingw32")))))
(home-page "https://mingw-w64.org") (home-page "https://mingw-w64.org")
(synopsis "Tools of Minimalist GNU for Windows") (synopsis "Tools of Minimalist GNU for Windows")
(description "This package provides the tools of Minimalist GNU for (description "This package provides the tools of Minimalist GNU for