#include "w90p710_uart_int.h"
#include "driver_buffer.h"

//driver buffer
DBuffer Uart0_RXDBuf;
DBuffer Uart0_TXDBuf;
unsigned char Uart0_RXBuf[RX0BUFSIZE];
unsigned char Uart0_TXBuf[TX0BUFSIZE];

DBuffer Uart1_RXDBuf;
DBuffer Uart1_TXDBuf;
unsigned char Uart1_RXBuf[RX1BUFSIZE];
unsigned char Uart1_TXBuf[TX1BUFSIZE];

static void Uart_Int_PrintNum(T_UART_PORT /*uartPortNo*/,unsigned long long,int, unsigned int);
static void myDelay(unsigned int /*times*/);

void Uart_Int_Init(T_UART_PORT uartPortNo)
{
	//UART0
	T_UART_PORT   uartPort0 = UART_PORT0;
	T_UART_BANDRATE uartBandRate0 = UART_DEFAULT_BANDRATE;
	T_UART_DATABITS uartDataBits0 = UART_DEFAULT_DATABITS;
	T_UART_PARITY  uartParity0 = UART_DEFAULT_PARITY;
	T_UART_STOPBITS uartStopBits0 = UART_DEFAULT_STOPBITS;
	unsigned char uartRFITL0 = UART0_RFITL;
	unsigned int uartRXBufsize0=RX0BUFSIZE;
	unsigned int uartTXBufsize0=TX0BUFSIZE;
	//UART1
	T_UART_PORT   uartPort1 = UART_PORT1;
	T_UART_BANDRATE uartBandRate1 = UART_DEFAULT_BANDRATE;
	T_UART_DATABITS uartDataBits1 = UART_DEFAULT_DATABITS;
	T_UART_PARITY  uartParity1 = UART_DEFAULT_PARITY;
	T_UART_STOPBITS uartStopBits1 = UART_DEFAULT_STOPBITS;
	unsigned char uartRFITL1 = UART1_RFITL;
	unsigned int uartRXBufsize1=RX1BUFSIZE;
	unsigned int uartTXBufsize1=TX1BUFSIZE;
	
	switch(uartPortNo)
	{
		case UART_PORT0:
			//UART0
			//GPIO5,6
			REG_UINT32_VALUE(REG_GPIO_CFG5)&=~(BIT3|BIT1);
			REG_UINT32_VALUE(REG_GPIO_CFG5)|=(BIT2|BIT0);
			
			//根據(jù)RFITL的值設(shè)置FIFO			
			switch(uartRFITL0)
			{
				case 0:
					REG_UINT32_VALUE(REG_UART0_FCR)|=(BIT2|BIT1|BIT0); 
					REG_UINT32_VALUE(REG_UART0_FCR)&=~(BIT7|BIT6);
					break;
				case 1:
					REG_UINT32_VALUE(REG_UART0_FCR)|=(BIT6|BIT2|BIT1|BIT0);
					REG_UINT32_VALUE(REG_UART0_FCR)&=~BIT7;
					break;
				case 2:
					REG_UINT32_VALUE(REG_UART0_FCR)|=(BIT7|BIT2|BIT1|BIT0);
					REG_UINT32_VALUE(REG_UART0_FCR)&=~BIT6;
					break;
				case 3:
					REG_UINT32_VALUE(REG_UART0_FCR)|=(BIT7|BIT6|BIT2|BIT1|BIT0);
					break;
				default:
					REG_UINT32_VALUE(REG_UART0_FCR)|=(BIT2|BIT1|BIT0);
					break;
			}
			
			Uart_Int_SetBandRate(uartPort0,uartBandRate0);
			Uart_Int_SetDataBits(uartPort0,uartDataBits0);
			Uart_Int_SetParity(uartPort0,uartParity0);
			Uart_Int_SetStopBits(uartPort0,uartStopBits0);
			
			//creat driver buffer
			DBuffer_Create(&Uart0_RXDBuf,Uart0_RXBuf,uartRXBufsize0);
			DBuffer_Create(&Uart0_TXDBuf,Uart0_TXBuf,uartTXBufsize0);
			
			//設(shè)置中斷
			REG_UINT32_VALUE(REG_UART0_IER)&=~BIT1;			//THRE
			REG_UINT32_VALUE(REG_UART0_IER)|=(BIT0|BIT2);	//RDA、TOUT
			REG_UINT32_VALUE(REG_UART0_TOR)|=BIT7;			//TOUT			
			break;
			
		case UART_PORT1:
			//UART1
			//GPIO7,8
			REG_UINT32_VALUE(REG_GPIO_CFG5)&=~(BIT5|BIT7);
			REG_UINT32_VALUE(REG_GPIO_CFG5)|=(BIT4|BIT6);
			
			//set FIFO
			switch(uartRFITL1)
			{
				case 0:
					REG_UINT32_VALUE(REG_UART1_FCR)|=(BIT2|BIT1|BIT0); 
					REG_UINT32_VALUE(REG_UART1_FCR)&=~(BIT7|BIT6);
					break;
				case 1:
					REG_UINT32_VALUE(REG_UART1_FCR)|=(BIT6|BIT2|BIT1|BIT0);
					REG_UINT32_VALUE(REG_UART1_FCR)&=~BIT7;
					break;
				case 2:
					REG_UINT32_VALUE(REG_UART1_FCR)|=(BIT7|BIT2|BIT1|BIT0);
					REG_UINT32_VALUE(REG_UART1_FCR)&=~BIT6;
					break;
				case 3:
					REG_UINT32_VALUE(REG_UART1_FCR)|=(BIT7|BIT6|BIT2|BIT1|BIT0);
					break;
				default:
					REG_UINT32_VALUE(REG_UART1_FCR)|=(BIT2|BIT1|BIT0);
					break;
			}
			
			Uart_Int_SetBandRate(uartPort1,uartBandRate1);
			Uart_Int_SetDataBits(uartPort1,uartDataBits1);
			Uart_Int_SetParity(uartPort1,uartParity1);
			Uart_Int_SetStopBits(uartPort1,uartStopBits1);
			
			//creat driver buffer
			DBuffer_Create(&Uart1_RXDBuf,Uart1_RXBuf,uartRXBufsize1);
			DBuffer_Create(&Uart1_TXDBuf,Uart1_TXBuf,uartTXBufsize1);
			
			//set interrupt
			REG_UINT32_VALUE(REG_UART1_IER)&=~BIT1;
			REG_UINT32_VALUE(REG_UART1_IER)|=(BIT0|BIT2);
			REG_UINT32_VALUE(REG_UART1_TOR)|=BIT7;			
			break;
		default:
			break;
	}
}

unsigned char Uart_Int_GetChar(T_UART_PORT uartPortNo)
{
	unsigned char myChar;
	
	switch(uartPortNo)
	{
		case UART_PORT0:
			REG_UINT32_VALUE(REG_UART0_IER)|=BIT0;  //開RDA&TOUT中斷
			while(!DBuffer_Read(&Uart0_RXDBuf, &myChar))	//讀緩沖區(qū)，如果空則等待				
				myDelay(1);	
			break;
				
		case UART_PORT1:
			REG_UINT32_VALUE(REG_UART1_IER)|=BIT0;	//開RDA&TOUT中斷
			while(!DBuffer_Read(&Uart1_RXDBuf, &myChar))
				myDelay(1);
			break;
			
		default:
			break;
	}
	
	return myChar;
}

void Uart_Int_PutChar(T_UART_PORT uartPortNo,unsigned char sendChar)
{
	switch(uartPortNo)
	{
		case UART_PORT0:
			while(!DBuffer_Write(&Uart0_TXDBuf, sendChar))		//寫緩沖區(qū)，如果滿則等待
			{
				REG_UINT32_VALUE(REG_UART0_IER)|=BIT1;			//緩沖區(qū)滿則開THRE中斷發(fā)送數(shù)據(jù)
				myDelay(1);
			}
			break;
		
		case UART_PORT1:
			while(!DBuffer_Write(&Uart1_TXDBuf, sendChar))
			{
				REG_UINT32_VALUE(REG_UART1_IER)|=BIT1;
				myDelay(1);
			}
			break;
			
		default:
			break;
	}
}

unsigned char*	 Uart_Int_GetString(T_UART_PORT uartPortNo,unsigned char* getString,bool echo)
{
	unsigned char* mySring = getString;
	unsigned char  myChar;
	
	while(1)
	{
		myChar = Uart_Int_GetChar(uartPortNo);

		if( (myChar == '\r'))
		{
			//輸入了回車符號(hào)，表示輸入結(jié)束
			break;
		}

		if((myChar == '\b'))
		{
			//按了退格鍵(backspace),進(jìn)行相應(yīng)的處理
			if(getString == mySring)
			{
				//輸入的字符被刪除完了，不再繼續(xù)刪除,發(fā)出一個(gè)警告聲
				Uart_Int_PutChar(uartPortNo,'\a');
				continue;
			}
			*mySring-- ='\0';
			if(echo == true)
			{
				Uart_Int_PutChar(uartPortNo,myChar);
				Uart_Int_PutChar(uartPortNo,' ');
			}
		}
		else
		{	
			*mySring++ = myChar;
		}
		if(echo == true)
		{
			//如果需要回顯，將輸入的內(nèi)容輸出到終端上
			Uart_Int_PutChar(uartPortNo,myChar);
			Uart_Int_Sync(uartPortNo);
		}
	}
	*mySring = '\0';
	return mySring;
}

void Uart_Int_PutString(T_UART_PORT uartPortNo,unsigned char *fmt, ...)
{
	va_list	ap;      
	char	c;
	char 	*str;
	int		lFlag;	
	int 	base;	
	int 	sign;	

	va_start(ap, fmt); 
	for (; *fmt != '\0'; fmt++)
	{
		lFlag = false;
		base  = 0;
		sign = false;

		if (*fmt == '%')
		{
			if ((c = *++fmt) == 'l')
			{
				lFlag = true;
				c = *++fmt;
			}

			switch (c)
			{
			case 'o':
			case 'O': 		// 八進(jìn)制數(shù)據(jù)
				base = 8;
				sign = false;

				break;
			case 'd':
			case 'D': 		// 十進(jìn)制數(shù)據(jù)
				base = 10;
				sign = true;

				break;
			case 'u':
			case 'U':		// 無(wú)符號(hào)數(shù)據(jù)
				base = 10;
				sign = false;

				break;
			case 'x':
			case 'X':		// 十六進(jìn)制數(shù)據(jù)
				base = 16;
				sign = false;

				break;
			case 's':		// 字符串
				for (str = va_arg(ap, char *); *str; str++)
				{
					Uart_Int_PutChar(uartPortNo,*str);
				}

				break;
			case 'c':		// 字符
				Uart_Int_PutChar(uartPortNo,(unsigned char)(va_arg(ap, int)));

				break;
			default:
				Uart_Int_PutChar(uartPortNo,c);
				break;
			}

			if (base)
			{
				Uart_Int_PrintNum(uartPortNo,lFlag ? va_arg(ap, long long) : (long long)va_arg(ap, int), base, sign);
			}
		}
		else
		{
			Uart_Int_PutChar(uartPortNo,*fmt);
		}
	}
	va_end(ap); 
}

static void Uart_Int_PrintNum(T_UART_PORT uartPortNo,unsigned long long udwNum, int wBase, unsigned int oSign)
{

	unsigned long long 	n;
	int					count;
	char				toPrint[20];

	if (oSign && ((long long)udwNum <  0) )
	{
		Uart_Int_PutChar(uartPortNo,'-');

		udwNum = -udwNum;
	}

	count = 0;
  	while ((n = udwNum / wBase) > 0)
  	{
		toPrint[count++] = (udwNum - (n*wBase));
		udwNum = n ;
  	}
  	toPrint[count++] = udwNum;

	for (n = 0; n < count; n++)
	{
		Uart_Int_PutChar(uartPortNo,"0123456789ABCDEF"[(int)(toPrint[count-(n+1)])]);
	}
}

void Uart_Int_PutLine(T_UART_PORT uartPortNo,unsigned char *fmt, ...)
{

	va_list	ap;						//指向未命名的參數(shù)的指針