me
/
guix
Archived
1
0
Fork 0
Code

gnu: wine64-staging: Fix arguments. 

* gnu/packages/wine.scm (wine64-staging)[arguments]: Use new
'copy-wine32-binaries and 'copy-wine32-manpage phases instead of
'copy-wine32-files phase.
master
Rutger Helling 2018-01-03 10:38:07 +01:00
parent 036f35772c
commit e6b94a0247
No known key found for this signature in database
GPG Key ID: F3A727DB44FCCA36
1 changed files with 18 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
gnu/packages/wine.scm
View File

@ -269,23 +269,25 @@ integrated into the main branch.")
(string-append "libdir=" %output "/lib/wine64")) (string-append "libdir=" %output "/lib/wine64"))
#:phases #:phases
(modify-phases %standard-phases (modify-phases %standard-phases
(add-after 'install 'copy-wine32-files (add-after 'install 'copy-wine32-binaries
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key outputs #:allow-other-keys)
(let* ((wine32 (assoc-ref %build-inputs "wine"))
(out (assoc-ref %outputs "out")))
;; Copy the 32-bit binaries needed for WoW64. ;; Copy the 32-bit binaries needed for WoW64.
(copy-file (string-append (assoc-ref %build-inputs "wine-staging") (copy-file (string-append wine32 "/bin/wine")
"/bin/wine") (string-append (assoc-ref (string-append out "/bin/wine"))
%outputs "out") "/bin/wine")) (copy-file (string-append wine32 "/bin/wine-preloader")
(copy-file (string-append (assoc-ref %build-inputs "wine-staging") (string-append out "/bin/wine-preloader"))
"/bin/wine-preloader") (string-append #t)))
(assoc-ref %outputs "out") (add-after 'compress-documentation 'copy-wine32-manpage
"/bin/wine-preloader")) (lambda* (#:key outputs #:allow-other-keys)
;; Copy the missing man file for the wine binary from wine-staging. (let* ((wine32 (assoc-ref %build-inputs "wine"))
(system (string-append "gunzip < " (string-append (assoc-ref (out (assoc-ref %outputs "out")))
%build-inputs "wine-staging") ;; Copy the missing man file for the wine binary from
"/share/man/man1/wine.1.gz") "> " ;; wine-staging.
(string-append (assoc-ref %outputs "out") (copy-file (string-append wine32 "/share/man/man1/wine.1.gz")
"/share/man/man1/wine.1"))) (string-append out "/share/man/man1/wine.1.gz"))
#t)) #t)))
(add-after 'configure 'patch-dlopen-paths (add-after 'configure 'patch-dlopen-paths
;; Hardcode dlopened sonames to absolute paths. ;; Hardcode dlopened sonames to absolute paths.
(lambda _ (lambda _