;;; GNU Guix --- Functional package management for GNU ;;; Copyright © 2020 Hebi Li ;;; Copyright © 2020 Malte Frank Gerdes ;;; Copyright © 2020, 2021 Jean-Baptiste Volatier ;;; Copyright © 2020-2022 Jonathan Brielmaier ;;; Copyright © 2021 Pierre Langlois ;;; Copyright © 2022 Petr Hodina ;;; Copyright © 2022 Alexey Abramov ;;; Copyright © 2022 Hilton Chain ;;; ;;; This file is not part of GNU Guix. ;;; ;;; This program 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. ;;; ;;; This program 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 this program. If not, see . (define-module (nongnu packages nvidia) #:use-module (guix packages) #:use-module (guix deprecation) #:use-module (guix download) #:use-module (guix gexp) #:use-module (guix git-download) #:use-module (guix utils) #:use-module ((guix licenses) #:prefix license-gnu:) #:use-module ((nonguix licenses) #:prefix license:) #:use-module (guix build-system linux-module) #:use-module (guix build-system copy) #:use-module (guix build-system gnu) #:use-module (guix build-system trivial) #:use-module (gnu packages base) #:use-module (gnu packages bash) #:use-module (gnu packages bootstrap) #:use-module (gnu packages compression) #:use-module (gnu packages elf) #:use-module (gnu packages freedesktop) #:use-module (gnu packages gawk) #:use-module (gnu packages gcc) #:use-module (gnu packages gl) #:use-module (gnu packages glib) #:use-module (gnu packages gtk) #:use-module (gnu packages linux) #:use-module (gnu packages m4) #:use-module (gnu packages lsof) #:use-module (gnu packages perl) #:use-module (gnu packages pkg-config) #:use-module (gnu packages python) #:use-module (gnu packages video) #:use-module (gnu packages web) #:use-module (gnu packages xdisorg) #:use-module (gnu packages xorg) #:use-module (nongnu packages linux) #:use-module (ice-9 match) #:use-module (ice-9 regex) #:use-module (ice-9 format) #:use-module (ice-9 textual-ports) #:use-module (ice-9 match) #:use-module (srfi srfi-1)) ; Used for closed-source packages (define nvidia-version "515.76") ; Used for the open-source kernel module package (define nversion "515.76") (define computed-origin-method (@@ (guix packages) computed-origin-method)) ;; Extract the driver installer and make it a new origin instance for reusing. (define (make-nvidia-source version installer) (origin (method computed-origin-method) (file-name (string-append "nvidia-driver-" version "-checkout")) (sha256 #f) (uri (delay (with-imported-modules '((guix build utils)) #~(begin (use-modules (guix build utils) (ice-9 ftw)) (set-path-environment-variable "PATH" '("bin") (list (canonicalize-path #+bash-minimal) (canonicalize-path #+coreutils) (canonicalize-path #+gawk) (canonicalize-path #+grep) (canonicalize-path #+tar) (canonicalize-path #+which) (canonicalize-path #+xz))) (setenv "XZ_OPT" (string-join (%xz-parallel-args))) (invoke "sh" #$installer "-x") (copy-recursively (car (scandir (canonicalize-path (getcwd)) (lambda (file) (not (member file '("." "..")))))) #$output))))))) (define nvidia-source (let ((version nvidia-version)) (make-nvidia-source version (origin (method url-fetch) (uri (string-append "https://us.download.nvidia.com/XFree86/Linux-x86_64/" version "/NVIDIA-Linux-x86_64-" version ".run")) (sha256 (base32 "0i5zyvlsjnfkpfqhw6pklp0ws8nndyiwxrg4pj04jpwnxf6a38n6")))))) (define-public nvidia-driver (package (name "nvidia-driver") (version nvidia-version) (source nvidia-source) (build-system copy-build-system) (arguments (list #:modules '((guix build copy-build-system) (guix build utils) (ice-9 ftw) (ice-9 popen) (ice-9 rdelim) (ice-9 regex) (ice-9 textual-ports)) #:install-plan #~`(("." "lib/" #:include-regexp ("^./[^/]+\\.so") #:exclude-regexp ("nvidia_drv\\.so" "libglxserver_nvidia\\.so\\..*")) ("." "share/nvidia/" #:include-regexp ("nvidia-application-profiles.*")) ("." "share/egl/egl_external_platform.d/" #:include-regexp (".*_nvidia_.*\\.json")) ("90-nvidia.rules" "lib/udev/rules.d/") ("nvidia-drm-outputclass.conf" "share/x11/xorg.conf.d/") ("nvidia-smi" "bin/") ("nvidia-dbus.conf" "share/dbus-1/system.d/") ("nvidia-smi.1.gz" "share/man/man1/") ("nvidia.icd" "etc/OpenCL/vendors/") ("nvidia_drv.so" "lib/xorg/modules/drivers/") ("nvidia_icd.json" "share/vulkan/icd.d/") ("nvidia_layers.json" "share/vulkan/implicit_layer.d/") (,(string-append "libglxserver_nvidia.so." #$version) "lib/xorg/modules/extensions/")) #:phases #~(modify-phases %standard-phases (delete 'strip) (add-after 'unpack 'create-misc-files (lambda* (#:key inputs #:allow-other-keys) ;; Vulkan layer configuration (for-each (lambda (file) (substitute* file (("lib(GLX|nvidia).*\\.so\\..*" all) (string-append #$output "/lib/" all)))) (scandir "." (lambda (name) (string-contains name ".json")))) ;; OpenCL vendor ICD configuration (substitute* "nvidia.icd" ((".*" all) (string-append #$output "/lib/" all))) ;; Add udev rules for nvidia (let ((rules "90-nvidia.rules")) (call-with-output-file rules (lambda (port) (put-string port (format #f "~ KERNEL==\"nvidia\", RUN+=\"@sh@ -c '@mknod@ -m 666 /dev/nvidiactl c $$(@grep@ nvidia-frontend /proc/devices | @cut@ -d \\ -f 1) 255'\" KERNEL==\"nvidia_modeset\", RUN+=\"@sh@ -c '@mknod@ -m 666 /dev/nvidia-modeset c $$(@grep@ nvidia-frontend /proc/devices | @cut@ -d \\ -f 1) 254'\" KERNEL==\"card*\", SUBSYSTEM==\"drm\", DRIVERS==\"nvidia\", RUN+=\"@sh@ -c '@mknod@ -m 666 /dev/nvidia0 c $$(@grep@ nvidia-frontend /proc/devices | @cut@ -d \\ -f 1) 0'\" KERNEL==\"nvidia_uvm\", RUN+=\"@sh@ -c '@mknod@ -m 666 /dev/nvidia-uvm c $$(@grep@ nvidia-uvm /proc/devices | @cut@ -d \\ -f 1) 0'\" KERNEL==\"nvidia_uvm\", RUN+=\"@sh@ -c '@mknod@ -m 666 /dev/nvidia-uvm-tools c $$(@grep@ nvidia-uvm /proc/devices | @cut@ -d \\ -f 1) 0'\" ")))) (substitute* rules (("@\\<(sh|grep|mknod|cut)\\>@" all cmd) (search-input-file inputs (string-append "/bin/" cmd))))))) (add-after 'install 'patch-elf (lambda _ (let* ((ld.so (string-append #$(this-package-input "glibc") #$(glibc-dynamic-linker))) (rpath (string-join (list "$ORIGIN" (string-append #$output "/lib") (string-append #$gcc:lib "/lib") (string-append #$gtk+-2 "/lib") (string-append #$(this-package-input "atk") "/lib") (string-append #$(this-package-input "cairo") "/lib") (string-append #$(this-package-input "gdk-pixbuf") "/lib") (string-append #$(this-package-input "glib") "/lib") (string-append #$(this-package-input "glibc") "/lib") (string-append #$(this-package-input "gtk+") "/lib") (string-append #$(this-package-input "libdrm") "/lib") (string-append #$(this-package-input "libx11") "/lib") (string-append #$(this-package-input "libxext") "/lib") (string-append #$(this-package-input "mesa") "/lib") (string-append #$(this-package-input "pango") "/lib") (string-append #$(this-package-input "wayland") "/lib")) ":"))) (define (patch-elf file) (format #t "Patching ~a ..." file) (unless (string-contains file ".so") (invoke "patchelf" "--set-interpreter" ld.so file)) (invoke "patchelf" "--set-rpath" rpath file) (display " done\n")) (for-each (lambda (file) (when (elf-file? file) (patch-elf file))) (append (find-files #$output ".*\\.so") (find-files (string-append #$output "/bin"))))))) (add-after 'patch-elf 'create-short-name-symlinks (lambda _ (define (get-soname file) (when elf-file? file (let* ((cmd (string-append "patchelf --print-soname " file)) (port (open-input-pipe cmd)) (soname (read-line port))) (close-pipe port) soname))) (for-each (lambda (lib) (let ((lib-soname (get-soname lib))) (when (string? lib-soname) (let* ((soname (string-append (dirname lib) "/" lib-soname)) (base (string-append (regexp-substitute #f (string-match "(.*)\\.so.*" soname) 1) ".so")) (source (basename lib))) (for-each (lambda (target) (unless (file-exists? target) (format #t "Symlinking ~a -> ~a..." target source) (symlink source target) (display " done\n"))) (list soname base)))))) (find-files #$output "\\.so")) (symlink (string-append "libglxserver_nvidia.so." #$version) (string-append #$output "/lib/xorg/modules/extensions/" "libglxserver_nvidia.so")) (symlink (string-append "libnvidia-allocator.so." #$version) (string-append #$output "/lib/nvidia-drm_gbm.so" ))))))) (supported-systems '("x86_64-linux")) (native-inputs (list patchelf)) (inputs (list `(,gcc "lib") atk bash-minimal cairo coreutils gdk-pixbuf glib glibc grep gtk+ gtk+-2 kmod libdrm libx11 libxext linux-lts mesa pango wayland)) (home-page "https://www.nvidia.com") (synopsis "Proprietary NVIDIA driver") (description "This is the evil NVIDIA driver. Don't forget to add @code{service nvidia-service-type} to your @file{config.scm}. Further xorg should be configured by adding: @code{(modules (cons* nvidia-driver %default-xorg-modules)) (drivers '(\"nvidia\"))} to @code{xorg-configuration}. ") (license (license:nonfree (format #f "file:///share/doc/nvidia-driver-~a/LICENSE" version))))) (define-public nvidia-firmware (let ((base nvidia-driver)) (package (inherit base) (name "nvidia-firmware") (arguments (list #:install-plan #~'(("firmware" #$(string-append "lib/firmware/nvidia/" (package-version base)))) #:phases #~(modify-phases %standard-phases (delete 'strip)))) (inputs '()) (native-inputs '()) (properties `((hidden? . #t)))))) (define-public nvidia-exec (package (name "nvidia-exec") (version "0.1.0") (source (origin (method git-fetch) (uri (git-reference (url "https://github.com/pedro00dk/nvidia-exec") (commit (string-append "v" version)))) (file-name (git-file-name name version)) (sha256 (base32 "079alqgz3drv5mvx059fzhj3f20rnljl7r4yihfd5qq7djgmvv0v")))) (build-system copy-build-system) (arguments (list #:install-plan #~`(("nvx" "bin/")) #:modules #~((guix build copy-build-system) (guix build utils) (srfi srfi-1)) #:phases #~(modify-phases %standard-phases (add-after 'install 'wrap-nvx (lambda* (#:key inputs outputs #:allow-other-keys) (wrap-program (string-append #$output "/bin/nvx") `("PATH" ":" prefix ,(fold (lambda (input paths) (let* ((in (assoc-ref inputs input)) (bin (string-append in "/bin"))) (append (filter file-exists? (list bin)) paths))) '() '("jq" "lshw" "lsof"))))))))) (inputs (list bash-minimal jq lshw lsof)) (home-page "https://github.com/pedro00dk/nvidia-exec") (synopsis "GPU switching without login out for Nvidia Optimus laptops") (description "This package provides GPU switching without login out for Nvidia Optimus laptops.") (license license-gnu:gpl3+))) (define-public nvidia-nvml (package (name "nvidia-nvml") (version "352.79") (source (origin (method url-fetch) (uri (string-append "https://developer.download.nvidia.com/compute/cuda/7.5/Prod/gdk/" (format #f "gdk_linux_amd64_~a_release.run" (string-replace-substring version "." "_")))) (sha256 (base32 "1r2cwm0j9svaasky3qw46cpg2q6rrazwzrc880nxh6bismyd3a9z")) (file-name (string-append "nvidia-nvml-" version "-checkout")))) (build-system copy-build-system) (arguments (list #:phases #~(modify-phases %standard-phases (replace 'unpack (lambda _ (invoke "sh" #$source "--tar" "xvf")))) #:install-plan ''(("payload/nvml/lib" "lib") ("payload/nvml/include" "include/nvidia/gdk") ("payload/nvml/example" "src/gdk/nvml/examples") ("payload/nvml/doc/man" "share/man") ("payload/nvml/README.txt" "README.txt") ("payload/nvml/COPYRIGHT.txt" "COPYRIGHT.txt")))) (home-page "https://www.nvidia.com") (synopsis "The NVIDIA Management Library (NVML)") (description "C-based programmatic interface for monitoring and managing various states within NVIDIA Tesla GPUs. It is intended to be a platform for building 3rd party applications, and is also the underlying library for the NVIDIA-supported nvidia-smi tool. NVML is thread-safe so it is safe to make simultaneous NVML calls from multiple threads.") ;; Doesn't have any specific LICENSE file, but see COPYRIGHT.txt for details. (license (license:nonfree "file://COPYRIGHT.txt")))) (define-public nvidia-libs (deprecated-package "nvidia-libs" nvidia-driver)) (define-public nvidia-module (package (name "nvidia-module") (version nvidia-version) (source nvidia-source) (build-system linux-module-build-system) (arguments (list #:linux linux-lts #:source-directory "kernel" #:tests? #f #:make-flags #~(list (string-append "CC=" #$(cc-for-target))) #:phases #~(modify-phases %standard-phases (delete 'strip) (add-before 'configure 'fixpath (lambda* (#:key (source-directory ".") #:allow-other-keys) (substitute* (string-append source-directory "/Kbuild") (("/bin/sh") (which "sh"))))) (replace 'build (lambda* (#:key (make-flags '()) (parallel-build? #t) (source-directory ".") inputs #:allow-other-keys) (apply invoke "make" "-C" (canonicalize-path source-directory) (string-append "SYSSRC=" (search-input-directory inputs "/lib/modules/build")) `(,@(if parallel-build? `("-j" ,(number->string (parallel-job-count))) '()) ,@make-flags))))))) (home-page "https://www.nvidia.com") (synopsis "Proprietary NVIDIA kernel modules") (description "This package provides the evil NVIDIA proprietary kernel modules.") (license (license:nonfree (format #f "file:///share/doc/nvidia-driver-~a/LICENSE" version))))) (define-public nvidia-module-open (package (name "nvidia-module-open") (version nversion) (source (origin (method git-fetch) (uri (git-reference (url "https://github.com/NVIDIA/open-gpu-kernel-modules") (commit nversion))) (file-name (git-file-name name version)) (sha256 (base32 "1mkibm0i943ljcy921i63jzc0db6r4pm1ycmwbka9kddcviyb3gk")))) (build-system linux-module-build-system) (arguments (list #:linux linux #:source-directory "kernel-open" #:tests? #f #:make-flags #~(list (string-append "CC=" #$(cc-for-target)) (string-append "SYSSRC=" (assoc-ref %build-inputs "linux-module-builder") "/lib/modules/build")) #:phases #~(modify-phases %standard-phases (add-after 'unpack 'fixpath (lambda* (#:key inputs outputs #:allow-other-keys) (substitute* "kernel-open/Kbuild" (("/bin/sh") (string-append #$bash-minimal "/bin/sh"))))) (replace 'build (lambda* (#:key make-flags outputs #:allow-other-keys) (apply invoke `("make" "-j" ,@make-flags "modules"))))))) (inputs (list bash-minimal)) (home-page "https://github.com/NVIDIA/open-gpu-kernel-modules") (synopsis "Nvidia kernel module") (description "This package provides Nvidia open-gpu-kernel-modules. However, they are only for the latest GPU architectures Turing and Ampere. Also they still require firmware file @code{gsp.bin} to be loaded as well as closed source userspace tools from the corresponding driver release.") (license license-gnu:gpl2))) (define-public nvidia-settings (package (name "nvidia-settings") (version nvidia-version) (source (origin (method git-fetch) (uri (git-reference (url "https://github.com/NVIDIA/nvidia-settings") (commit version))) (file-name (git-file-name name version)) (sha256 (base32 "1hplc42115c06cc555cjmw3c9371qn7ibwjpqjybcf6ixfd6lryq")))) (build-system gnu-build-system) (arguments (list #:tests? #f ;no test suite #:make-flags #~(list (string-append "PREFIX=" #$output) (string-append "CC=" #$(cc-for-target))) #:phases #~(modify-phases %standard-phases (delete 'configure) (add-after 'install 'wrap-program (lambda* (#:key outputs #:allow-other-keys) (let ((out (assoc-ref outputs "out"))) (wrap-program (string-append out "/bin/nvidia-settings") `("LD_LIBRARY_PATH" ":" prefix (,(string-append out "/lib/")))))))))) (native-inputs (list m4 pkg-config)) (inputs (list bash-minimal dbus glu gtk+ gtk+-2 libvdpau libx11 libxext libxrandr libxv libxxf86vm)) (synopsis "Nvidia driver control panel") (description "This package provides Nvidia driver control panel for monitor configuration, creating application profiles, gpu monitoring and more.") (home-page "https://github.com/NVIDIA/nvidia-settings") (license license-gnu:gpl2))) ;; nvda is used as a name because it has the same length as mesa which is ;; required for grafting (define-public nvda (package (inherit nvidia-driver) (name "nvda") (source #f) (build-system trivial-build-system) (arguments (list #:modules '((guix build union)) #:builder #~(begin (use-modules (guix build union) (srfi srfi-1) (ice-9 regex)) (union-build #$output (list #$(this-package-input "mesa") #$(this-package-input "nvidia-driver")) #:resolve-collision (lambda (files) (let ((file (if (string-match "nvidia-driver" (first files)) (first files) (last files)))) (format #t "chosen ~a ~%" file) file)))))) (description "These are the libraries of the evil NVIDIA driver, packaged in such a way that you can use the transformation option @code{--with-graft=mesa=nvda} to use the NVIDIA driver with a package that requires mesa.") (inputs (list mesa nvidia-driver)) (outputs '("out")))) (define mesa/fake (package (inherit mesa) (replacement nvda))) (define-public replace-mesa (package-input-rewriting `((,mesa . ,mesa/fake))))