diff options
Diffstat (limited to 'nongnu/packages/wine.scm')
-rw-r--r-- | nongnu/packages/wine.scm | 213 |
1 files changed, 0 insertions, 213 deletions
diff --git a/nongnu/packages/wine.scm b/nongnu/packages/wine.scm deleted file mode 100644 index d128119..0000000 --- a/nongnu/packages/wine.scm +++ /dev/null @@ -1,213 +0,0 @@ -;;; GNU Guix --- Functional package management for GNU -;;; Copyright © 2019 Pierre Neidhardt <mail@ambrevar.xyz> -;;; -;;; This file is not 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 (nongnu packages wine) - #:use-module (ice-9 match) - #:use-module ((guix licenses) :prefix license:) - #:use-module (guix packages) - #:use-module (guix build-system gnu) - #:use-module (guix build-system trivial) - #:use-module (guix build-system copy) - #:use-module (guix download) - #:use-module (guix git-download) - #:use-module (gnu packages base) - #:use-module (gnu packages bash) - #:use-module (gnu packages perl) - #:use-module (gnu packages wget) - #:use-module (gnu packages compression) - #:use-module (gnu packages gnome) - #:use-module (gnu packages wine)) - -(define-public winetricks - (package - (name "winetricks") - (version "20210206") - (source (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/Winetricks/winetricks") - (commit version))) - (file-name (git-file-name name version)) - (sha256 - (base32 - "0x2ykd6krk0fric45yl4gcc8cdv6j206l62rc9klw0rxfv12hz5n")))) - (build-system gnu-build-system) - (inputs - `(("cabextract" ,cabextract) - ("p7zip" ,p7zip) - ("perl" ,perl) - ;; ("unrar" ,unrar) ; TODO: Include unrar? It is referenced in the source. - ("unzip" ,unzip) - ("wget" ,wget) - ("zenity" ,zenity))) - (arguments - `(#:tests? #f - ;; TODO: Checks need bashate, shellcheck (in Guix), and checkbashisms. - #:make-flags (list (string-append "DESTDIR=" (assoc-ref %outputs "out")) - "PREFIX=") - #:phases - (modify-phases %standard-phases - (delete 'configure) - (add-after 'install 'wrap-program - ;; The script relies on WINETRICKS_GUI being exactly "zenity", so - ;; we can't patch the path directly. Probably same for other dependencies. - (lambda* (#:key inputs outputs #:allow-other-keys) - (let* ((zenity-bin (string-append (assoc-ref inputs "zenity") "/bin/")) - (perl-bin (string-append (assoc-ref inputs "perl") "/bin/")) - (winetricks (string-append (assoc-ref outputs "out") - "/bin/winetricks"))) - (wrap-program winetricks - `("PATH" prefix (,@(map (lambda (in) - (string-append (assoc-ref inputs in) "/bin/")) - '("cabextract" - "p7zip" - "perl" - "unzip" - "wget" - "zenity")))))))) - (add-after 'install 'patch-perl-path - (lambda* (#:key inputs outputs #:allow-other-keys) - (let* ((perl (string-append (assoc-ref inputs "perl") "/bin/perl")) - (winetricks (string-append (assoc-ref outputs "out") - "/bin/winetricks"))) - (substitute* winetricks - (("#!/usr/bin/env perl") (string-append "#!" perl))))))))) - (home-page "https://github.com/Winetricks/winetricks") - (synopsis "Easy way to work around problems in Wine") - (description "Winetricks is an easy way to work around problems in Wine. -It has a menu of supported games/apps for which it can do all the workarounds -automatically. It also allows the installation of missing nonfree DLLs and -tweaking of various Wine settings.") - (license license:lgpl2.1))) - -;; Upstream Guix dxvk does not build anymore because of missing mingw compiler. -(define-public dxvk-1.7 ; TODO: Can we remove this in favour of `dxvk' without breaking `guix pull'? - (package - (name "dxvk") - (version "1.7.3") - (home-page "https://github.com/doitsujin/dxvk/") - (source (origin - (method url-fetch) - (uri (string-append - "https://github.com/doitsujin/dxvk/releases/download/v" - version "/dxvk-" version ".tar.gz") ) - (sha256 - (base32 - "185b80h7l62nv8k9rp32fkn00aglwcw9ccm6bx2n7bdpar149hp4")))) - (build-system copy-build-system) - (arguments - `(#:install-plan - `(,@,(if (string=? (or (%current-target-system) (%current-system)) - "x86_64-linux") - '(list '("x64" "share/dxvk/lib")) - ''()) - ("x32" ,,(if (string=? (or (%current-target-system) (%current-system)) - "i686-linux") - "share/dxvk/lib" - "share/dxvk/lib32")) - ("setup_dxvk.sh" "bin/setup_dxvk")) - #:phases - (modify-phases %standard-phases - (add-after 'install 'fix-setup - (lambda* (#:key inputs outputs system #:allow-other-keys) - (let* ((out (assoc-ref outputs "out")) - (libs "../share/dxvk") - (wine (assoc-ref inputs "wine"))) - (substitute* (string-append out "/bin/setup_dxvk") - (("wine=\"wine\"") - (string-append "wine=" wine "/bin/wine")) - (("wine64=\"wine64\"") - (string-append "wine64=" wine "/bin/wine64")) - (("wineboot=\"wineboot\"") - (string-append "wineboot=" wine "/bin/wineboot")) - (("\"\\$wine_path/\\$wine\"") - "\"$wine_path/wine\"") - (("x32") (if (string=? system "x86_64-linux") - (string-append libs "/lib32") - (string-append libs "/lib"))) - (("x64") (string-append libs "/lib"))))))))) - (inputs - `(("wine" ,(match (or (%current-target-system) - (%current-system)) - ("x86_64-linux" wine64-staging) - (_ wine-staging))))) - (synopsis "Vulkan-based D3D9, D3D10 and D3D11 implementation for Wine") - (description "A Vulkan-based translation layer for Direct3D 9/10/11 which -allows running complex 3D applications with high performance using Wine. - -Use @command{setup_dxvk} to install the required libraries to a Wine prefix.") - (supported-systems '("i686-linux" "x86_64-linux")) - (license license:zlib))) - -(define-public dxvk-next - (package - (name "dxvk") - (version "1.9") - (home-page "https://github.com/doitsujin/dxvk/") - (source (origin - (method url-fetch) - (uri (string-append - "https://github.com/doitsujin/dxvk/releases/download/v" - version "/dxvk-" version ".tar.gz") ) - (sha256 - (base32 - "1vd64525c6qwvxhdsqp7icbf7zsfdcyj125p0hm1k1rqg3w6hf23")))) - (build-system copy-build-system) - (arguments - `(#:install-plan - `(,@,(if (string=? (or (%current-target-system) (%current-system)) - "x86_64-linux") - '(list '("x64" "share/dxvk/lib")) - ''()) - ("x32" ,,(if (string=? (or (%current-target-system) (%current-system)) - "i686-linux") - "share/dxvk/lib" - "share/dxvk/lib32")) - ("setup_dxvk.sh" "bin/setup_dxvk")) - #:phases - (modify-phases %standard-phases - (add-after 'install 'fix-setup - (lambda* (#:key inputs outputs system #:allow-other-keys) - (let* ((out (assoc-ref outputs "out")) - (libs "../share/dxvk") - (wine (assoc-ref inputs "wine"))) - (substitute* (string-append out "/bin/setup_dxvk") - (("wine=\"wine\"") - (string-append "wine=" wine "/bin/wine")) - (("wine64=\"wine64\"") - (string-append "wine64=" wine "/bin/wine64")) - (("wineboot=\"wineboot\"") - (string-append "wineboot=" wine "/bin/wineboot")) - (("\"\\$wine_path/\\$wine\"") - "\"$wine_path/wine\"") - (("x32") (if (string=? system "x86_64-linux") - (string-append libs "/lib32") - (string-append libs "/lib"))) - (("x64") (string-append libs "/lib"))))))))) - (inputs - `(("wine" ,(match (or (%current-target-system) - (%current-system)) - ("x86_64-linux" wine64-staging) - (_ wine-staging))))) - (synopsis "Vulkan-based D3D9, D3D10 and D3D11 implementation for Wine") - (description "A Vulkan-based translation layer for Direct3D 9/10/11 which -allows running complex 3D applications with high performance using Wine. - -Use @command{setup_dxvk} to install the required libraries to a Wine prefix.") - (supported-systems '("i686-linux" "x86_64-linux")) - (license license:zlib))) |