/*------------------------------------------
	TalkingTester　-　テスターの音声読み上げ
					　コントローラ・ファームウェア
	
		秋月のデジタルテスター MAS-345を使用
		
	構成：	
		tester		controller		AquesTalk-pico
		MAS-345	<>	ATmega328p	<>	ATP3011F4-PU
				UART			I2C
				
	Author: yamazaki(AQUEST)

	Date:	2012/01/03
	
	FUSE: 内臓RC8MHzを8分周
		EXTENDED = 0xFF (valid)
		HIGH = 0xD7 (valid)
		LOW = 0x62 (valid)

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

#include <avr/io.h>
#include <avr/pgmspace.h>
#include <avr/interrupt.h>
//#define F_CPU 8000000UL
#define F_CPU 1000000UL		// CKDIV8:0 8MHz/8
#include <util/delay.h>
#include <string.h>

#define DEF_UBBR	103U	// baudrate to 600 bps using a 8MHz/8 IntenalRC at U2X0=0 CKDIV8:0
#define DEF_I2C_ADDR	0x2E	// I2Cのデフォルトデバイスアドレス

#define	LED_INIT	DDRB |= (1 << PORTB5)
#define	LED_ON		PORTB |=  (1 << PORTB5)
#define	LED_OFF		PORTB &= ~(1 << PORTB5)

#define STR_CHIME_J	"#J\r"

void my_delay();
void Init();
void GetData(char *str);
uint8_t Str2Cmd(const char *str, char *cmd);
void Speak(const char *cmd);
uint8_t PutChar_I2C(uint8_t tdata);
uint8_t Puts_I2C(uint8_t *str);
uint8_t GetChar_I2C();
void PutChar_UART(uint8_t tdata);
uint8_t GetChar_UART();


char g_cmd[128];
char g_str[16];
char g_strLast[16];

int main(void)
{
	uint8_t iret;
	
	// 初期化
	Init();
	g_strLast[0]=0;
	
	// 起動音
	strcpy_P(g_cmd, PSTR(STR_CHIME_J));
	Speak(g_cmd);
	
    while(1)
    {
        // テスターから値を取得
		LED_ON;
		GetData(g_str);
		LED_OFF;
		// 取得した値を音声記号列に変換
		iret = Str2Cmd(g_str, g_cmd);
		if(iret!=0){
			Speak(g_cmd);// 音声出力(エラー)
			break;	// Error時はpower down
		}		
		
		// 前回と異なる結果の場合のみ音声出力
		if(strcmp(g_str, g_strLast)!=0)	{
			Speak(g_cmd);// 音声出力
			strcpy(g_strLast, g_str);
		}
		// Delay 1sec
		my_delay();
    }
	SMCR = 0x05;	// sleep enable power down mode
	asm("sleep\n");
	//ERR後の復帰はリセット
}

// 省電力　Delayルーチン　約1sec
void my_delay()
{
	// WDTを割り込みモードで利用
	cli();
	asm("wdr\n");			// WDT reset
	MCUSR &= ~0b00001000;	// Clear WDT reset flag
	WDTCSR = 0b00011000;	// WDPnの変更のためWDCE=1,WDE=1
	WDTCSR = 0b00010110;	// タイムアウト約1sec　上より4CLK以内に実行すること
	WDTCSR |=0b01000000;	// WDT INT enable
	sei();
	// power down
	SMCR = 0x05;	// sleep enable power down mode
	asm("sleep\n");
}

ISR(WDT_vect)
{	// do nothing
	WDTCSR &=~0b01000000; // WDT off (WDIE zero)
}

void Init()
{
	cli();

	// POWER REDUCTION
	ACSR = (1<<ACD);	// AD Comparator Shutdown
	PRR = 0xEF;	// shutdown all デバイスは各Initで個別にstartup
	
	// set port in/out
	LED_INIT;

	/////////////////////////////////
	// UART	7n2 at 600bps
	/////////////////////////////////
	// USART Power On
	PRR &= ~(1<<PRUSART0);
	// 600bps
	UBRR0H = (uint8_t)(DEF_UBBR>>8);
	UBRR0L = (uint8_t)DEF_UBBR;

//	UCSR0A = (1<<U2X0);	// clear other flag
	// 8-bit, 1 stop bit, no parity, asynchronous UART
	UCSR0C = (1 << UCSZ01) | (0 << UCSZ00) | (1 << USBS0) |
			(0 << UPM01) | (0 << UPM00) | (0 << UMSEL01) |
			(0 << UMSEL00);
	// enable RX and TX and set interrupts on rx complete
	UCSR0B = (1 << RXEN0) | (1 << TXEN0) | (0 << RXCIE0) | (0<<UCSZ02);
	
	/////////////////////////////////
	// I2C	adr:0x2E clk:400KHz/8
	/////////////////////////////////
	// TWI Power On
	PRR &= ~(1<<PRTWI);
	TWBR = 2;	// set clock 400KHz/8
	TWSR = 0;	// set prescale 1x
	TWAR = 0;
	TWCR = 0x04; // TWI Interface enabled.
	
}
void GetData(char *str)
{
	uint8_t i;
	char *p=str;
	PutChar_UART('\r');	// any data
	_delay_ms(30);
	
	for(i=0;i<15;i++){
		uint8_t cc = GetChar_UART();
		if(cc=='\r') break;
		if(cc==0) break;	// err
		p[i]=cc;
	}
	p[i]=0;
}

#define STR_NO_RESPONSE	"te'_suta-no/o-to-na'_shi.\r"
#define STR_FORMAT_ERROR	"fo-matto/e'ra-.\r"
#define STR_MINUS	"mainasu/"
#define STR_TAG_NUMK_S	"<NUMK VAL="
#define STR_OHM		"o'-mu\r"
#define STR_KOHM	"kiroo'-mu\r"
#define STR_MOHM	"megao'-mu\r"
#define STR_VOLT	"bo'ruto\r"
#define STR_MVOLT	"miribo'ruto\r"
#define STR_ONDO	"do\r"
#define STR_NANOF	"nanofa'raddo\r"
#define STR_MAMP	"miria'nnpea\r"
#define STR_AMP		"a'nnpea\r"
#define STR_CR		"\r"

#define STR_TANI_OHM	" Ohm"
#define STR_TANI_KOHM	"kOhm"
#define STR_TANI_MOHM	"MOhm"
#define STR_TANI_VOLT	"   V"
#define STR_TANI_MVOLT	"  mV"
#define STR_TANI_ONDO	"   C"
#define STR_TANI_NANOF	"  nF"
#define STR_TANI_MAMP	"  mA"
#define STR_TANI_AMP	"   A"

// テスターの応答を、音声記号列に変換
uint8_t Str2Cmd(const char *str, char *cmd)
{
	int len = strlen(str);
	if(len==0){
		strcpy_P(cmd, PSTR(STR_NO_RESPONSE));
		return	101;
	}
	if(len!=13){
		strcpy_P(cmd, PSTR(STR_FORMAT_ERROR));
		return	102;
	}
	if(strchr(str,'L')!=0){
		*cmd = 0;
		return 0;
	}
	char *pCmd=cmd;
	*pCmd=0;
	if(str[3]=='-')	{
		strcpy_P(pCmd, PSTR(STR_MINUS));
		pCmd += strlen(STR_MINUS);
	}
	strcpy_P(pCmd, PSTR(STR_TAG_NUMK_S));
	pCmd += strlen(STR_TAG_NUMK_S);

	*pCmd++ = str[4];
	*pCmd++ = str[5];
	*pCmd++ = str[6];
	*pCmd++ = str[7];
	*pCmd++ = str[8];
	*pCmd++ = '>';
	
	if(     strcmp_P(str+9,PSTR(STR_TANI_OHM))==0)	strcpy_P(pCmd, PSTR(STR_OHM));
	else if(strcmp_P(str+9,PSTR(STR_TANI_KOHM))==0)	strcpy_P(pCmd, PSTR(STR_KOHM));
	else if(strcmp_P(str+9,PSTR(STR_TANI_MOHM))==0)	strcpy_P(pCmd, PSTR(STR_MOHM));
	else if(strcmp_P(str+9,PSTR(STR_TANI_VOLT))==0)	strcpy_P(pCmd, PSTR(STR_VOLT));
	else if(strcmp_P(str+9,PSTR(STR_TANI_MVOLT))==0)strcpy_P(pCmd, PSTR(STR_MVOLT));
	else if(strcmp_P(str+9,PSTR(STR_TANI_ONDO))==0)	strcpy_P(pCmd, PSTR(STR_ONDO));
	else if(strcmp_P(str+9,PSTR(STR_TANI_NANOF))==0)strcpy_P(pCmd, PSTR(STR_NANOF));
	else if(strcmp_P(str+9,PSTR(STR_TANI_MAMP))==0)	strcpy_P(pCmd, PSTR(STR_MAMP));
	else if(strcmp_P(str+9,PSTR(STR_TANI_AMP))==0)	strcpy_P(pCmd, PSTR(STR_AMP));
	else											strcpy_P(pCmd, PSTR(STR_CR));

	return 0;
}


void Speak(const char *cmd)
{
	uint8_t cc;
	
	if(cmd==0 || *cmd==0) return;
	
	// wait AquesTalk pico ready
	for(;;){
		cc = GetChar_I2C();
		if(cc=='>') break;
		_delay_ms(10);
	}
	
	// send command to AquesTalk pico
	Puts_I2C((uint8_t*)cmd);
}

//　I2Cへnull終端文字列列送信
uint8_t Puts_I2C(uint8_t *str)
{
	TWCR = (1 << TWINT)|(1 << TWSTA)|(1 << TWEN); // send START condition
	while (!(TWCR & (1 << TWINT)))	// Wait START condition has been transmitted
		;

	if ((TWSR &  0xF8) != 0x08)   // Check value of TWI Status
		   goto ERR_EXIT;
	TWDR = (DEF_I2C_ADDR <<1);   // Load SLA_W into TWDR
	TWCR = (1 << TWINT) | (1<<TWEN);
	while (!(TWCR & (1 << TWINT))) // Wait ACK/NACK has been received
		;
	if	((TWSR & 0xF8) != 0x18) goto ERR_EXIT;   // check MT_SLA_ACK
	for(;*str!=0;){
		TWDR = *str;
		TWCR = (1 << TWINT) | (1 << TWEN);	
		while (!(TWCR & (1 << TWINT)))
				  ;		
		if ((TWSR & 0xF8) == 0x28)	// check MT_DATA_ACK
		{
		   str++;
		}
	}
	TWCR = (1 << TWINT) | (1 << TWEN) | (1 << TWSTO); // Transmit STOP condition  
	while ((TWCR & (1 << TWSTO))) // Wait STOP condition has been transmitted
			 ;
	return 0;
ERR_EXIT:
	return 1;	
}


//　I2Cから1byte受信
uint8_t GetChar_I2C()
{
	uint8_t rdata=0;
	TWCR = (1 << TWINT)|(1 << TWSTA)|(1 << TWEN); // send START condition
	while (!(TWCR & (1 << TWINT)))	 // START condition has been transmitted
			 ;	
	if ((TWSR &  0xF8) != 0x10)   // Check TWI Status register
		   goto ERR_EXIT;
	TWDR = (DEF_I2C_ADDR <<1) | 1;   // Load SLA_R into TWDR
	TWCR = (1 << TWINT) | (1<<TWEN);
	while (!(TWCR & (1 << TWINT))) // ACK has received
			 ;
	if	((TWSR & 0xF8) != 0x40) goto ERR_EXIT;    // check MR_SLA_ACK
	TWCR = (1 << TWINT) | (1 << TWEN); //
	while (!(TWCR & (1 << TWINT)))
			  ;		
	if ((TWSR & 0xF8) != 0x58) goto ERR_EXIT;	// check MR_DATA_ACK
	rdata = TWDR;
	TWCR = (1 << TWINT) | (1 << TWEN) | (1 << TWSTO); // transmit STOP cond.  
	while ((TWCR & (1 << TWSTO))) // Wait STOP condition has been transmitted
			 ;
ERR_EXIT:	
	return rdata;
}

// UARTへ1byte送信
void PutChar_UART(uint8_t tdata)
{
   while ( !(UCSR0A & (1<<UDRE0)) )
      ;
   UDR0 = tdata;
}

//UARTから1byte受信
// 100msecでタイムアウト
uint8_t GetChar_UART()
{
	uint8_t	i;
	for(i=0;i<100;i++){
		if( (UCSR0A & (1<<RXC0)) )
			return UDR0;
		_delay_ms(1);
	}
	return 0;
}