cd_win.c

Go to the documentation of this file.

/*
Copyright (C) 1997-2001 Id Software, Inc.
 
This program is free software; you can redistribute it and/or
modify it under the terms of the GNU General Public License
as published by the Free Software Foundation; either version 2
of the License, or (at your option) any later version.
 
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  
 
See the GNU General Public License for more details.
 
You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
 
*/
// Quake is a trademark of Id Software, Inc., (c) 1996 Id Software, Inc. All
// rights reserved.
 
#include <windows.h>
#include "../client/client.h"
 
extern  HWND    cl_hwnd;
 
static qboolean cdValid = false;
static qboolean playing = false;
static qboolean wasPlaying = false;
static qboolean initialized = false;
static qboolean enabled = false;
static qboolean playLooping = false;
static byte     remap[100];
static byte     cdrom;
static byte     playTrack;
static byte     maxTrack;
 
cvar_t *cd_nocd;
cvar_t *cd_loopcount;
cvar_t *cd_looptrack;
 
UINT    wDeviceID;
int     loopcounter;
 
 
void CDAudio_Pause(void);
 
static void CDAudio_Eject(void)
{
    DWORD   dwReturn;
 
    if (dwReturn = mciSendCommand(wDeviceID, MCI_SET, MCI_SET_DOOR_OPEN, (DWORD)NULL))
        Com_DPrintf("MCI_SET_DOOR_OPEN failed (%i)\n", dwReturn);
}
 
 
static void CDAudio_CloseDoor(void)
{
    DWORD   dwReturn;
 
    if (dwReturn = mciSendCommand(wDeviceID, MCI_SET, MCI_SET_DOOR_CLOSED, (DWORD)NULL))
        Com_DPrintf("MCI_SET_DOOR_CLOSED failed (%i)\n", dwReturn);
}
 
 
static int CDAudio_GetAudioDiskInfo(void)
{
    DWORD               dwReturn;
    MCI_STATUS_PARMS    mciStatusParms;
 
 
    cdValid = false;
 
    mciStatusParms.dwItem = MCI_STATUS_READY;
    dwReturn = mciSendCommand(wDeviceID, MCI_STATUS, MCI_STATUS_ITEM | MCI_WAIT, (DWORD) (LPVOID) &mciStatusParms);
    if (dwReturn)
    {
        Com_DPrintf("CDAudio: drive ready test - get status failed\n");
        return -1;
    }
    if (!mciStatusParms.dwReturn)
    {
        Com_DPrintf("CDAudio: drive not ready\n");
        return -1;
    }
 
    mciStatusParms.dwItem = MCI_STATUS_NUMBER_OF_TRACKS;
    dwReturn = mciSendCommand(wDeviceID, MCI_STATUS, MCI_STATUS_ITEM | MCI_WAIT, (DWORD) (LPVOID) &mciStatusParms);
    if (dwReturn)
    {
        Com_DPrintf("CDAudio: get tracks - status failed\n");
        return -1;
    }
    if (mciStatusParms.dwReturn < 1)
    {
        Com_DPrintf("CDAudio: no music tracks\n");
        return -1;
    }
 
    cdValid = true;
    maxTrack = mciStatusParms.dwReturn;
 
    return 0;
}
 
void CDAudio_Play2(int track, qboolean looping)
{
    DWORD               dwReturn;
    MCI_PLAY_PARMS      mciPlayParms;
    MCI_STATUS_PARMS    mciStatusParms;
 
    if (!enabled)
        return;
    
    if (!cdValid)
    {
        CDAudio_GetAudioDiskInfo();
        if (!cdValid)
            return;
    }
 
    track = remap[track];
 
    if (track < 1 || track > maxTrack)
    {
        CDAudio_Stop();
        return;
    }
 
    // don't try to play a non-audio track
    mciStatusParms.dwItem = MCI_CDA_STATUS_TYPE_TRACK;
    mciStatusParms.dwTrack = track;
    dwReturn = mciSendCommand(wDeviceID, MCI_STATUS, MCI_STATUS_ITEM | MCI_TRACK | MCI_WAIT, (DWORD) (LPVOID) &mciStatusParms);
    if (dwReturn)
    {
        Com_DPrintf("MCI_STATUS failed (%i)\n", dwReturn);
        return;
    }
    if (mciStatusParms.dwReturn != MCI_CDA_TRACK_AUDIO)
    {
        Com_Printf("CDAudio: track %i is not audio\n", track);
        return;
    }
 
    // get the length of the track to be played
    mciStatusParms.dwItem = MCI_STATUS_LENGTH;
    mciStatusParms.dwTrack = track;
    dwReturn = mciSendCommand(wDeviceID, MCI_STATUS, MCI_STATUS_ITEM | MCI_TRACK | MCI_WAIT, (DWORD) (LPVOID) &mciStatusParms);
    if (dwReturn)
    {
        Com_DPrintf("MCI_STATUS failed (%i)\n", dwReturn);
        return;
    }
 
    if (playing)
    {
        if (playTrack == track)
            return;
        CDAudio_Stop();
    }
 
    mciPlayParms.dwFrom = MCI_MAKE_TMSF(track, 0, 0, 0);
    mciPlayParms.dwTo = (mciStatusParms.dwReturn << 8) | track;
    mciPlayParms.dwCallback = (DWORD)cl_hwnd;
    dwReturn = mciSendCommand(wDeviceID, MCI_PLAY, MCI_NOTIFY | MCI_FROM | MCI_TO, (DWORD)(LPVOID) &mciPlayParms);
    if (dwReturn)
    {
        Com_DPrintf("CDAudio: MCI_PLAY failed (%i)\n", dwReturn);
        return;
    }
 
    playLooping = looping;
    playTrack = track;
    playing = true;
 
    if ( Cvar_VariableValue( "cd_nocd" ) )
        CDAudio_Pause ();
}
 
 
void CDAudio_Play(int track, qboolean looping)
{
    // set a loop counter so that this track will change to the
    // looptrack later
    loopcounter = 0;
    CDAudio_Play2(track, looping);
}
 
void CDAudio_RandomPlay(void)
{
  int track, i = 0, free_tracks = 0, remap_track;
  float f;
  byte* track_bools;;
  DWORD             dwReturn;
  MCI_PLAY_PARMS        mciPlayParms;
  MCI_STATUS_PARMS  mciStatusParms;
  
  if (!enabled)
    return;
  
  //create array of available audio tracknumbers
 
  track_bools = (byte*)malloc(maxTrack * sizeof(byte));
 
  if (track_bools == 0)
    return;
  
  for (; i < maxTrack; i++)
    {
      // don't try to play a non-audio track
      mciStatusParms.dwItem = MCI_CDA_STATUS_TYPE_TRACK;
      mciStatusParms.dwTrack = remap[i];
      dwReturn = mciSendCommand(wDeviceID, MCI_STATUS, MCI_STATUS_ITEM | MCI_TRACK | MCI_WAIT, (DWORD) (LPVOID) &mciStatusParms);
      if (dwReturn)
    {
      track_bools[i] = 0;
    }
      else
        track_bools[i] = (mciStatusParms.dwReturn == MCI_CDA_TRACK_AUDIO);
      
      free_tracks += track_bools[i];
    }
  
  if (!free_tracks)
    {
      Com_DPrintf("CDAudio_RandomPlay: Unable to find and play a random audio track, insert an audio cd please");
      goto free_end;
    }
  
  //choose random audio track
  do
    {
      do
    {
      f = ((float)rand()) / ((float)RAND_MAX + 1.0);
      track = (int)(maxTrack  * f);
    }
      while(!track_bools[track]);
      
      remap_track = remap[track];
 
      // get the length of the track to be played
      mciStatusParms.dwItem = MCI_STATUS_LENGTH;
      mciStatusParms.dwTrack = remap_track;
      dwReturn = mciSendCommand(wDeviceID, MCI_STATUS, MCI_STATUS_ITEM | MCI_TRACK | MCI_WAIT, (DWORD) (LPVOID) &mciStatusParms);
      if (dwReturn)
    {
      Com_DPrintf("MCI_STATUS failed (%i)\n", dwReturn);
      goto free_end;
    }
      
      if (playing)
    {
      if (playTrack == remap_track)
        {
          goto free_end;
        }
      CDAudio_Stop();
    }
      
      mciPlayParms.dwFrom = MCI_MAKE_TMSF(remap_track, 0, 0, 0);
      mciPlayParms.dwTo = (mciStatusParms.dwReturn << 8) | remap_track;
      mciPlayParms.dwCallback = (DWORD)cl_hwnd;
      dwReturn = mciSendCommand(wDeviceID, MCI_PLAY, MCI_NOTIFY | MCI_FROM | MCI_TO, (DWORD)(LPVOID) &mciPlayParms);
      if (dwReturn)
    {
      track_bools[track] = 0;
      free_tracks--;
    }
      else
    {
      playLooping = true;
      playTrack = remap_track;
      playing = true;
      break;
    }
  while (free_tracks > 0);
    
free_end:
  free((void*)track_bools);
}
 
void CDAudio_Stop(void)
{
    DWORD   dwReturn;
 
    if (!enabled)
        return;
    
    if (!playing)
        return;
 
    if (dwReturn = mciSendCommand(wDeviceID, MCI_STOP, 0, (DWORD)NULL))
        Com_DPrintf("MCI_STOP failed (%i)", dwReturn);
 
    wasPlaying = false;
    playing = false;
}
 
 
void CDAudio_Pause(void)
{
    DWORD               dwReturn;
    MCI_GENERIC_PARMS   mciGenericParms;
 
    if (!enabled)
        return;
 
    if (!playing)
        return;
 
    mciGenericParms.dwCallback = (DWORD)cl_hwnd;
    if (dwReturn = mciSendCommand(wDeviceID, MCI_PAUSE, 0, (DWORD)(LPVOID) &mciGenericParms))
        Com_DPrintf("MCI_PAUSE failed (%i)", dwReturn);
 
    wasPlaying = playing;
    playing = false;
}
 
 
void CDAudio_Resume(void)
{
    DWORD           dwReturn;
    MCI_PLAY_PARMS  mciPlayParms;
 
    if (!enabled)
        return;
    
    if (!cdValid)
        return;
 
    if (!wasPlaying)
        return;
    
    mciPlayParms.dwFrom = MCI_MAKE_TMSF(playTrack, 0, 0, 0);
    mciPlayParms.dwTo = MCI_MAKE_TMSF(playTrack + 1, 0, 0, 0);
    mciPlayParms.dwCallback = (DWORD)cl_hwnd;
    dwReturn = mciSendCommand(wDeviceID, MCI_PLAY, MCI_TO | MCI_NOTIFY, (DWORD)(LPVOID) &mciPlayParms);
    if (dwReturn)
    {
        Com_DPrintf("CDAudio: MCI_PLAY failed (%i)\n", dwReturn);
        return;
    }
    playing = true;
}
 
 
static void CD_f (void)
{
    char    *command;
    int     ret;
    int     n;
 
    if (Cmd_Argc() < 2)
        return;
 
    command = Cmd_Argv (1);
 
    if (Q_strcasecmp(command, "on") == 0)
    {
        enabled = true;
        return;
    }
 
    if (Q_strcasecmp(command, "off") == 0)
    {
        if (playing)
            CDAudio_Stop();
        enabled = false;
        return;
    }
 
    if (Q_strcasecmp(command, "reset") == 0)
    {
        enabled = true;
        if (playing)
            CDAudio_Stop();
        for (n = 0; n < 100; n++)
            remap[n] = n;
        CDAudio_GetAudioDiskInfo();
        return;
    }
 
    if (Q_strcasecmp(command, "remap") == 0)
    {
        ret = Cmd_Argc() - 2;
        if (ret <= 0)
        {
            for (n = 1; n < 100; n++)
                if (remap[n] != n)
                    Com_Printf("  %u -> %u\n", n, remap[n]);
            return;
        }
        for (n = 1; n <= ret; n++)
            remap[n] = atoi(Cmd_Argv (n+1));
        return;
    }
 
    if (Q_strcasecmp(command, "close") == 0)
    {
        CDAudio_CloseDoor();
        return;
    }
 
    if (!cdValid)
    {
        CDAudio_GetAudioDiskInfo();
        if (!cdValid)
        {
            Com_Printf("No CD in player.\n");
            return;
        }
    }
 
    if (Q_strcasecmp(command, "play") == 0)
    {
        CDAudio_Play(atoi(Cmd_Argv (2)), false);
        return;
    }
 
    if (Q_strcasecmp(command, "loop") == 0)
    {
        CDAudio_Play(atoi(Cmd_Argv (2)), true);
        return;
    }
 
    if (Q_strcasecmp(command, "stop") == 0)
    {
        CDAudio_Stop();
        return;
    }
 
    if (Q_strcasecmp(command, "pause") == 0)
    {
        CDAudio_Pause();
        return;
    }
 
    if (Q_strcasecmp(command, "resume") == 0)
    {
        CDAudio_Resume();
        return;
    }
 
    if (Q_strcasecmp(command, "eject") == 0)
    {
        if (playing)
            CDAudio_Stop();
        CDAudio_Eject();
        cdValid = false;
        return;
    }
 
    if (Q_strcasecmp(command, "info") == 0)
    {
        Com_Printf("%u tracks\n", maxTrack);
        if (playing)
            Com_Printf("Currently %s track %u\n", playLooping ? "looping" : "playing", playTrack);
        else if (wasPlaying)
            Com_Printf("Paused %s track %u\n", playLooping ? "looping" : "playing", playTrack);
        return;
    }
}
 
 
LONG CDAudio_MessageHandler(HWND hWnd, UINT uMsg, WPARAM wParam, LPARAM lParam)
{
    if (lParam != wDeviceID)
        return 1;
 
    switch (wParam)
    {
        case MCI_NOTIFY_SUCCESSFUL:
            if (playing)
            {
                playing = false;
                if (playLooping)
                {
                    // if the track has played the given number of times,
                    // go to the ambient track
                    if (++loopcounter >= cd_loopcount->value)
                        CDAudio_Play2(cd_looptrack->value, true);
                    else
                        CDAudio_Play2(playTrack, true);
                }
            }
            break;
 
        case MCI_NOTIFY_ABORTED:
        case MCI_NOTIFY_SUPERSEDED:
            break;
 
        case MCI_NOTIFY_FAILURE:
            Com_DPrintf("MCI_NOTIFY_FAILURE\n");
            CDAudio_Stop ();
            cdValid = false;
            break;
 
        default:
            Com_DPrintf("Unexpected MM_MCINOTIFY type (%i)\n", wParam);
            return 1;
    }
 
    return 0;
}
 
 
void CDAudio_Update(void)
{
    if ( cd_nocd->value != !enabled )
    {
        if ( cd_nocd->value )
        {
            CDAudio_Stop();
            enabled = false;
        }
        else
        {
            enabled = true;
            CDAudio_Resume ();
        }
    }
}
 
 
int CDAudio_Init(void)
{
    DWORD   dwReturn;
    MCI_OPEN_PARMS  mciOpenParms;
    MCI_SET_PARMS   mciSetParms;
    int             n;
 
    if (initialized)
      return;
 
    cd_nocd = Cvar_Get ("cd_nocd", "0", CVAR_ARCHIVE );
    cd_loopcount = Cvar_Get ("cd_loopcount", "4", 0);
    cd_looptrack = Cvar_Get ("cd_looptrack", "11", 0);
    if ( cd_nocd->value)
        return -1;
 
    mciOpenParms.lpstrDeviceType = "cdaudio";
    if (dwReturn = mciSendCommand(0, MCI_OPEN, MCI_OPEN_TYPE | MCI_OPEN_SHAREABLE, (DWORD) (LPVOID) &mciOpenParms))
    {
        Com_Printf("CDAudio_Init: MCI_OPEN failed (%i)\n", dwReturn);
        return -1;
    }
    wDeviceID = mciOpenParms.wDeviceID;
 
    // Set the time format to track/minute/second/frame (TMSF).
    mciSetParms.dwTimeFormat = MCI_FORMAT_TMSF;
    if (dwReturn = mciSendCommand(wDeviceID, MCI_SET, MCI_SET_TIME_FORMAT, (DWORD)(LPVOID) &mciSetParms))
    {
        Com_Printf("MCI_SET_TIME_FORMAT failed (%i)\n", dwReturn);
        mciSendCommand(wDeviceID, MCI_CLOSE, 0, (DWORD)NULL);
        return -1;
    }
 
    for (n = 0; n < 100; n++)
        remap[n] = n;
    initialized = true;
    enabled = true;
 
    if (CDAudio_GetAudioDiskInfo())
    {
//      Com_Printf("CDAudio_Init: No CD in player.\n");
        cdValid = false;
        enabled = false;
    }
 
    Cmd_AddCommand ("cd", CD_f);
 
    Com_Printf("CD Audio Initialized\n");
 
    return 0;
}
 
 
void CDAudio_Shutdown(void)
{
    if (!initialized)
        return;
    CDAudio_Stop();
    if (mciSendCommand(wDeviceID, MCI_CLOSE, MCI_WAIT, (DWORD)NULL))
        Com_DPrintf("CDAudio_Shutdown: MCI_CLOSE failed\n");
    initialized = false;
}
 
 
/*
===========
CDAudio_Activate
 
Called when the main window gains or loses focus.
The window have been destroyed and recreated
between a deactivate and an activate.
===========
*/
void CDAudio_Activate (qboolean active)
{
    if (active)
        CDAudio_Resume ();
    else
        CDAudio_Pause ();
}