//-------------------------------------------------------------
//-------------------------------------------------------------
//-
//-			musicminiaudio.cpp
//-
//-------------------------------------------------------------
//-------------------------------------------------------------
//- by Roy at suggestion by nekonomicon, based on code by JujU
//-------------------------------------------------------------
//- mp3 player code for HL mod
//-------------------------------------------------------------
//-
//- compatible with version 0.11.9 of Miniaudio
//- https://github.com/mackron/miniaudio
//-
//-------------------------------------------------------------

/*
Don't forget to update the miniaudio submodule.

Miniaudio 0.11.9 or better required.

Tested on Debian.

For playlist format see the bottom of the file.
*/



//---------------------------------------------------------
// inclusions

#include "extdll.h"
#include "util.h"
#include "cbase.h"

#include "musicminiaudio.h"

//These are just initial ones. If the actual track has different ones, they will be re-applied during Play().
#define SAMPLE_FORMAT   ma_format_f32
#define CHANNEL_COUNT   2
#define SAMPLE_RATE     48000

CMusic g_MusicPlayer;
void CMusic_DecoderCallback(ma_device* pDevice, void* pOutput, const void* pInput, ma_uint32 frameCount);

//---------------------------------------------------------
// initialisation

void CMusic :: Init ( void )
{

	if( m_bInit == TRUE ){
		return; //Do not re-init.
	}

	deviceConfig = ma_device_config_init(ma_device_type_playback);
	deviceConfig.playback.format   = SAMPLE_FORMAT;
	deviceConfig.playback.channels = CHANNEL_COUNT;
	deviceConfig.sampleRate        = SAMPLE_RATE;
	deviceConfig.dataCallback      = CMusic_DecoderCallback; // this contains the callback that monitors the end of the song
	deviceConfig.pUserData         = NULL;

	if (ma_device_init(NULL, &deviceConfig, &device) != MA_SUCCESS) {
		ALERT ( at_console, "MUSICPLAYER : unable to initialize\n" );
		return;
	}

	m_bInit = TRUE;
}




//---------------------------------------------------------
// Callback being called during playback

void CMusic_DecoderCallback(ma_device* pDevice, void* pOutput, const void* pInput, ma_uint32 frameCount)
{
	if(g_MusicPlayer.m_IsPlaying == FALSE){
		return; //We are paused or stopped, let's exit now.
	}

	ma_decoder* pDecoder = (ma_decoder*)&g_MusicPlayer.decoder;
	if (pDecoder == NULL) {
		return;
	}

	if(frameCount<=0) return;

	ma_uint64 framesRead;

	ma_decoder_read_pcm_frames(pDecoder, pOutput, frameCount, &framesRead);
	if(framesRead < frameCount) //This happens when the song ends.
		g_MusicPlayer.songEnd();

	(void)pInput;
}

//---------------------------------------------------------
// playing an audio file


void CMusic :: OpenFile ( const char *filename, int repeat )
{
	audiofile_t *p = NULL;
	p = new audiofile_t;

	sprintf ( p->name, filename );
	p->repeat	= repeat;
	p->next		= m_pTrack;

	m_pTrack	= p;
}



//---------------------------------------------------------
// play a list of audio files


void CMusic :: OpenList ( const char *filename )
{
	
	// open text file

	FILE *myfile = fopen ( filename, "r" );

	if ( myfile == NULL )
	{
		ALERT ( at_console, "MUSICPLAYER : impossible to load %s\n", filename );
		return;
	}

	// saving songs to the list

	int total = 0;

	if ( fscanf ( myfile, "%i", &total ) != EOF )
	{
		for ( int i=0; i<total; i++ )
		{
			char	ctitle [128];
			int		irepeat;

			// reading the title

			if ( fscanf ( myfile, "%s", ctitle ) != EOF )
			{
				if ( fscanf ( myfile, "%i", &irepeat ) != EOF )
					OpenFile ( ctitle, irepeat );

				else
					break;
			}
			else
				break;
		}
	}

	// close text file

	fclose ( myfile );
}


//---------------------------------------------------------
// end of the song


void CMusic :: songEnd ( )
{
	// end of the song

	g_MusicPlayer.Stop ();

	// search for the first song in the list

	audiofile_t *p = NULL;
	p = g_MusicPlayer.m_pTrack;

	while ( p != NULL )
	{
		if ( p->next == NULL )
			break;
		else
			p = p->next;
	}

	if ( p == NULL )
	{
		ALERT ( at_console, "MUSICPLAYER : no song in the list\n" );
		return; 
	}

	// decrease repeat count

	p->repeat --;

	// removal of songs whose repeats ran off

	if ( p->repeat < 1 )
	{
		if ( g_MusicPlayer.m_pTrack == p )
		{
			delete g_MusicPlayer.m_pTrack;
			g_MusicPlayer.m_pTrack = NULL;
		}
		else
		{
			audiofile_t *q = NULL;
			q = g_MusicPlayer.m_pTrack;

			while ( q->next != p )
				q = q->next;

			delete q->next;
			q->next = NULL;
		}
	}

	// close player if list is empty

	if ( g_MusicPlayer.m_pTrack == NULL )
	{
		g_MusicPlayer.Reset();
	}

	// next track start

	else
	{
		g_MusicPlayer.Play();
	}

	return;
}


//---------------------------------------------------------
// initiate playback


void CMusic :: Play	( void )
{
	if ( m_IsPlaying == TRUE )
		return;

	if ( m_bInit == FALSE )
	{
		Init ();

		if ( m_bInit == FALSE )
		{
			ALERT ( at_console, "MUSICPLAYER : unable to initialize\n" );
			return;
		}
	}

	// search for the first song in the list

	audiofile_t *p = NULL;
	p = m_pTrack;

	while ( p != NULL )
	{
		if ( p->next == NULL )
			break;
		else
			p = p->next;
	}

	if ( p == NULL )
	{
		ALERT ( at_console, "MUSICPLAYER : no song in the list\n" );
		return; 
	}

	//Stop playback
	m_IsPlaying = FALSE; //Pause playback.
	ma_decoder_seek_to_pcm_frame(&decoder, 0); //Reset the file to start.

	// loading file
	char payload [512];
	sprintf(payload, "%s", p->name);

	ALERT ( at_console, "MUSICPLAYER : Opening file %s.\n", payload );

	result = ma_decoder_init_file(payload, NULL, &decoder);
	if (result != MA_SUCCESS) {
		ALERT ( at_console, "MUSICPLAYER : %s : can not load file\n", p->name );
		return;
	}

	//If the new track has different properties to the previous one.
	if(
		deviceConfig.playback.format != decoder.outputFormat ||
		deviceConfig.playback.channels != decoder.outputChannels ||
		deviceConfig.sampleRate != decoder.outputSampleRate
	){
		deviceConfig.playback.format   = decoder.outputFormat; //Change device settings
		deviceConfig.playback.channels = decoder.outputChannels;
		deviceConfig.sampleRate        = decoder.outputSampleRate;

		ALERT ( at_console, "MUSICPLAYER : Changing format to %d, channels to %d and sample rate to %d.\n", deviceConfig.playback.format, deviceConfig.playback.channels, deviceConfig.sampleRate);
		
		//Now we need to recreate the device to apply.
		ma_device_uninit(&device); //This is crucial, failing to do this results in segFault.
		if (ma_device_init(NULL, &deviceConfig, &device) != MA_SUCCESS) { //Apply new config.
			ALERT ( at_console, "MUSICPLAYER : Failed to change playback device configuration.\n" );
			g_MusicPlayer.m_bInit = FALSE; //We have been deinitialized. This is NOT ideal.
			return;
		}else
			ALERT ( at_console, "MUSICPLAYER : New configuration applied successfully.\n");
	}

	// playback
	if (ma_device_start(&device) != MA_SUCCESS) {
		ALERT ( at_console, "MUSICPLAYER : Failed to start playback device.\n" );
		m_IsPlaying = FALSE; //Pause playback.
		ma_decoder_seek_to_pcm_frame(&decoder, 0); //Reset the file to start.
		return;
	}else{
		m_IsPlaying = TRUE;
	}

	return;	
}


void CMusic :: Stop ( void )
{
	if ( m_IsPlaying == TRUE )
	{
		m_IsPlaying = FALSE; //Pause playback.
		ma_decoder_seek_to_pcm_frame(&decoder, 0); //Reset the file to start.
	}
}


void CMusic :: Reset ( void ) //Should instead be called "Next Track", but we keep Julien's naming.
{
	//Reset the player.
	if ( m_bInit == TRUE )
		ALERT ( at_console, "MUSICPLAYER : Player reset.\n" );

	Stop();

	audiofile_t *p = NULL;
	
	while ( m_pTrack != NULL )
	{
		p = m_pTrack;
		m_pTrack = p->next;
		delete p;
	}
}

void CMusic :: Terminate ( void ) //Cleanup and dereference
{
	ALERT ( at_console, "MUSICPLAYER : Terminating and unloading.\n" );
	ma_device_uninit(&device);
	ma_decoder_uninit(&decoder);
	g_MusicPlayer.m_bInit = FALSE;
}


//---------------------------------------------------------
// entity class



class CTriggerMusic : public CPointEntity
{
public:

	void	Spawn		( void );

	void	KeyValue	( KeyValueData *pkvd );
	void	Use			( CBaseEntity *pActivator, CBaseEntity *pCaller, USE_TYPE useType, float value );


	virtual int	Save	( CSave &save );
	virtual int	Restore	( CRestore &restore );


	static	TYPEDESCRIPTION m_SaveData[];


	string_t	m_iFileName;		// file path
	int			m_iFileType;		// text file (list) or audio file

};

LINK_ENTITY_TO_CLASS( trigger_music, CTriggerMusic );



TYPEDESCRIPTION CTriggerMusic::m_SaveData[] =
{
	DEFINE_FIELD( CTriggerMusic, m_iFileType, FIELD_INTEGER ),
	DEFINE_FIELD( CTriggerMusic, m_iFileName, FIELD_STRING ),
};

IMPLEMENT_SAVERESTORE( CTriggerMusic, CPointEntity );



void CTriggerMusic :: Spawn( void )
{
	pev->solid = SOLID_NOT;
	pev->effects = EF_NODRAW;

}

void CTriggerMusic :: KeyValue( KeyValueData *pkvd )
{
	if (FStrEq(pkvd->szKeyName, "filetype"))
	{
		m_iFileType = atoi(pkvd->szValue);
		pkvd->fHandled = TRUE;
	}
	else if (FStrEq(pkvd->szKeyName, "filename"))
	{
		m_iFileName = ALLOC_STRING(pkvd->szValue);
		pkvd->fHandled = TRUE;
	}
	else
		CPointEntity::KeyValue( pkvd );
}

void CTriggerMusic :: Use( CBaseEntity *pActivator, CBaseEntity *pCaller, USE_TYPE useType, float value )
{
	if ( g_MusicPlayer.m_IsPlaying == TRUE )
		return;

	if ( m_iFileType == MUSIC_AUDIO_FILE )
	{
		g_MusicPlayer.OpenFile ( STRING(m_iFileName), 1 );
	}
	else
	{
		g_MusicPlayer.OpenList ( STRING(m_iFileName) );
	}

	g_MusicPlayer.Play();
}







/*
code 


@PointClass base( Targetname ) = trigger_music : "Trigger Music"
[
	filetype(choices) : "File type" : 0 = 
	[
		0: "File list (*.txt)"
		1: "File wav mp2 mp3 ogg raw"
	]
	filename(string) : "Name (mod/folder/file.extension)"
]

*/


/*//---------------
Playlist contents

example: music01.txt file:

//

3

monmod/sound/mp3/music01_debut.mp3		1
monmod/sound/mp3/music01_boucle.mp3		3
monmod/sound/mp3/music01_fin.mp3		1


//

composition :
	- total number of tracks
	- path of the first music file
	- times to repeat that file
	- path of the second
	- etc ...

*///---------------