/*
Copyright (C) 1996-1997 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 included (GNU.txt) 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 "quakedef.h"
#include "winquake.h"

#if defined(_MSC_VER) && (_MSC_VER < 1300)
#define DWORD_PTR DWORD
#endif

extern	HWND	mainwindow;
extern	cvar_t	bgmvolume;

static qboolean	initialized;
static qboolean	initializefailed;
static DWORD resumeend;
static qboolean	pollneeded;	//workaround for windows vista/7 bug, where notification simply does not work for end of tracks.

static UINT	wDeviceID;

int CDAudio_GetAudioDiskInfo(void)
{
	DWORD				dwReturn;
	static MCI_STATUS_PARMS	mciStatusParms;

	if (!CDAudio_Startup())
		return -1;

	if (!initialized)
		return -1;

	mciStatusParms.dwItem = MCI_STATUS_READY;
	mciStatusParms.dwCallback = (DWORD_PTR)mainwindow;
    dwReturn = mciSendCommand(wDeviceID, MCI_STATUS, MCI_STATUS_ITEM | MCI_WAIT, (DWORD_PTR) (LPVOID) &mciStatusParms);
	if (dwReturn)
	{
		Con_DPrintf("CDAudio: drive ready test - get status failed\n");
		return -1;
	}
	if (!mciStatusParms.dwReturn)
	{
		Con_DPrintf("CDAudio: drive not ready\n");
		return -1;
	}

	mciStatusParms.dwItem = MCI_STATUS_NUMBER_OF_TRACKS;
	mciStatusParms.dwCallback = (DWORD_PTR)mainwindow;
    dwReturn = mciSendCommand(wDeviceID, MCI_STATUS, MCI_STATUS_ITEM | MCI_WAIT, (DWORD_PTR) (LPVOID) &mciStatusParms);
	if (dwReturn)
	{
		Con_DPrintf("CDAudio: get tracks - status failed\n");
		return -1;
	}
	if (mciStatusParms.dwReturn < 1)
	{
		Con_DPrintf("CDAudio: no music tracks\n");
		return -1;
	}

	return mciStatusParms.dwReturn;
}
qboolean CDAudio_Startup(void)
{
	DWORD	dwReturn;
	static MCI_OPEN_PARMSA	mciOpenParms;
    static MCI_SET_PARMS	mciSetParms;

	if (initializefailed)
		return false;

	if (initialized)
		return true;

	mciOpenParms.lpstrDeviceType = "cdaudio";
	mciOpenParms.dwCallback = (DWORD_PTR)mainwindow;
	dwReturn = mciSendCommand(0, MCI_OPEN, MCI_OPEN_TYPE | MCI_OPEN_SHAREABLE, (DWORD_PTR) (LPVOID) &mciOpenParms);
	if (dwReturn)
	{
		Con_Printf("CDAudio_Init: MCI_OPEN failed (%i)\n", (int)dwReturn);
		initializefailed = true;
		return 0;
	}
	wDeviceID = mciOpenParms.wDeviceID;

    // Set the time format to frames. vista+ simply cannot come with converting to/from seconds, or something (notifies don't work, status stays playing, position stops updating at about 3 frames from the end of the track).
    mciSetParms.dwTimeFormat = MCI_FORMAT_MSF;
	mciSetParms.dwCallback = (DWORD_PTR)mainwindow;
	dwReturn = mciSendCommand(wDeviceID, MCI_SET, MCI_SET_TIME_FORMAT, (DWORD_PTR)(LPVOID) &mciSetParms);
    if (dwReturn)
    {
		Con_Printf("MCI_SET_TIME_FORMAT failed (%i)\n", (int)dwReturn);
        mciSendCommand(wDeviceID, MCI_CLOSE, 0, (DWORD_PTR)NULL);
		initializefailed = true;
		return 0;
    }

	initialized = true;

	if (CDAudio_GetAudioDiskInfo() <= 0)
	{
		Con_Printf("CDAudio_Init: No CD in player.\n");
	}

	return true;
}
void CDAudio_Shutdown(void)
{
	if (initialized)
	{
		CDAudio_Stop();
		if (mciSendCommand(wDeviceID, MCI_CLOSE, MCI_WAIT, (DWORD_PTR)NULL))
			Con_DPrintf("CDAudio_Shutdown: MCI_CLOSE failed\n");
	}

	initialized = false;
}

void CDAudio_Eject(void)
{
	DWORD	dwReturn;

	dwReturn = mciSendCommand(wDeviceID, MCI_SET, MCI_SET_DOOR_OPEN, (DWORD_PTR)NULL);
    if (dwReturn)
		Con_DPrintf("MCI_SET_DOOR_OPEN failed (%i)\n", (int)dwReturn);
}

void CDAudio_CloseDoor(void)
{
	DWORD	dwReturn;

	dwReturn = mciSendCommand(wDeviceID, MCI_SET, MCI_SET_DOOR_CLOSED, (DWORD_PTR)NULL);
    if (dwReturn)
		Con_DPrintf("MCI_SET_DOOR_CLOSED failed (%i)\n", (int)dwReturn);
}

//try to add time values sensibly because:
//a) microsoft api SUCKS and does not directly support frames.
//b) microsoft buggily stops 3 frames short of the end of the track if we use tmsf...
//c) frames added together will break things
//d) we can subtract an offset so we can actually detect when its reached the end of a track
//e) we need to do frames so we don't break if some track is exactly a multiple of a second long
DWORD MSFToFrames(DWORD base)
{
	int m = MCI_MSF_MINUTE(base);
	int s = MCI_MSF_SECOND(base);
	int f = MCI_MSF_FRAME(base);

	s += m*60;
	f += 75*s;	//75 frames per second.
	return f;
}
DWORD FramesToMSF(DWORD in)
{
	DWORD m, s, f;
	f = in % 75;
	in /= 75;
	s = in % 60;
	in /= 60;
	m = in;

	return MCI_MAKE_MSF(m, s, f);
}

void CDAudio_Play(int track)
{
	DWORD				dwReturn;
    static MCI_PLAY_PARMS		mciPlayParms;
	static MCI_STATUS_PARMS	mciStatusParms;
	DWORD trackstartposition;

	if (track < 1)
	{
		Con_DPrintf("CDAudio: Bad track number %u.\n", track);
		return;
	}

	// don't try to play a non-audio track
	mciStatusParms.dwItem = MCI_CDA_STATUS_TYPE_TRACK;
	mciStatusParms.dwTrack = track;
	mciStatusParms.dwCallback = (DWORD_PTR)mainwindow;
    dwReturn = mciSendCommand(wDeviceID, MCI_STATUS, MCI_STATUS_ITEM | MCI_TRACK | MCI_WAIT, (DWORD_PTR) (LPVOID) &mciStatusParms);
	if (dwReturn)
	{
		Con_DPrintf("MCI_STATUS failed (%i)\n", (int)dwReturn);
		return;
	}
	if (mciStatusParms.dwReturn != MCI_CDA_TRACK_AUDIO)
	{
		Con_Printf("CDAudio: track %i is not audio\n", track);
		return;
	}

	// get the start of the track to be played
	mciStatusParms.dwItem = MCI_STATUS_POSITION;
	mciStatusParms.dwTrack = track;
	mciStatusParms.dwCallback = (DWORD_PTR)mainwindow;
    dwReturn = mciSendCommand(wDeviceID, MCI_STATUS, MCI_STATUS_ITEM | MCI_TRACK | MCI_WAIT, (DWORD_PTR) (LPVOID) &mciStatusParms);
	if (dwReturn)
	{
		Con_DPrintf("MCI_STATUS failed (%i)\n", (int)dwReturn);
		return;
	}
	trackstartposition = mciStatusParms.dwReturn;

	// get the length of the track to be played
	mciStatusParms.dwItem = MCI_STATUS_LENGTH;
	mciStatusParms.dwTrack = track;
	mciStatusParms.dwCallback = (DWORD_PTR)mainwindow;
    dwReturn = mciSendCommand(wDeviceID, MCI_STATUS, MCI_STATUS_ITEM | MCI_TRACK | MCI_WAIT, (DWORD_PTR) (LPVOID) &mciStatusParms);
	if (dwReturn)
	{
		Con_DPrintf("MCI_STATUS failed (%i)\n", (int)dwReturn);
		return;
	}

	//set up to play from start to start+length
    mciPlayParms.dwFrom = trackstartposition;
	mciPlayParms.dwTo = resumeend = FramesToMSF(MSFToFrames(trackstartposition) + MSFToFrames(mciStatusParms.dwReturn) - 8);	//-8 to avoid microsoft's potential fuck ups
    mciPlayParms.dwCallback = (DWORD_PTR)mainwindow;
    dwReturn = mciSendCommand(wDeviceID, MCI_PLAY, MCI_NOTIFY | MCI_FROM | MCI_TO, (DWORD_PTR)(LPVOID) &mciPlayParms);
	if (dwReturn)
	{
		Con_DPrintf("CDAudio: MCI_PLAY failed (%i)\n", (int)dwReturn);
		return;
	}

	pollneeded = true;

	if (!bgmvolume.value)
		CDAudio_Pause ();

	return;
}


void CDAudio_Stop(void)
{
	DWORD	dwReturn;

	pollneeded = false;

	dwReturn = mciSendCommand(wDeviceID, MCI_STOP, 0, (DWORD_PTR)NULL);
    if (dwReturn)
		Con_DPrintf("MCI_STOP failed (%i)", (int)dwReturn);
}


void CDAudio_Pause(void)
{
	DWORD				dwReturn;
	static MCI_GENERIC_PARMS	mciGenericParms;

	if (!pollneeded)
		return;

	mciGenericParms.dwCallback = (DWORD_PTR)mainwindow;
	dwReturn = mciSendCommand(wDeviceID, MCI_PAUSE, 0, (DWORD_PTR)(LPVOID) &mciGenericParms);
    if (dwReturn)
		Con_DPrintf("MCI_PAUSE failed (%i)", (int)dwReturn);

	pollneeded = false;
}


void CDAudio_Resume(void)
{
	DWORD			dwReturn;
    static MCI_PLAY_PARMS	mciPlayParms;

	if (!bgmvolume.value)
		return;

    mciPlayParms.dwFrom = resumeend;
    mciPlayParms.dwTo = resumeend;
    mciPlayParms.dwCallback = (DWORD_PTR)mainwindow;
    dwReturn = mciSendCommand(wDeviceID, MCI_PLAY, MCI_TO | MCI_NOTIFY, (DWORD_PTR)(LPVOID) &mciPlayParms);
	if (dwReturn)
	{
		Con_DPrintf("CDAudio: MCI_PLAY failed (%i)\n", (int)dwReturn);
		return;
	}

	pollneeded = true;
}

LONG CDAudio_MessageHandler(HWND hWnd, UINT uMsg, WPARAM wParam, LPARAM lParam)
{
	if (lParam != wDeviceID)
		return 1;

	switch (wParam)
	{
		case MCI_NOTIFY_SUCCESSFUL:
			pollneeded = false;
			Media_EndedTrack();
			break;

		case MCI_NOTIFY_ABORTED:
		case MCI_NOTIFY_SUPERSEDED:
			break;

		case MCI_NOTIFY_FAILURE:
			Con_DPrintf("MCI_NOTIFY_FAILURE\n");
			CDAudio_Stop ();
			CDAudio_Shutdown();
//			Media_EndedTrack();
			break;

		default:
			Con_DPrintf("Unexpected MM_MCINOTIFY type (%i)\n", (int)wParam);
			return 1;
	}

	return 0;
}

void CDAudio_Update(void)
{
	//workaround for vista bug where MCI_NOTIFY does not work to signal the end of the track.
	if (pollneeded)
	{
		MCI_STATUS_PARMS mciStatusParms;
		mciStatusParms.dwCallback = (DWORD_PTR)mainwindow;
		mciStatusParms.dwItem = MCI_STATUS_POSITION;
		mciStatusParms.dwReturn = resumeend;
		mciStatusParms.dwTrack = 0;
		if (0 == mciSendCommand(wDeviceID, MCI_STATUS, MCI_WAIT|MCI_STATUS_ITEM, (DWORD_PTR)&mciStatusParms))
		{
			unsigned int c, f;
			int cm = MCI_MSF_MINUTE(mciStatusParms.dwReturn);
			int cs = MCI_MSF_SECOND(mciStatusParms.dwReturn);
			int cf = MCI_MSF_FRAME(mciStatusParms.dwReturn);
			int fm = MCI_MSF_MINUTE(resumeend);
			int fs = MCI_MSF_SECOND(resumeend);
			int ff = MCI_MSF_FRAME(resumeend);
			c = cf | (cs<<8) | (cm<<16);
			f = ff | (fs<<8) | (fm<<16);
			if (c >= f)
			{
				pollneeded = false;
				Media_EndedTrack();
			}
		}
	}
}

void CDAudio_Init(void)
{
}