sig
type subsystem =
[ `AUDIO
| `EVENTS
| `GAMECONTROLLER
| `HAPTIC
| `JOYSTICK
| `TIMER
| `VIDEO ]
external init :
[< `AUDIO
| `EVENTS
| `EVERYTHING
| `GAMECONTROLLER
| `HAPTIC
| `JOYSTICK
| `NOPARACHUTE
| `TIMER
| `VIDEO ]
list -> unit = "caml_SDL_Init"
external init_subsystem : Sdlinit.subsystem list -> unit
= "caml_SDL_InitSubSystem"
end