[jackhill/guix/guix.git] / gnu / packages / wine.scm

;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2014, 2015 Sou Bunnbu <iyzsong@gmail.com>
;;; Copyright © 2016 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2016, 2017 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2017, 2018 Rutger Helling <rhelling@mykolab.com>
;;; Copyright © 2017 Nicolas Goaziou <mail@nicolasgoaziou.fr>
;;;
;;; This file is part of GNU Guix.
;;;
;;; GNU Guix is free software; you can redistribute it and/or modify it
;;; under the terms of the GNU General Public License as published by
;;; the Free Software Foundation; either version 3 of the License, or (at
;;; your option) any later version.
;;;
;;; GNU Guix is distributed in the hope that it will be useful, but
;;; WITHOUT ANY WARRANTY; without even the implied warranty of
;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;;; GNU General Public License for more details.
;;;
;;; You should have received a copy of the GNU General Public License
;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.

(define-module (gnu packages wine)
  #:use-module ((guix licenses) #:prefix license:)
  #:use-module (guix packages)
  #:use-module (guix download)
  #:use-module (guix utils)
  #:use-module (guix build-system gnu)
  #:use-module (gnu packages)
  #:use-module (gnu packages admin)
  #:use-module (gnu packages audio)
  #:use-module (gnu packages bison)
  #:use-module (gnu packages compression)
  #:use-module (gnu packages cups)
  #:use-module (gnu packages databases)
  #:use-module (gnu packages fontutils)
  #:use-module (gnu packages flex)
  #:use-module (gnu packages image)
  #:use-module (gnu packages gettext)
  #:use-module (gnu packages ghostscript)
  #:use-module (gnu packages gl)
  #:use-module (gnu packages glib)
  #:use-module (gnu packages gstreamer)
  #:use-module (gnu packages gtk)
  #:use-module (gnu packages linux)
  #:use-module (gnu packages openldap)
  #:use-module (gnu packages perl)
  #:use-module (gnu packages pulseaudio)
  #:use-module (gnu packages pkg-config)
  #:use-module (gnu packages mp3)
  #:use-module (gnu packages ncurses)
  #:use-module (gnu packages photo)
  #:use-module (gnu packages samba)
  #:use-module (gnu packages scanner)
  #:use-module (gnu packages tls)
  #:use-module (gnu packages video)
  #:use-module (gnu packages xml)
  #:use-module (gnu packages xorg)
  #:use-module (ice-9 match))

(define-public wine
  (package
    (name "wine")
    (version "2.0.4")
    (source (origin
              (method url-fetch)
              (uri (string-append "https://dl.winehq.org/wine/source/2.0"
                                  "/wine-" version ".tar.xz"))
              (sha256
               (base32
                "0nlq6apyq7hq36l3g6gw76lhi8ijz11v3v8m4vxy8d6x1qsppq5m"))))
    (build-system gnu-build-system)
    (native-inputs `(("pkg-config" ,pkg-config)
                     ("gettext" ,gettext-minimal)
                     ("flex" ,flex)
                     ("bison" ,bison)
                     ("perl" ,perl)))
    (inputs
     `(("alsa-lib" ,alsa-lib)
       ("dbus" ,dbus)
       ("cups" ,cups)
       ("eudev" ,eudev)
       ("fontconfig" ,fontconfig)
       ("freetype" ,freetype)
       ("glu" ,glu)
       ("gnutls" ,gnutls)
       ("gst-plugins-base" ,gst-plugins-base)
       ("lcms" ,lcms)
       ("libxml2" ,libxml2)
       ("libxslt" ,libxslt)
       ("libgphoto2" ,libgphoto2)
       ("libmpg123" ,mpg123)
       ("libldap" ,openldap)
       ("libnetapi" ,samba)
       ("libsane" ,sane-backends)
       ("libpcap" ,libpcap)
       ("libpng" ,libpng)
       ("libjpeg" ,libjpeg)
       ("libtiff" ,libtiff)
       ("libICE" ,libice)
       ("libX11" ,libx11)
       ("libXi" ,libxi)
       ("libXext" ,libxext)
       ("libXcursor" ,libxcursor)
       ("libXrender" ,libxrender)
       ("libXrandr" ,libxrandr)
       ("libXinerama" ,libxinerama)
       ("libXxf86vm" ,libxxf86vm)
       ("libXcomposite" ,libxcomposite)
       ("ncurses" ,ncurses)
       ("openal" ,openal)
       ("pulseaudio" ,pulseaudio)
       ("unixodbc" ,unixodbc)
       ("v4l-utils" ,v4l-utils)
       ("zlib" ,zlib)))
    (arguments
     `(;; Force a 32-bit build targeting a similar architecture, i.e.:
       ;; armhf for armhf/aarch64, i686 for i686/x86_64.
       #:system ,@(match (%current-system)
                    ((or "armhf-linux" "aarch64-linux")
                     `("armhf-linux"))
                    (_
                     `("i686-linux")))

       ;; XXX: There's a test suite, but it's unclear whether it's supposed to
       ;; pass.
       #:tests? #f

       #:configure-flags
       (list (string-append "LDFLAGS=-Wl,-rpath=" %output "/lib/wine32"))

       #:make-flags
       (list "SHELL=bash"
             (string-append "libdir=" %output "/lib/wine32"))

       #:phases
       (modify-phases %standard-phases
         (add-after 'configure 'patch-dlopen-paths
           ;; Hardcode dlopened sonames to absolute paths.
           (lambda _
             (let* ((library-path (search-path-as-string->list
                                   (getenv "LIBRARY_PATH")))
                    (find-so (lambda (soname)
                               (search-path library-path soname))))
               (substitute* "include/config.h"
                 (("(#define SONAME_.* )\"(.*)\"" _ defso soname)
                  (format #f "~a\"~a\"" defso (find-so soname))))
               #t))))))
    (home-page "https://www.winehq.org/")
    (synopsis "Implementation of the Windows API (32-bit only)")
    (description
     "Wine (originally an acronym for \"Wine Is Not an Emulator\") is a
compatibility layer capable of running Windows applications.  Instead of
simulating internal Windows logic like a virtual machine or emulator, Wine
translates Windows API calls into POSIX calls on-the-fly, eliminating the
performance and memory penalties of other methods and allowing you to cleanly
integrate Windows applications into your desktop.")
    (license license:lgpl2.1+)

    ;; It really only supports IA32, but building on x86_64 will have the same
    ;; effect as building on i686 anyway.
    (supported-systems (delete "mips64el-linux" %supported-systems))))

(define-public wine64
  (package
    (inherit wine)
    (name "wine64")
    (inputs `(("wine" ,wine)
              ,@(package-inputs wine)))
    (arguments
     `(#:make-flags
       (list "SHELL=bash"
             (string-append "libdir=" %output "/lib/wine64"))
       #:phases
       (modify-phases %standard-phases
         (add-after 'install 'copy-wine32-binaries
           (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-file (string-append wine32 "/bin/wine")
                          (string-append out "/bin/wine"))
               (copy-file (string-append wine32 "/bin/wine-preloader")
                          (string-append out "/bin/wine-preloader"))
               #t)))
         (add-after 'compress-documentation 'copy-wine32-manpage
           (lambda* (#:key outputs #:allow-other-keys)
             (let* ((wine32 (assoc-ref %build-inputs "wine"))
                    (out (assoc-ref %outputs "out")))
               ;; Copy the missing man file for the wine binary from wine.
               (copy-file (string-append wine32 "/share/man/man1/wine.1.gz")
                          (string-append out "/share/man/man1/wine.1.gz"))
               #t)))
         (add-after 'configure 'patch-dlopen-paths
           ;; Hardcode dlopened sonames to absolute paths.
           (lambda _
             (let* ((library-path (search-path-as-string->list
                                   (getenv "LIBRARY_PATH")))
                    (find-so (lambda (soname)
                               (search-path library-path soname))))
               (substitute* "include/config.h"
                 (("(#define SONAME_.* )\"(.*)\"" _ defso soname)
                  (format #f "~a\"~a\"" defso (find-so soname))))
               #t))))
       #:configure-flags
       (list "--enable-win64"
             (string-append "LDFLAGS=-Wl,-rpath=" %output "/lib/wine64"))
       ,@(strip-keyword-arguments '(#:configure-flags #:make-flags #:phases
                                    #:system)
                                  (package-arguments wine))))
    (synopsis "Implementation of the Windows API (WoW64 version)")
    (supported-systems '("x86_64-linux" "aarch64-linux"))))

;; TODO: This is wine development version, provided for historical reasons.
;; We can remove it as soon as a new stable release is out.
(define-public wine-next
  (package (inherit wine)
    (name "wine-next")
    (version "2.11")
    (source (origin
              (method url-fetch)
              (uri (string-append "https://dl.winehq.org/wine/source/2.x"
                                  "/wine-" version ".tar.xz"))
              (sha256
               (base32
                "0g6cwjyqwc660w33453aklh3hpc0b8rrb88dryn23ah6wannvagg"))))))

(define-public wine-staging
  (package
    (inherit wine)
    (name "wine-staging")
    (version "2.21")
    (source (origin
              (method url-fetch)
              (uri (string-append
                    "https://github.com/wine-compholio/wine-patched/archive/"
                    "staging-" version ".tar.gz"))
              (file-name (string-append name "-" version ".tar.gz"))
              (sha256
               (base32
                "1pjaxj7h3q6y356np908fvsx0bf7yx5crqvgl4hza6gfssdmsr5r"))))
    (inputs `(("gtk+", gtk+)
              ("libva", libva)
              ,@(package-inputs wine)))
    (synopsis "Implementation of the Windows API (staging branch, 32-bit only)")
    (description "Wine-Staging is the testing area of Wine.  It
contains bug fixes and features, which have not been integrated into
the development branch yet.  The idea of Wine-Staging is to provide
experimental features faster to end users and to give developers the
possibility to discuss and improve their patches before they are
integrated into the main branch.")
    (home-page "https://wine-staging.com")
    ;; In addition to the regular Wine license (lgpl2.1+), Wine-Staging
    ;; provides Liberation and WenQuanYi Micro Hei fonts.  Those use
    ;; different licenses.  In particular, the latter is licensed under
    ;; both GPL3+ and Apache 2 License.
    (license
     (list license:lgpl2.1+ license:silofl1.1 license:gpl3+ license:asl2.0))))

(define-public wine64-staging
  (package
    (inherit wine-staging)
    (name "wine64-staging")
    (inputs `(("wine-staging" ,wine-staging)
              ,@(package-inputs wine-staging)))
    (arguments
     `(#:make-flags
       (list "SHELL=bash"
             (string-append "libdir=" %output "/lib/wine64"))
       #:phases
       (modify-phases %standard-phases
         (add-after 'install 'copy-wine32-files
           (lambda* (#:key outputs #:allow-other-keys)
             ;; Copy the 32-bit binaries needed for WoW64.
             (copy-file (string-append (assoc-ref %build-inputs "wine-staging")
                                       "/bin/wine") (string-append (assoc-ref
                                       %outputs "out") "/bin/wine"))
             (copy-file (string-append (assoc-ref %build-inputs "wine-staging")
                                       "/bin/wine-preloader") (string-append
                                       (assoc-ref %outputs "out")
                                       "/bin/wine-preloader"))
             ;; Copy the missing man file for the wine binary from wine-staging.
             (system (string-append "gunzip < " (string-append (assoc-ref
                                    %build-inputs "wine-staging")
                                    "/share/man/man1/wine.1.gz") "> "
                                    (string-append (assoc-ref %outputs "out")
                                    "/share/man/man1/wine.1")))
             #t))
         (add-after 'configure 'patch-dlopen-paths
           ;; Hardcode dlopened sonames to absolute paths.
           (lambda _
             (let* ((library-path (search-path-as-string->list
                                   (getenv "LIBRARY_PATH")))
                    (find-so (lambda (soname)
                               (search-path library-path soname))))
               (substitute* "include/config.h"
                 (("(#define SONAME_.* )\"(.*)\"" _ defso soname)
                  (format #f "~a\"~a\"" defso (find-so soname))))
               #t))))
       #:configure-flags
       (list "--enable-win64"
             (string-append "LDFLAGS=-Wl,-rpath=" %output "/lib/wine64"))
       ,@(strip-keyword-arguments '(#:configure-flags #:make-flags #:phases
                                    #:system)
                                  (package-arguments wine-staging))))
    (synopsis "Implementation of the Windows API (staging branch, WoW64
version)")
    (supported-systems '("x86_64-linux" "aarch64-linux"))))
Commit	Line	Data
8f9580ca	1	;;; GNU Guix --- Functional package management for GNU
d43ba6f8	2	;;; Copyright © 2014, 2015 Sou Bunnbu <iyzsong@gmail.com>
eeabe5a1	3	;;; Copyright © 2016 Ricardo Wurmus <rekado@elephly.net>
44cba47e	4	;;; Copyright © 2016, 2017 Efraim Flashner <efraim@flashner.co.il>
06e57331	5	;;; Copyright © 2017, 2018 Rutger Helling <rhelling@mykolab.com>
51f01907	6	;;; Copyright © 2017 Nicolas Goaziou <mail@nicolasgoaziou.fr>
8f9580ca SB	7	;;;
	8	;;; This file is part of GNU Guix.
	9	;;;
	10	;;; GNU Guix is free software; you can redistribute it and/or modify it
	11	;;; under the terms of the GNU General Public License as published by
	12	;;; the Free Software Foundation; either version 3 of the License, or (at
	13	;;; your option) any later version.
	14	;;;
	15	;;; GNU Guix is distributed in the hope that it will be useful, but
	16	;;; WITHOUT ANY WARRANTY; without even the implied warranty of
	17	;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
	18	;;; GNU General Public License for more details.
	19	;;;
	20	;;; You should have received a copy of the GNU General Public License
	21	;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
	22
	23	(define-module (gnu packages wine)
	24	#:use-module ((guix licenses) #:prefix license:)
	25	#:use-module (guix packages)
	26	#:use-module (guix download)
eeabe5a1	27	#:use-module (guix utils)
8f9580ca SB	28	#:use-module (guix build-system gnu)
8f9580ca SB	29	#:use-module (gnu packages)
1aa6582e	30	#:use-module (gnu packages admin)
025cc9a1	31	#:use-module (gnu packages audio)
8f9580ca SB	32	#:use-module (gnu packages bison)
8f9580ca SB	33	#:use-module (gnu packages compression)
025cc9a1	34	#:use-module (gnu packages cups)
8f9580ca SB	35	#:use-module (gnu packages databases)
	36	#:use-module (gnu packages fontutils)
	37	#:use-module (gnu packages flex)
	38	#:use-module (gnu packages image)
	39	#:use-module (gnu packages gettext)
	40	#:use-module (gnu packages ghostscript)
	41	#:use-module (gnu packages gl)
	42	#:use-module (gnu packages glib)
1aa6582e	43	#:use-module (gnu packages gstreamer)
141708ed	44	#:use-module (gnu packages gtk)
8f9580ca SB	45	#:use-module (gnu packages linux)
	46	#:use-module (gnu packages openldap)
	47	#:use-module (gnu packages perl)
05740895	48	#:use-module (gnu packages pulseaudio)
8f9580ca SB	49	#:use-module (gnu packages pkg-config)
	50	#:use-module (gnu packages mp3)
	51	#:use-module (gnu packages ncurses)
	52	#:use-module (gnu packages photo)
	53	#:use-module (gnu packages samba)
	54	#:use-module (gnu packages scanner)
a7fd7b68	55	#:use-module (gnu packages tls)
1aa6582e	56	#:use-module (gnu packages video)
8f9580ca	57	#:use-module (gnu packages xml)
b4a330ac EF	58	#:use-module (gnu packages xorg)
b4a330ac EF	59	#:use-module (ice-9 match))
8f9580ca SB	60
	61	(define-public wine
	62	(package
	63	(name "wine")
3ee6315d	64	(version "2.0.4")
8f9580ca SB	65	(source (origin
8f9580ca SB	66	(method url-fetch)
f6444059	67	(uri (string-append "https://dl.winehq.org/wine/source/2.0"
5a717a95	68	"/wine-" version ".tar.xz"))
8f9580ca SB	69	(sha256
8f9580ca SB	70	(base32
3ee6315d	71	"0nlq6apyq7hq36l3g6gw76lhi8ijz11v3v8m4vxy8d6x1qsppq5m"))))
8f9580ca SB	72	(build-system gnu-build-system)
8f9580ca SB	73	(native-inputs `(("pkg-config" ,pkg-config)
b94a6ca0	74	("gettext" ,gettext-minimal)
5e54f4ad	75	("flex" ,flex)
8f9580ca SB	76	("bison" ,bison)
	77	("perl" ,perl)))
	78	(inputs
	79	`(("alsa-lib" ,alsa-lib)
	80	("dbus" ,dbus)
025cc9a1	81	("cups" ,cups)
1aa6582e	82	("eudev" ,eudev)
8f9580ca SB	83	("fontconfig" ,fontconfig)
8f9580ca SB	84	("freetype" ,freetype)
025cc9a1	85	("glu" ,glu)
8f9580ca	86	("gnutls" ,gnutls)
1aa6582e	87	("gst-plugins-base" ,gst-plugins-base)
8f9580ca SB	88	("lcms" ,lcms)
	89	("libxml2" ,libxml2)
	90	("libxslt" ,libxslt)
	91	("libgphoto2" ,libgphoto2)
	92	("libmpg123" ,mpg123)
	93	("libldap" ,openldap)
	94	("libnetapi" ,samba)
4c928743	95	("libsane" ,sane-backends)
1aa6582e	96	("libpcap" ,libpcap)
8f9580ca SB	97	("libpng" ,libpng)
	98	("libjpeg" ,libjpeg)
	99	("libtiff" ,libtiff)
	100	("libICE" ,libice)
	101	("libX11" ,libx11)
	102	("libXi" ,libxi)
	103	("libXext" ,libxext)
	104	("libXcursor" ,libxcursor)
	105	("libXrender" ,libxrender)
	106	("libXrandr" ,libxrandr)
	107	("libXinerama" ,libxinerama)
	108	("libXxf86vm" ,libxxf86vm)
	109	("libXcomposite" ,libxcomposite)
8f9580ca	110	("ncurses" ,ncurses)
025cc9a1	111	("openal" ,openal)
05740895	112	("pulseaudio" ,pulseaudio)
8f9580ca	113	("unixodbc" ,unixodbc)
1aa6582e	114	("v4l-utils" ,v4l-utils)
8f9580ca SB	115	("zlib" ,zlib)))
8f9580ca SB	116	(arguments
b4a330ac EF	117	`(;; Force a 32-bit build targeting a similar architecture, i.e.:
	118	;; armhf for armhf/aarch64, i686 for i686/x86_64.
	119	#:system ,@(match (%current-system)
	120	((or "armhf-linux" "aarch64-linux")
	121	`("armhf-linux"))
	122	(_
	123	`("i686-linux")))
8f9580ca SB	124
	125	;; XXX: There's a test suite, but it's unclear whether it's supposed to
	126	;; pass.
	127	#:tests? #f
	128
6c0dfb19	129	#:configure-flags
5cead945	130	(list (string-append "LDFLAGS=-Wl,-rpath=" %output "/lib/wine32"))
6c0dfb19	131
eeabe5a1	132	#:make-flags
5cead945 RH	133	(list "SHELL=bash"
5cead945 RH	134	(string-append "libdir=" %output "/lib/wine32"))
eeabe5a1	135
8f9580ca	136	#:phases
07cda02c EF	137	(modify-phases %standard-phases
	138	(add-after 'configure 'patch-dlopen-paths
	139	;; Hardcode dlopened sonames to absolute paths.
	140	(lambda _
	141	(let* ((library-path (search-path-as-string->list
	142	(getenv "LIBRARY_PATH")))
	143	(find-so (lambda (soname)
	144	(search-path library-path soname))))
	145	(substitute* "include/config.h"
	146	(("(#define SONAME_.* )\"(.*)\"" _ defso soname)
	147	(format #f "~a\"~a\"" defso (find-so soname))))
	148	#t))))))
658c987f	149	(home-page "https://www.winehq.org/")
06e57331	150	(synopsis "Implementation of the Windows API (32-bit only)")
8f9580ca SB	151	(description
	152	"Wine (originally an acronym for \"Wine Is Not an Emulator\") is a
	153	compatibility layer capable of running Windows applications. Instead of
	154	simulating internal Windows logic like a virtual machine or emulator, Wine
	155	translates Windows API calls into POSIX calls on-the-fly, eliminating the
	156	performance and memory penalties of other methods and allowing you to cleanly
	157	integrate Windows applications into your desktop.")
	158	(license license:lgpl2.1+)
	159
	160	;; It really only supports IA32, but building on x86_64 will have the same
	161	;; effect as building on i686 anyway.
b4a330ac	162	(supported-systems (delete "mips64el-linux" %supported-systems))))
b3ebd241 RH	163
	164	(define-public wine64
	165	(package
	166	(inherit wine)
	167	(name "wine64")
58cbcb02 RH	168	(inputs `(("wine" ,wine)
58cbcb02 RH	169	,@(package-inputs wine)))
b3ebd241	170	(arguments
e02693a3 RH	171	`(#:make-flags
e02693a3 RH	172	(list "SHELL=bash"
58cbcb02 RH	173	(string-append "libdir=" %output "/lib/wine64"))
	174	#:phases
	175	(modify-phases %standard-phases
036f3577	176	(add-after 'install 'copy-wine32-binaries
58cbcb02	177	(lambda* (#:key outputs #:allow-other-keys)
036f3577 RH	178	(let* ((wine32 (assoc-ref %build-inputs "wine"))
	179	(out (assoc-ref %outputs "out")))
	180	;; Copy the 32-bit binaries needed for WoW64.
	181	(copy-file (string-append wine32 "/bin/wine")
	182	(string-append out "/bin/wine"))
	183	(copy-file (string-append wine32 "/bin/wine-preloader")
	184	(string-append out "/bin/wine-preloader"))
	185	#t)))
	186	(add-after 'compress-documentation 'copy-wine32-manpage
	187	(lambda* (#:key outputs #:allow-other-keys)
	188	(let* ((wine32 (assoc-ref %build-inputs "wine"))
	189	(out (assoc-ref %outputs "out")))
	190	;; Copy the missing man file for the wine binary from wine.
	191	(copy-file (string-append wine32 "/share/man/man1/wine.1.gz")
	192	(string-append out "/share/man/man1/wine.1.gz"))
	193	#t)))
58cbcb02 RH	194	(add-after 'configure 'patch-dlopen-paths
	195	;; Hardcode dlopened sonames to absolute paths.
	196	(lambda _
	197	(let* ((library-path (search-path-as-string->list
	198	(getenv "LIBRARY_PATH")))
	199	(find-so (lambda (soname)
	200	(search-path library-path soname))))
	201	(substitute* "include/config.h"
	202	(("(#define SONAME_.* )\"(.*)\"" _ defso soname)
	203	(format #f "~a\"~a\"" defso (find-so soname))))
	204	#t))))
e02693a3	205	#:configure-flags
b3ebd241	206	(list "--enable-win64"
58cbcb02 RH	207	(string-append "LDFLAGS=-Wl,-rpath=" %output "/lib/wine64"))
	208	,@(strip-keyword-arguments '(#:configure-flags #:make-flags #:phases
	209	#:system)
b3ebd241	210	(package-arguments wine))))
68e49211	211	(synopsis "Implementation of the Windows API (WoW64 version)")
5010d0e3	212	(supported-systems '("x86_64-linux" "aarch64-linux"))))
f6444059 NG	213
	214	;; TODO: This is wine development version, provided for historical reasons.
	215	;; We can remove it as soon as a new stable release is out.
	216	(define-public wine-next
	217	(package (inherit wine)
	218	(name "wine-next")
	219	(version "2.11")
	220	(source (origin
	221	(method url-fetch)
	222	(uri (string-append "https://dl.winehq.org/wine/source/2.x"
	223	"/wine-" version ".tar.xz"))
	224	(sha256
	225	(base32
	226	"0g6cwjyqwc660w33453aklh3hpc0b8rrb88dryn23ah6wannvagg"))))))
	227
7866d8c8 NG	228	(define-public wine-staging
	229	(package
	230	(inherit wine)
	231	(name "wine-staging")
	232	(version "2.21")
	233	(source (origin
	234	(method url-fetch)
	235	(uri (string-append
	236	"https://github.com/wine-compholio/wine-patched/archive/"
	237	"staging-" version ".tar.gz"))
	238	(file-name (string-append name "-" version ".tar.gz"))
	239	(sha256
	240	(base32
	241	"1pjaxj7h3q6y356np908fvsx0bf7yx5crqvgl4hza6gfssdmsr5r"))))
141708ed RH	242	(inputs `(("gtk+", gtk+)
	243	("libva", libva)
	244	,@(package-inputs wine)))
95c45e53	245	(synopsis "Implementation of the Windows API (staging branch, 32-bit only)")
7866d8c8 NG	246	(description "Wine-Staging is the testing area of Wine. It
	247	contains bug fixes and features, which have not been integrated into
	248	the development branch yet. The idea of Wine-Staging is to provide
	249	experimental features faster to end users and to give developers the
	250	possibility to discuss and improve their patches before they are
	251	integrated into the main branch.")
	252	(home-page "https://wine-staging.com")
	253	;; In addition to the regular Wine license (lgpl2.1+), Wine-Staging
	254	;; provides Liberation and WenQuanYi Micro Hei fonts. Those use
	255	;; different licenses. In particular, the latter is licensed under
	256	;; both GPL3+ and Apache 2 License.
	257	(license
	258	(list license:lgpl2.1+ license:silofl1.1 license:gpl3+ license:asl2.0))))
6cd46747 RH	259
	260	(define-public wine64-staging
	261	(package
	262	(inherit wine-staging)
	263	(name "wine64-staging")
c41fb54f RH	264	(inputs `(("wine-staging" ,wine-staging)
c41fb54f RH	265	,@(package-inputs wine-staging)))
6cd46747 RH	266	(arguments
	267	`(#:make-flags
	268	(list "SHELL=bash"
c41fb54f RH	269	(string-append "libdir=" %output "/lib/wine64"))
	270	#:phases
	271	(modify-phases %standard-phases
	272	(add-after 'install 'copy-wine32-files
	273	(lambda* (#:key outputs #:allow-other-keys)
1adc6013	274	;; Copy the 32-bit binaries needed for WoW64.
c41fb54f RH	275	(copy-file (string-append (assoc-ref %build-inputs "wine-staging")
	276	"/bin/wine") (string-append (assoc-ref
	277	%outputs "out") "/bin/wine"))
	278	(copy-file (string-append (assoc-ref %build-inputs "wine-staging")
	279	"/bin/wine-preloader") (string-append
	280	(assoc-ref %outputs "out")
	281	"/bin/wine-preloader"))
1adc6013 RH	282	;; Copy the missing man file for the wine binary from wine-staging.
	283	(system (string-append "gunzip < " (string-append (assoc-ref
	284	%build-inputs "wine-staging")
	285	"/share/man/man1/wine.1.gz") "> "
	286	(string-append (assoc-ref %outputs "out")
	287	"/share/man/man1/wine.1")))
c41fb54f RH	288	#t))
	289	(add-after 'configure 'patch-dlopen-paths
	290	;; Hardcode dlopened sonames to absolute paths.
	291	(lambda _
	292	(let* ((library-path (search-path-as-string->list
	293	(getenv "LIBRARY_PATH")))
	294	(find-so (lambda (soname)
	295	(search-path library-path soname))))
	296	(substitute* "include/config.h"
	297	(("(#define SONAME_.* )\"(.*)\"" _ defso soname)
	298	(format #f "~a\"~a\"" defso (find-so soname))))
	299	#t))))
6cd46747 RH	300	#:configure-flags
6cd46747 RH	301	(list "--enable-win64"
c41fb54f RH	302	(string-append "LDFLAGS=-Wl,-rpath=" %output "/lib/wine64"))
	303	,@(strip-keyword-arguments '(#:configure-flags #:make-flags #:phases
	304	#:system)
6cd46747	305	(package-arguments wine-staging))))
1adc6013	306	(synopsis "Implementation of the Windows API (staging branch, WoW64
6cd46747 RH	307	version)")
6cd46747 RH	308	(supported-systems '("x86_64-linux" "aarch64-linux"))))