diff --git a/gnu/packages/sdl.scm b/gnu/packages/sdl.scm index 822a1edeae0..b797025fd95 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")