ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-11-07 23:46:13 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: wine64: Copy missing man file.

Browse source 
* gnu/packages/wine.scm (wine64)[arguments]: Copy missing man file from "wine"
input. Clarify 'copy-wine32-files phase with comments.
[synopsis]: Use proper "WoW64" term.
This commit is contained in:
Rutger Helling 2018-01-02 11:33:16 +01:00
parent 95c45e5349
commit 68e4921130
No known key found for this signature in database
GPG key ID: F3A727DB44FCCA36
1 changed files with 8 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
gnu/packages/wine.scm
View file

@ -175,6 +175,7 @@ (define-public wine64
(modify-phases %standard-phases (modify-phases %standard-phases
(add-after 'install 'copy-wine32-files (add-after 'install 'copy-wine32-files
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key outputs #:allow-other-keys)
;; Copy the 32-bit binaries needed for WoW64.
(copy-file (string-append (assoc-ref %build-inputs "wine") (copy-file (string-append (assoc-ref %build-inputs "wine")
"/bin/wine") (string-append (assoc-ref "/bin/wine") (string-append (assoc-ref
%outputs "out") "/bin/wine")) %outputs "out") "/bin/wine"))
@ -182,6 +183,12 @@ (define-public wine64
"/bin/wine-preloader") (string-append "/bin/wine-preloader") (string-append
(assoc-ref %outputs "out") (assoc-ref %outputs "out")
"/bin/wine-preloader")) "/bin/wine-preloader"))
;; Copy the missing man file for the wine binary from wine.
(system (string-append "gunzip < " (string-append (assoc-ref
%build-inputs "wine")
"/share/man/man1/wine.1.gz") "> "
(string-append (assoc-ref %outputs "out")
"/share/man/man1/wine.1")))
#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.
@ -200,7 +207,7 @@ (define-public wine64
,@(strip-keyword-arguments '(#:configure-flags #:make-flags #:phases ,@(strip-keyword-arguments '(#:configure-flags #:make-flags #:phases
#:system) #:system)
(package-arguments wine)))) (package-arguments wine))))
(synopsis "Implementation of the Windows API (WOW64 version)") (synopsis "Implementation of the Windows API (WoW64 version)")
(supported-systems '("x86_64-linux" "aarch64-linux")))) (supported-systems '("x86_64-linux" "aarch64-linux"))))
;; TODO: This is wine development version, provided for historical reasons. ;; TODO: This is wine development version, provided for historical reasons.