GNU bug report logs - #75353
[PATCH] gnu: Add libretro-beetle-psx

Previous Next

To add a comment to this bug, you must first unarchive it, by sending
a message to control AT debbugs.gnu.org, with unarchive 75353 in the body.
You can then email your comments to 75353 AT debbugs.gnu.org in the normal way.

Toggle the display of automated, internal messages from the tracker.

Message #5 received at submit <at> debbugs.gnu.org (full text, mbox):

From: Andrew Wong <wongandj <at> icloud.com>
To: guix-patches <at> gnu.org
Cc: Andrew Wong <wongandj <at> icloud.com>
Subject: [PATCH] gnu: Add libretro-beetle-psx
Date: Sat,  4 Jan 2025 10:54:33 -0500

* gnu/packages/emulators.scm (make-libretro-beetle-psx): New function.
(libretro-beetle-psx, libretro-beetle-psx-hw): New variables.

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

diff --git a/gnu/packages/emulators.scm b/gnu/packages/emulators.scm
index b65c91cdf5..386e3cde4b 100644
--- a/gnu/packages/emulators.scm
+++ b/gnu/packages/emulators.scm
@@ -1463,6 +1463,56 @@ (define-public nestopia-ue
 emulation community.  It provides highly accurate emulation.")
     (license license:gpl2+)))
 
+(define (make-libretro-beetle-psx name hw)
+  (let ((commit "80d3eba272cf6efab6b76e4dc44ea2834c6f910d")
+	(revision "0"))
+   (package
+    (name name)
+    ;; Use Mednafen core version as base. Defined in libretro_options.h:10
+    (version (git-version "0.9.44.1" revision commit))
+    (source
+     (origin
+       (method git-fetch)
+       (uri (git-reference
+             (url "https://github.com/libretro/beetle-psx-libretro")
+             (commit commit)))
+       (file-name (git-file-name name version))
+       (sha256
+        (base32 "14kkrlqhv9pqmbqlv8vvcp0ps938dmg8pk47d7zzc8piq51hkawk"))))
+    (build-system gnu-build-system)
+    (arguments
+     (list #:make-flags #~(list (string-append "HAVE_HW=" #$(if hw "1" "0"))
+                                (string-append "CC=" #$(cc-for-target))
+                                (string-append "GIT_VERSION=" #$commit)
+                                (string-append "prefix=" #$output))
+           #:tests? #f                  ;no tests
+           #:phases #~(modify-phases %standard-phases
+                        (delete 'configure)
+			(replace 'install ;there is no install target
+			  (lambda* (#:key outputs #:allow-other-keys)
+			    (let* ((libretro (string-append
+					      (assoc-ref outputs "out")
+					      "/lib/libretro")))
+			      (install-file (string-append "mednafen_psx_"
+                                                           #$(if hw "hw_" "")
+                                                           "libretro.so")
+					    libretro)))))))
+    (inputs (list mesa))
+    (home-page "https://github.com/libretro/beetle-psx-libretro")
+    (synopsis "Standalone port of Mednafen PSX to libretro")
+    (description
+     "Beetle PSX is a port/fork of Mednafen's PSX module to the libretro
+API.  Additional features include PBP/CHD file format support,
+high-resolution software rendering, OpenGL and Vulkan renderers, and
+PGXP perspective correct texturing.")
+    (license license:gpl2))))
+
+(define-public libretro-beetle-psx
+  (make-libretro-beetle-psx "libretro-beetle-psx" #f))
+
+(define-public libretro-beetle-psx-hw
+  (make-libretro-beetle-psx "libretro-beetle-psx-hw" #t))
+
 (define-public libretro-lowresnx
   (package
     (name "libretro-lowresnx")

base-commit: 321edcf0744a8895690579e8a5b09b66c75d102c
-- 
2.47.1

Message #10 received at 75353-done <at> debbugs.gnu.org (full text, mbox):

From: 宋文武 <iyzsong <at> envs.net>
To: Andrew Wong <wongandj <at> icloud.com>
Cc: 75353-done <at> debbugs.gnu.org,
 Liliana Marie Prikler <liliana.prikler <at> gmail.com>,
 Adam Faiz <adam.faiz <at> disroot.org>
Subject: Re: [bug#75353] [PATCH] gnu: Add libretro-beetle-psx
Date: Sun, 12 Jan 2025 14:20:39 +0800

Andrew Wong <wongandj <at> icloud.com> writes:

> * gnu/packages/emulators.scm (make-libretro-beetle-psx): New function.
> (libretro-beetle-psx, libretro-beetle-psx-hw): New variables.

Pushed to master as commit a9a13ebccc1479e334630a811cec255eab0abe00.
Correct license to gpl2+, and a sentence for HW to the description.
Thank you!

Previous Next

GNU bug tracking system
Copyright (C) 1999 Darren O. Benham, 1997,2003 nCipher Corporation Ltd, 1994-97 Ian Jackson.