[gambit-list] moving to blackhole
Martin DeMello
martindemello at gmail.com
Mon Oct 5 12:33:02 EDT 2009
I'm writing bindings to sdl-ttf, and I have the following small
program to test that everything compiles and runs:
(include "../src/sdl-interface.scm")
(include "sdl-ttf.scm")
(define (main)
(SDL::initialize SDL::init-everything)
(TTF::init)
(SDL::set-window-caption "Hello World" "Hello World")
(let* ((screen (SDL::set-video-mode 640 480 32 SDL::swsurface))
(courier (TTF::open-font "/usr/share/fonts/TTF/cour.ttf" 10))
(stext (TTF::render-text-solid courier "Hello World" 0 0 255 0)))
(SDL::BLIT-surface stext 0 0 640 480 screen 0 0 640 480)
(SDL::flip screen)
(SDL::Delay 2000)
(TTF::quit)
))
(main)
This compiled and ran perfectly via
gsc -exe -cc-options '-I/usr/include/SDL/' -ld-options '-L/usr/lib
-lSDL -lSDL_ttf' ttf-test.scm
Now I'm trying to convert just this one file to blackhole, loading
sdl-interface and sdl-ttf as external dependencies. After going
through the blackhole docs, I tried the following:
(load "~~/lib/modules/build")
(compile-options force-compile: #t
cc-options: "-I/usr/include/SDL/"
ld-options: "-L/usr/lib -lSDL -lSDL_ttf")
(import "../src/sdl-interface")
(import "sdl-ttf")
(define (main)
(SDL::initialize SDL::init-everything)
(TTF::init)
(SDL::set-window-caption "Hello World" "Hello World")
(let* ((screen (SDL::set-video-mode 640 480 32 SDL::swsurface))
(courier (TTF::open-font "/usr/share/fonts/TTF/cour.ttf" 10))
(stext (TTF::render-text-solid courier "Hello World" 0 0 255 0)))
(SDL::BLIT-surface stext 0 0 640 480 screen 0 0 640 480)
(SDL::flip screen)
(SDL::Delay 2000)
(TTF::quit)
))
(main)
and tried compiling it with
gsc -exe ttf-sdl.scm
which threw up a bunch of warnings that SDL::* was not defined
Commenting out the first line and compiling it with
bsc ttf-test.scm
died with
*** ERROR IN module#lib-module-resolver -- Not a valid lib URL
"../src/sdl-interface"
even after compiling sdl-interface and sdl-ttf to object files.
Could someone help me get this running?
martin
More information about the Gambit-list
mailing list