Module CdromSource

Sourcetype cdrom_drive_status =
  1. | NO_INFO
  2. | NO_DISC
  3. | TRAY_OPEN
  4. | DRIVE_NOT_READY
  5. | DISC_OK
Sourceval string_of_cdrom_drive_status : cdrom_drive_status -> string
Sourcetype cdrom_disc_status =
  1. | DISC_NO_INFO
  2. | DISC_NO_DISC
  3. | AUDIO
  4. | DATA_1
  5. | DATA_2
  6. | XA_2_1
  7. | XA_2_2
  8. | MIXED
Sourceval string_of_cdrom_disc_status : cdrom_disc_status -> string
Sourceval query_cdrom_status : string -> cdrom_drive_status * cdrom_disc_status

query_cdrom_status device returns the state of both the drive and any disc currently inside.

Sourceval query_cdrom_drive_status : string -> cdrom_drive_status

query_cdrom_drive_status device returns the state of the drive only.

Sourceval query_cdrom_mcn : string -> string

query_cdrom_mcn device returns the "Universal Product Code" if available.