SmartOS/TokenNet/Token.cpp

#include "Token.h"

#include "SerialPort.h"
#include "WatchDog.h"
#include "Config.h"

#include "Drivers\NRF24L01.h"
#include "Drivers\W5500.h"
#include "Drivers\ShunCom.h"

#include "Net\Dhcp.h"
#include "Net\DNS.h"

#include "TokenNet\Gateway.h"
#include "TokenNet\Token.h"

#include "Security\RC4.h"

#include "App\FlushPort.h"

void StartGateway(void* param);

void OnDhcpStop5500(void* sender, void* param)
{
	Dhcp* dhcp = (Dhcp*)sender;
	if(!dhcp->Result)
	{
		// 失败后重新开始DHCP，等待网络连接
		dhcp->Start();

		return;
	}

	// 获取IP成功，重新设置参数
	W5500* net = (W5500*)dhcp->Host;
	net->Config();
	net->ShowInfo();
	net->SaveConfig();

	Sys.AddTask(StartGateway, net, 0, -1, "启动网关");
}

ISocketHost* Token::CreateW5500(SPI_TypeDef* spi_, Pin irq, Pin rst, Pin power, IDataPort* led)
{
	debug_printf("W5500::Create \r\n");

	Spi* spi = new Spi(spi_, 36000000);

	OutputPort* pwr = new OutputPort(power, true);
	*pwr = true;

	//TokenConfig* tk = TokenConfig::Current;

	W5500* net = new W5500();
	net->LoadConfig();
	net->Init(spi, irq, rst);
	net->Led = led;

	// 打开DHCP
	UdpClient* udp	= new UdpClient(net);
	Dhcp* dhcp		= new Dhcp(udp);
	dhcp->OnStop	= OnDhcpStop5500;
	dhcp->Start();

	return net;
}

ISocket* CreateW5500UDP(ISocketHost* host, TokenConfig* tk)
{
	UdpClient* udp	= new UdpClient((W5500*)host);
	udp->Local.Port	= tk->Port;
	udp->Remote.Port	= tk->ServerPort;
	udp->Remote.Address	= IPAddress(tk->ServerIP);

	return udp;
}

ISocket* CreateW5500TCP(ISocketHost* host, TokenConfig* tk)
{
	TcpClient* tcp	= new TcpClient((W5500*)host);
	tcp->Local.Port	= tk->Port;
	tcp->Remote.Port	= tk->ServerPort;
	tcp->Remote.Address	= IPAddress(tk->ServerIP);

	return tcp;
}

TokenClient* Token::CreateClient(ISocketHost* host)
{
	TokenController* token	= new TokenController();

	TokenConfig* tk = TokenConfig::Current;
	ISocket* socket	= NULL;
	if(!tk->Protocol)
		socket = CreateW5500UDP(host, tk);
	else
		socket = CreateW5500TCP(host, tk);
	token->Port = dynamic_cast<ITransport*>(socket);

	TokenClient* client	= new TokenClient();
	client->Control	= token;

	return client;
}

TinyServer* Token::CreateServer(ITransport* port)
{
	TinyController* ctrl	= new TinyController();
	ctrl->Port = port;

	// 只有2401需要打开重发机制
	if(strcmp(port->ToString(), "R24")) ctrl->Timeout = -1;

	TinyConfig* tc = TinyConfig::Current;
	tc->Address = ctrl->Address;

	TinyServer* server	= new TinyServer(ctrl);
	server->Cfg	= tc;

	return server;
}

uint OnSerial(ITransport* transport, Array& bs, void* param, void* param2)
{
	debug_printf("OnSerial len=%d \t", bs.Length());
	bs.Show(true);

	//TokenClient* client = TokenClient::Current;
	//if(client) client->Store.Write(1, bs);

	return 0;
}

void Token::Setup(ushort code, const char* name, COM_Def message, int baudRate)
{
	Sys.Code = code;
	Sys.Name = (char*)name;

    // 初始化系统
    //Sys.Clock = 48000000;
    Sys.Init();
#if DEBUG
    Sys.MessagePort = message; // 指定printf输出的串口
    Sys.ShowInfo();
#endif

#if DEBUG
	// 打开串口输入便于调试数据操作，但是会影响性能
	SerialPort* sp = SerialPort::GetMessagePort();
	if(baudRate != 1024000)
	{
		sp->Close();
		sp->SetBaudRate(baudRate);
	}
	sp->Register(OnSerial);

	//WatchDog::Start(20000);
#else
	WatchDog::Start();
#endif

	// Flash最后一块作为配置区
	Config::Current	= &Config::CreateFlash();
}

ITransport* Token::Create2401(SPI_TypeDef* spi_, Pin ce, Pin irq, Pin power, bool powerInvert)
{
	Spi* spi = new Spi(spi_, 10000000, true);
	NRF24L01* nrf = new NRF24L01();
	nrf->Init(spi, ce, irq, power);
	nrf->Power.Invert = powerInvert;
	nrf->SetPower();

	nrf->AutoAnswer		= false;
	nrf->PayloadWidth	= 32;
	nrf->Channel		= TinyConfig::Current->Channel;
	nrf->Speed			= TinyConfig::Current->Speed;

	//if(!nrf.Check()) debug_printf("请检查NRF24L01线路\r\n");

	return nrf;
}

uint OnZig(ITransport* port, Array& bs, void* param, void* param2)
{
	debug_printf("配置信息\r\n");
	bs.Show(true);

	return 0;
}

ITransport* Token::CreateShunCom(COM_Def index, int baudRate, Pin rst, Pin power, Pin slp, Pin cfg)
{
	SerialPort* sp = new SerialPort(index, baudRate);
	ShunCom* zb = new ShunCom();
	//zb.Power.Init(power, TinyConfig::Current->HardVer < 0x08);
	zb->Power.Set(power);
	if(zb->Power) zb->Power.Invert = true;

	zb->Sleep.Init(slp, true);
	zb->Config.Init(cfg, true);
	zb->Init(sp, rst);

	sp->SetPower();
	zb->SetPower();

	return zb;
}

void ClearConfig()
{
	//TokenConfig* cfg = TokenConfig::Current;
	//if(cfg) cfg->Clear();

	// 退网
	//TokenClient* client = TokenClient::Current;
	//if(client) client->Logout();

	Sys.Reset();
}

void CheckUserPress(InputPort* port, bool down, void* param)
{
	if(down) return;

	debug_printf("按下 P%c%d 时间=%d 毫秒 \r\n", _PIN_NAME(port->_Pin), port->PressTime);

	// 按下5秒，清空设置并重启
	if(port->PressTime >= 5000)
		ClearConfig();
	// 按下3秒，重启
	else if(port->PressTime >= 3000)
		Sys.Reset();
}

void StartGateway(void* param)
{
	ISocket* socket	= NULL;
	Gateway* gw	= Gateway::Current;
	if(gw) socket = dynamic_cast<ISocket*>(gw->Client->Control->Port);

	TokenConfig* tk = TokenConfig::Current;

	if(tk && tk->Server[0])
	{
		W5500* net	= (W5500*)param;
		// 根据DNS获取云端IP地址
		UdpClient udp(net);
		DNS dns(&udp);
		udp.Open();

		IPAddress ip = dns.Query(tk->Server, 2000);
		ip.Show(true);

		if(ip != IPAddress::Any())
		{
			tk->ServerIP = ip.Value;

			if(socket) socket->Remote.Address = ip;
		}

		tk->Save();
	}

	// 此时启动网关服务
	if(gw)
	{
		debug_printf("\r\n");

		IPEndPoint& ep = gw->Client->Hello.EndPoint;
		if(socket) ep.Address = socket->Host->IP;

		if(!gw->Running)
		{
			gw->Start();

			// 启动时首先进入学习模式
			gw->SetMode(true);
		}
	}
}