Module Sdl

module Sdl: 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

val quit : unit -> unit

val quit_requested : unit -> bool

val get_platform : unit -> string

module Init: sig .. end

module Quit: sig .. end

module Window: sig .. end

module Surface: sig .. end

module Render: sig .. end

module Texture: sig .. end

module TextureAccess: sig .. end

module PixelFormat: sig .. end

module Pixel: sig .. end

module BlendMode: sig .. end

module Event: sig .. end

module Keyboard: sig .. end

module Keycode: sig .. end

module Scancode: sig .. end

module Keymod: sig .. end

module Mouse: sig .. end

module Joystick: sig .. end

module Hat: sig .. end

module Rect: sig .. end

module Timer: sig .. end

module Clipboard: sig .. end

module GL: sig .. end

module Audio: sig .. end

module Filesystem: sig .. end

module Version: sig .. end

module CPUInfo: sig .. end

module Power: sig .. end

module RWops: sig .. end

module Error: sig .. end

module Hint: sig .. end