;;; GNU Guix --- Functional package management for GNU ;;; Copyright © 2014, 2015 Sou Bunnbu <iyzsong@gmail.com> ;;; Copyright © 2016 Ricardo Wurmus <rekado@elephly.net> ;;; ;;; 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 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 linux) #:use-module (gnu packages openldap) #:use-module (gnu packages perl) #: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 xml) #:use-module (gnu packages xorg)) (define-public wine (package (name "wine") (version "1.9.4") (source (origin (method url-fetch) (uri (string-append "https://dl.winehq.org/wine/source/" (version-major+minor version) "/wine-" version ".tar.bz2")) (sha256 (base32 "1f5v1gns0xs512a6ym785cn29j8dxdbnxnvkg8v0p1w0p6vfmhbm")))) (build-system gnu-build-system) (native-inputs `(("pkg-config" ,pkg-config) ("gettext" ,gnu-gettext) ("flex" ,flex) ("bison" ,bison) ("perl" ,perl))) (inputs `(("alsa-lib" ,alsa-lib) ("dbus" ,dbus) ("cups" ,cups) ("fontconfig" ,fontconfig) ("freetype" ,freetype) ("glu" ,glu) ("gnutls" ,gnutls) ("lcms" ,lcms) ("libxml2" ,libxml2) ("libxslt" ,libxslt) ("libgphoto2" ,libgphoto2) ("libmpg123" ,mpg123) ("libldap" ,openldap) ("libnetapi" ,samba) ("libsane" ,sane-backends) ("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) ("unixodbc" ,unixodbc) ("zlib" ,zlib))) (arguments `(;; The 64-bit build of Wine is reportedly less useful or even usable, ;; so force a 32-bit build (under the assumption that this package is ;; being used on an IA32-compatible architecture.) #:system "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")) #:make-flags (list "SHELL=bash") #:phases (alist-cons-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)))))) %standard-phases))) (home-page "http://www.winehq.org/") (synopsis "Implementation of the Windows API") (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 '("i686-linux" "x86_64-linux"))))