path: root/backport.scm

(define-module (backport)
               #:use-module ((guix licenses) #:prefix license:)
               #:use-module (gnu packages admin)
               #:use-module (gnu packages algebra)
               #:use-module (gnu packages assembly)
               #:use-module (gnu packages audio)
               #:use-module (gnu packages autogen)
               #:use-module (gnu packages autotools)
               #:use-module (gnu packages backup)
               #:use-module (gnu packages base)
               #:use-module (gnu packages bash)
               #:use-module (gnu packages bison)
               #:use-module (gnu packages boost)
               #:use-module (gnu packages cdrom)
               #:use-module (gnu packages check)
               #:use-module (gnu packages cmake)
               #:use-module (gnu packages compression)
               #:use-module (gnu packages containers)
               #:use-module (gnu packages cross-base)
               #:use-module (gnu packages curl)
               #:use-module (gnu packages digest)
               #:use-module (gnu packages elf)
               #:use-module (gnu packages emulators)
               #:use-module (gnu packages engineering)
               #:use-module (gnu packages flex)
               #:use-module (gnu packages fltk)
               #:use-module (gnu packages fonts)
               #:use-module (gnu packages fontutils)
               #:use-module (gnu packages freedesktop)
               #:use-module (gnu packages fribidi)
               #:use-module (gnu packages game-development)
               #:use-module (gnu packages game-development)
               #:use-module (gnu packages gettext)
               #:use-module (gnu packages gl)
               #:use-module (gnu packages glib)
               #:use-module (gnu packages gnome)
               #:use-module (gnu packages graphics)
               #:use-module (gnu packages gtk)
               #:use-module (gnu packages image)
               #:use-module (gnu packages libedit)
               #:use-module (gnu packages libusb)
               #:use-module (gnu packages linux)
               #:use-module (gnu packages linux)
               #:use-module (gnu packages lua)
               #:use-module (gnu packages maths)
               #:use-module (gnu packages mp3)
               #:use-module (gnu packages music)
               #:use-module (gnu packages ncurses)
               #:use-module (gnu packages networking)
               #:use-module (gnu packages networking)
               #:use-module (gnu packages openbox)
               #:use-module (gnu packages pkg-config)
               #:use-module (gnu packages pretty-print)
               #:use-module (gnu packages pretty-print)
               #:use-module (gnu packages pulseaudio)
               #:use-module (gnu packages python)
               #:use-module (gnu packages python-build)
               #:use-module (gnu packages python-xyz)
               #:use-module (gnu packages qt)
               #:use-module (gnu packages sdl)
               #:use-module (gnu packages sdl)
               #:use-module (gnu packages sphinx)
               #:use-module (gnu packages sqlite)
               #:use-module (gnu packages texinfo)
               #:use-module (gnu packages textutils)
               #:use-module (gnu packages tls)
               #:use-module (gnu packages upnp)
               #:use-module (gnu packages version-control)
               #:use-module (gnu packages video)
               #:use-module (gnu packages vulkan)
               #:use-module (gnu packages web)
               #:use-module (gnu packages xdisorg)
               #:use-module (gnu packages xiph)
               #:use-module (gnu packages xml)
               #:use-module (gnu packages xorg)
               #:use-module (gnu packages)
               #:use-module (guix build-system cmake)
               #:use-module (guix download)
               #:use-module (guix gexp)
               #:use-module (guix git-download)
               #:use-module (guix hg-download)
               #:use-module (guix packages)
               #:use-module (guix svn-download)
               #:use-module (guix utils)
               #:use-module (ice-9 match)
               )

(define-public dolphin-emu-next
               (package
                 (inherit dolphin-emu)
                 (name "dolphin-emu-next")
                 (version "2503")
                 ;(version "ad3650abfcae6432338ba976123958ee67a4106c")
                 (inputs
                   (list alsa-lib
                         ao
                         bluez
                         bzip2
                         cubeb
                         curl
                         enet-1.3.18
                         eudev
                         ffmpeg-4
                         fmt-10
                         font-wqy-microhei
                         freetype
                         git-minimal
                         glew
                         glib
                         glu
                         gtk+-2
                         hidapi
                         libevdev
                         libpng
                         libusb
                         libx11
                         libxi
                         libxrandr
                         lzo
                         mbedtls-lts
                         mesa
                         miniupnpc
                         minizip-ng
                         openal
                         pugixml
                         pulseaudio
                         qtbase
                         qtsvg
                         sdl2-2.30.9
                         sfml-3
                         soil
                         soundtouch-1/integer-samples
                         vulkan-loader
                         xxhash
                         zlib
                         libxcursor
                         libxi
                         `(,zstd "lib")))

                 (arguments
                   (list
                     #:phases
                     #~(modify-phases %standard-phases
                                      (add-before 'configure 'set-scm-desc-str
                                                  (lambda _
                                                    (substitute* "Source/Core/Common/scmrev.h.in" (("#define SCM_REV_STR \"\\$\\{DOLPHIN_WC_REVISION\\}\"") "#define SCM_REV_STR \"9763c0a1e2b9db0c3861d25bc2f5a0ace6a15ee3\""))
                                                    ))
                                      (add-before 'configure 'remove-unittests-target-post-build-command
                                                  (lambda _
                                                    ;; To skip a few problematic tests, CTest will be manually
                                                    ;; invoked in the post-check phase.
                                                    (with-directory-excursion "Source/UnitTests"
                                                                              (substitute* "CMakeLists.txt"
                                                                                           (("add_custom_command\\(TARGET unittests POST_BUILD.*")
                                                                                            "")))))
                                      (add-before 'configure 'generate-fonts&hardcore-libvulkan-path
                                                  (lambda* (#:key inputs #:allow-other-keys)
                                                           (let ((fontfile
                                                                   (search-input-file inputs
                                                                                      "/share/fonts/truetype/wqy-microhei.ttc"))
                                                                 (libvulkan
                                                                   (search-input-file inputs "/lib/libvulkan.so")))
                                                             (chdir "docs")
                                                             (invoke "bash" "-c" "g++ -O2 $(freetype-config \
                                                                                                            --cflags --libs) gc-font-tool.cpp -o gc-font-tool")
                                                             (invoke "./gc-font-tool" "a" fontfile "font_western.bin")
                                                             (invoke "./gc-font-tool" "s" fontfile "font_japanese.bin")
                                                             (copy-file "font_japanese.bin" "../Data/Sys/GC/font_japanese.bin")
                                                             (copy-file "font_western.bin" "../Data/Sys/GC/font_western.bin")
                                                             (chdir "..")
                                                             (substitute* "Source/Core/VideoBackends/Vulkan/VulkanLoader.cpp"
                                                                          (("\"vulkan\", 1") (string-append "\"vulkan\""))
                                                                          (("\"vulkan\"") (string-append "\"" libvulkan "\""))
                                                                          (("Common::DynamicLibrary::GetVersionedFilename") "")))))
                                      (add-after 'check 'post-check
                                                 (lambda* (#:key tests? #:allow-other-keys)
                                                          (when tests?
                                                            (with-directory-excursion "Source/UnitTests"
                                                                                      (invoke "ctest" "-V" "--output-on-failure"
                                                                                              ;; These tests fail due to libusb failing to
                                                                                              ;; init inside the build container.
                                                                                              "-E" (string-join
                                                                                                     '("MMIOTest"
                                                                                                       "PageFaultTest"
                                                                                                       "CoreTimingTest"
                                                                                                       "FileSystemTest"
                                                                                                       "PowerPCTest"
                                                                                                       "VertexLoaderTest")
                                                                                                     "|"))))))
                                      (add-before 'install 'build-codeloader.bin
                                                  (lambda _
                                                    (with-directory-excursion "../source/docs"
                                                                              ;; The following command-line is adapted from the example in
                                                                              ;; codehandler.s.
                                                                              (invoke "powerpc-linux-gnu-gcc" "-mpowerpc" "-mbig"
                                                                                      "codehandler.s" "-nostartfiles" "-nodefaultlibs"
                                                                                      "-nostdlib" "-T" "codehandler.ld"
                                                                                      "-o" "codehandler.bin")
                                                                              (copy-file "codehandler.bin" "../Data/Sys/codehandler.bin"))))
                                      (add-before 'install 'build-dsp_rom.bin
                                                  (lambda _
                                                    ;; Ensure dsptool is on PATH.
                                                    (setenv "PATH" (string-append (getenv "PATH") ":"
                                                                                  (getcwd) "/Binaries"))
                                                    (with-directory-excursion "../source"
                                                                              (invoke "dsptool" "-o" "Data/Sys/GC/dsp_rom.bin"
                                                                                      "docs/DSP/free_dsp_rom/dsp_rom.ds"))))
                                      (add-before 'install 'build-dsp_coefs.bin
                                                  (lambda _
                                                    (with-directory-excursion "../source"
                                                                              (invoke "python3" "docs/DSP/free_dsp_rom/generate_coefs.py")
                                                                              (rename-file "dsp_coef.bin" "Data/Sys/GC/dsp_coef.bin")))))
                     ;; The FindGTK2 cmake script only checks hardcoded directories for
                     ;; glib/gtk headers.  Also add some include directories via the CXX
                     ;; flags to let GCC find some headers not actively searched by the
                     ;; build system.
                     #:configure-flags
                     #~(list (string-append "-DCMAKE_CXX_FLAGS="
                                            "-I" (search-input-directory
                                                   %build-inputs "include/soundtouch"))
                             "-DDSPTOOL=ON"
                             (string-append "-DX11_INCLUDE_DIR="
                                            #$(this-package-input "libx11")
                                            "/include")
                             (string-append "-DOLPHIN_WC_DESCRIBE=2503")
                             (string-append "-DOLPHIN_WC_REVISION=9763c0a1e2b9db0c3861d25bc2f5a0ace6a15ee3")
                             (string-append "-DOLPHIN_WC_BRANCH=HEAD")
                             (string-append "-DCMAKE_BUILD_TYPE=Release")
                             (string-append "-DX11_LIBRARIES="
                                            (search-input-file %build-inputs
                                                               "lib/libX11.so"))
                             "-DX11_FOUND=1")
                     #:test-target "unittests"))

                 (source
                   (origin
                     (method git-fetch)
                     (uri (git-reference
                            (url "https://github.com/dolphin-emu/dolphin")
                            (recursive? #t)
                            (commit version)))
                     (file-name (git-file-name name version))
                     (sha256
                       (base32 "0yyl91sb8w422zfdml9hmwwn3088gxv977aailc0l5icaxf4m8m2"))
                     (modules '((guix build utils)
                                (ice-9 regex)))
                     (snippet
                       '(begin
                          ;; Remove external stuff we don't need.
                          (for-each (lambda (dir)
                                      (delete-file-recursively
                                        (string-append "Externals/" dir)))
                                    '(
                                      ;"LZO" "OpenAL" "Qt" "SFML" "bzip2"
                                      "LZO" "OpenAL" "Qt" "bzip2"
                                      ;; XXX: Attempting to use the vulkan-headers package
                                      ;; results in "error:
                                      ;; ‘VK_PRESENT_MODE_RANGE_SIZE_KHR’ was not declared
                                      ;; in this scope".
                                      ;;"Vulkan"
                                      "cubeb" "curl" "enet"
                                      ;"ffmpeg" "fmt" "gettext"
                                      "fmt" "gettext"
                                      ;; XXX: Attempting to use an unbundled glslang at the
                                      ;; exact commit used by Dolphin still results in
                                      ;; "error: ‘DefaultTBuiltInResource’ is not a member
                                      ;; of ‘glslang’".
                                      ;;"glslang"
                                      ;; XXX: Googletest cannot currently easily be
                                      ;; unbundled, as there are missing linking
                                      ;; directives.
                                      ;;"gtest"
                                      ;"hidapi" "libpng" "libusb" "mbedtls"
                                      "hidapi" "libusb" "mbedtls"
                                      ;"miniupnpc" "minizip" "MoltenVK" "pugixml"
                                      "miniupnpc" "MoltenVK" "pugixml"
                                      ;"soundtouch"
                                      ;"xxhash" "zlib" "zstd"
                                      "xxhash" "zstd"
                                      ))
                          ;; Clean up the source.
                          (for-each delete-file
                                    (find-files
                                      "."
                                      (lambda (file _)
                                        (and (string-match "\\.(bin|dsy|exe|jar|rar)$" file)
                                             ;; Preserve the important wc24 .bin
                                             ;; configuration *data* files.
                                             (not (member (basename file)
                                                          '("misc.bin"
                                                            "nwc24dl.bin"
                                                            "nwc24fl.bin"
                                                            "nwc24fls.bin")))))))
                          ;; Do not attempt to include now-missing directories.
                          (substitute* "CMakeLists.txt"
                                       ((".*add_subdirectory.*Externals/enet.*") "")
                                       ((".*add_subdirectory.*Externals/soundtouch.*") "")
                                       ((".*add_subdirectory.*Externals/xxhash.*") ""))))
                     ;(patches (search-patches "dolphin-emu-data.patch")
                     ))))

(define-public sdl2-2.30.9
               (package
                 (inherit sdl2)
                 (name "sdl2-2.30.9")
                 (version "2.30.9")
                 (source (origin
                           (method url-fetch)
                           (uri
                             (string-append "https://libsdl.org/release/SDL2-"
                                            version ".tar.gz"))
                           (sha256
                             (base32
                               "197bdcfnnsd4k7q91y518kari0p3rcqbdfq40zsn79w73kvp9d94"))))
                 ))

(define-public enet-1.3.18
               (package
                 (inherit enet)
                 (name "enet-1.3.18")
                 (version "1.3.18")
                 (source
                   (origin
                     (method url-fetch)
                     (uri (string-append "http://enet.bespin.org/download/"
                                         "enet-" version ".tar.gz"))
                     (sha256
                       (base32 "0djxz2j8248bsvbrs42vr39fhxlrqr3lqbhzs7yb92ync19hr2ia"))))
                 ))

(define-public sfml-3
               (package
                 (inherit sfml)
                 (name "sfml-3")
                 (version "3.0.0")
                 (inputs (modify-inputs (package-inputs sfml)
                                        (prepend libxcursor libxi miniaudio)))
                 (source (origin
                           (method git-fetch)
                           (uri (git-reference
                                  (url "https://github.com/SFML/SFML")
                                  (recursive? #t)
                                  (commit version)))
                           (file-name (git-file-name name version))
                           (sha256
                             (base32
                               "0y37cmpp490gcibajigxsbjc6icggqv40jrhzj2kwygpc0ppzb3v"))
                           (modules '((guix build utils)))
                           ;(snippet
                           ;  '(begin
                           ;     ;; Ensure system libraries are used.
                           ;     (delete-file-recursively "extlibs")
                           ;     #t))
                           ))
                 ))

(define-public miniaudio
               (package
                 (name "miniaudio")
                 (version "0.11.22")
                 (source (origin
                           (method git-fetch)
                           (uri (git-reference
                                  (url "https://github.com/mackron/miniaudio")
                                  (commit version)))
                           (file-name (git-file-name name version))
                           (sha256
                             (base32
                               "1pjaiq71x24n9983vkhjxrsbraa24053h727db22b1rb2xyfrzm3"))))
                 (build-system cmake-build-system)
                 (arguments
                   (list 
                     #:tests? #f
                     #:phases
                     #~(modify-phases %standard-phases
                                      (replace 'install
                                               (lambda _
                                                 (let ((out #$output))
                                                   ;; Ensure the output directory exists
                                                   (mkdir-p (string-append out "/lib"))
                                                   ;; Copy the static libraries to the output directory
                                                   (for-each (lambda (file)
                                                               (copy-file file (string-append out "/lib/" file))) ; Ensure the destination is a file
                                                             '("libminiaudio.a"
                                                               "libminiaudio_channel_combiner_node.a"
                                                               "libminiaudio_channel_separator_node.a"
                                                               "libminiaudio_ltrim_node.a"
                                                               "libminiaudio_reverb_node.a"
                                                               "libminiaudio_vocoder_node.a"))))))))
                 (synopsis "Audio playback and capture library written in C, in a single source file.")
                 (description "miniaudio is written in C with no dependencies except the standard library and should compile clean on all major compilers without the need to install any additional development packages. All major desktop and mobile platforms are supported.")
                 (home-page "https://miniaud.io/")
                 (license license:expat)))

(define-public openbox-patched
  (package
    (inherit openbox)
    (name "openbox-patched")
    (version "3.6.1")
    (source (origin
              (method url-fetch)
              (uri (string-append
                    "http://openbox.org/dist/openbox/" name "-"
                    version ".tar.xz"))
              (sha256
               (base32
                "0vg2y1qddsdxkjv806mzpvmkgzliab8ll4s7zm7ma5jnriamirxb"))
              (patches (search-patches "aux-files/openbox/openbox-add-fix-for-glib2-exposed-segfault.patch" "aux-files/openbox/openbox-python3.patch"))))
    ))