It helps when I post code that actually works.
The following will enumerate all joysticks found on your system.
(defun joystick ()
(sdl:with-init (sdl:SDL-INIT-EVERYTHING)
(sdl:window 320 240 :title-caption "Joystick" :icon-caption "Joystick")
(dotimes (stick (sdl-cffi::sdl-num-joysticks))
(setf *joystick* (sdl-cffi::sdl-joystick-open stick))
(if (sdl:is-valid-ptr *joystick*)
(progn
(format t "Opened Joystick ~D~%" stick)
(format t "Name: ~A~%" (sdl-cffi::sdl-joystick-name stick))
(format t "Number of Axes: ~d~%"
(sdl-cffi::sdl-joystick-num-axes *joystick*))
(format t "Number of Buttons: ~d~%"
(sdl-cffi::sdl-joystick-num-buttons *joystick*))
(format t "Number of Balls: ~d~%"
(sdl-cffi::sdl-joystick-num-balls *joystick*)))
(format t "Couldn't open Joystick.~%"))
(when (> (sdl-cffi::sdl-joystick-opened stick) 0)
(sdl-cffi::sdl-joystick-close *joystick*)))
(unless (> (sdl-cffi::sdl-num-joysticks) 0)
(format t "No Joystick found.~%"))))
- Luke
_______________________________________________
application-builder mailing list
[email protected]
http://www.lispniks.com/mailman/listinfo/application-builder
