~ruther/guix-local: gnu: guile-sdl: Remove 2.0-specific bits.

4fa3f7967fb3ea271b52a2fd78c0bcc3feef795e — Ludovic Courtès 8 years ago 31c70cc

gnu: guile-sdl: Remove 2.0-specific bits.

* gnu/packages/sdl.scm (guile-sdl)[arguments]: Add #:modules.
In 'fix-env-and-patch' phase, use 'open-pipe*' to determine the
effective version; use it in makefiles.

patch browse .tar.gz

1 files changed, 14 insertions(+), 2 deletions(-)

M gnu/packages/sdl.scm

M gnu/packages/sdl.scm => gnu/packages/sdl.scm +14 -2

@@ 409,7 409,12 @@ directory.")
      '(#: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


@@ 418,9 423,16 @@ directory.")
              ;; 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/2.0 like Guile expects.
+
+             ;; Change the site directory /site/X.Y like Guile expects.
              (substitute* "build-aux/guile-baux/re-prefixed-site-dirs"
-               (("\"/site\"") "\"/site/2.0\""))
+               (("\"/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.