From 18e6031f7405b8b9c38255db1957e1eb064d4632 Mon Sep 17 00:00:00 2001
From: Andrew Wong <wongandj@icloud.com>
Date: Tue, 4 Mar 2025 13:47:43 -0500
Subject: [PATCH] gnu: dosbox-staging: Update to 0.82.0.
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

* gnu/packages/emulators.scm (dosbox-staging): Update to 0.82.0.
[arguments]: Enable MT-32 emulation.
[inputs]: Add mt32emu, googletest.

Change-Id: Ia8ccdd533be6932e2e4fc3660cb472791194523a
Signed-off-by: 宋文武 <iyzsong@member.fsf.org>
---
 gnu/packages/emulators.scm | 23 +++++++++--------------
 1 file changed, 9 insertions(+), 14 deletions(-)

diff --git a/gnu/packages/emulators.scm b/gnu/packages/emulators.scm
index 0eafc3df9e5a256cb9379f81b904d62a54b94b3d..fc31a42934ca34b518e9264e2d13cd1ef436a3c7 100644
--- a/gnu/packages/emulators.scm
+++ b/gnu/packages/emulators.scm
@@ -571,7 +571,7 @@ older games.")
   ;; This is not a patch staging area for DOSBox, but an unaffiliated fork.
   (package
     (name "dosbox-staging")
-    (version "0.81.0")
+    (version "0.82.0")
     (source
      (origin
        (method git-fetch)
@@ -580,32 +580,27 @@ older games.")
              (commit (string-append "v" version))))
        (file-name (git-file-name name version))
        (sha256
-        (base32 "1fkshxaq12pd72v8m2f3a6d6jk9gh39hn0846gfkfinvw7yykzrl"))))
+        (base32 "1s4c6fiyjm91dnmkval9fvsqszc6yjq5b6pq895xi606dn29b85d"))))
     (build-system meson-build-system)
     (arguments
-     (list #:configure-flags
-           #~(list
-              ;; These both try to git clone subprojects.
-              "-Dunit_tests=disabled"   ; gtest
-              "-Duse_mt32emu=false")
-           #:phases
+     (list #:phases
            #~(modify-phases %standard-phases
-               (add-after 'unpack 'fix-includes
+               (add-after 'unpack 'skip-failing-tests
                  (lambda _
-                   ;; This unnecessary file has an encoding error.
-                   (delete-file "./src/libs/sdlcd/macosx/SDLOSXCAGuard.h")
-                   (substitute* (find-files "." "\\.(cpp|h)")
-                     (("^(#[[:space:]]*include <)(SDL[_.])" _ include file)
-                      (string-append include "SDL2/" file))))))))
+                   (substitute* "tests/meson.build"
+                     ;; XXX: This test fails with "Segmentation fault".
+                     (("[{].*'shell_cmds'.*,") "")))))))
     (native-inputs
      (list pkg-config))
     (inputs
      (list alsa-lib
            fluidsynth
+           googletest
            iir
            libpng
            libslirp
            mesa
+           mt32emu
            opusfile
            sdl2
            sdl2-image