[bug#74485] [PATCH 0/1] gnu: emulators: Add libretro-beetle-gba.

[bug#74485] [PATCH 0/1] gnu: emulators: Add libretro-beetle-gba.

[Noé Lopez via Guix-patches via]

From: Noé Lopez <noelopez@free.fr>

Hi,

Here is a patch to add Beetle GBA’s libretro port, to use with RetroArch.

You can test it with “./pre-inst-env guix shell libretro-beetle-gba retroarch -- retroarch“.  It will appear in the cores list and can be used to play GBA games.

I checked that BSD code was not included like in the original Beetle GBA from
Mednafen (the fork only contains a subset of it).

Have a great day,
Noé Lopez

Noé Lopez (1):
  gnu: emulators: Add libretro-beetle-gba.

 gnu/packages/emulators.scm | 37 +++++++++++++++++++++++++++++++++++++
 1 file changed, 37 insertions(+)


base-commit: 1affd2b5aa7f5467a44cf757c4fc0c6956d3f3c9
-- 
2.46.0

[bug#74485] [PATCH 1/1] gnu: emulators: Add libretro-beetle-gba.

[Noé Lopez via Guix-patches via]

From: Noé Lopez <noelopez@free.fr>

* gnu/packages/emulators.scm (libretro-beetle-gba): New variable.

Change-Id: I3f58972ae9065e7e59b2d9fd5b31d528f7690da2
---
 gnu/packages/emulators.scm | 37 +++++++++++++++++++++++++++++++++++++
 1 file changed, 37 insertions(+)

diff --git a/gnu/packages/emulators.scm b/gnu/packages/emulators.scm
index 948e588c4c..4d757048a4 100644
--- a/gnu/packages/emulators.scm
+++ b/gnu/packages/emulators.scm
@@ -743,6 +743,43 @@ (define-public mednafen
     ;; Main license is GPL2+.  Some parts are BSD-3.
     (license (list license:gpl2+ license:bsd-3))))
 
+(define-public libretro-beetle-gba
+  ;; There are no releases.  Use the latest commit.
+  (let ((commit "6cee80685f735ea6c2373db2622a1f1ee9f39d39")
+        (revision "0"))
+    (package
+      (name "libretro-beetle-gba")
+      ;; Use Mednafen core version as base.  Defined in libretro.cpp:73.
+      (version (git-version "0.9.36" revision commit))
+      (source
+       (origin
+         (method git-fetch)
+         (uri (git-reference
+               (url "https://github.com/libretro/beetle-gba-libretro")
+               (commit commit)))
+         (file-name (git-file-name name version))
+         (sha256
+          (base32 "14fm2g3hrsvvd57d6m9apzc30ypa4m0m5hk2viq422fm2l9y0xbb"))))
+      (build-system gnu-build-system)
+      (arguments
+       (list
+        #:make-flags #~(list "CC=gcc"
+                             (string-append "GIT_VERSION="
+                                            #$commit)
+                             (string-append "DESTDIR="
+                                            #$output) "prefix=/")
+        ;; No tests.
+        #:tests? #f
+        #:phases #~(modify-phases %standard-phases
+                     (delete 'configure))))
+      (home-page "https://github.com/libretro/beetle-gba-libretro")
+      (synopsis "Standalone port of Mednafen GBA to libretro")
+      (description
+       "A standalone port of Mednafen’s GameBoy Advance emulator called
+Beetle GBA to libretro.  Beetle GBA is based on VBA-M, itself a fork of Visual Boy
+Advance.  This is an old fork, and is not recommended over newer alternatives.")
+      (license license:gpl2+))))
+
 (define-public mgba
   (package
     (name "mgba")
-- 
2.46.0