Return Styles: Pseud0ch, Terminal, Valhalla, NES, Geocities, Blue Moon. Entire thread

If syntax-case is so cool...

Name: Anonymous 2011-11-08 0:54

why (require (lib "defmacro.ss"))?

Name: Anonymous 2011-11-08 1:44

How do I name foreign arguments?



(define-macro (sdlfun name . args)

  `(define ,name

     (get-ffi-obj ,(symbol->string name) libsdl

                  (_fun ,@args))))



(define libsdl (ffi-lib "libSDL"))



(define SDL_Surface (make-ctype _pointer #f #f))



(sdlfun SDL_Init _int -> _int)

(sdlfun SDL_SetVideoMode _int _int _int _int -> SDL_Surface)

Newer Posts