|
Last change
on this file since 27337 was
27337,
checked in by megane, 9 years ago
|
|
sdl-ttf: - supports whatever the sdl egg supported + some functionality to extract glyph metrics
|
|
File size:
827 bytes
|
| Line | |
|---|
| 1 | ;;;; sdl.setup -*- Scheme -*- |
|---|
| 2 | |
|---|
| 3 | (let* ((escape-flags (lambda (fs) |
|---|
| 4 | (map |
|---|
| 5 | (lambda (s) (if (not (or (string-prefix-ci? "-l" s) |
|---|
| 6 | (string-prefix-ci? "-i" s) |
|---|
| 7 | (string-prefix-ci? "-d" s))) |
|---|
| 8 | (sprintf " -C ~a " s) |
|---|
| 9 | (sprintf " ~a " s))) |
|---|
| 10 | (string-split fs)))) |
|---|
| 11 | (sdl-cflags (apply string-append |
|---|
| 12 | (escape-flags |
|---|
| 13 | (with-input-from-pipe "sdl-config --cflags" read-line)))) |
|---|
| 14 | |
|---|
| 15 | (types? (version>=? (chicken-version) "4.7.4")) |
|---|
| 16 | (files (append '("sdl-ttf.so" |
|---|
| 17 | "sdl-ttf.import.so") |
|---|
| 18 | (if types? '("sdl-ttf.types") '())))) |
|---|
| 19 | (compile ,@(if types? '(-emit-type-file sdl-ttf.types) '()) |
|---|
| 20 | -I ,(repository-path) |
|---|
| 21 | -s -O3 -v -d1 sdl-ttf.scm -j sdl-ttf ,sdl-cflags -lSDL_ttf) |
|---|
| 22 | (compile -s -O3 -d0 sdl-ttf.import.scm) |
|---|
| 23 | |
|---|
| 24 | (install-extension 'sdl-ttf files '((version "0.1")))) |
|---|
| 25 | |
|---|
Note: See
TracBrowser
for help on using the repository browser.
