#include <stdlib.h>
#include <stdio.h>
#include <stdint.h>
#include <unistd.h>
#include <stdbool.h>
#include <string.h>


#include "Megaphone_Music.h"
#include "JZsdkLib.h"
#include "TTS/Megaphone_TTS.h"
#include "opus/Megaphone_Opus.h"

#include "Interface.h"

#include <pthread.h>
#include <dirent.h> 

#include "Megaphone_InputAndOutput.h"

#include "version_choose.h"
#include "JZsdk_Base/JZsdk_Code/JZsdk_Code.h"

#define WAVDIR "/root/sdcard/audio"

//是否滤波true/false
#define EQ_RAWPLAY 		false
#define EQ_STREAMPLAY 	false
#define EQ_FILEPLAY 	true

#define SAVE_VOLUME     JZ_FLAGCODE_OFF

#if DEVICE_VERSION == JZ_H150S || DEVICE_VERSION == JZ_H150T
	#define MAX_VOLUME		(61)
	#define MAX_TTS_VOLUME		(75)
#elif DEVICE_VERSION == JZ_H1E
	#define MAX_VOLUME		(75)
	#define MAX_TTS_VOLUME		(82)
#elif DEVICE_VERSION == JZ_H1T
    #define MAX_VOLUME			75
	#define MAX_TTS_VOLUME		84
#elif DEVICE_VERSION == JZ_H10
	#define MAX_VOLUME		(65)
	#define MAX_TTS_VOLUME		(70)
	//#define MAX_VOLUME		(95)
	//#define MAX_TTS_VOLUME		(95)
#elif DEVICE_VERSION == JZ_H10T
	#define MAX_VOLUME		(83)
	#define MAX_TTS_VOLUME		(83)
#elif DEVICE_VERSION == JZ_U3
	#define MAX_VOLUME		(100)
	#define MAX_TTS_VOLUME		(100)
#else
	#define MAX_VOLUME		(75)
	#define MAX_TTS_VOLUME		(75)
#endif

static int music_sum=0;//歌曲总数
static int music_num=0;//当前播放的歌曲编号
static char musiclist[128][128];//最多存取128首歌曲
static int musicname_len[128];//每首歌曲名字长度

static int record_sum=0;//录音总数
static int record_num=0;//当前播放的录音编号
static char recordlist[128][128];//最多存取128首录音
static int record_len[128];//每首录音名字长度

static int MusicLoopPlayMode=0;//播放模式，MusicLoopPlayMode==1单曲循环，MusicLoopPlayMode==0单曲播放

static int music_nowtime=0;   //当前音频播放时间 
static int music_time=0;      //当前音频的总时间

int now_volume=20;//默认音量10--》50+10/2==55
int set_volume_value=0;//音量值

int set_volume_flag=0;//默认是0

static int g_ReturnFrame_PlayStatusFlag = 0; //returnframe的播放状态标志位

struct EQValues eq_values;

static void *SET_volume(void *arg);

void returnframe(char* data, int datasize);//回调函数，监听播放状态



int Music_Read_VolumeFromFile()
{
	printf("正在读取音频文件\n");

	FILE *Volume_fp = fopen("/root/VolumeSaveFile","r");
	if (Volume_fp == NULL)
	{
		printf("Music_Read_VolumeSaveValue打开文件失败\n");
		return 20;
	}
		printf("打开音频文件\n");

	int volume;

	if (fscanf(Volume_fp, "%d", &volume) != 1) 
	{
        printf("无法从文件中读取音量\n");
        return 20;
    }
		printf("读取完毕\n");
	fclose(Volume_fp);

	printf("读取到的音乐大小:%d\n",volume);

	return volume;
}

int Music_Save_VolumeToFile() 
{
	printf("保存本地音量\n");

    FILE* Volume_fp = fopen("/root/VolumeSaveFile", "w");
    if (Volume_fp == NULL) {
        printf("Music_Save_VolumeToFile无法打开文件 \n");
        return JZ_ERROR_SYSTEM_MODULE_CODE_FAILURE;
    }
    
    fprintf(Volume_fp, "%d", now_volume);
    
    fclose(Volume_fp);
}

void music_init(void)//初始化音乐
{	
    printf("音乐初始化\n");

#if FILTERING_TYPE == HIGH_PASS_FILTERING
    //滤波器初始化	
    eq_values.GAIN_31Hz=-48;
	eq_values.GAIN_62Hz=-48;
	eq_values.GAIN_125Hz=-48;
	eq_values.GAIN_250Hz=-24;
	eq_values.GAIN_500Hz=-24;
	eq_values.GAIN_1KHz=-4;
	eq_values.GAIN_2KHz=0;
	eq_values.GAIN_4KHz=0;
	eq_values.GAIN_8KHz=0;
	eq_values.GAIN_16KHz=0;
	printf("滤波初始化，当前类型为高通滤波\n");
#elif FILTERING_TYPE == DIRECTED_STOPBAND_FILTERING
	eq_values.BASS_GAIN=0;//-50db 低频减小音量
	eq_values.BASS_F=200;//HZ低频滤波点
	eq_values.BASS_Q_W=0;//低频曲线斜率
	eq_values.EQ_GAIN=-30;//-30db 高频减小音量
	eq_values.EQ_F=2900;//HZ高频滤波点
	eq_values.EQ_Q_W=10;//40高频曲线斜率
	printf("滤波初始化，当前类型为带阻滤波\n");
#endif

    //音频库回归帧初始化
	init(MP2,eq_values,returnframe);

	set_eq_rawplay(EQ_RAWPLAY);
    set_eq_streamplay(EQ_STREAMPLAY);
    set_eq_fileplay(EQ_FILEPLAY);

	delayMs(50);

    //向音频库发送刷新音频列表帧
	Music_SendFrame_FlushMusicList();

    //当前播放为第一首歌
	music_num=0;
#if	SAVE_VOLUME == JZ_FLAGCODE_ON
	//获取本地的音量
	int Read_volume = Music_Read_VolumeFromFile();
	set_volume(Read_volume);
#else
    //初始音量
	if (DEVICE_VERSION == JZ_H10T)
	{
		set_volume(10);
	}
	else
	{
		set_volume(20);
	}
#endif

	
}

//刷新音频列表
int Music_SendFrame_FlushMusicList()
{
    printf("向音频库发送：刷新列表\n");
	for(int i=0;i<music_sum;i++)
	{
		memset(musiclist[i],0,128);//清空音频数组
	}

	music_sum=0;//歌曲总数
	
	char readlist[11]={0x5a,0x5a,0x77,0x00,0x0c,0x01,0x00,0x53,0x02,0x1b,0x13};
	sendFrame(readlist,11);//调用查询
}

//获取录音列表 （暂时用不上）
int Music_SendFrame_GetRecordList()
{
    printf("向音频库发送：查询录音\n");
	for(int i=0;i<record_sum;i++)
    {
		memset(recordlist[i],0,128); //清空录音数组
	}
	record_sum=0;//歌曲总数
	char readlist[11]={0x5a,0x5a,0x77,0x00,0x0c,0x01,0x00,0x53,0x03,0x1b,0x13};
	sendFrame(readlist,11);//调用查询

}

//向音频库发送：暂停播放音乐
int Music_SendFrame_PauseMusic()
{
	printf("向音频库发送：暂停播放音乐\n");
	uint8_t Senddata[]={0x5a,0x5a,0x77,0x00,0x0b,0x01,0x00,0x52,0x05,0x49,0x53};
	sendFrame(Senddata,11);//停止播放
}

//向音频库发送：继续播放音乐
int Music_SendFrame_ContinueMusic()
{
	printf("向音频库发送：继续播放音乐\n");
	char Senddata[]={0x5a,0x5a,0x77,0x00,0x0b,0x01,0x00,0x52,0x04,0x89,0x92};
	sendFrame(Senddata,11);//播放功能
}

//向音频库发送：查询音频播放状态
int Music_SendFrame_CheckMusicPlayStatus()
{
    printf("向音频库发送：查询音频播放状态\n");
	char Senddata[]={0x5A	    ,0x5A	,0x77	,0x00	,0x0c	,0x00	,0x00	,0x53	,0xff	,0x00	,0x00	,0x23};
	sendFrame(Senddata,12);
}

//向音频库发送播放音乐
int Music_SendFrame_PlayMusic(char *music_name,int datasize)//播放指定音乐，music_name文件名
{
	uint8_t playdata[128]={0x5a,0x5a,0x77,0x00,0x00,0x01,0x00,0x52,0x02};
	memcpy(&playdata[9],music_name,datasize);
	playdata[4]=(uint8_t)(11+datasize);//补全长度位

	//遍历歌曲列表，从中寻找对应的音乐
	for(int i=0;i<music_sum;i++){
		if(strcmp(music_name, musiclist[i]) == 0){
			printf("歌曲%d相同,歌曲名:%s\n",i,musiclist[i]);
			music_num=i;
			sendFrame(playdata,9+datasize);//播放指定歌曲
			return JZ_ERROR_SYSTEM_MODULE_CODE_SUCCESS;
		}	
	}

	printf("播放错误%s,歌曲名无法在列表中找到\n",music_name);
	return JZ_ERRORCODE_MUSIC_NOT_FOUND_IN_LIST;
}

//获取上一首歌
int Music_Get_LastMusic(char *MusicName, int *MusicNameLen)
{
	//如果当前歌曲序号为第一首歌
	if(music_num==0)
	{
		//第一首的上一曲为最后一首
		music_num=music_sum-1;
	}
	//否则为上一首歌
	else
	{
		music_num = music_num - 1;
	}

    memcpy(MusicName,musiclist[music_num],musicname_len[music_num]);
    *MusicNameLen = musicname_len[music_num];

	return 0;
}

//获取下一首歌
int Music_Get_NextMusic(char *MusicName, int *MusicNameLen)
{
	//如果当前歌曲序号为第一首歌
	if(music_num==0)
	{
		//第一首的上一曲为最后一首
		music_num=music_sum-1;
	}
	//否则为上一首歌
	else
	{
		music_num = music_num - 1;
	}

    memcpy(MusicName,musiclist[music_num],musicname_len[music_num]);
    *MusicNameLen = musicname_len[music_num];

	return 0;
}

int Music_Set_MusicLoopPlayMode(int mode)//设置播放模式，mode==1单曲播放。mode==2单曲循环
{
	MusicLoopPlayMode=mode;
}

void set_volume(int value)//设置音量，音量0-100，默认音量value==10。
{
	pthread_t SET_volume_task;
	pthread_attr_t task_attribute; //线程属性
	pthread_attr_init(&task_attribute);  //初始化线程属性
	pthread_attr_setdetachstate(&task_attribute, PTHREAD_CREATE_DETACHED);      //设置线程属性
	printf("传入的值:%d\n",value);

	now_volume=value;//获取当前音量

	//10T要提高30初始音量
	if (DEVICE_VERSION == JZ_H10T)
	{
		if (value > 0)
		{
			value = 30 + value * 10/7;
		}
	}

	if(value<=0)
	{
		value=0;
	}

	else if(value>0&&value<100)
	{
		if (DEVICE_VERSION == JZ_U3)
		{
			value=value*MAX_VOLUME/100 *63/100;
		}
		
		else
		{
			value=value*MAX_VOLUME/100 *255/100;
		}
	}

	else if(value>=100)
	{
		if (DEVICE_VERSION == JZ_U3)
		{
			value=100*MAX_VOLUME/100 *63/100;
		}
		
		else
		{
			value=100*MAX_VOLUME/100 *255/100;
		}
		
	}


#if	SAVE_VOLUME == JZ_FLAGCODE_ON
	//获取本地的音量
	Music_Save_VolumeToFile();
#else
    //无操作

#endif

	set_volume_value=value;
	if(set_volume_flag==0){
		int volume_ret = pthread_create(&SET_volume_task,&task_attribute,SET_volume,NULL);		//TTS线程
		if(volume_ret != 0)
		{
			printf("创建volume线程失败！\n");
			return;
		}
	}
	//printf("设置音量为:%d",value);
}

int Music_SetTTSvolume()
{
	pthread_t SET_volume_task;
	pthread_attr_t task_attribute; //线程属性
	pthread_attr_init(&task_attribute);  //初始化线程属性
	pthread_attr_setdetachstate(&task_attribute, PTHREAD_CREATE_DETACHED);      //设置线程属性
	
	int value = now_volume;
	printf("TTS音量修改\n");

	//10T要提高30初始音量
	if (DEVICE_VERSION == JZ_H10T)
	{
		if (value > 0)
		{
			value = 30 + value * 10/7;
		}
	}


	if(value<=0)
	{
		value=0;
	}

	else if(value>0&&value<100)
	{
		if (DEVICE_VERSION == JZ_U3)
		{
			value=value*MAX_TTS_VOLUME/63 *63/100;
		}
		
		else
		{
			value=value*MAX_TTS_VOLUME/100 *255/100;
		}
	}

	else if(value>=100)
	{
		if (DEVICE_VERSION == JZ_U3)
		{
			value=100*MAX_TTS_VOLUME/100 *63/100;
		}
		
		else
		{
			value=100*MAX_TTS_VOLUME/100 *255/100;
		}
		
	}


	set_volume_value=value;
	if(set_volume_flag==0){
		int volume_ret = pthread_create(&SET_volume_task,&task_attribute,SET_volume,NULL);		//TTS线程
		if(volume_ret != 0)
		{
			printf("创建volume线程失败！\n");
			return JZ_ERROR_SYSTEM_MODULE_CODE_FAILURE;
		}
	}
	//printf("设置音量为:%d",value);
}


void *SET_volume(void *arg)
{
	set_volume_flag=1;
	char cmdBuffer[128];

	if (DEVICE_VERSION == JZ_H150S || DEVICE_VERSION == JZ_H150T || DEVICE_VERSION == JZ_H10)
	{
		snprintf(cmdBuffer,128, "amixer set -c 4 Master %d",set_volume_value);
	}
	else if (DEVICE_VERSION == JZ_H1E || DEVICE_VERSION == JZ_H1T)
	{
		snprintf(cmdBuffer,128, "amixer set -c 0 Master %d",set_volume_value);
	}
	else if (DEVICE_VERSION == JZ_H10T || DEVICE_VERSION == JZ_U3)
	{
		snprintf(cmdBuffer,128, "amixer sset -c 0 'Headphone' %d unmute",set_volume_value);
	}
	

	JZsdk_RunSystemCmd(cmdBuffer);
	printf("线程设置音量为:%d\n",set_volume_value);
	set_volume_flag=0;
}



void returnframe(char* data, int datasize)//回调函数，监听播放状态
{
	printf("音频库:returnframe:");
	for(int i=0;i<datasize;i++){
			printf("%x ",data[i]);
		}
	printf("\n");
	if(data[6]==0x41){//查询列表返回音频文件	
		musicname_len[music_sum]=datasize-10;
		memcpy(musiclist[music_sum],&data[7],datasize-10);
		printf("mp3: %s   datasize:%d\n",musiclist[music_sum],musicname_len[music_sum]);
		music_sum+=1;
	}
	if(data[6]==0x42){//录音文件	
		record_len[record_sum]=datasize-10;
		memcpy(recordlist[record_sum],&data[7],datasize-10);
		printf("record: %s   datasize:%d\n",recordlist[record_sum],record_len[record_sum]);
		record_sum+=1;
	}
	if(data[6]==0x50)
	{   //开始播放获取音频总时长
                music_time=0;
		for(int i=7;data[i]!=0;i++){
			music_time=music_time*16+data[i];
		}
		if(music_time<=0){
		}
		printf("总时长:%d\n",music_time);
	}
	if(data[6]==0x51)
    {   //当前播放时长
        music_nowtime=0;

		for(int i=7;data[i]!=0;i++)
        {
			music_nowtime=music_nowtime*16+data[i];
		}

		printf("当前时长:%d\n",music_nowtime);
	}

	if(data[6]==0xff) //播放结束
	{
		printf("播放结束\n");
		// if(music_nowtime>=music_time )
		// {
			printf("播放整首歌结束\n");
			//循环模式打开
			if (MusicLoopPlayMode == 1)
			{
				delayMs(1000);
				printf("循环播放%s %d",musiclist[music_num],musicname_len[music_num]);
				Music_SendFrame_PlayMusic(musiclist[music_num],musicname_len[music_num]);
			}
			//播放结束
			else
			{
                //关闭播放
                Megaphone_audio_PlayStop();
                
                //回复关闭状态
				Megaphone_Reply_PlayStatus_end();
			}
		//}
		// else
		// {
		// 	printf("播放结束时间对不上轴,music_nowtime:%d music_time:%d\n",music_nowtime,music_time);
		// }
		
	}
	if(data[6]==0x43)
    {   //当前播放状态
		char get_now_start[datasize-7];
		if(data[7]==1){
			printf("正在播放\n");
			g_ReturnFrame_PlayStatusFlag = 1;
		}
		else if(data[7]==2){
			printf("正在暂停\n");
			g_ReturnFrame_PlayStatusFlag = 0;
		}
		if(data[9]==0){
			printf("音乐列表\n");
		}
		else{
			printf("录音列表\n");
		}
		printf("当前音量%x\n",data[11]);
		for(int i=0;i<datasize-13;i++){
			get_now_start[i]=data[i+13];
		}
		printf("当前歌曲:%s\n",get_now_start);
	}
}

/***
 * 
 * 
 *  获取音频列表中的音频个数
 * 
 * ***/
int Music_get_music_list_sum()
{
	return music_sum;
}

/***
 * 
 * 
 *  获取音频列表中的歌曲名
 * 
 * ***/
int Music_get_music_list_name(int num, char *music_name, int *music_name_length)
{
	memcpy(music_name, musiclist[num], musicname_len[num]);
	*music_name_length = musicname_len[num];
	return 0;
}

/***
 * 
 * 
 *  获取当前音量值
 * 
 * ***/
int Music_get_music_volume()
{
	return now_volume;
}

/***
 * 
 * 
 *  获取当前播放的文件名
 * 
 * ***/
int Music_get_play_FileName(char *music_name, int *music_name_len)
{
	memcpy(music_name, musiclist[music_num], musicname_len[music_num]);
	*music_name_len = musicname_len[music_num];
	return 0;
}



/***
 * 
 * 
 *  获取ReturnFrame的播放状态
 *  需要搭配sendframe使用
 * ***/
int Music_Get_ReturnFrame_PlayStatusFlag()
{
	return g_ReturnFrame_PlayStatusFlag;
}

/*********
 * 
 *  获取音频循环状态
 * 
 * 
**********/
int Music_Get_LoopPlayMode()
{
	return MusicLoopPlayMode;
}

/**************
 * 
 *  流播放接口
 * 
 * *************/
int Music_RawPlay(int sample_rate, unsigned char *data, int dataSize)
{
    rawPlay(sample_rate, (uint8_t* )data, dataSize);
}


/**************
 * 
 *  帧播放接口
 * 
 * *************/
int Music_SendFrame_FramePlay(unsigned char* data, int DataSize)
{
    sendFrame(data, DataSize);
}


/**************
 * 
 *  获取音频列表信息
 * 
 * 
 * *****************/
int Muisc_GetMusicListMessage(char *MusicListMessage)
{
	//将5首歌曲写入显示信息
	//播的前面两首 和 播的后面两首

	char old_TempMusicList[256];
	char new_TempMusicList[256];
	char TempMusicList[256];
	int i,index;

	//清空当前信息
	memset(MusicListMessage,0,sizeof(MusicListMessage));

	//如果歌曲列表为空
	if (music_sum == 0)
	{
		snprintf(new_TempMusicList,255,"当前歌曲列表为空\n",musiclist[music_num]);
		snprintf(old_TempMusicList,255,"%s",TempMusicList);
		snprintf(TempMusicList,255,"%s%s",old_TempMusicList,new_TempMusicList);

		//将写好的歌曲放入返回的数组
		snprintf(MusicListMessage,255,"%s",TempMusicList);

		return 0;
	}

	//如果歌曲列表仅有1~4首歌
	if ( (music_sum >= 1) && (music_sum <= 4) )
	{
		for(i = 0;i<music_sum;i++)
		{
			if(i!=music_num)
			{
				snprintf(new_TempMusicList,255,"%s\n",musiclist[i]);
			}
			else{
				snprintf(new_TempMusicList,255,"▶：%s\n",musiclist[i]);
			}
			snprintf(old_TempMusicList,255,"%s",TempMusicList);
			snprintf(TempMusicList,255,"%s%s",old_TempMusicList,new_TempMusicList);
		}

		//将写好的歌曲放入返回的数组
		snprintf(MusicListMessage,255,"%s",TempMusicList);

		return 0;
	}

	//如果歌曲列表有大于等于5首歌时
	// 写入前两首歌曲
	for (i = 0; i < 2; i++) 
	{
		if (music_num - i - 1 >= 0) 
		{
			index = music_num - i -1;
			snprintf(new_TempMusicList, 255,"%s\n",musiclist[index]);
		} else 
		{
			index = music_sum + (music_num - i -1);
			snprintf(new_TempMusicList, 255,"%s\n",musiclist[index]);
		}

		snprintf(old_TempMusicList,255,"%s",TempMusicList);
		snprintf(TempMusicList,255,"%s%s",old_TempMusicList,new_TempMusicList);
	}

	//写入当前歌
	snprintf(new_TempMusicList,musicname_len[music_num]+8,"▶：%s\n",musiclist[music_num]);
	snprintf(old_TempMusicList,255,"%s",TempMusicList);
	snprintf(TempMusicList,255,"%s%s",old_TempMusicList,new_TempMusicList);

	// 写入后两首歌曲
	for (i = 0; i < 2; i++) 
	{
		if (music_num + i + 1 < music_sum) 
		{
			index = music_num + i + 1 ;
			snprintf(new_TempMusicList, 255,"%s\n",musiclist[index]);		
		} 
		else 
		{
			index = (music_num + i + 1) - music_sum;
			snprintf(new_TempMusicList, 255,"%s\n",musiclist[index]);
		}

		snprintf(old_TempMusicList,255,"%s",TempMusicList);
		snprintf(TempMusicList,255,"%s%s",old_TempMusicList,new_TempMusicList);
	}

	//将写好的歌曲放入返回的数组
	snprintf(MusicListMessage,255,"%s",TempMusicList);

	return 0;
}