Module Sdl.Init

module Init: sig .. end

type subsystem = [ `AUDIO | `EVENTS | `GAMECONTROLLER | `HAPTIC | `JOYSTICK | `TIMER | `VIDEO
       ] 

val init : [< `AUDIO
        | `EVENTS
        | `EVERYTHING
        | `GAMECONTROLLER
        | `HAPTIC
        | `JOYSTICK
        | `NOPARACHUTE
        | `TIMER
        | `VIDEO ]
       list -> unit

val init_subsystem : subsystem list -> unit