;;;; sdl.setup -*- Scheme -*-


(let* ((escape-flags (lambda (fs)
		       (map
			(lambda (s) (if (not (or (string-prefix-ci? "-l" s)
						 (string-prefix-ci? "-i" s)
						 (string-prefix-ci? "-d" s)))
					(sprintf " -C ~a " s)
					(sprintf " ~a " s)))
			(string-split fs))))
       (sdl-cflags (apply string-append
			  (escape-flags
			   (with-input-from-pipe "sdl-config --cflags" read-line))))
       (sdl-lflags (apply string-append
                          (escape-flags
                           (with-input-from-pipe "sdl-config --libs" read-line)))))
  (compile -s -O3 -d1 sdl.scm -j sdl -lSDL ,sdl-cflags ,sdl-lflags)
  (compile -s -O3 -d0 sdl.import.scm ,sdl-cflags ,sdl-lflags))

(install-extension 'sdl '("sdl.so" "sdl.import.so") '((version "0.5.5")))