/***********************************************************************/
/* Simple CD Player --- 24 October 1992                                */
/* This module provides the CD commands.                               */
/*                                                                     */
/* Written by John A. Junod using code ideas presented in the SDK      */
/* documentation.                                                      */
/*                                                                     */
/* Modify this as much as you wish and redistribute however you wish,  */
/* but I do ask that you give me some of the credit and that you let   */
/* other people use the final product for FREE and don't charge some   */
/* silly shareware fee of $25.                                         */
/***********************************************************************/

#include "cd.h"

extern HWND hMainWnd;
extern char szBuffer[];
extern HCURSOR hHourGlass;
extern BOOL bCanEject;
extern BOOL bPauseFlag;

DWORD CD_GetDeviceInfo(UINT wDeviceID) {
  HCURSOR hSaveCursor;
  DWORD dwReturn;
  MCI_GETDEVCAPS_PARMS mciGDCparms;
  MCI_STATUS_PARMS mciStatusParms;

  WAITON();
    // can this drive eject?
  mciGDCparms.dwItem=MCI_GETDEVCAPS_CAN_EJECT;
  if(dwReturn=mciSendCommand(wDeviceID,MCI_GETDEVCAPS,
      MCI_GETDEVCAPS_ITEM,
      (DWORD)(LPVOID)&mciGDCparms)) {
    WAITOFF();
    return(dwReturn);
  }
  bCanEject=mciGDCparms.dwReturn;
  mciStatusParms.dwItem=MCI_STATUS_MEDIA_PRESENT;
  if(dwReturn=mciSendCommand(wDeviceID,MCI_STATUS,
      MCI_STATUS_ITEM,
      (DWORD)(LPVOID)&mciStatusParms)) {
    WAITOFF();
    return(dwReturn);
  }
  WAITOFF();
  return(0L);
}

int CD_GetCurrentTrack(UINT wDeviceID) {
  DWORD dwReturn;
  int iCurrentTrack;
  MCI_SET_PARMS mciSetParms;
  MCI_STATUS_PARMS mciStatusParms;

  // set time format to minute/second/frame
  mciSetParms.dwTimeFormat=MCI_FORMAT_MSF;
  if(dwReturn=mciSendCommand(wDeviceID,MCI_SET,MCI_SET_TIME_FORMAT,
      (DWORD)(LPVOID)&mciSetParms))
    iCurrentTrack= -1;
  else {
    // get current track that we are playing
    mciStatusParms.dwItem=MCI_STATUS_CURRENT_TRACK;
    if(dwReturn=mciSendCommand(wDeviceID,MCI_STATUS,
        MCI_STATUS_ITEM,
        (DWORD)(LPVOID)&mciStatusParms))
      iCurrentTrack= -1;
    else
      iCurrentTrack=mciStatusParms.dwReturn;
  }
  return(iCurrentTrack);
}

int CD_GetCurrentStatus(UINT wDeviceID) {
  DWORD dwReturn;
  MCI_STATUS_PARMS mciStatusParms;
  int iRetCode;

  iRetCode=0;
  mciStatusParms.dwItem=MCI_STATUS_MODE;
  if(dwReturn=mciSendCommand(wDeviceID,MCI_STATUS,MCI_STATUS_ITEM,
      (DWORD)(LPVOID)&mciStatusParms)) {
    iRetCode= -1;
  } else {
    switch(mciStatusParms.dwReturn) {
      case MCI_MODE_PLAY:   iRetCode=1; break;
      case MCI_MODE_PAUSE: iRetCode=2; break;
      case MCI_MODE_OPEN:  iRetCode=4; break;
      case MCI_MODE_SEEK:  iRetCode=3; break;
      case MCI_MODE_NOT_READY: iRetCode=3; break;
    }
  }
  if(iRetCode==0 && bPauseFlag) iRetCode=2;
  return(iRetCode);
}

// play a given cdaudio track
DWORD CD_PlayTrack(UINT wDeviceID,BYTE bStartTrack,BYTE bEndTrack)
{
  HCURSOR hSaveCursor;
  DWORD dwParams;
  DWORD dwReturn;
  MCI_SET_PARMS mciSetParms;
  MCI_PLAY_PARMS mciPlayParms;

  WAITON();
  // set time format to track/minute/second/frame
  mciSetParms.dwTimeFormat=MCI_FORMAT_TMSF;
  if(dwReturn=mciSendCommand(wDeviceID,MCI_SET,MCI_SET_TIME_FORMAT,
      (DWORD)(LPVOID)&mciSetParms))
  {
    WAITOFF();
    return(dwReturn);
  }

  // notify on completion
  dwParams=MCI_NOTIFY;
  mciPlayParms.dwCallback=(DWORD)hMainWnd;
  // if start is not specified, we pick up where we left off
  if(bStartTrack>0) dwParams |= MCI_FROM;
  mciPlayParms.dwFrom=MCI_MAKE_TMSF(bStartTrack,0,0,0);
  // if end is not specified, we play the rest of the cd
  if(bEndTrack>bStartTrack) dwParams |= MCI_TO;
  mciPlayParms.dwTo  =MCI_MAKE_TMSF(bEndTrack,0,0,0);
  // execute the command
  dwReturn=mciSendCommand(wDeviceID,MCI_PLAY,
      dwParams,(DWORD)(LPVOID) &mciPlayParms);
  WAITOFF();
  return(dwReturn);
}

// pause cdaudio
DWORD CD_Pause(UINT wDeviceID) {
  HCURSOR hSaveCursor;
  DWORD dwReturn;
  MCI_GENERIC_PARMS mciGenericParms;

  WAITON();
  mciGenericParms.dwCallback=(DWORD)hMainWnd;
  dwReturn=mciSendCommand(wDeviceID,MCI_PAUSE,MCI_NOTIFY,
    (DWORD)(LPVOID)&mciGenericParms);
  WAITOFF();
  return(dwReturn);
}

DWORD CD_ResumePlay(UINT wDeviceID){
  HCURSOR hSaveCursor;
  DWORD dwReturn;
  MCI_GENERIC_PARMS mciGenericParms;
  MCI_PLAY_PARMS    mciPlayParms;

  WAITON();
  mciGenericParms.dwCallback=(DWORD)hMainWnd;
  mciPlayParms.dwCallback   =(DWORD)hMainWnd;
  // attempt a resume command, if it fails (device doesn't support it),
  // then do a play with no parameters.
  if(dwReturn=mciSendCommand(wDeviceID,MCI_RESUME,MCI_NOTIFY,
    (DWORD)(LPVOID)&mciGenericParms))
    dwReturn=mciSendCommand(wDeviceID,MCI_PLAY,MCI_NOTIFY,
      (DWORD)(LPVOID)&mciPlayParms);
  WAITOFF();
  return(dwReturn);
}

DWORD CD_Stop(UINT wDeviceID){
  HCURSOR hSaveCursor;
  DWORD dwReturn;
  MCI_GENERIC_PARMS mciGenericParms;

  WAITON();
  mciGenericParms.dwCallback=(DWORD)hMainWnd;
  dwReturn=mciSendCommand(wDeviceID,MCI_STOP,MCI_NOTIFY,
      (DWORD)(LPVOID)&mciGenericParms);
  WAITOFF();
  return(dwReturn);
}

DWORD CD_Open(UINT wDeviceID){
  HCURSOR hSaveCursor;
  DWORD dwReturn;
  MCI_SET_PARMS mciSetParms;

  WAITON();
  mciSetParms.dwCallback=(DWORD)hMainWnd;
  dwReturn=mciSendCommand(wDeviceID,MCI_SET_DOOR_OPEN,MCI_NOTIFY,
      (DWORD)(LPVOID)&mciSetParms);
  WAITOFF();
  return(dwReturn);
}

DWORD CD_Close(UINT wDeviceID){
  HCURSOR hSaveCursor;
  DWORD dwReturn;
  MCI_SET_PARMS mciSetParms;

  WAITON();
  mciSetParms.dwCallback=(DWORD)hMainWnd;
  dwReturn=mciSendCommand(wDeviceID,MCI_SET_DOOR_CLOSED,MCI_NOTIFY,
      (DWORD)(LPVOID)&mciSetParms);
  WAITOFF();
  return(dwReturn);
}

DWORD CD_ChangeTrack(UINT wDeviceID,int iNoffs) {
  int iNewTrack;

  iNewTrack=CD_GetCurrentTrack(wDeviceID)+iNoffs;
  if(iNewTrack<1) return(0L);
  return(CD_PlayTrack(wDeviceID,iNewTrack,0));
}