/************************************************************************
  * Copyright(c) 2023 Levetop Semiconductor Co.,Led. All rights reserved.
  * @file     dac.c
  * @author   UartTFT Application Team
  * @version  V1.0.0
  * @date     2023-02-24
  * @brief    
*************************************************************************/


#include "dac.h"

#include "pit.h"
#include "data.h"
#include "bsp.h"
#include "pwm.h"
#include "pit32_drv.h"
#include "dmac_drv.h"
#include "levetop.h"

/*SPI1 DMA channel base address*/
DMA_CHANNEL_REG *dac_dma_channel[4] = {(DMA_CHANNEL_REG *)(DMA2_BASE_ADDR), (DMA_CHANNEL_REG *)(DMA2_BASE_ADDR + 0x58),
									   (DMA_CHANNEL_REG *)(DMA2_BASE_ADDR + 0xB0), (DMA_CHANNEL_REG *)(DMA2_BASE_ADDR + 0x108)}; // global struct variable for for Channel registers
/*SPI1 DMA config base address */
DMA_CONTROL_REG *dac_dma_control = (DMA_CONTROL_REG *)(DMA2_BASE_ADDR + 0x2C0); // global struct variable for for DMAC registers

UINT16 etARRValue(UINT16 sample)
{
	UINT16 arrValue;
	/* Update OCA values to match the. WAV file sampling rate */
	switch (sample)
	{
	case 8000:
		arrValue = (uint16_t)(75000000 / 8000);
		break; /* 8KHz = 75MHz / 9375 */
	case 11025:
		arrValue = (uint16_t)(75000000 / 11025);
		break; /* 11.025KHz = 75MHz / 6802 */
	case 16000:
		arrValue = (uint16_t)(75000000 / 16000);
		break; /* 16KHz = 75MHz / 4687 */
	case 22050:
		arrValue = (uint16_t)(75000000 / 22050);
		break; /* 22.05KHz = 75MHz / 3401 */
	case 44100:
		arrValue = (uint16_t)(75000000 / 44100);
		break; /* 44.1KHz = 75MHz / 1700 */
	case 48000:
		arrValue = (uint16_t)(75000000 / 48000);
		break; /* 48KHz = 75MHz / 1562 */
	default:
		arrValue = 0;
		break;
	}
	return arrValue - 1;
}

void DAC_SetData(UINT16 data)
{
	DAC_Write_Data(data);
	DAC->DAC_SWTR |= SW_TRIG;
	DAC_Wait_Load_Done();
}

#include "dmac_drv.h"

#define DAC_TIMER ((PIT32_TypeDef *)PIT2_BASE_ADDR)

uint8_t gWavState = 0;
uint8_t dac_data_buff_1[4096];
uint8_t dac_data_buff_2[4096];
uint32_t gWavFlashAddr = 0;
uint16_t numflag = 0;
uint16_t bufflen = 0;
uint8_t finishflag = 0;
uint8_t wbuf_select = 0;
uint8_t gWavAddrFull_Flag = 0;
uint8_t last_select = 0;
uint8_t gWavType = 0;
uint8_t gWavFlag = 0;
uint16_t buffnum;
uint16_t bufflast;
uint32_t gWavLen = 0;

static void DAC_Timer_Init(unsigned int rate)
{
	DAC_TIMER->PCSR &= (~PCSR_EN);

	DAC_TIMER->PCSR &= (~PCSR_EN);
	DAC_TIMER->PCSR = (0 << 8) | PCSR_OVW | PCSR_RLD;

	DAC_TIMER->PMR = (g_ips_clk / 1000000 * (1000000 / (float)rate));
	//	PIT32->PCSR = (PIT32_CLK_DIV_1<<8)|PCSR_OVW|PCSR_RLD;
}

static void DAC_Timer_Enable(void)
{
	DAC_TIMER->PCSR |= PCSR_EN;
}

static void DAC_Timer_Disable(void)
{
	DAC_TIMER->PCSR &= ~PCSR_EN;
}

void DAC_DMA_Tran(UINT8 channel, UINT32 src, UINT32 length)
{
	//	DMA_Init(DMA2_BASE_ADDR);
	// dac_dma_control->DMA_CONFIG = 1;
	dac_dma_channel[channel]->DMA_SADDR = src;
	dac_dma_channel[channel]->DMA_DADDR = 0x40021004;
	//	dac_dma_channel[channel]->DMA_CTRL = SIEC|DNOCHG|M2P_DMA|DWIDTH_B|SWIDTH_B|INTEN;
	dac_dma_channel[channel]->DMA_CTRL = SIEC | DNOCHG | M2P_DMA | DWIDTH_HW | SWIDTH_HW | INTEN;
	dac_dma_channel[channel]->DMA_CTRL_HIGH = length;

	dac_dma_channel[channel]->DMA_CFG = 0;
	dac_dma_channel[channel]->DMA_CFG_HIGH = DST_PER_DAC;

	dac_dma_control->DMA_MASKTFR = CHANNEL_UMASK(channel);
	dac_dma_control->DMA_CHEN = CHANNEL_WRITE_ENABLE(channel) | CHANNEL_ENABLE(channel);
}
void DAC_DMA_dis(UINT8 n)
{
	dac_dma_channel[n]->DMA_CFG |= 1 << 8;
	dac_dma_control->DMA_CHEN |= CHANNEL_WRITE_ENABLE(n);
	dac_dma_control->DMA_CHEN &= ~CHANNEL_ENABLE(n);
	dac_dma_channel[n]->DMA_CFG &= ~(1 << 8);
	dac_dma_control->DMA_CONFIG = 0;
}

void dac_dma_tran(uint8_t *data, uint32_t len)
{
	uint32_t tran_l = 0;
	uint8_t *wDataBufOut = data;
	tran_l = (len >> 1);
	len -= (tran_l << 1);

	//	DMA_Init(DMA2_BASE_ADDR);

	DAC_DMA_Tran(0, (uint32_t)wDataBufOut, tran_l);
}

void WAV_amplifier_EN(void)
{
	SPI_ConfigGpio(SPI3, SPI_MOSI, GPIO_OUTPUT);
	SPI_WriteGpioData(SPI3, SPI_MOSI, 1);
}

void WAV_amplifier_DIS(void)
{
	SPI_ConfigGpio(SPI3, SPI_MOSI, GPIO_OUTPUT);
	SPI_WriteGpioData(SPI3, SPI_MOSI, 0);
}

void close_wav_dac(void)
{
	if (!gWavType)
	{
		var[0x700a * 2] = 0;
		var[0x700a * 2 + 1] = 0;
	}

	gWavFlag = 0;
	gWavAddrFull_Flag = 0;
	WAV_amplifier_DIS();
	DAC_Timer_Disable();
	DAC_DMA_dis(0); // DAC uses channel 0 of DMA2
}

void Wav_DAC_Init(uint16_t num)
{
	uint8_t buff[8];
	WAV_amplifier_DIS();
	gWavType = 0;
	close_wav_dac();
	if (num > 0 && num != 0x8000 && (num & 0x7FFF) <= addr_index[5])
	{
		if (num & 0x8000)
			gWavType = 1;
		else
			gWavType = 0;

		Flash_Read_UI(buff, addr_index[4] + ((num & 0x7FFF) - 1) * 8, 8);
		gWavFlashAddr = buff[0] + (buff[1] << 8) + (buff[2] << 16) + (buff[3] << 24);
		gWavLen = buff[4] + (buff[5] << 8) + (buff[6] << 16) + (buff[7] << 24);
		if (gWavLen == 0)
		{
			gWavType = 0;
			close_wav_dac();
		}
		else
		{
			bufflen = 4096;
			if (Flash_type == 1)
				bufflen = 4096;
			buffnum = gWavLen / bufflen;  // Total number of data packages
			bufflast = gWavLen % bufflen; // Data volume of the last packet
			if (bufflast > 0)
				buffnum++;
			else if (bufflast == 0)
				bufflast = bufflen;

			wbuf_select = 0;
			last_select = 0;
			numflag = 0;
			gWavState = 1;
			gWavFlag = 1;
		}
	}
	else
	{
		gWavType = 0;
		close_wav_dac();
	}
}

uint8_t wav_reduce_para = 0;
uint8_t wav_reduce_para_last = 0;
void DMA2_IRQHandler(void)
{
	uint32_t i = 0;
	int16_t temp = 0;

	if (dac_dma_control->DMA_STATTFR & 0x0f)
	{
		finishflag = 1;
		numflag++;
	}

	dac_dma_control->DMA_CLRTFR = dac_dma_control->DMA_STATTFR;
	dac_dma_control->DMA_CLRBLOCK = dac_dma_control->DMA_STATBLOCK;
	dac_dma_control->DMA_CLRSRC = dac_dma_control->DMA_STATSRC;
	dac_dma_control->DMA_CLRDST = dac_dma_control->DMA_STATDST;
	dac_dma_control->DMA_CLRERR = dac_dma_control->DMA_STATERR;

	if (wbuf_select == 0 && numflag<=buffnum) // Transfer the next packet of data			
		dac_dma_tran(dac_data_buff_1, bufflen);
	else if (wbuf_select == 1 && numflag<=buffnum)									
		dac_dma_tran(dac_data_buff_2, bufflen);

	if (numflag == (buffnum - 1)) // Last packet of data
	{
		bufflen = bufflast;
		last_select = 1;
	}
	else if (numflag == buffnum) // Transfer completed
	{
		last_select = 2;
		gWavAddrFull_Flag = 1;
	}
}

void LT_PlayWav_DAC(void)
{
	uint32_t i = 0;
	int32_t temp = 0;

	if (wav_reduce_para != 0 && wav_reduce_para_last == 0)
		WAV_amplifier_EN();
	else if (wav_reduce_para == 0 && wav_reduce_para_last != 0)
		WAV_amplifier_DIS();
	wav_reduce_para_last = wav_reduce_para;
	
	if (gWavAddrFull_Flag == 1 && finishflag == 1 && numflag>buffnum)	
	{
		gWavAddrFull_Flag = 0;
		numflag = 0;
		last_select = 0;
		bufflen = 4096;
		close_wav_dac();
		if (gWavType == 1)
			gWavState = 1;
	}
	else if (gWavAddrFull_Flag == 0)	
	{
		if (gWavState == 1)
		{
			gWavState = 0;
			// Read the first and second packet data
			Flash_Read_UI(dac_data_buff_1, gWavFlashAddr + numflag * bufflen, bufflen);
			for (i = 0; i < bufflen / 2; i++)
			{
				temp = (dac_data_buff_1[2 * i] >> 4) | (dac_data_buff_1[2 * i + 1] << 4);
				temp = (((temp - 2048) * wav_reduce_para) >> 4) + 2048;
				dac_data_buff_1[2 * i] = (temp << 4) & 0xF0;
				dac_data_buff_1[2 * i + 1] = (temp >> 4) & 0xFF;
			}

			numflag++;
			Flash_Read_UI(dac_data_buff_2, gWavFlashAddr + numflag * bufflen, bufflen);
			for (i = 0; i < bufflen / 2; i++)
			{
				temp = (dac_data_buff_2[2 * i] >> 4) | (dac_data_buff_2[2 * i + 1] << 4);
				temp = (((temp - 2048) * wav_reduce_para) >> 4) + 2048;
				dac_data_buff_2[2 * i] = (temp << 4) & 0xF0;
				dac_data_buff_2[2 * i + 1] = (temp >> 4) & 0xFF;
			}

			// Initialize DMA and DAC functions
			DAC_Init(LEFTALIGNED_12BITS, TRIGGER_PIT, DET_ON_RISING);
			dac_dma_control->DMA_CONFIG = 1;

			NVIC_Init(2, 0, DMA2_IRQn, 2);
			DAC_Timer_Init(22050);
			DAC_Timer_Enable();

			if (wav_reduce_para)
				WAV_amplifier_EN();

			dac_dma_tran(dac_data_buff_1, bufflen);
			finishflag = 0;
			wbuf_select = 1;
		}
		if (wbuf_select == 0 && finishflag == 1 && last_select == 0)
		{
			wbuf_select = 1;
			finishflag = 0;

			Flash_Read_UI(dac_data_buff_2, gWavFlashAddr + numflag * bufflen, bufflen);
			for (i = 0; i < bufflen / 2; i++)
			{
				temp = (dac_data_buff_2[2 * i] >> 4) | (dac_data_buff_2[2 * i + 1] << 4);
				temp = (((temp - 2048) * wav_reduce_para) >> 4) + 2048;
				dac_data_buff_2[2 * i] = (temp << 4) & 0xF0;
				dac_data_buff_2[2 * i + 1] = (temp >> 4) & 0xFF;
			}

		} // DMA2_IRQHandler
		else if (wbuf_select == 1 && finishflag == 1 && last_select == 0)
		{
			wbuf_select = 0;
			finishflag = 0;

			Flash_Read_UI(dac_data_buff_1, gWavFlashAddr + numflag * bufflen, bufflen);
			for (i = 0; i < bufflen / 2; i++)
			{
				temp = (dac_data_buff_1[2 * i] >> 4) | (dac_data_buff_1[2 * i + 1] << 4);
				temp = (((temp - 2048) * wav_reduce_para) >> 4) + 2048;
				dac_data_buff_1[2 * i] = (temp << 4) & 0xF0;
				dac_data_buff_1[2 * i + 1] = (temp >> 4) & 0xFF;
			}
		}
		else if (last_select == 1 && finishflag == 1)
		{
			finishflag = 0;
			if (wbuf_select)
			{
				wbuf_select = 0;
				Flash_Read_UI(dac_data_buff_1, gWavFlashAddr + numflag * bufflen, bufflen);
				for (i = 0; i < bufflen / 2; i++)
				{
					temp = (dac_data_buff_1[2 * i] >> 4) | (dac_data_buff_1[2 * i + 1] << 4);
					temp = (((temp - 2048) * wav_reduce_para) >> 4) + 2048;
					dac_data_buff_1[2 * i] = (temp << 4) & 0xF0;
					dac_data_buff_1[2 * i + 1] = (temp >> 4) & 0xFF;
				}
			}
			else
			{
				wbuf_select = 1;
				Flash_Read_UI(dac_data_buff_2, gWavFlashAddr + numflag * bufflen, bufflen);
				for (i = 0; i < bufflen / 2; i++)
				{
					temp = (dac_data_buff_2[2 * i] >> 4) | (dac_data_buff_2[2 * i + 1] << 4);
					temp = (((temp - 2048) * wav_reduce_para) >> 4) + 2048;
					dac_data_buff_2[2 * i] = (temp << 4) & 0xF0;
					dac_data_buff_2[2 * i + 1] = (temp >> 4) & 0xFF;
				}
			}
		}
	}
}