1 files changed, 0 insertions(+), 81 deletions(-)

M 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")