;;;; 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)))) (types? (version>=? (chicken-version) "4.7.4")) (files (append '("sdl-ttf.so" "sdl-ttf.import.so") (if types? '("sdl-ttf.types") '())))) (compile ,@(if types? '(-emit-type-file sdl-ttf.types) '()) -I ,(repository-path) -s -O3 -v -d1 sdl-ttf.scm -j sdl-ttf ,sdl-cflags -lSDL_ttf) (compile -s -O3 -d0 sdl-ttf.import.scm) (install-extension 'sdl-ttf files '((version "0.2"))))