#include "xmodem.h"

/* 讀取單個數據包						 */
/* 返回0表示讀取數據包成功   */
/* 返回1表示數據包不完整 	 	 */
/* 返回2表示數據包檢驗和出錯 */
static 
int RecFrame(struct Frame* oneFrame)
{
	int returnVal;	// 返回的值
	int i;

	oneFrame->blkNum = sio_getc();
	oneFrame->blkNumRev = sio_getc();

	// 檢驗數據包完整性	
	if( oneFrame->blkNumRev != 255 - (oneFrame->blkNum & 0xFF))
		returnVal = 1;
		
	else
	{
		// 讀取數據區
		for(i = 0; i < BLOCK_SIZE; ++i)
		{
			oneFrame->dataBlk[i] = sio_getc();
		}
		
		// 檢驗累加校驗和
		oneFrame->checkSum = sio_getc();

    if(oneFrame->checkSum == CheckSum(oneFrame))
			returnVal = 0;
		else
			returnVal = 2;		
	}
	
	return (returnVal);	
}

// Xmodem協議傳輸執行函數
void XmodemRun(char *ptr)
{	
  
  struct Frame dataFrame;
  
	do
	{
		DelayTime(ONE_SECOND);
		sio_putc(NAK);
  } while(!sio_ischar());
  
    do
		{
			switch(sio_getc())
			{
				// 控制字符為SOH，則接收該數據包
				case SOH:
					switch( RecFrame(&dataFrame) )
					{
						// 數據包接收正常，發送ACK消息，將數據區的數據拷貝到內存
						case 0:
							MemCpy(ptr, dataFrame.dataBlk, BLOCK_SIZE);
							ptr += BLOCK_SIZE;
							sio_putc(ACK);
							break;
							
						// 數據包接收錯誤，發送NAK消息
						case 1: case 2:
							sio_putc(NAK);
							break;	
					}		
					
					break;			

				case EOT:
					sio_putc(ACK);
					*(++ptr) = 0;		// 給存儲區域的最后一個字節賦值0，終止sio_puts()
          return;
          
        case CAN:
        	return;
					
				default:
					break;	
			}			
	} while(1);
}

// 延時函數
static
void DelayTime(int time)
{
	int i;
	for(i = 0; i < time; ++i)
		;
}

// 將數據區的數據拷貝到內存中
static
void MemCpy(char des[], char src[], int length)
{
	int i;
	for(i = 0; i < length; ++i)
	{
		des[i] = src[i];
	}
}

// 計算校驗和，返回校驗和?。。。。。?static
unsigned char CheckSum(struct Frame *oneFrame)
{
	int i;
	unsigned char dataSum = 0x00;
	
	for(i = 0; i < BLOCK_SIZE; ++i)
	{
		dataSum += oneFrame->dataBlk[i];
	}
	
  return (dataSum & 0xff);
}