Re: [Caml-list] SDL2 bindings, testers and feedback welcome

[Florent Monnier <monnier.florent@gmail.com>]

2013/12/19, Florent Monnier wrote:
> 2013/12/17, Daniel Bünzli wrote:
>> * Testing the binding to the joystick/game controller/force feedback api,
>> I have none of these things in my hands.
[...]
> while running sdlevents.ml I can see logs in the console about key
> strokes events and mouse events, but nothing for the joypad.
[...]

with the following patch the logs then display events from the joypad:

================================================================
--- dbuenzli/tsdl-1904fb/test/sdlevents.ml
+++ dbuenzli/tsdl-JO/test/sdlevents.ml
@@ -20,6 +20,22 @@
       match Sdl.create_window ~w:640 ~h:480 "SDL events" flags with
       | `Error -> log_err " Create window:"
       | `Ok w ->
+
+            begin match Sdl.num_joysticks () with
+            | `Error -> log_err " Num Joysticks:"
+            | `Ok nj ->
+                log " Num Joysticks: %d" nj;
+                for i = 0 to nj-1 do
+                  match Sdl.joystick_open i with
+                  | `Error -> log_err " Opening Joysticks %d:" i
+                  | `Ok j ->
+                      match Sdl.joystick_name j with
+                      | `Error -> log_err " Getting name for joystick %d:" i
+                      | `Ok jname ->
+                          log " Joystick `%s` opened" jname
+                done;
+            end;
+
             Sdl.start_text_input ();
             let e = Sdl.Event.create () in
             try
================================================================

i'll issue it on gh

-- 
Florent