package ocamlsdl

  1. Overview
  2. Docs
exception SDLcdrom_exception of string
exception Trayempty
type cdrom_drive
type cdrom_drive_status =
  1. | CD_TRAYEMPTY
  2. | CD_STOPPED
  3. | CD_PLAYING
  4. | CD_PAUSED
type track_type =
  1. | TRACK_AUDIO
  2. | TRACK_DATA
type track = {
  1. id : int;
  2. kind : track_type;
  3. length : int;
  4. offset : int;
}
type cdrom_info = {
  1. num_tracks : int;
  2. curr_track : int;
  3. curr_frame : int;
  4. 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