ocamlsdl

Interface between OCaml and SDL
IN THIS PACKAGE
Module Sdlcdrom
exception SDLcdrom_exception of string
exception Trayempty
type cdrom_drive
type cdrom_drive_status =
| CD_TRAYEMPTY
| CD_STOPPED
| CD_PLAYING
| CD_PAUSED
type track_type =
| TRACK_AUDIO
| TRACK_DATA
type track = {
id : int;
kind : track_type;
length : int;
offset : int;
}
type cdrom_info = {
num_tracks : int;
curr_track : int;
curr_frame : int;
tracks : track array;
}
val get_num_drives : unit -> int
val drive_name : int -> string
val cd_open : int -> cdrom_drive
val cd_close : cdrom_drive -> unit
val cd_status : cdrom_drive -> cdrom_drive_status
val cd_info : cdrom_drive -> cdrom_info
val msf_of_frames : int -> int * int * int
val frames_of_msf : (int * int * int) -> int
val cd_play_tracks : cdrom_drive -> start_track:int -> start_frame:int -> num_tracks:int -> num_frames:int -> unit
val cd_play_track : cdrom_drive -> track -> unit
val cd_pause : cdrom_drive -> unit
val cd_resume : cdrom_drive -> unit
val cd_stop : cdrom_drive -> unit
val cd_eject : cdrom_drive -> unit