guix_mirror_bot pushed a commit to branch master
in repository guix.
commit 7ae8fe9cf3bbd259232d65ac6f3fc557912c6b60
Author: Andreas Enge <[email protected]>
AuthorDate: Mon Sep 22 11:20:04 2025 +0200
gnu: Remove guile-sdl.
* gnu/packages/sdl.scm (guile-sdl): Delete variable.
Fixes: guix/guix#2200
Change-Id: Iba6016360e0739d36a6b25d209c84df45ee99f9b
---
gnu/packages/sdl.scm | 81 ----------------------------------------------------
1 file changed, 81 deletions(-)
diff --git a/gnu/packages/sdl.scm b/gnu/packages/sdl.scm
index 822a1edeae..b797025fd9 100644
--- a/gnu/packages/sdl.scm
+++ b/gnu/packages/sdl.scm
@@ -851,87 +851,6 @@ font files with Simple Directmedia Layer.")
(home-page "https://wiki.libsdl.org/SDL3/FrontPage";)
(license license:zlib)))
-(define-public guile-sdl
- (package
- (name "guile-sdl")
- (version "0.6.1")
- (source (origin
- (method url-fetch)
- (uri
- (string-append "mirror://gnu/guile-sdl/guile-sdl-"
- version ".tar.lz"))
- (sha256
- (base32
- "1q985nd3birr5pny74915x098fisa6llas3ijgf1b4gdz5717nzz"))))
- (build-system gnu-build-system)
- (native-inputs
- `(("lzip" ,lzip)
- ("pkg-config" ,pkg-config)
- ;; Required by test suite.
- ("libjpeg" ,libjpeg-turbo)
- ("xorg-server" ,xorg-server)))
- (inputs
- (list guile-2.2
- (sdl-union)))
- (arguments
- '(#:configure-flags
- (list (string-append "--with-sdl-prefix="
- (assoc-ref %build-inputs "sdl-union")))
- #:modules ((ice-9 popen)
- (guix build utils)
- (guix build gnu-build-system))
-
- #:parallel-build? #f ; parallel build fails
-
- #:phases
- (modify-phases %standard-phases
- (add-before 'configure 'fix-env-and-patch
- (lambda* (#:key inputs #:allow-other-keys)
- (setenv "GUILE_AUTO_COMPILE" "0")
- ;; SDL_image needs to dlopen libjpeg in the test suite.
- (setenv "LD_LIBRARY_PATH"
- (string-append (assoc-ref inputs "libjpeg") "/lib"))
-
- ;; Change the site directory /site/X.Y like Guile expects.
- (substitute* "build-aux/guile-baux/re-prefixed-site-dirs"
- (("\"/site\"")
- (let ((effective
- (read
- (open-pipe* OPEN_READ
- "guile" "-c"
- "(write (effective-version))"))))
- (string-append "\"/site/" effective "\""))))
-
- ;; Skip tests that rely on sound support, which is unavailable in
- ;; the build environment.
- (substitute* "test/Makefile.in"
- (("HAVE_MIXER = .*$")
- "HAVE_MIXER = 0\n"))
- #t))
- (add-before 'check 'start-xorg-server
- (lambda* (#:key inputs #:allow-other-keys)
- ;; The test suite requires a running X server.
- (system (format #f "~a/bin/Xvfb :1 &"
- (assoc-ref inputs "xorg-server")))
- (setenv "DISPLAY" ":1")
- #t))
- (add-before 'check 'skip-cursor-test
- (lambda _
- ;; XXX: This test sometimes enters an endless loop, and sometimes
- ;; crashes with:
- ;; guile: xcb_io.c:147: append_pending_request: Assertion
`!xcb_xlib_unknown_seq_number' failed.
- ;; Skip it.
- (substitute* "test/cursor.scm"
- (("\\(SDL:init .*" all)
- (string-append "(exit 77) ;" all "\n")))
- #t)))))
- (synopsis "Guile interface for SDL (Simple DirectMedia Layer)")
- (description "Guile-SDL is a set of bindings to the Simple DirectMedia
-Layer (SDL). With them, Guile programmers can have easy access to graphics,
-sound and device input (keyboards, joysticks, mice, etc.).")
- (home-page "https://www.gnu.org/software/guile-sdl/";)
- (license license:gpl3+)))
-
(define-public guile-sdl2
(package
(name "guile-sdl2")
