diff --git a/nongnu/packages/nvidia.scm b/nongnu/packages/nvidia.scm new file mode 100644 index 0000000..98d55f0 --- /dev/null +++ b/nongnu/packages/nvidia.scm @@ -0,0 +1,263 @@ +;;; GNU Guix --- Functional package management for GNU +;;; Copyright © 2020 Hebi Li +;;; Copyright © 2020 Malte Frank Gerdes +;;; Copyright © 2020 Jean-Baptiste Volatier +;;; Copyright © 2020 Jonathan Brielmaier +;;; +;;; 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 download) + #:use-module (guix utils) + #:use-module ((nonguix licenses) #:prefix license:) + #:use-module (guix build-system linux-module) + #:use-module (guix build-system gnu) + #: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 gcc) + #:use-module (gnu packages glib) + #:use-module (gnu packages gtk) + #:use-module (gnu packages linux) + #:use-module (gnu packages perl) + #:use-module (gnu packages python) + #: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 (srfi srfi-1)) + +(define-public nvidia-driver + (package + (name "nvidia-driver") + (version "455.45.01") + (source + (origin + (uri (format #f "http://us.download.nvidia.com/XFree86/Linux-x86_64/~a/~a.run" + version + (format #f "NVIDIA-Linux-x86_64-~a" version))) + (sha256 (base32 "0lx10g0wh7bhf9a4jvq6cbz4ddcz63c4k8pnlw7m8r9g11z8rp7a")) + (method url-fetch) + (file-name (string-append "nvidia-driver-" version "-checkout")))) + (build-system linux-module-build-system) + (arguments + `(#:phases + (modify-phases %standard-phases + (replace 'unpack + (lambda* (#:key inputs #:allow-other-keys #:rest r) + (let ((source (assoc-ref inputs "source"))) + (invoke "sh" source "--extract-only") + (chdir ,(format #f "NVIDIA-Linux-x86_64-~a" version)) + #t))) + (replace 'build + (lambda* (#:key inputs outputs #:allow-other-keys) + ;; We cannot use with-directory-excursion, because the install + ;; phase needs to be in the kernel folder. Otherwise no .ko + ;; would be installed. + (chdir "kernel") + ;; Patch Kbuild + (substitute* "Kbuild" + (("/bin/sh") (string-append (assoc-ref inputs "bash-minimal") "/bin/sh"))) + (invoke "make" + "-j" + (string-append "SYSSRC=" + (assoc-ref inputs "linux-module-builder") + "/lib/modules/build") + "CC=gcc") + #t)) + (delete 'check) + (add-after 'install 'install-copy + (lambda* (#:key inputs native-inputs outputs #:allow-other-keys) + (chdir "..") + (use-modules (ice-9 ftw) + (ice-9 regex) + (ice-9 textual-ports)) + (let* ((out (assoc-ref outputs "out")) + (libdir (string-append out "/lib")) + (bindir (string-append out "/bin")) + (etcdir (string-append out "/etc"))) + ;; ------------------------------ + ;; Copy .so files + (for-each + (lambda (file) + (format #t "Copying '~a'...~%" file) + (install-file file libdir)) + (scandir "." (lambda (name) + (string-contains name ".so")))) + + ;; TODO: What happened with those Xorg files + ;(install-file "nvidia_drv.so" (string-append out "/lib/xorg/modules/drivers/")) + ;; TODO: Use version variable + (install-file "libglxserver_nvidia.so.455.45.01" (string-append out "/lib/xorg/modules/extensions/")) + + ;; ICD Loader for OpenCL + (let ((file (string-append etcdir "/OpenCL/vendors/nvidia.icd"))) + (mkdir-p (string-append etcdir "/OpenCL/vendors/")) + (call-with-output-file file + (lambda (port) + (display (string-append out "/lib/libnvidia-opencl.so.1") port))) + (chmod file #o555)) + + ;; Add udev rules for nvidia + (let ((rulesdir (string-append out "/lib/udev/rules.d/")) + (rules (string-append out "/lib/udev/rules.d/90-nvidia.rules")) + (sh (string-append (assoc-ref inputs "bash-minimal") "/bin/sh")) + (mknod (string-append (assoc-ref inputs "coreutils") "/bin/mknod")) + (cut (string-append (assoc-ref inputs "coreutils") "/bin/cut")) + (grep (string-append (assoc-ref inputs "grep") "/bin/grep"))) + (mkdir-p rulesdir) + (call-with-output-file rules + (lambda (port) + (put-string port + (string-append + "KERNEL==\"nvidia\", " + "RUN+=\"" sh " -c '" mknod " -m 666 /dev/nvidiactl c $$(" grep " nvidia-frontend /proc/devices | " cut " -d \\ -f 1) 255'\"" "\n" + "KERNEL==\"nvidia_modeset\", " + "RUN+=\"" sh " -c '" mknod " -m 666 /dev/nvidia-modeset c $$(" grep " nvidia-frontend /proc/devices | " cut " -d \\ -f 1) 254'\"" "\n" + "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'\"" "\n" + "KERNEL==\"nvidia_uvm\", " + "RUN+=\"" sh " -c '" mknod " -m 666 /dev/nvidia-uvm c $$(" grep " nvidia-uvm /proc/devices | " cut " -d \\ -f 1) 0'\"" "\n" + "KERNEL==\"nvidia_uvm\", " + "RUN+=\"" sh " -c '" mknod " -m 666 /dev/nvidia-uvm-tools c $$(" grep " nvidia-uvm /proc/devices | " cut " -d \\ -f 1) 0'\"" "\n" ))))) + + ;; ------------------------------ + ;; Add a file to load nvidia drivers + (mkdir-p bindir) + (let ((file (string-append bindir "/nvidia-insmod")) + (out (assoc-ref outputs "out")) + (moddir (string-append "/lib/modules/" (utsname:release (uname)) "-gnu/extra"))) + (call-with-output-file file + (lambda (port) + (put-string port (string-append "#!" (assoc-ref inputs "bash-minimal") "/bin/sh" "\n" + "modprobe ipmi_devintf" "\n" + "insmod " out moddir "/nvidia.ko" "\n" + "insmod " out moddir "/nvidia-modeset.ko" "\n" + "insmod " out moddir "/nvidia-uvm.ko" "\n" + "insmod " out moddir "/nvidia-drm.ko" "\n")))) + (chmod file #o555)) + (let ((file (string-append bindir "/nvidia-rmmod"))) + (call-with-output-file file + (lambda (port) + (put-string port (string-append "#!" (assoc-ref inputs "bash-minimal") "/bin/sh" "\n" + "rmmod " "nvidia-drm" "\n" + "rmmod " "nvidia-uvm" "\n" + "rmmod " "nvidia-modeset" "\n" + "rmmod " "nvidia" "\n" + "rmmod " "ipmi_devintf" "\n")))) + (chmod file #o555)) + + ;; ------------------------------ + ;; patchelf + (let* ((libc (assoc-ref inputs "libc")) + (ld.so (string-append libc ,(glibc-dynamic-linker))) + + (out (assoc-ref outputs "out")) + (rpath (string-join + (list "$ORIGIN" + (string-append out "/lib") + (string-append libc "/lib") + (string-append (assoc-ref inputs "libx11") "/lib") + (string-append (assoc-ref inputs "libxext") "/lib") + (string-append (assoc-ref inputs "pango") "/lib") + (string-append (assoc-ref inputs "gtk+") "/lib") + (string-append (assoc-ref inputs "gtk2") "/lib") + (string-append (assoc-ref inputs "atk") "/lib") + (string-append (assoc-ref inputs "glib") "/lib") + (string-append (assoc-ref inputs "cairo") "/lib") + (string-append (assoc-ref inputs "gdk-pixbuf") "/lib") + (string-append (assoc-ref inputs "wayland") "/lib") + (string-append (assoc-ref inputs "gcc:lib") "/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)) + (for-each (lambda (file) + (when (elf-file? file) + (patch-elf file))) + (find-files out ".*\\.so"))) + + ;; ------------------------------ + ;; Create short name symbolic links + (for-each (lambda (file) + (let* ((short (regexp-substitute + #f + (string-match "([^/]*\\.so).*" file) + 1)) + (major (if (or (string=? short "libEGL.so") + (string=? short "libEGL_nvidia.so") + (string=? short "libGLX.so") + (string=? short "libGLX_nvidia.so")) + "0" "1")) + (mid (string-append short "." major)) + (short-file (string-append libdir "/" short)) + (mid-file (string-append libdir "/" mid))) + ;; FIXME the same name, print out warning at least + ;; [X] libEGL.so.1.1.0 + ;; [ ] libEGL.so.435.21 + (when (not (file-exists? short-file)) + (format #t "Linking ~a to ~a ...~%" short file) + (symlink (basename file) short-file)) + (when (not (file-exists? mid-file)) + (format #t "Linking ~a to ~a ...~%" mid file) + (symlink (basename file) mid-file)))) + (find-files libdir "\\.so\\.")) + ;; TODO: Use version variable + (symlink "libglxserver_nvidia.so.455.45.01" + (string-append out "/lib/xorg/modules/extensions/" "libglxserver_nvidia.so"))) + #t))))) + (native-inputs + `(("patchelf" ,patchelf) + ("perl" ,perl) + ("python" ,python-2) + ("which" ,which) + ("xz" ,xz))) + (inputs + `(("atk" ,atk) + ("bash-minimal" ,bash-minimal) + ("cairo" ,cairo) + ("coreutils" ,coreutils) + ("gcc:lib" ,gcc "lib") + ("gdk-pixbuf" ,gdk-pixbuf) + ("glib" ,glib) + ("grep" ,grep) + ("gtk+" ,gtk+) + ("gtk2" ,gtk+-2) + ("kmod" ,kmod) + ("libc" ,glibc) + ("libx11" ,libx11) + ("libxext" ,libxext) + ("linux" ,linux) + ("pango" ,pango) + ("wayland" ,wayland))) + (home-page "https://www.nvidia.com") + (synopsis "Proprietary Nvidia driver") + (description "This is the evil Nvidia driver. Don't forget to add +nvidia-driver to the udev-rules in your config.scm: +@code{(simple-service 'custom-udev-rules udev-service-type (list nvidia-driver))} +Further xorg should be configured by adding: +@code{(modules (cons* nvidia-driver %default-xorg-modules)) +(drivers '(\"nvidia\"))} to @code{xorg-configuration}.") + ;; TODO Use version variable + (license (license:nonfree "file:///share/doc/nvidia-driver-455.45.01/LICENSE"))))