blob: c3e0ba6e1eb8b215054623098aacbe1a099673b1 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
(define-module (sdl2 config)
#:export (%libsdl2
%libsdl2-image
%libsdl2-ttf
%libsdl2-mixer))
;; Special case Windows since the DLL names are different. Performing
;; this check at runtime allows a Linux machine to cross-compile
;; guile-sdl2 for a Windows target.
(define %windows? (string-prefix? "Windows" (utsname:sysname (uname))))
(define %libsdl2 (if %windows? "SDL2" "@SDL2_LIBDIR@/libSDL2"))
(define %libsdl2-image (if %windows? "SDL2_image" "@SDL2_IMAGE_LIBDIR@/libSDL2_image"))
(define %libsdl2-ttf (if %windows? "SDL2_ttf" "@SDL2_TTF_LIBDIR@/libSDL2_ttf"))
(define %libsdl2-mixer (if %windows? "SDL2_mixer" "@SDL2_MIXER_LIBDIR/libSDL2_mixer@"))
|
