LuatOS/components/network/adapter/luat_network_adapter.c

#include "luat_base.h"
#include "luat_mem.h"
#include "luat_crypto.h"
#include "luat_rtos.h"
#ifdef LUAT_USE_NETWORK
#include "luat_rtos.h"
#include "platform_def.h"
#include "ctype.h"
#include "luat_network_adapter.h"

#ifndef LWIP_NUM_SOCKETS
#define LWIP_NUM_SOCKETS 8
#endif

#ifdef LUAT_USE_NETDRV
#include "luat_netdrv.h"
#include "luat_netdrv_event.h"
#endif

#ifdef LUAT_USE_NETDRV
extern void luat_netdrv_fire_socket_event_netctrl(uint32_t event_id, network_ctrl_t* ctrl, uint8_t proto);
#endif

typedef struct
{
#ifdef LUAT_USE_LWIP
	network_ctrl_t lwip_ctrl_table[LWIP_NUM_SOCKETS];
//	HANDLE network_mutex;
#endif
	int last_adapter_index;
	int default_adapter_index;
	llist_head dns_cache_head;
#ifdef LUAT_USE_LWIP
	uint8_t lwip_ctrl_busy[LWIP_NUM_SOCKETS];
#endif
	uint8_t is_init;
}network_info_t;

typedef struct
{

	network_adapter_info *opt;
	void *user_data;
	uint8_t *ctrl_busy;
	network_ctrl_t *ctrl_table;
	uint16_t port;
}network_adapter_t;

static network_adapter_t prv_adapter_table[NW_ADAPTER_QTY];
static network_info_t prv_network;
static const char *prv_network_event_id_string[] =
{
		"适配器复位",
		"LINK状态变更",
		"超时",
		"DNS结果",
		"发送成功",
		"有新的数据",
		"接收缓存满了",
		"断开成功",
		"对端关闭",
		"连接成功",
		"连接异常",
		"开始监听",
		"新的客户端来了",
		"唤醒",
		"未知",
};

static const char *prv_network_ctrl_state_string[] =
{
		"硬件离线",
		"离线",
		"等待DNS",
		"正在连接",
		"正在TLS握手",
		"在线",
		"在监听",
		"正在离线",
		"未知"
};

static const char *prv_network_ctrl_wait_state_string[] =
{
		"无等待",
		"等待硬件上线",
		"等待连接完成",
		"等待发送完成",
		"等待离线完成",
		"等待任意网络变化",
		"未知",
};

static const char *prv_network_ctrl_callback_event_string[] =
{
		"硬件状态回调",
		"连接状态回调",
		"离线状态回调",
		"发送状态回调",
		"任意网络变化回调",
};

const char *network_ctrl_event_id_string(uint32_t event)
{
	if (event > EV_NW_END || event < EV_NW_RESET)
	{
		return prv_network_event_id_string[EV_NW_END - EV_NW_RESET];
	}
	return prv_network_event_id_string[event - EV_NW_RESET];
}

const char *network_ctrl_state_string(uint8_t state)
{
	if (state > NW_STATE_DISCONNECTING)
	{
		return prv_network_ctrl_state_string[NW_STATE_DISCONNECTING + 1];
	}
	return prv_network_ctrl_state_string[state];
}

const char *network_ctrl_wait_state_string(uint8_t state)
{
	if (state > NW_WAIT_EVENT)
	{
		return prv_network_ctrl_wait_state_string[NW_WAIT_EVENT + 1];
	}
	return prv_network_ctrl_wait_state_string[state];
}

const char *network_ctrl_callback_event_string(uint32_t event)
{
	if (event > EV_NW_RESULT_EVENT || event < EV_NW_RESULT_LINK)
	{
		return prv_network_ctrl_callback_event_string[event - EV_NW_RESULT_EVENT + 1];
	}
	return prv_network_ctrl_callback_event_string[event - EV_NW_RESULT_EVENT];
}

network_adapter_info* network_adapter_fetch(int id, void** userdata) {
	if (id >= 0 && id < NW_ADAPTER_QTY) {
		if (prv_adapter_table[id].opt) {
			*userdata = prv_adapter_table[id].user_data;
			return prv_adapter_table[id].opt;
		}
	}
	return NULL;
}

#ifdef LUAT_USE_LWIP
#include "../lwip/port/net_lwip.h"
#else
#include "dhcp_def.h"
#endif
extern void DBG_Printf(const char* format, ...);
extern void DBG_HexPrintf(void *Data, unsigned int len);
//#define DBG(x,y...)		DBG_Printf("%s %d:"x"\r\n", __FUNCTION__,__LINE__,##y)
//#define DBG_ERR(x,y...)		DBG_Printf("%s %d:"x"\r\n", __FUNCTION__,__LINE__,##y)
static int tls_random( void *p_rng,
        unsigned char *output, size_t output_len );

#define __NW_DEBUG_ENABLE__
#ifdef __NW_DEBUG_ENABLE__
#ifdef LUAT_LOG_NO_NEWLINE
#define DBG(x,...)	do {if (ctrl->is_debug) {DBG_Printf("%s %d:"x, __FUNCTION__,__LINE__,##__VA_ARGS__);}} while(0)
#define DBG_ERR(x,...) DBG_Printf("%s %d:"x, __FUNCTION__,__LINE__,##__VA_ARGS__)
#else
#define DBG(x,...)	do {if (ctrl->is_debug) {DBG_Printf("%s %d:"x"\r\n", __FUNCTION__,__LINE__,##__VA_ARGS__);}} while(0)
#define DBG_ERR(x,...) DBG_Printf("%s %d:"x"\r\n", __FUNCTION__,__LINE__,##__VA_ARGS__)
#endif
#else
#define DBG(x,...)
#define DBG_ERR(x,...)
#endif
#define NW_LOCK		platform_lock_mutex(ctrl->mutex)
#define NW_UNLOCK	platform_unlock_mutex(ctrl->mutex)

#define SOL_SOCKET  0xfff    /* options for socket level */
#define SO_REUSEADDR   0x0004 /* Allow local address reuse */
#define SO_KEEPALIVE   0x0008 /* keep connections alive */

#define IPPROTO_ICMP    1
#define IPPROTO_TCP     6
#define TCP_NODELAY    0x01    /* don't delay send to coalesce packets */
#define TCP_KEEPALIVE  0x02    /* send KEEPALIVE probes when idle for pcb->keep_idle milliseconds */
#define TCP_KEEPIDLE   0x03    /* set pcb->keep_idle  - Same as TCP_KEEPALIVE, but use seconds for get/setsockopt */
#define TCP_KEEPINTVL  0x04    /* set pcb->keep_intvl - Use seconds for get/setsockopt */
#define TCP_KEEPCNT    0x05    /* set pcb->keep_cnt   - Use number of probes sent for get/setsockopt */



static uint8_t network_check_ip_same(luat_ip_addr_t *ip1, luat_ip_addr_t *ip2)
{
#ifdef LUAT_USE_LWIP
#if defined ENABLE_PSIF
	return ip_addr_cmp(ip1, ip2);
#else
#if LWIP_IPV6
	return ip_addr_cmp_zoneless(ip1, ip2);
#else
	return ip_addr_cmp(ip1, ip2);
#endif
#endif
#else
	if (ip1->is_ipv6 != ip2->is_ipv6)
	{
		return 0;
	}
	if (ip1->is_ipv6)
	{
		return !memcmp(ip1->ipv6_u8_addr, ip2->ipv6_u8_addr, 16);
	}
	else
	{
		return (ip1->ipv4 == ip2->ipv4);
	}
#endif
}

static int network_base_tx(network_ctrl_t *ctrl, const uint8_t *data, uint32_t len, int flags, luat_ip_addr_t *remote_ip, uint16_t remote_port)
{
	int result = -1;
	if (ctrl->is_tcp)
	{
		result = network_socket_send(ctrl, data, len, flags, NULL, 0);
	}
	else
	{
		if (remote_ip)
		{
			result = network_socket_send(ctrl, data, len, flags, remote_ip, remote_port);
		}
		else
		{
			result = network_socket_send(ctrl, data, len, flags, &ctrl->online_ip, ctrl->remote_port);
		}
	}
	if (result >= 0)
	{
		ctrl->tx_size += len;
	}
	else
	{
		ctrl->need_close = 1;
	}
	return result;
}

static LUAT_RT_RET_TYPE tls_shorttimeout(LUAT_RT_CB_PARAM)
{
	network_ctrl_t *ctrl = (network_ctrl_t *)param;
	if (!ctrl->tls_mode)
	{
		platform_stop_timer(ctrl->tls_long_timer);
		return LUAT_RT_RET;
	}
	if (0 == ctrl->tls_timer_state)
	{
		ctrl->tls_timer_state = 1;
	}
	return LUAT_RT_RET;
}
#ifdef LUAT_USE_TLS
static LUAT_RT_RET_TYPE tls_longtimeout(LUAT_RT_CB_PARAM)
{
	network_ctrl_t *ctrl = (network_ctrl_t *)param;
	platform_stop_timer(ctrl->tls_short_timer);
	if (!ctrl->tls_mode)
	{
		return LUAT_RT_RET;
	}
	ctrl->tls_timer_state = 2;
	return LUAT_RT_RET;
}

static void tls_settimer( void *data, uint32_t int_ms, uint32_t fin_ms )
{
	network_ctrl_t *ctrl = (network_ctrl_t *)data;
	if (!ctrl->tls_mode)
	{
		return;
	}
	if (!fin_ms)
	{
		platform_stop_timer(ctrl->tls_short_timer);
		platform_stop_timer(ctrl->tls_long_timer);
		ctrl->tls_timer_state = -1;
		return ;
	}
	platform_start_timer(ctrl->tls_short_timer, int_ms, 0);
	platform_start_timer(ctrl->tls_long_timer, fin_ms, 0);
	ctrl->tls_timer_state = 0;
}

static int tls_gettimer( void *data )
{
	network_ctrl_t *ctrl = (network_ctrl_t *)data;
	if (!ctrl->tls_mode)
	{
		return -ERROR_PARAM_INVALID;
	}
#if MBEDTLS_VERSION_NUMBER >= 0x03000000
	if(!mbedtls_ssl_is_handshake_over(ctrl->ssl))
#else
	if (ctrl->ssl->state != MBEDTLS_SSL_HANDSHAKE_OVER)
#endif
	{
		return ctrl->tls_timer_state;
	}
	else
	{
		return 0;
	}
}

static void tls_dbg(void *data, int level,
        const char *file, int line,
        const char *str)
{
	(void)data;(void)level;DBG_Printf("%s %d:%s", file, line, str);
}

static int tls_send(void *ctx, const unsigned char *buf, size_t len )
{
	network_ctrl_t *ctrl = (network_ctrl_t *)ctx;
	if (!ctrl->tls_mode)
	{
		return -ERROR_PERMISSION_DENIED;
	}
	if (network_base_tx(ctrl, buf, len, 0, NULL, 0) != len)
	{
		return -0x004E;
	}
	else
	{
		return len;
	}
}
#endif
static int tls_recv(void *ctx, unsigned char *buf, size_t len )
{
#ifdef LUAT_USE_TLS
	network_ctrl_t *ctrl = (network_ctrl_t *)ctx;
	luat_ip_addr_t remote_ip;
	uint16_t remote_port;
	int result = -1;
	if (!ctrl->tls_mode)
	{
		return -1;
	}
TLS_RECV:

	result = network_socket_receive(ctrl, buf, len, 0, &remote_ip, &remote_port);
	if (result < 0)
	{
		return -0x004C;
	}
	if (result > 0)
	{
		if (!ctrl->is_tcp)
		{
			if ((remote_port == ctrl->remote_port) && network_check_ip_same(&remote_ip, &ctrl->online_ip))
			{
				goto TLS_RECV;
			}
		}
		return result;
	}
	return MBEDTLS_ERR_SSL_WANT_READ;
#else
	return -1;
#endif
}

static int network_get_host_by_name(network_ctrl_t *ctrl)
{
#ifdef LUAT_USE_LWIP
	network_set_ip_invaild(&ctrl->remote_ip);
	if (ipaddr_aton(ctrl->domain_name, &ctrl->remote_ip))
	{
		return 0;
	}
	network_set_ip_invaild(&ctrl->remote_ip);
	return -1;
#else
	ctrl->remote_ip.is_ipv6 = 0xff;
	if (network_string_is_ipv4(ctrl->domain_name, ctrl->domain_name_len))
	{
		ctrl->remote_ip.is_ipv6 = 0;
		ctrl->remote_ip.ipv4 = network_string_to_ipv4(ctrl->domain_name, ctrl->domain_name_len);
	}
	else
	{
		char *name = zalloc(ctrl->domain_name_len + 1);
		memcpy(name, ctrl->domain_name, ctrl->domain_name_len);
		network_string_to_ipv6(name, &ctrl->remote_ip);
		free(name);
	}
	if (ctrl->remote_ip.is_ipv6 != 0xff)
	{
		return 0;
	}
	else
	{
		return -1;
	}
#endif
}

static void network_update_dns_cache(network_ctrl_t *ctrl)
{

}

static void network_get_dns_cache(network_ctrl_t *ctrl)
{

}

static int network_base_connect(network_ctrl_t *ctrl, luat_ip_addr_t *remote_ip)
{
#ifdef LUAT_USE_LWIP
	network_adapter_t *adapter = &prv_adapter_table[ctrl->adapter_index];
	if (ctrl->socket_id >= 0)
	{
	#ifdef LUAT_USE_TLS
		if (ctrl->tls_mode)
		{
			mbedtls_ssl_free(ctrl->ssl);
		}
	#endif
		if (network_socket_close(ctrl))
		{
			network_clean_invaild_socket(ctrl->adapter_index);
			network_socket_force_close(ctrl);
		}
		ctrl->need_close = 0;
		ctrl->socket_id = -1;
	}
	if (remote_ip)
	{
		if (network_create_socket(ctrl, network_ip_is_ipv6(remote_ip)) < 0)
		{
			network_clean_invaild_socket(ctrl->adapter_index);
			if (network_create_socket(ctrl, network_ip_is_ipv6(remote_ip)) < 0)
			{
				return -1;
			}
		}
		if (adapter->opt->is_posix)
		{
			volatile uint32_t val;
			val = ctrl->tcp_keep_alive;
			network_setsockopt(ctrl, SOL_SOCKET, SO_KEEPALIVE, (void *)&val, sizeof(val));
			if (ctrl->tcp_keep_alive)
			{
				val = ctrl->tcp_keep_idle;
				network_setsockopt(ctrl, IPPROTO_TCP, TCP_KEEPIDLE, (void*)&val, sizeof(val));
				val = ctrl->tcp_keep_interval;
				network_setsockopt(ctrl, IPPROTO_TCP, TCP_KEEPINTVL, (void *)&val, sizeof(val));
				val = ctrl->tcp_keep_cnt;
				network_setsockopt(ctrl, IPPROTO_TCP, TCP_KEEPCNT, (void *)&val, sizeof(val));
			}
		}
		else
		{
			network_user_cmd(ctrl, NW_CMD_AUTO_HEART_TIME, ctrl->tcp_keep_idle);
		}

		return network_socket_connect(ctrl, remote_ip);
	}
	else
	{
		if (network_create_socket(ctrl, 0) < 0)
		{
			network_clean_invaild_socket(ctrl->adapter_index);
			if (network_create_socket(ctrl, 0) < 0)
			{
				return -1;
			}
		}
		return network_socket_listen(ctrl);
	}
#else
	network_adapter_t *adapter = &prv_adapter_table[ctrl->adapter_index];
	if (ctrl->socket_id >= 0)
	{
		network_force_close_socket(ctrl);
	}
	if (remote_ip)
	{
		if (network_create_socket(ctrl, remote_ip->is_ipv6) < 0)
		{
			network_clean_invaild_socket(ctrl->adapter_index);
			if (network_create_socket(ctrl, remote_ip->is_ipv6) < 0)
			{
				return -1;
			}
		}
		if (adapter->opt->is_posix)
		{
			network_setsockopt(ctrl, SOL_SOCKET, SO_KEEPALIVE, (void *)&ctrl->tcp_keep_alive, sizeof(ctrl->tcp_keep_alive));
			if (ctrl->tcp_keep_alive)
			{
				network_setsockopt(ctrl, IPPROTO_TCP, TCP_KEEPIDLE, (void*)&ctrl->tcp_keep_idle, sizeof(ctrl->tcp_keep_idle));
				network_setsockopt(ctrl, IPPROTO_TCP, TCP_KEEPINTVL, (void *)&ctrl->tcp_keep_interval, sizeof(ctrl->tcp_keep_interval));
				network_setsockopt(ctrl, IPPROTO_TCP, TCP_KEEPCNT, (void *)&ctrl->tcp_keep_cnt, sizeof(ctrl->tcp_keep_cnt));
			}
		}
		else
		{
			network_user_cmd(ctrl, NW_CMD_AUTO_HEART_TIME, ctrl->tcp_keep_idle);
		}

		return network_socket_connect(ctrl, remote_ip);
	}
	else
	{
		luat_ip_addr_t local_ip, net_mask, gate_way;
		network_get_local_ip_info(ctrl, &local_ip, &net_mask, &gate_way);
		if (network_create_socket(ctrl, local_ip.is_ipv6) < 0)
		{
			network_clean_invaild_socket(ctrl->adapter_index);
			if (network_create_socket(ctrl, local_ip.is_ipv6) < 0)
			{
				return -1;
			}
		}
		return network_socket_listen(ctrl);
	}
#endif
}

static int network_prepare_connect(network_ctrl_t *ctrl)
{
   
	if (network_ip_is_vaild(&ctrl->remote_ip))
	{
		;
	}
	else if (ctrl->domain_name)
	{
		if (network_get_host_by_name(ctrl))
		{
			if (network_dns(ctrl))
			{
				network_socket_force_close(ctrl);
				return -1;
			}
			ctrl->state = NW_STATE_WAIT_DNS;
			return 0;
		}
	}
	else
	{

		return -1;
	}

	if (network_base_connect(ctrl, &ctrl->remote_ip))
	{
		network_socket_force_close(ctrl);
		return -1;
	}
	ctrl->state = NW_STATE_CONNECTING;
	return 0;
}

static int network_state_link_off(network_ctrl_t *ctrl, OS_EVENT *event, network_adapter_t *adapter)
{
	if (EV_NW_STATE == event->ID)
	{
		if (event->Param2)
		{
			ctrl->state = NW_STATE_OFF_LINE;
			if (NW_WAIT_LINK_UP == ctrl->wait_target_state)
			{
				return 0;
			}
			else if (NW_WAIT_ON_LINE == ctrl->wait_target_state)
			{
				if (ctrl->is_server_mode)
				{
					if (network_base_connect(ctrl, NULL))
					{
						return -1;
					}
					ctrl->state = NW_STATE_CONNECTING;
				}
				else
				{
					if (network_prepare_connect(ctrl))
					{
						return -1;
					}
				}

				return 1;
			}
		}
	}
	return 1;
}

static int network_state_off_line(network_ctrl_t *ctrl, OS_EVENT *event, network_adapter_t *adapter)
{
	return 1;
}

static int network_state_wait_dns(network_ctrl_t *ctrl, OS_EVENT *event, network_adapter_t *adapter)
{
	if ((ctrl->need_close) || ctrl->wait_target_state != NW_WAIT_ON_LINE) return -1;
	switch(event->ID)
	{
	case EV_NW_RESET:
	case EV_NW_SOCKET_ERROR:
		return -1;
	case EV_NW_STATE:
		if (!event->Param2)
		{
			return -1;
		}
		break;
	case EV_NW_DNS_RESULT:
		if (event->Param1)
		{
			//更新dns cache
			ctrl->dns_ip = event->Param2;
			ctrl->dns_ip_nums = event->Param1;
#ifdef LUAT_USE_LWIP
			for(int i = 0; i < ctrl->dns_ip_nums; i++)
			{
				DBG("dns ip%d, ttl %u, %s", i, ctrl->dns_ip[i].ttl_end, ipaddr_ntoa(&ctrl->dns_ip[i].ip));
			}
#endif
			network_update_dns_cache(ctrl);
		}
		else
		{
			ctrl->dns_ip_nums = 0;
			network_get_dns_cache(ctrl);
			if (!ctrl->dns_ip_nums)
			{
				return -1;
			}

		}
		if (!ctrl->remote_port)
		{
			ctrl->state = NW_STATE_OFF_LINE;
			return 0;
		}
		ctrl->dns_ip_cnt = 0;
		if (network_base_connect(ctrl, &ctrl->dns_ip[ctrl->dns_ip_cnt].ip))
		{
			network_socket_force_close(ctrl);
			return -1;
		}
		else
		{
			ctrl->state = NW_STATE_CONNECTING;
			return 1;
		}
	default:
		return 1;
	}
	return -1;
}

static int network_state_connecting(network_ctrl_t *ctrl, OS_EVENT *event, network_adapter_t *adapter)
{
	if ((ctrl->need_close) || (ctrl->wait_target_state != NW_WAIT_ON_LINE)) return -1;
	switch(event->ID)
	{
	case EV_NW_RESET:
		return -1;
	case EV_NW_SOCKET_ERROR:
	case EV_NW_SOCKET_REMOTE_CLOSE:
	case EV_NW_SOCKET_CLOSE_OK:
		
		if (network_ip_is_vaild(&ctrl->remote_ip))
		{
			return -1;
		}
		DBG("dns ip %d no connect!,%d", ctrl->dns_ip_cnt, ctrl->dns_ip_nums);
		ctrl->dns_ip_cnt++;
		if (ctrl->dns_ip_cnt >= ctrl->dns_ip_nums)
		{
			DBG("all ip try connect failed");
			return -1;
		}
		if (network_base_connect(ctrl, &ctrl->dns_ip[ctrl->dns_ip_cnt].ip))
		{
			network_socket_force_close(ctrl);
			return -1;
		}
		else
		{
			ctrl->state = NW_STATE_CONNECTING;
			return 1;
		}
		break;
	case EV_NW_STATE:
		if (!event->Param2)
		{
			return -1;
		}
		break;
	case EV_NW_SOCKET_LISTEN:
		if (ctrl->is_server_mode)
		{
			ctrl->state = NW_STATE_LISTEN;
			return 1;
		}
		break;
	case EV_NW_SOCKET_CONNECT_OK:
#ifdef LUAT_USE_TLS
		if (ctrl->tls_mode)
		{
			mbedtls_ssl_free(ctrl->ssl);
			memset(ctrl->ssl, 0, sizeof(mbedtls_ssl_context));
			mbedtls_ssl_setup(ctrl->ssl, ctrl->config);
			// ctrl->ssl->f_set_timer = tls_settimer;
			// ctrl->ssl->f_get_timer = tls_gettimer;
			// ctrl->ssl->p_timer = ctrl;
			mbedtls_ssl_set_timer_cb(ctrl->ssl, ctrl, tls_settimer, tls_gettimer);
			// ctrl->ssl->p_bio = ctrl;
			// ctrl->ssl->f_send = tls_send;
			// ctrl->ssl->f_recv = tls_recv;
			mbedtls_ssl_set_bio(ctrl->ssl, ctrl, tls_send, tls_recv, NULL);
			// add by wendal
			// cloudflare的https需要设置hostname才能访问
			if (ctrl->domain_name_len > 0 && ctrl->domain_name_len < 256) {
				char host[257] = {0};
				memcpy(host, ctrl->domain_name, ctrl->domain_name_len);
				mbedtls_ssl_set_hostname(ctrl->ssl, host);
				//LLOGD("CALL mbedtls_ssl_set_hostname(%s)", host);
			}
			else {
				//LLOGD("skip mbedtls_ssl_set_hostname");
			}

			ctrl->state = NW_STATE_SHAKEHAND;
	    	do
	    	{
	    		int result = mbedtls_ssl_handshake_step( ctrl->ssl );
	    		switch(result)
	    		{
	    		case MBEDTLS_ERR_SSL_WANT_READ:
	    			return 1;
	    		case 0:
	    			break;
	    		default:
					#if MBEDTLS_VERSION_NUMBER >= 0x03000000
					#else
	    			DBG_ERR("0x%x, %d", -result, ctrl->ssl->state);
					#endif
	    			return -1;
	    		}
			#if MBEDTLS_VERSION_NUMBER >= 0x03000000
			}while(!mbedtls_ssl_is_handshake_over(ctrl->ssl));
			#else
	    	}while(ctrl->ssl->state != MBEDTLS_SSL_HANDSHAKE_OVER);
			#endif
	    	return 0;
		}
		else
#endif
		{
			ctrl->state = NW_STATE_ONLINE;
			return 0;
		}

	default:
		return 1;
	}
	return -1;
}

static int network_state_shakehand(network_ctrl_t *ctrl, OS_EVENT *event, network_adapter_t *adapter)
{
	if ((ctrl->need_close) || ((ctrl->wait_target_state != NW_WAIT_ON_LINE) && (ctrl->wait_target_state != NW_WAIT_TX_OK))) return -1;
	switch(event->ID)
	{
	case EV_NW_RESET:
	case EV_NW_SOCKET_ERROR:
	case EV_NW_SOCKET_REMOTE_CLOSE:
	case EV_NW_SOCKET_CLOSE_OK:
		ctrl->need_close = 1;
		return -1;
	case EV_NW_STATE:
		if (!event->Param2)
		{
			ctrl->need_close = 1;
			return -1;
		}
		break;
	case EV_NW_SOCKET_TX_OK:
		ctrl->ack_size += event->Param2;
		break;
#ifdef LUAT_USE_TLS
	case EV_NW_SOCKET_RX_NEW:
    	do
    	{
    		int result = mbedtls_ssl_handshake_step( ctrl->ssl );
    		switch(result)
    		{
    		case MBEDTLS_ERR_SSL_WANT_READ:
    			return 1;
    		case 0:
    			break;
    		default:
				#if MBEDTLS_VERSION_NUMBER >= 0x03000000
    			DBG_ERR("0x%x", -result);
				#else
    			DBG_ERR("0x%x, %d", -result, ctrl->ssl->state);
				#endif
				DBG_Printf("TLS handshake failed %d !!\n", -result);
    			ctrl->need_close = 1;
    			return -1;
    		}
		#if MBEDTLS_VERSION_NUMBER >= 0x03000000
		}while(!mbedtls_ssl_is_handshake_over(ctrl->ssl));
		#else
    	}while(ctrl->ssl->state != MBEDTLS_SSL_HANDSHAKE_OVER);
		#endif
    	ctrl->state = NW_STATE_ONLINE;
    	if (NW_WAIT_TX_OK == ctrl->wait_target_state)
    	{
    		if (!ctrl->cache_data)
    		{
    			ctrl->need_close = 1;
    			return -1;
    		}
    		int result = mbedtls_ssl_write(ctrl->ssl, ctrl->cache_data, ctrl->cache_len);
    		free(ctrl->cache_data);
    		ctrl->cache_data = NULL;
    		ctrl->cache_len = 0;
    	    if (result < 0)
    	    {
    	    	DBG("%08x", -result);
    			ctrl->need_close = 1;
    			return -1;
    	    }
    	    return 1;
    	}
    	return 0;
#endif
	case EV_NW_SOCKET_CONNECT_OK:
		DBG_ERR("!");
		return 1;
	default:
		return 1;
	}
	return 1;
}

static int network_state_on_line(network_ctrl_t *ctrl, OS_EVENT *event, network_adapter_t *adapter)
{
	if ((ctrl->need_close) || NW_WAIT_OFF_LINE == ctrl->wait_target_state)
	{
		return -1;
	}

	switch(event->ID)
	{
	case EV_NW_RESET:
	case EV_NW_SOCKET_ERROR:
	case EV_NW_SOCKET_REMOTE_CLOSE:
	case EV_NW_SOCKET_CLOSE_OK:
		ctrl->need_close = 1;
		return -1;
	case EV_NW_STATE:
		if (!event->Param2)
		{
			ctrl->need_close = 1;
			return -1;
		}
		break;
	case EV_NW_SOCKET_TX_OK:
		ctrl->ack_size += event->Param2;
		if (NW_WAIT_TX_OK == ctrl->wait_target_state)
		{

			if (ctrl->ack_size == ctrl->tx_size)
			{
#ifdef LUAT_USE_LWIP
				if (ctrl->is_tcp)
				{
					if (ctrl->adapter_index < NW_ADAPTER_INDEX_LWIP_NETIF_QTY)
					{
						// 如果 适配器自带check_ack函数, 那就直接调用, 不需要再调用全局的
						if (prv_adapter_table[ctrl->adapter_index].opt->check_ack) {
							return prv_adapter_table[ctrl->adapter_index].opt->check_ack(ctrl->adapter_index, ctrl->socket_id);
						}
						DBG("BUG!! neek to check ack, but adapter don't has check_ack function");
						return 0;
					}
					else
					{
						return 0;
					}
				}
				return 0;
#else
				return 0;
#endif
			}
		}
		break;
	case EV_NW_SOCKET_RX_NEW:
#ifdef LUAT_USE_TLS
#if MBEDTLS_VERSION_NUMBER >= 0x03000000
		if (ctrl->tls_mode && !mbedtls_ssl_is_handshake_over(ctrl->ssl))
#else
		if (ctrl->tls_mode && (ctrl->ssl->state != MBEDTLS_SSL_HANDSHAKE_OVER))
#endif
		{
			DBG("rehandshaking");
	    	do
	    	{
	    		int result = mbedtls_ssl_handshake_step( ctrl->ssl );
	    		switch(result)
	    		{
	    		case MBEDTLS_ERR_SSL_WANT_READ:
	    			return 1;
	    		case 0:
	    			break;
	    		default:
#if MBEDTLS_VERSION_NUMBER >= 0x03000000
	    			DBG_ERR("0x%x", -result);
#else
	    			DBG_ERR("0x%x, %d", -result, ctrl->ssl->state);
#endif
	    			ctrl->need_close = 1;
	    			return -1;
	    		}
#if MBEDTLS_VERSION_NUMBER >= 0x03000000
			}while(!mbedtls_ssl_is_handshake_over(ctrl->ssl));
#else
			}while(ctrl->ssl->state != MBEDTLS_SSL_HANDSHAKE_OVER);
#endif
		}
#endif
		ctrl->new_rx_flag = 1;
		if (NW_WAIT_TX_OK != ctrl->wait_target_state)
		{
			return 0;
		}
		break;
	default:
		return 1;
	}
	return 1;
}

static int network_state_listen(network_ctrl_t *ctrl, OS_EVENT *event, network_adapter_t *adapter)
{
	if ((ctrl->need_close) || NW_WAIT_OFF_LINE == ctrl->wait_target_state)
	{
		return -1;
	}
	switch(event->ID)
	{
	case EV_NW_RESET:
	case EV_NW_SOCKET_ERROR:
	case EV_NW_SOCKET_REMOTE_CLOSE:
	case EV_NW_SOCKET_CLOSE_OK:
		ctrl->need_close = 1;
		return -1;
	case EV_NW_STATE:
		if (!event->Param2)
		{
			ctrl->need_close = 1;
			return -1;
		}
		break;
	case EV_NW_SOCKET_NEW_CONNECT:
	case EV_NW_SOCKET_CONNECT_OK:
		ctrl->state = NW_STATE_ONLINE;
		return 0;
	default:
		return 1;
	}
	return 1;
}

static int network_state_disconnecting(network_ctrl_t *ctrl, OS_EVENT *event, network_adapter_t *adapter)
{
	if (ctrl->wait_target_state != NW_WAIT_OFF_LINE)
	{
		return -1;
	}
	switch(event->ID)
	{
	case EV_NW_RESET:
	case EV_NW_SOCKET_ERROR:
	case EV_NW_SOCKET_REMOTE_CLOSE:
	case EV_NW_SOCKET_CLOSE_OK:
		network_force_close_socket(ctrl);
		ctrl->state = NW_STATE_OFF_LINE;
		ctrl->socket_id = -1;
		return 0;
	case EV_NW_STATE:
		if (!event->Param2)
		{
			return -1;
		}
		else
		{
			network_force_close_socket(ctrl);
			ctrl->state = NW_STATE_OFF_LINE;
			ctrl->socket_id = -1;
		}
		break;
	default:
		return 1;
	}
	return -1;
}

typedef int (*network_state_fun)(network_ctrl_t *ctrl, OS_EVENT *event, network_adapter_t *adapter);
static network_state_fun network_state_fun_list[]=
{
		network_state_link_off,
		network_state_off_line,
		network_state_wait_dns,
		network_state_connecting,
		network_state_shakehand,
		network_state_on_line,
		network_state_listen,
		network_state_disconnecting,
};

static void network_default_statemachine(network_ctrl_t *ctrl, OS_EVENT *event, network_adapter_t *adapter)
{
	int result = -1;
	uint8_t close_flag = 0;
	NW_LOCK;
	if (ctrl->state > NW_STATE_DISCONNECTING)
	{
		ctrl->state = NW_STATE_LINK_OFF;
		event->Param1 = -1;

		network_force_close_socket(ctrl);
		event->ID = ctrl->wait_target_state + EV_NW_RESULT_BASE;

	}
	else
	{
		if ((NW_STATE_DISCONNECTING == ctrl->state) && (NW_WAIT_OFF_LINE == ctrl->wait_target_state))
		{
			close_flag = 1;
		}
		result = network_state_fun_list[ctrl->state](ctrl, event, adapter);
		if (result > 0)
		{
			NW_UNLOCK;
			if (ctrl->new_rx_flag && ctrl->user_callback)
			{
				event->ID = NW_WAIT_EVENT + EV_NW_RESULT_BASE;
				event->Param1 = 0;
				ctrl->user_callback(event, ctrl->user_data);
			}
			return ;
		}
		if (close_flag && (NW_WAIT_NONE == ctrl->wait_target_state))
		{
			event->ID = EV_NW_RESULT_CLOSE;
		}
		else
		{
			event->ID = (ctrl->wait_target_state?ctrl->wait_target_state:NW_WAIT_EVENT) + EV_NW_RESULT_BASE;
		}
		event->Param1 = result;
	}
	if ((ctrl->state != NW_STATE_LISTEN) || (result < 0))
	{
		ctrl->wait_target_state = NW_WAIT_NONE;
	}
	NW_UNLOCK;
	if (ctrl->task_handle)
	{
		platform_send_event(ctrl->task_handle, event->ID, event->Param1, event->Param2, event->Param3);
	}
	else if (ctrl->user_callback)
	{
		ctrl->user_callback(event, ctrl->user_data);
	}
}


static int32_t network_default_socket_callback(void *data, void *param)
{
	OS_EVENT *event = (OS_EVENT *)data;
	OS_EVENT temp_event;
	luat_network_cb_param_t *cb_param = (luat_network_cb_param_t *)param;
	network_adapter_t *adapter =(network_adapter_t *)(cb_param->param);
	int i;
	network_ctrl_t *ctrl = (network_ctrl_t *)event->Param3;

	// 插入几个事件回调
	if (event->ID != 0 && event->ID != EV_NW_DNS_RESULT && ctrl) {
		#ifdef LUAT_USE_NETDRV
		luat_netdrv_fire_socket_event_netctrl(event->ID, ctrl, 0);
		#endif
	}

	if (event->ID > EV_NW_TIMEOUT)
	{
		if (ctrl && ((event->ID == EV_NW_DNS_RESULT) || (ctrl->tag == cb_param->tag)))
		{
			if ((event->ID == EV_NW_DNS_RESULT) && (ctrl->wait_target_state != NW_WAIT_ON_LINE))
			{
				DBG("socket event:0x%x(%s),wait:%d(%s)", event->ID, network_ctrl_event_id_string(event->ID), ctrl->wait_target_state, network_ctrl_wait_state_string(ctrl->wait_target_state));
				return 0;
			}
			if (ctrl->auto_mode)
			{
				DBG("before process socket %d,event:0x%x(%s),state:%d(%s),wait:%d(%s)", ctrl->socket_id, event->ID, network_ctrl_event_id_string(event->ID),
						ctrl->state, network_ctrl_state_string(ctrl->state),
						ctrl->wait_target_state, network_ctrl_wait_state_string(ctrl->wait_target_state));
				network_default_statemachine(ctrl, event, adapter);
				DBG("after process socket %d,state:%d(%s),wait:%d(%s)", ctrl->socket_id, ctrl->state, network_ctrl_state_string(ctrl->state),ctrl->wait_target_state, network_ctrl_wait_state_string(ctrl->wait_target_state));
			}
			else if (ctrl->task_handle)
			{
				platform_send_event(ctrl->task_handle, event->ID, event->Param1, event->Param2, event->Param3);
			}
			else if (ctrl->user_callback)
			{
				ctrl->user_callback(event, ctrl->user_data);
			}
		}
		else
		{
			DBG_ERR("cb ctrl invaild %x %08X", ctrl, event->ID);
			// 下面这行的打印在部分平台会有问题
			// 原因是ctrl可能已经被释放, 再次访问会导致coredump
			//DBG_HexPrintf(&ctrl->tag, 8);
			DBG_HexPrintf(&cb_param->tag, 8);
		}
	}
	else
	{
		for (i = 0; i < adapter->opt->max_socket_num; i++)
		{
			temp_event = *event;
			if (adapter->ctrl_busy[i])
			{
				ctrl = &adapter->ctrl_table[i];
				if (ctrl->adapter_index == (uint8_t)(event->Param3))
				{
					if (ctrl->auto_mode)
					{
						DBG("before process socket %d,event:0x%x(%s),state:%d(%s),wait:%d(%s)", ctrl->socket_id, event->ID, network_ctrl_event_id_string(event->ID),
								ctrl->state, network_ctrl_state_string(ctrl->state),
								ctrl->wait_target_state, network_ctrl_wait_state_string(ctrl->wait_target_state));
						network_default_statemachine(ctrl, &temp_event, adapter);
						DBG("after process socket %d,state:%d(%s),wait:%d(%s)", ctrl->socket_id, ctrl->state, network_ctrl_state_string(ctrl->state),	ctrl->wait_target_state, network_ctrl_wait_state_string(ctrl->wait_target_state));
					}
					else if (ctrl->task_handle)
					{
						platform_send_event(ctrl->task_handle, event->ID, event->Param1, event->Param2, event->Param3);
					}
					else if (ctrl->user_callback)
					{
						ctrl->user_callback(&temp_event, ctrl->user_data);
					}
				}

			}
		}
	}

	return 0;
}

static LUAT_RT_RET_TYPE network_default_timer_callback(LUAT_RT_CB_PARAM)
{
	platform_send_event(param, EV_NW_TIMEOUT, 0, 0, 0);
	return LUAT_RT_RET;
}

#ifndef LUAT_USE_LWIP
uint8_t network_string_is_ipv4(const char *string, uint32_t len)
{
	int i;
	for(i = 0; i < len; i++)
	{
		if (!isdigit((int)string[i]) && (string[i] != '.'))
		{
			return 0;
		}
	}
	return 1;
}

uint32_t network_string_to_ipv4(const char *string, uint32_t len)
{
	int i;
	int8_t Buf[4][4];
	CmdParam CP;
	PV_Union uIP;
	char temp[32];
	memset(Buf, 0, sizeof(Buf));
	CP.param_max_len = 4;
	CP.param_max_num = 4;
	CP.param_num = 0;
	CP.param_str = (int8_t *)Buf;
	memcpy(temp, string, len);
	temp[len] = 0;
	CmdParseParam((int8_t*)temp, &CP, '.');
	for(i = 0; i < 4; i++)
	{
		uIP.u8[i] = strtol((char *)Buf[i], NULL, 10);
	}
//	DBG("%d.%d.%d.%d", uIP.u8[0], uIP.u8[1], uIP.u8[2], uIP.u8[3]);
	return uIP.u32;
}

#define SWAP(x) ((((x) & (uint32_t)0x000000ffUL) << 24) | \
                     (((x) & (uint32_t)0x0000ff00UL) <<  8) | \
                     (((x) & (uint32_t)0x00ff0000UL) >>  8) | \
                     (((x) & (uint32_t)0xff000000UL) >> 24))

int network_string_to_ipv6(const char *string, luat_ip_addr_t *ip_addr)
{


  uint32_t addr_index, zero_blocks, current_block_index, current_block_value;
  const char *s;
  ip_addr->is_ipv6 = 0xff;
  /* Count the number of colons, to count the number of blocks in a "::" sequence
	 zero_blocks may be 1 even if there are no :: sequences */
  zero_blocks = 8;
  for (s = string; *s != 0; s++) {
	if (*s == ':') {
	  zero_blocks--;
	} else if (!isxdigit((int)*s)) {
	  break;
	}
  }

  /* parse each block */
  addr_index = 0;
  current_block_index = 0;
  current_block_value = 0;
  for (s = string; *s != 0; s++) {
	if (*s == ':') {
		if (current_block_index & 0x1) {
			ip_addr->ipv6_u32_addr[addr_index++] |= current_block_value;
		}
		else {
			ip_addr->ipv6_u32_addr[addr_index] = current_block_value << 16;
		}
	  current_block_index++;
	  current_block_value = 0;
	  if (current_block_index > 7) {
		/* address too long! */
		return 0;
	  }
	  if (s[1] == ':') {
		if (s[2] == ':') {
		  /* invalid format: three successive colons */
		  return 0;
		}
		s++;
		/* "::" found, set zeros */
		while (zero_blocks > 0) {
		  zero_blocks--;
		  if (current_block_index & 0x1) {
			addr_index++;
		  } else {
			  ip_addr->ipv6_u32_addr[addr_index] = 0;
		  }
		  current_block_index++;
		  if (current_block_index > 7) {
			/* address too long! */
			return 0;
		  }
		}
	  }
	} else if (isxdigit((int)*s)) {
	  /* add current digit */
	  current_block_value = (current_block_value << 4) +
		  (isxdigit((int)*s) ? (uint32_t)(*s - '0') :
		  (uint32_t)(10 + (isxdigit((int)*s) ? *s - 'a' : *s - 'A')));
	} else {
	  /* unexpected digit, space? CRLF? */
	  break;
	}
  }


	if (current_block_index & 0x1) {
		ip_addr->ipv6_u32_addr[addr_index++] |= current_block_value;
	}
	else {
		ip_addr->ipv6_u32_addr[addr_index] = current_block_value << 16;
	}

	/* convert to network byte order. */
	for (addr_index = 0; addr_index < 4; addr_index++) {
		ip_addr->ipv6_u32_addr[addr_index] = SWAP(ip_addr->ipv6_u32_addr[addr_index]);
	}



	if (current_block_index != 7) {

		return 0;
	}
	ip_addr->is_ipv6 = 1;
	return 1;

}

#endif

int network_get_last_register_adapter(void)
{
	if (!prv_network.is_init) return -1;
	if (prv_network.default_adapter_index != -1) return prv_network.default_adapter_index;
	return prv_network.last_adapter_index;
}

void network_register_set_default(uint8_t adapter_index)
{
	int dft = network_register_get_default();
	if (dft != -1 && dft != adapter_index)
	{
		DBG_Printf("change from %d to %d", dft, adapter_index);
	}
	prv_network.default_adapter_index = adapter_index;
}

int network_register_adapter(uint8_t adapter_index, network_adapter_info *info, void *user_data)
{
	prv_adapter_table[adapter_index].opt = info;
	prv_adapter_table[adapter_index].user_data = user_data;
	info->socket_set_callback(network_default_socket_callback, &prv_adapter_table[adapter_index], user_data);
#ifdef LUAT_USE_LWIP
	if (adapter_index < NW_ADAPTER_INDEX_HW_PS_DEVICE)
	{
		prv_adapter_table[adapter_index].ctrl_table = prv_network.lwip_ctrl_table;
		prv_adapter_table[adapter_index].ctrl_busy = prv_network.lwip_ctrl_busy;
	}
	else
#endif
	{
		prv_adapter_table[adapter_index].ctrl_table = zalloc((info->max_socket_num) * sizeof(network_ctrl_t));
		prv_adapter_table[adapter_index].ctrl_busy = zalloc(info->max_socket_num);
	}

	prv_adapter_table[adapter_index].port = 0;
	if (!prv_network.is_init)
	{
		//prv_network.network_mutex = platform_create_mutex();
		INIT_LLIST_HEAD(&prv_network.dns_cache_head);
		prv_network.default_adapter_index = -1;
		prv_network.last_adapter_index = -1;
		prv_network.is_init = 1;
	}

	prv_network.last_adapter_index = adapter_index;
	return 0;
}

void network_set_dns_server(uint8_t adapter_index, uint8_t server_index, luat_ip_addr_t *ip)
{
	network_adapter_t *adapter = &prv_adapter_table[adapter_index];
	adapter->opt->set_dns_server(server_index, ip, adapter->user_data);
}

/*
 * 申请一个network_ctrl
 */
network_ctrl_t *network_alloc_ctrl(uint8_t adapter_index)
{
	int i;
	network_ctrl_t *ctrl = NULL;
	if (adapter_index >= NW_ADAPTER_QTY || prv_adapter_table[adapter_index].opt == NULL) {
		DBG_ERR("adapter index %d is invalid!", adapter_index);
		return NULL;
	}
	network_adapter_t *adapter = &prv_adapter_table[adapter_index];
	OS_LOCK;
	for (i = 0; i < adapter->opt->max_socket_num; i++)
	{
		if (!adapter->ctrl_busy[i])
		{

			adapter->ctrl_busy[i] = 1;
			ctrl = &adapter->ctrl_table[i];
			ctrl->adapter_index = adapter_index;
			ctrl->local_port = 0;
			ctrl->domain_ipv6 = 0;
			break;
		}
	}
	OS_UNLOCK;
	if (i >= adapter->opt->max_socket_num) {DBG_ERR("adapter no more ctrl!");}
	#ifdef LUAT_USE_NETDRV
	if (ctrl) {
		luat_netdrv_fire_socket_event_netctrl(0x81 + EV_NW_RESET, ctrl, 0);
	}
	#endif // LUAT_USE_NETDRV
	return ctrl;
}

/*
 * 归还一个network_ctrl
 */
void network_release_ctrl(network_ctrl_t *ctrl)
{
	int i;
	network_adapter_t *adapter = &prv_adapter_table[ctrl->adapter_index];
	NW_UNLOCK;
	OS_LOCK;
	for (i = 0; i < adapter->opt->max_socket_num; i++)
	{
		if (&adapter->ctrl_table[i] == ctrl)
		{
			#ifdef LUAT_USE_NETDRV
			luat_netdrv_fire_socket_event_netctrl(0x82 + EV_NW_RESET, ctrl, 0);
			#endif
			network_deinit_tls(ctrl);
			if (ctrl->timer)
			{
				platform_stop_timer(ctrl->timer);
				platform_release_timer(ctrl->timer);
				ctrl->timer = NULL;
			}
			if (ctrl->cache_data)
			{
				free(ctrl->cache_data);
				ctrl->cache_data = NULL;
			}
			if (ctrl->dns_ip)
			{
				free(ctrl->dns_ip);
				ctrl->dns_ip = NULL;
			}
			if (ctrl->domain_name)
			{
				free(ctrl->domain_name);
				ctrl->domain_name = NULL;
			}
			adapter->ctrl_busy[i] = 0;
			platform_release_mutex(ctrl->mutex);
			ctrl->mutex = NULL;
			break;
		}
	}
	OS_UNLOCK;
	if (i >= adapter->opt->max_socket_num) {DBG_ERR("adapter index maybe error!, %d, %x", ctrl->adapter_index, ctrl);}

}

void network_init_ctrl(network_ctrl_t *ctrl, HANDLE task_handle, CBFuncEx_t callback, void *param)
{
	uint8_t adapter_index = ctrl->adapter_index;
	//network_adapter_t *adapter = &prv_adapter_table[ctrl->adapter_index];
	if (ctrl->dns_ip)
	{
		free(ctrl->dns_ip);
		ctrl->dns_ip = NULL;
	}
	if (ctrl->cache_data)
	{
		free(ctrl->cache_data);
		ctrl->cache_data = NULL;
	}
	if (ctrl->domain_name)
	{
		free(ctrl->domain_name);
		ctrl->domain_name = NULL;
	}
	HANDLE sem = ctrl->mutex;
	memset(ctrl, 0, sizeof(network_ctrl_t));
	ctrl->adapter_index = adapter_index;
	ctrl->task_handle = task_handle;
	ctrl->user_callback = callback;
	ctrl->user_data = param;
	ctrl->socket_id = -1;
	ctrl->socket_param = ctrl;
	network_set_ip_invaild(&ctrl->remote_ip);
	ctrl->mutex = sem;
	if (task_handle)
	{
		ctrl->timer = platform_create_timer(network_default_timer_callback, task_handle, NULL);
	}
	if (!ctrl->mutex)
	{
		ctrl->mutex = platform_create_mutex();
	}

}

void network_set_base_mode(network_ctrl_t *ctrl, uint8_t is_tcp, uint32_t tcp_timeout_ms, uint8_t keep_alive, uint32_t keep_idle, uint8_t keep_interval, uint8_t keep_cnt)
{
	ctrl->is_tcp = is_tcp;
	ctrl->tcp_keep_alive = keep_alive;
	ctrl->tcp_keep_idle = keep_idle;
	ctrl->tcp_keep_interval = keep_interval;
	ctrl->tcp_keep_cnt = keep_cnt;
	ctrl->tcp_timeout_ms = tcp_timeout_ms;
}

void network_set_debug_onoff(network_ctrl_t *ctrl, uint8_t on_off)
{
	ctrl->is_debug = on_off;
}

void network_connect_ipv6_domain(network_ctrl_t *ctrl, uint8_t onoff)
{
	ctrl->domain_ipv6 = onoff;
}

int network_set_local_port(network_ctrl_t *ctrl, uint16_t local_port)
{
	int i;
	network_adapter_t *adapter = &prv_adapter_table[ctrl->adapter_index];
	if (local_port)
	{
		OS_LOCK;
		#if 0
		for (i = 0; i < adapter->opt->max_socket_num; i++)
		{
			if (&adapter->ctrl_table[i] != ctrl)
			{
				if (adapter->ctrl_table[i].local_port == local_port)
				{
					OS_UNLOCK;
					return -1;
				}
			}

		}
		#endif
		ctrl->local_port = local_port;
		OS_UNLOCK;
		return 0;
	}
	else
	{
		ctrl->local_port = 0;
#if 0
		if (ctrl->adapter_index < NW_ADAPTER_INDEX_LWIP_NETIF_QTY)
		{
			ctrl->local_port = 0;
			return 0;
		}
		OS_LOCK;
		adapter->port++;
		if (adapter->port < 60000)
		{
			adapter->port = 60000;
		}
		ctrl->local_port = adapter->port;
		OS_UNLOCK;
#endif
		return 0;
	}
}

int network_create_socket(network_ctrl_t *ctrl, uint8_t is_ipv6)
{
	network_adapter_t *adapter = &prv_adapter_table[ctrl->adapter_index];
	ctrl->socket_id = adapter->opt->create_soceket(ctrl->is_tcp, &ctrl->tag, ctrl->socket_param, is_ipv6, adapter->user_data);
	if (ctrl->socket_id < 0)
	{
		ctrl->tag = 0;
		return -1;
	}
	return 0;
}

int network_socket_connect(network_ctrl_t *ctrl, luat_ip_addr_t *remote_ip)
{
	network_adapter_t *adapter = &prv_adapter_table[ctrl->adapter_index];
	ctrl->is_server_mode = 0;
	ctrl->online_ip = *remote_ip;
	uint16_t local_port = ctrl->local_port;
	if (!local_port)
	{
		local_port = ctrl->adapter_index;
		local_port *= 640;
		uint32_t offset = ctrl - adapter->ctrl_table;
		if (offset >= sizeof(network_ctrl_t))
		{
			offset /= sizeof(network_ctrl_t);
		}
		if (offset >= adapter->opt->max_socket_num)
		{
			offset = adapter->opt->max_socket_num;
		}
		adapter->port++;
		if (adapter->port >= 10)
		{
			adapter->port = 0;
		}
		local_port += 50000 + adapter->port + offset * 10;
		DBG("network %d local port auto select %u",offset, local_port);
	}
	#ifdef LUAT_USE_NETDRV
	luat_netdrv_fire_socket_event_netctrl(0x83 + EV_NW_RESET, ctrl, 0);
	#endif
	return adapter->opt->socket_connect(ctrl->socket_id, ctrl->tag, local_port, remote_ip, ctrl->remote_port, adapter->user_data);
}

int network_socket_listen(network_ctrl_t *ctrl)
{
	network_adapter_t *adapter = &prv_adapter_table[ctrl->adapter_index];
	ctrl->is_server_mode = 1;
	return adapter->opt->socket_listen(ctrl->socket_id, ctrl->tag, ctrl->local_port, adapter->user_data);
}

uint8_t network_accept_enable(network_ctrl_t *ctrl)
{
	network_adapter_t *adapter = &prv_adapter_table[ctrl->adapter_index];
	return !(adapter->opt->no_accept);
}
//作为server接受一个client
//成功返回0，失败 < 0
int network_socket_accept(network_ctrl_t *ctrl, network_ctrl_t *accept_ctrl)
{
	network_adapter_t *adapter = &prv_adapter_table[ctrl->adapter_index];
	if (adapter->opt->no_accept)
	{
//		DBG("%x,%d,%llu,%x,%x,%x",adapter->opt->socket_accept, ctrl->socket_id, ctrl->tag, &ctrl->remote_ip, &ctrl->remote_port, adapter->user_data);
		adapter->opt->socket_accept(ctrl->socket_id, ctrl->tag, &ctrl->remote_ip, &ctrl->remote_port, adapter->user_data);
		return 0;
	}
	accept_ctrl->socket_id = adapter->opt->socket_accept(ctrl->socket_id, ctrl->tag, &accept_ctrl->remote_ip, &accept_ctrl->remote_port, adapter->user_data);
	if (accept_ctrl->socket_id < 0)
	{
		return -1;
	}
	else
	{
		accept_ctrl->is_tcp = ctrl->is_tcp;
		accept_ctrl->tcp_keep_alive = ctrl->tcp_keep_alive;
		accept_ctrl->tcp_keep_idle = ctrl->tcp_keep_idle;
		accept_ctrl->tcp_keep_interval = ctrl->tcp_keep_interval;
		accept_ctrl->tcp_keep_cnt = ctrl->tcp_keep_cnt;
		accept_ctrl->tcp_timeout_ms = ctrl->tcp_timeout_ms;
		accept_ctrl->local_port = ctrl->local_port;
		accept_ctrl->state = NW_STATE_ONLINE;
		return 0;
	}
}
//主动断开一个tcp连接，需要走完整个tcp流程，用户需要接收到close ok回调才能确认彻底断开
//成功返回0，失败 < 0
int network_socket_disconnect(network_ctrl_t *ctrl)
{
	network_adapter_t *adapter = &prv_adapter_table[ctrl->adapter_index];
	if (ctrl->socket_id >= 0)
	{
		return adapter->opt->socket_disconnect(ctrl->socket_id, ctrl->tag, adapter->user_data);
	}
	return 0;
}
//释放掉socket的控制权
//成功返回0，失败 < 0
int network_socket_close(network_ctrl_t *ctrl)
{
	network_adapter_t *adapter = &prv_adapter_table[ctrl->adapter_index];
	if (ctrl->socket_id >= 0)
	{
		return adapter->opt->socket_close(ctrl->socket_id, ctrl->tag, adapter->user_data);
	}
	return 0;
}
//强行释放掉socket的控制权
//成功返回0，失败 < 0
int network_socket_force_close(network_ctrl_t *ctrl)
{
	network_adapter_t *adapter = &prv_adapter_table[ctrl->adapter_index];
	if (ctrl->socket_id >= 0)
	{
		adapter->opt->socket_force_close(ctrl->socket_id, adapter->user_data);
	}
	ctrl->socket_id = -1;
	return 0;
}
//tcp时，不需要remote_ip和remote_port，如果buf为NULL，则返回当前缓存区的数据量，当返回值小于len时说明已经读完了
//udp时，只返回1个block数据，需要多次读直到没有数据为止
//成功返回实际读取的值，失败 < 0
int network_socket_receive(network_ctrl_t *ctrl,uint8_t *buf, uint32_t len, int flags, luat_ip_addr_t *remote_ip, uint16_t *remote_port)
{
	network_adapter_t *adapter = &prv_adapter_table[ctrl->adapter_index];
	return adapter->opt->socket_receive(ctrl->socket_id, ctrl->tag, buf, len, flags, remote_ip, remote_port, adapter->user_data);
}
//tcp时，不需要remote_ip和remote_port
//成功返回0，失败 < 0
int network_socket_send(network_ctrl_t *ctrl,const uint8_t *buf, uint32_t len, int flags, luat_ip_addr_t *remote_ip, uint16_t remote_port)
{
	network_adapter_t *adapter = &prv_adapter_table[ctrl->adapter_index];
	return adapter->opt->socket_send(ctrl->socket_id, ctrl->tag, buf, len, flags, remote_ip, remote_port, adapter->user_data);
}

int network_getsockopt(network_ctrl_t *ctrl, int level, int optname, void *optval, uint32_t *optlen)
{
	network_adapter_t *adapter = &prv_adapter_table[ctrl->adapter_index];
	return adapter->opt->getsockopt(ctrl->socket_id, ctrl->tag, level, optname, optval, optlen, adapter->user_data);
}
int network_setsockopt(network_ctrl_t *ctrl, int level, int optname, const void *optval, uint32_t optlen)
{
	network_adapter_t *adapter = &prv_adapter_table[ctrl->adapter_index];
	return adapter->opt->setsockopt(ctrl->socket_id, ctrl->tag, level, optname, optval, optlen, adapter->user_data);
}
//非posix的socket，用这个根据实际硬件设置参数
int network_user_cmd(network_ctrl_t *ctrl,  uint32_t cmd, uint32_t value)
{
	network_adapter_t *adapter = &prv_adapter_table[ctrl->adapter_index];
	return adapter->opt->user_cmd(ctrl->socket_id, ctrl->tag, cmd, value, adapter->user_data);
}

int network_dns(network_ctrl_t *ctrl)
{
	network_adapter_t *adapter = &prv_adapter_table[ctrl->adapter_index];
	if (ctrl->domain_ipv6)
	{
		return adapter->opt->dns_ipv6(ctrl->domain_name, ctrl->domain_name_len, ctrl, adapter->user_data);
	}
	else
	{
		return adapter->opt->dns(ctrl->domain_name, ctrl->domain_name_len, ctrl, adapter->user_data);
	}
}

int network_set_mac(uint8_t adapter_index, uint8_t *mac)
{
	network_adapter_t *adapter = &prv_adapter_table[adapter_index];
	return adapter->opt->set_mac(mac, adapter->user_data);
}

int network_set_static_ip_info(uint8_t adapter_index, luat_ip_addr_t *ip, luat_ip_addr_t *submask, luat_ip_addr_t *gateway, luat_ip_addr_t *ipv6)
{
	network_adapter_t *adapter = &prv_adapter_table[adapter_index];
	return (adapter && adapter->opt) ? adapter->opt->set_static_ip(ip, submask, gateway, ipv6, adapter->user_data) : -1;
}

int network_get_local_ip_info(network_ctrl_t *ctrl, luat_ip_addr_t *ip, luat_ip_addr_t *submask, luat_ip_addr_t *gateway)
{
	network_adapter_t *adapter = &prv_adapter_table[ctrl->adapter_index];
	return (adapter && adapter->opt) ? adapter->opt->get_local_ip_info(ip, submask, gateway, adapter->user_data) : - 1;
}

int network_get_full_local_ip_info(network_ctrl_t *ctrl, uint8_t index, luat_ip_addr_t *ip, luat_ip_addr_t *submask, luat_ip_addr_t *gateway, luat_ip_addr_t *ipv6)
{
	network_adapter_t *adapter;
	if (ctrl)
	{
		adapter = &prv_adapter_table[ctrl->adapter_index];
	}
	else
	{
		adapter = &prv_adapter_table[index];
	}
	return (adapter && adapter->opt) ? adapter->opt->get_full_ip_info(ip, submask, gateway, ipv6, adapter->user_data) : -1;
}

void network_force_close_socket(network_ctrl_t *ctrl)
{
#ifdef LUAT_USE_TLS
	if (ctrl->tls_mode)
	{
		mbedtls_ssl_free(ctrl->ssl);
	}
#endif
	if (network_socket_close(ctrl))
	{
		network_clean_invaild_socket(ctrl->adapter_index);
		network_socket_force_close(ctrl);
	}
	ctrl->need_close = 0;
	ctrl->socket_id = -1;
	ctrl->new_rx_flag = 0;
	if (ctrl->dns_ip)
	{
		free(ctrl->dns_ip);
		ctrl->dns_ip = NULL;
	}
	if (ctrl->domain_name)
	{
		free(ctrl->domain_name);
		ctrl->domain_name = NULL;
	}
	ctrl->dns_ip_cnt = 0;
	ctrl->dns_ip_nums = 0;
	ctrl->wait_target_state = NW_WAIT_NONE;
}

void network_clean_invaild_socket(uint8_t adapter_index)
{
	int i;
	int *list;
	network_adapter_t *adapter = &prv_adapter_table[adapter_index];
	network_ctrl_t *ctrl;
	list = malloc(adapter->opt->max_socket_num * sizeof(int));
	OS_LOCK;
	for (i = 0; i < adapter->opt->max_socket_num; i++)
	{
		ctrl = &adapter->ctrl_table[i];
		if (!adapter->opt->socket_check(ctrl->socket_id, ctrl->tag, adapter->user_data))
		{
			list[i] = ctrl->socket_id;
		}
		else
		{
			ctrl->socket_id = -1;
			list[i] = -1;
		}
		DBG("%d,%d", i, list[i]);
	}
	OS_UNLOCK;
	adapter->opt->socket_clean(list, adapter->opt->max_socket_num, adapter->user_data);
	free(list);
}


#ifdef LUAT_USE_TLS
static int tls_verify(void *ctx, mbedtls_x509_crt *crt, int Index, uint32_t *result)
{
	network_ctrl_t *ctrl = (network_ctrl_t *)ctx;
	DBG("%d, %08x", Index, *result);
	return 0;
}
#endif
int network_set_psk_info(network_ctrl_t *ctrl,
		const unsigned char *psk, size_t psk_len,
		const unsigned char *psk_identity, size_t psk_identity_len)
{
#if defined(LUAT_USE_TLS) && defined(MBEDTLS_KEY_EXCHANGE_SOME_PSK_ENABLED)
	if (!ctrl->tls_mode)
	{
		return -ERROR_PERMISSION_DENIED;
	}

//	DBG("%.*s, %.*s", psk_len, psk, psk_identity_len, psk_identity);
	int ret = mbedtls_ssl_conf_psk( ctrl->config,
			psk, psk_len, psk_identity, psk_identity_len );
	if (ret != 0)
	{
		DBG("0x%x", -ret);
		return -ERROR_OPERATION_FAILED;
	}
	return ERROR_NONE;
#else
	return -1;
#endif
}

int network_set_server_cert(network_ctrl_t *ctrl, const unsigned char *cert, size_t cert_len)
{
#ifdef LUAT_USE_TLS
	int ret;
	if (!ctrl->tls_mode)
	{
		return -ERROR_PERMISSION_DENIED;
	}
    ret = mbedtls_x509_crt_parse( ctrl->ca_cert, cert, cert_len);
	if (ret != 0)
	{
		DBG("%08x", -ret);
		return -ERROR_OPERATION_FAILED;
	}

	return ERROR_NONE;
#else
	return -1;
#endif
}

int network_set_client_cert(network_ctrl_t *ctrl,
		const unsigned char *cert, size_t certLen,
        const unsigned char *key, size_t keylen,
        const unsigned char *pwd, size_t pwdlen)
{
#ifdef LUAT_USE_TLS
	int ret;
	mbedtls_x509_crt *client_cert = NULL;
	mbedtls_pk_context *pkey = NULL;
	if (!ctrl->tls_mode)
	{
		return -ERROR_PERMISSION_DENIED;
	}
	client_cert = zalloc(sizeof(mbedtls_x509_crt));
	pkey = zalloc(sizeof(mbedtls_pk_context));
	if (!client_cert || !pkey)
	{
		goto ERROR_OUT;
	}
    ret = mbedtls_x509_crt_parse( client_cert, cert, certLen );
    if (ret != 0)
    {
    	DBG("%08x", -ret);
    	goto ERROR_OUT;
    }
	#if MBEDTLS_VERSION_NUMBER >= 0x03000000
	ret = mbedtls_pk_parse_key( pkey, key, keylen, pwd, pwdlen , tls_random, NULL);
	#else
    ret = mbedtls_pk_parse_key( pkey, key, keylen, pwd, pwdlen );
	#endif
    if (ret != 0)
    {
		DBG("%08x", -ret);
		goto ERROR_OUT;
    }
    ret = mbedtls_ssl_conf_own_cert( ctrl->config, client_cert, pkey );
    if (ret != 0)
    {
		DBG("%08x", -ret);
		goto ERROR_OUT;
    }
    return ERROR_NONE;
ERROR_OUT:
	if (client_cert) free(client_cert);
	if (pkey) free(pkey);
	return -1;
#else
	return -1;
#endif
}

int network_cert_verify_result(network_ctrl_t *ctrl)
{
#ifdef LUAT_USE_TLS
	if (!ctrl->tls_mode)
	{
		return -1;
	}
	return mbedtls_ssl_get_verify_result(ctrl->ssl);
#else
	return -1;
#endif
}

static int tls_random( void *p_rng,
        unsigned char *output, size_t output_len )
{
	platform_random((char*)output, output_len);
	return 0;
}

int network_init_tls(network_ctrl_t *ctrl, int verify_mode)
{
	if (!ctrl) return -1;
#ifdef LUAT_USE_TLS
	ctrl->tls_mode = 1;
	if (!ctrl->ssl)
	{
		ctrl->ssl = zalloc(sizeof(mbedtls_ssl_context));
		ctrl->ca_cert = zalloc(sizeof(mbedtls_x509_crt));
		ctrl->config = zalloc(sizeof(mbedtls_ssl_config));
		mbedtls_ssl_config_defaults( ctrl->config, MBEDTLS_SSL_IS_CLIENT, ctrl->is_tcp?MBEDTLS_SSL_TRANSPORT_STREAM:MBEDTLS_SSL_TRANSPORT_DATAGRAM, MBEDTLS_SSL_PRESET_DEFAULT);
		// ctrl->config->authmode = verify_mode;
		mbedtls_ssl_conf_authmode(ctrl->config, verify_mode);
		// ctrl->config->hs_timeout_min = 20000;
		#if defined(MBEDTLS_SSL_PROTO_DTLS)
		mbedtls_ssl_conf_handshake_timeout(ctrl->config, 2000, MBEDTLS_SSL_DTLS_TIMEOUT_DFL_MAX);
		#endif
		// ctrl->config->f_rng = tls_random;
		// ctrl->config->p_rng = NULL;
		mbedtls_ssl_conf_rng(ctrl->config, tls_random, NULL);
		// ctrl->config->f_dbg = tls_dbg;
		// ctrl->config->p_dbg = NULL;
		mbedtls_ssl_conf_dbg(ctrl->config, tls_dbg, NULL);
		// ctrl->config->f_vrfy = tls_verify;
		// ctrl->config->p_vrfy = ctrl;
		mbedtls_ssl_conf_verify(ctrl->config, tls_verify, ctrl);
		// ctrl->config->ca_chain = ctrl->ca_cert;
		mbedtls_ssl_conf_ca_chain(ctrl->config, ctrl->ca_cert, NULL);
		// ctrl->config->read_timeout = 20000;
		mbedtls_ssl_conf_read_timeout(ctrl->config, 20000);
		#ifdef MBEDTLS_SSL_RENEGOTIATION
		mbedtls_ssl_conf_renegotiation(ctrl->config, MBEDTLS_SSL_RENEGOTIATION_ENABLED);
		mbedtls_ssl_conf_legacy_renegotiation(ctrl->config, MBEDTLS_SSL_LEGACY_ALLOW_RENEGOTIATION);
		#endif
	    ctrl->tls_long_timer = platform_create_timer(tls_longtimeout, ctrl, NULL);
	    ctrl->tls_short_timer = platform_create_timer(tls_shorttimeout, ctrl, NULL);
	}
	ctrl->tls_timer_state = -1;
	return 0;
#else
	DBG("NOT SUPPORT TLS");
	return -1;
#endif
}

void network_deinit_tls(network_ctrl_t *ctrl)
{
	if (!ctrl) return;
#ifdef LUAT_USE_TLS
	if (ctrl->ssl)
	{
		mbedtls_ssl_free(ctrl->ssl);
		free(ctrl->ssl);
		ctrl->ssl = NULL;
	}

	if (ctrl->config)
	{
		mbedtls_ssl_config_free(ctrl->config);
		free(ctrl->config);
		ctrl->config = NULL;
	}

	if (ctrl->ca_cert)
	{
		mbedtls_x509_crt_free(ctrl->ca_cert);
		free(ctrl->ca_cert);
		ctrl->ca_cert = NULL;
	}

	ctrl->tls_mode = 0;
	ctrl->tls_timer_state = -1;
	if (ctrl->tls_short_timer)
	{
		platform_release_timer(ctrl->tls_short_timer);
		ctrl->tls_short_timer = NULL;
	}
	if (ctrl->tls_long_timer)
	{
		platform_release_timer(ctrl->tls_long_timer);
		ctrl->tls_long_timer = NULL;
	}
#endif
}

int network_wait_link_up(network_ctrl_t *ctrl, uint32_t timeout_ms)
{
	if (!ctrl) return -1;
	NW_LOCK;
	ctrl->auto_mode = 1;
//	network_adapter_t *adapter = &prv_adapter_table[ctrl->adapter_index];
	if (network_check_ready(ctrl, 0))
	{
		ctrl->state = NW_STATE_OFF_LINE;
		ctrl->wait_target_state = NW_WAIT_NONE;
		NW_UNLOCK;
		return 0;
	}
	ctrl->state = NW_STATE_LINK_OFF;
	ctrl->wait_target_state = NW_WAIT_LINK_UP;

	NW_UNLOCK;
	if (!ctrl->task_handle || !timeout_ms)
	{
		return 1;
	}
	uint8_t finish = 0;
	OS_EVENT event;
	int result;
	//DBG_INFO("%s wait for active!,%u,%x", Net->Tag, To * SYS_TICK, Net->hTask);

	platform_start_timer(ctrl->timer, timeout_ms, 0);
	while (!finish)
	{
		platform_wait_event(ctrl->task_handle, 0, &event, NULL, 0);
		switch (event.ID)
		{
		case EV_NW_RESULT_LINK:
			result = (int)event.Param1;
			finish = 1;
			break;
		case EV_NW_TIMEOUT:
			result = -1;
			finish = 1;
			break;
		default:
			if (ctrl->user_callback)
			{
				ctrl->user_callback((void *)&event, ctrl->user_data);
			}
			break;
		}
	}
	platform_stop_timer(ctrl->timer);
	return result;
}
/*
 * 1.进行ready检测和等待ready
 * 2.有remote_ip则开始连接服务器并等待连接结果
 * 3.没有remote_ip则开始对url进行dns解析，解析完成后对所有ip进行尝试连接直到有个成功或者全部失败
 * 4.如果是加密模式，还要走握手环节，等到握手环节完成后才能返回结果
 * local_port如果为0则api内部自动生成一个
 */
int network_connect(network_ctrl_t *ctrl, const char *domain_name, uint32_t domain_name_len, luat_ip_addr_t *remote_ip, uint16_t remote_port, uint32_t timeout_ms)
{
	if (!ctrl) return -1;
	if (ctrl->socket_id >= 0)
	{
		return -1;
	}

	NW_LOCK;
	ctrl->is_server_mode = 0;
	ctrl->tx_size = 0;
	ctrl->ack_size = 0;
	if (ctrl->dns_ip)
	{
		free(ctrl->dns_ip);
		ctrl->dns_ip = NULL;
	}
	if (ctrl->cache_data)
	{
		free(ctrl->cache_data);
		ctrl->cache_data = NULL;
	}
	ctrl->need_close = 0;
	if (ctrl->domain_name)
	{
		free(ctrl->domain_name);
	}
	ctrl->domain_name = zalloc(domain_name_len + 1);
	memcpy(ctrl->domain_name, domain_name, domain_name_len);
	ctrl->domain_name_len = domain_name_len;
	if (remote_ip)
	{
		ctrl->remote_ip = *remote_ip;
	}
	else
	{
		network_set_ip_invaild(&ctrl->remote_ip);
	}
	ctrl->auto_mode = 1;
	ctrl->remote_port = remote_port;
	//network_adapter_t *adapter = &prv_adapter_table[ctrl->adapter_index];
	ctrl->wait_target_state = NW_WAIT_ON_LINE;
	if (!network_check_ready(ctrl, 0))
	{

		ctrl->state = NW_STATE_LINK_OFF;
		goto NETWORK_CONNECT_WAIT;
	}
	if (network_prepare_connect(ctrl))
	{
		ctrl->state = NW_STATE_OFF_LINE;
		ctrl->wait_target_state = NW_WAIT_NONE;
		NW_UNLOCK;
		return -1;
	}
NETWORK_CONNECT_WAIT:
	NW_UNLOCK;
	if (!ctrl->task_handle || !timeout_ms)
	{

		return 1;
	}
	uint8_t finish = 0;
	OS_EVENT event = {0};
	int result;
	//DBG_INFO("%s wait for active!,%u,%x", Net->Tag, To * SYS_TICK, Net->hTask);

	platform_start_timer(ctrl->timer, timeout_ms, 0);
	while (!finish)
	{
		platform_wait_event(ctrl->task_handle, 0, &event, NULL, 0);
		switch (event.ID)
		{
		case EV_NW_RESULT_CONNECT:
			result = (int)event.Param1;
			finish = 1;
			break;
		case EV_NW_TIMEOUT:
			result = -1;
			finish = 1;
			break;
		default:
			if (ctrl->user_callback)
			{
				ctrl->user_callback((void *)&event, ctrl->user_data);
			}
			break;
		}
	}
	platform_stop_timer(ctrl->timer);
	return result;
}

int network_listen(network_ctrl_t *ctrl, uint32_t timeout_ms)
{
	if (!ctrl) return -1;
	if (NW_STATE_LISTEN == ctrl->state)
	{
		DBG("socket %d is listen", ctrl->socket_id);
		return 0;
	}
	if (ctrl->socket_id >= 0)
	{
		return -1;
	}
	NW_LOCK;
	ctrl->is_server_mode = 1;
	ctrl->auto_mode = 1;
	ctrl->need_close = 0;
	//network_adapter_t *adapter = &prv_adapter_table[ctrl->adapter_index];
	ctrl->wait_target_state = NW_WAIT_ON_LINE;
	if (!network_check_ready(ctrl, 0))
	{

		ctrl->state = NW_STATE_LINK_OFF;
		goto NETWORK_LISTEN_WAIT;
	}
	if (network_base_connect(ctrl, NULL))
	{
		ctrl->state = NW_STATE_OFF_LINE;
		ctrl->wait_target_state = NW_WAIT_NONE;
		NW_UNLOCK;
		return -1;
	}
	ctrl->state = NW_STATE_CONNECTING;
NETWORK_LISTEN_WAIT:
	NW_UNLOCK;
	if (!ctrl->task_handle || !timeout_ms)
	{

		return 1;
	}
	uint8_t finish = 0;
	OS_EVENT event;
	int result;
	//DBG_INFO("%s wait for active!,%u,%x", Net->Tag, To * SYS_TICK, Net->hTask);

	if (timeout_ms != 0xffffffff)
	{
		platform_start_timer(ctrl->timer, timeout_ms, 0);
	}
	while (!finish)
	{
		platform_wait_event(ctrl->task_handle, 0, &event, NULL, 0);
		switch (event.ID)
		{
		case EV_NW_RESULT_CONNECT:
			result = (int)event.Param1;
			finish = 1;
			break;
		case EV_NW_TIMEOUT:
			result = -1;
			finish = 1;
			break;
		default:
			if (ctrl->user_callback)
			{
				ctrl->user_callback((void *)&event, ctrl->user_data);
			}
			break;
		}
	}
	if (timeout_ms != 0xffffffff)
	{
		platform_stop_timer(ctrl->timer);
	}
	return result;
}

int network_close(network_ctrl_t *ctrl, uint32_t timeout_ms)
{
	if (!ctrl) return -1;
	NW_LOCK;
	if (ctrl->cache_data)
	{
		free(ctrl->cache_data);
		ctrl->cache_data = NULL;
	}
	uint8_t old_state = ctrl->state;
	ctrl->auto_mode = 1;
	ctrl->need_close = 0;
	ctrl->new_rx_flag = 0;
	//network_adapter_t *adapter = &prv_adapter_table[ctrl->adapter_index];
#ifdef LUAT_USE_TLS
	if (ctrl->tls_mode)
	{
		mbedtls_ssl_free(ctrl->ssl);
	}
#endif
	if (ctrl->socket_id < 0)
	{

		ctrl->state = NW_STATE_OFF_LINE;
		ctrl->wait_target_state = NW_WAIT_NONE;
		NW_UNLOCK;
		return 0;
	}

	ctrl->state = NW_STATE_DISCONNECTING;
	ctrl->wait_target_state = NW_WAIT_OFF_LINE;

	if ((NW_STATE_ONLINE == old_state) && ctrl->is_tcp)
	{
		if (network_socket_disconnect(ctrl))
		{
			network_force_close_socket(ctrl);
			ctrl->state = NW_STATE_OFF_LINE;
			ctrl->wait_target_state = NW_WAIT_NONE;
			NW_UNLOCK;
			return 0;
		}
	}
	else
	{
		network_force_close_socket(ctrl);
		ctrl->state = NW_STATE_OFF_LINE;
		ctrl->wait_target_state = NW_WAIT_NONE;
		NW_UNLOCK;
		return 0;
	}
	NW_UNLOCK;
	if (!ctrl->task_handle || !timeout_ms)
	{
		return 1;
	}
	uint8_t finish = 0;
	OS_EVENT event;
	int result;
	//DBG_INFO("%s wait for active!,%u,%x", Net->Tag, To * SYS_TICK, Net->hTask);

	platform_start_timer(ctrl->timer, timeout_ms, 0);
	while (!finish)
	{
		platform_wait_event(ctrl->task_handle, 0, &event, NULL, 0);
		switch (event.ID)
		{
		case EV_NW_RESULT_CLOSE:
			result = 0;
			finish = 1;
			break;
		case EV_NW_TIMEOUT:
			result = 0;
			finish = 1;
			break;
		default:
			if (ctrl->user_callback)
			{
				ctrl->user_callback((void *)&event, ctrl->user_data);
			}
			break;
		}
	}
	platform_stop_timer(ctrl->timer);
	network_socket_force_close(ctrl);
	return result;
}
/*
 * timeout_ms=0时，为非阻塞接口
 */
int network_tx(network_ctrl_t *ctrl, const uint8_t *data, uint32_t len, int flags, luat_ip_addr_t *remote_ip, uint16_t remote_port, uint32_t *tx_len, uint32_t timeout_ms)
{
	if (!ctrl) return -1;
	if ((ctrl->need_close) || (ctrl->socket_id < 0) || (ctrl->state != NW_STATE_ONLINE))
	{
		return -1;
	}
	NW_LOCK;
	int result;

	ctrl->auto_mode = 1;
#ifdef LUAT_USE_TLS
	if (ctrl->tls_mode)
	{
		if (ctrl->tls_need_reshakehand)
		{
			ctrl->tls_need_reshakehand = 0;
			if (ctrl->cache_data)
			{
				free(ctrl->cache_data);
				ctrl->cache_data = NULL;
			}
			ctrl->cache_data = malloc(len);
			memcpy(ctrl->cache_data, data, len);
			ctrl->cache_len = len;
	    	mbedtls_ssl_session_reset(ctrl->ssl);
	    	do
	    	{
	    		result = mbedtls_ssl_handshake_step( ctrl->ssl );
	    		switch(result)
	    		{
	    		case MBEDTLS_ERR_SSL_WANT_READ:
	    			ctrl->state = NW_STATE_SHAKEHAND;
	    			goto NETWORK_TX_WAIT;
	    		case 0:
	    			break;
	    		default:
					#if MBEDTLS_VERSION_NUMBER >= 0x03000000
					#else
	    			DBG_ERR("0x%x, %d", -result, ctrl->ssl->state);
					#endif
	    			ctrl->need_close = 1;
	    			NW_UNLOCK;
	    			return -1;
	    		}
			#if MBEDTLS_VERSION_NUMBER >= 0x03000000
			}while(!mbedtls_ssl_is_handshake_over(ctrl->ssl));
	    	#else
			}while(ctrl->ssl->state != MBEDTLS_SSL_HANDSHAKE_OVER);
			#endif
		}

	    uint32_t done = 0;
	    while(done < len)
	    {
			result = mbedtls_ssl_write(ctrl->ssl, data + done, len - done);
		    if (result < 0)
		    {
		    	DBG("%08x", -result);
				ctrl->need_close = 1;
				NW_UNLOCK;
				return -1;
		    }
		    done += result;
	    }
		if (tx_len)
			*tx_len = done;
	}
	else
#endif
	{
		result = network_base_tx(ctrl, data, len, flags, remote_ip, remote_port);
		if (result < 0)
		{
			ctrl->need_close = 1;
			NW_UNLOCK;
			return -1;
		}
		if (tx_len)
			*tx_len = result;
		if (!result && len)
		{
			NW_UNLOCK;
			return 0;
		}
	}
#ifdef LUAT_USE_TLS
NETWORK_TX_WAIT:
#endif
	ctrl->wait_target_state = NW_WAIT_TX_OK;
	NW_UNLOCK;

	if (!ctrl->task_handle || !timeout_ms)
	{
		return 1;
	}
	uint8_t finish = 0;
	OS_EVENT event;
	//DBG_INFO("%s wait for active!,%u,%x", Net->Tag, To * SYS_TICK, Net->hTask);

	platform_start_timer(ctrl->timer, timeout_ms, 0);
	while (!finish)
	{
		platform_wait_event(ctrl->task_handle, 0, &event, NULL, 0);
		switch (event.ID)
		{
		case EV_NW_RESULT_TX:
			result = (int)event.Param1;
			finish = 1;
			break;
		case EV_NW_TIMEOUT:
			result = -1;
			finish = 1;
			break;
		default:
			if (ctrl->user_callback)
			{
				ctrl->user_callback((void *)&event, ctrl->user_data);
			}
			break;
		}
	}
	platform_stop_timer(ctrl->timer);
	return result;
}
/*
 * 实际读到的数据量在rx_len里，如果是UDP模式且为server时，需要看remote_ip和remote_port
 */
int network_rx(network_ctrl_t *ctrl, uint8_t *data, uint32_t len, int flags, luat_ip_addr_t *remote_ip, uint16_t *remote_port, uint32_t *rx_len)
{
	if (!ctrl) return -1;
	if (((ctrl->need_close && !ctrl->new_rx_flag) || (ctrl->socket_id < 0) || (ctrl->state != NW_STATE_ONLINE)))
	{
		return -1;
	}
	NW_LOCK;
	int result = -1;
	ctrl->auto_mode = 1;
	uint32_t read_len = 0;
	uint8_t is_error = 0;


	if (data)
	{
		ctrl->new_rx_flag = 0;
#ifdef LUAT_USE_TLS
		if (ctrl->tls_mode)
		{

			do
			{
				result = mbedtls_ssl_read(ctrl->ssl, data + read_len, len - read_len);
				if (result < 0 && (result != MBEDTLS_ERR_SSL_WANT_READ))
				{
					is_error = 1;
					break;
				}
				else if (result > 0)
				{
					read_len += result;
					if (read_len >= len)
					{
						break;
					}
				}
				else
				{
					break;
				}
			}while(network_socket_receive(ctrl, NULL, len, flags, remote_ip, remote_port) > 0);

			if ( !is_error )
			{
				result = read_len;
			}
			else
			{
				result = -1;
			}
		}
		else
#endif
		{

			result = network_socket_receive(ctrl, data, len, flags, remote_ip, remote_port);
		}
	}
	else
	{
#ifdef LUAT_USE_TLS
		if (ctrl->tls_mode)
		{
			read_len = 0;
			do
			{
				result = mbedtls_ssl_read(ctrl->ssl, NULL, 0);
				if ((result < 0) && (result != (MBEDTLS_ERR_SSL_WANT_READ)))
				{
					is_error = 1;
					read_len = 0;
					break;
				}
				else if (!result)
				{
					#if MBEDTLS_VERSION_NUMBER >= 0x03000000
					read_len = ctrl->ssl->MBEDTLS_PRIVATE(in_msglen);
					#else
					read_len = ctrl->ssl->in_msglen;
					#endif
					break;
				}
				else if ((MBEDTLS_ERR_SSL_WANT_READ) == result)
				{
					read_len = 0;
					ctrl->new_rx_flag = 0;
					DBG("socket %d ssl data need more", ctrl->socket_id);
					break;
				}
			}while(network_socket_receive(ctrl, NULL, len, flags, remote_ip, remote_port) > 0);

			if ( !is_error )
			{
				result = read_len;
			}
			else
			{
				result = -1;
			}
		}
		else
#endif
		{
			result = network_socket_receive(ctrl, data, len, flags, remote_ip, remote_port);
		}
	}


	NW_UNLOCK;
	if (result >= 0)
	{
		*rx_len = result;
		return 0;
	}
	else
	{
		return -1;
	}
}

int network_wait_event(network_ctrl_t *ctrl, OS_EVENT *out_event, uint32_t timeout_ms, uint8_t *is_timeout)
{
	if (!ctrl) return -1;
	if (ctrl->new_rx_flag)
	{
		ctrl->wait_target_state = NW_WAIT_EVENT;
		if (out_event)
		{
			out_event->ID = 0;
		}
		return 0;
	}
	if ((ctrl->need_close) || (ctrl->socket_id < 0) || (ctrl->state != NW_STATE_ONLINE))
	{
		return -1;
	}
	NW_LOCK;
	ctrl->auto_mode = 1;
	ctrl->wait_target_state = NW_WAIT_EVENT;
	NW_UNLOCK;
	if (!ctrl->task_handle || !timeout_ms)
	{
		return 1;
	}
	*is_timeout = 0;
	uint8_t finish = 0;
	OS_EVENT event;
	int result;
	//DBG_INFO("%s wait for active!,%u,%x", Net->Tag, To * SYS_TICK, Net->hTask);

	platform_start_timer(ctrl->timer, timeout_ms, 0);
	while (!finish)
	{
		platform_wait_event(ctrl->task_handle, 0, &event, NULL, 0);
		switch (event.ID)
		{
		case EV_NW_RESULT_EVENT:
			result = (int)event.Param1;
			if (result)
			{
				result = -1;
			}
			if (out_event)
			{
				out_event->ID = 0;
			}
			finish = 1;
			break;
		case EV_NW_TIMEOUT:
			*is_timeout = 1;
			result = 0;
			finish = 1;
			break;
		case EV_NW_BREAK_WAIT:
			if (out_event)
			{
				*out_event = event;
			}
			result = 0;
			finish = 1;
			break;
		default:
			if (out_event)
			{
				*out_event = event;
				result = 0;
				finish = 1;
				break;
			}
			else if (ctrl->user_callback)
			{
				ctrl->user_callback((void *)&event, ctrl->user_data);
			}
			break;
		}
	}
	platform_stop_timer(ctrl->timer);
	return result;
}

int network_wait_rx(network_ctrl_t *ctrl, uint32_t timeout_ms, uint8_t *is_break, uint8_t *is_timeout)
{
	if (!ctrl) return -1;
	*is_timeout = 0;
	*is_break = 0;
	if (ctrl->new_rx_flag)
	{
		ctrl->wait_target_state = NW_WAIT_EVENT;
		return 0;
	}
	if ((ctrl->need_close) || (ctrl->socket_id < 0) || (ctrl->state != NW_STATE_ONLINE))
	{
		return -1;
	}
	NW_LOCK;
	ctrl->auto_mode = 1;
	ctrl->wait_target_state = NW_WAIT_EVENT;
	NW_UNLOCK;

	uint8_t finish = 0;
	OS_EVENT event;
	int result;
	//DBG_INFO("%s wait for active!,%u,%x", Net->Tag, To * SYS_TICK, Net->hTask);
	if (timeout_ms)
	{
		platform_start_timer(ctrl->timer, timeout_ms, 0);
	}
	while (!finish)
	{
		platform_wait_event(ctrl->task_handle, 0, &event, NULL, 0);
		switch (event.ID)
		{
		case EV_NW_RESULT_EVENT:
			result = (int)event.Param1;
			if (result)
			{
				result = -1;
				finish = 1;
			}
			else if (ctrl->new_rx_flag)
			{
				result = 0;
				finish = 1;
			}
			break;
		case EV_NW_TIMEOUT:
			*is_timeout = 1;
			result = 0;
			finish = 1;
			break;
		case EV_NW_BREAK_WAIT:
			*is_break = 1;
			result = 0;
			finish = 1;
			break;
		default:
			if (ctrl->user_callback)
			{
				ctrl->user_callback((void *)&event, ctrl->user_data);
			}
			break;
		}
		ctrl->wait_target_state = NW_WAIT_EVENT;
	}
	platform_stop_timer(ctrl->timer);
	return result;
}

uint8_t network_check_ready(network_ctrl_t *ctrl, uint8_t adapter_index)
{
	network_adapter_t *adapter;
	if (ctrl)
	{
		adapter = &prv_adapter_table[ctrl->adapter_index];
	}
	else if (adapter_index < NW_ADAPTER_QTY)
	{
		adapter = &prv_adapter_table[adapter_index];
	}
	else
	{
		return 0;
	}
	if (adapter && adapter->opt)
	{
		return adapter->opt->check_ready(adapter->user_data);
	}
	else
	{
		return 0;
	}
}

//将IP设置成无效状态
void network_set_ip_invaild(luat_ip_addr_t *ip)
{
#ifdef LUAT_USE_LWIP
#if LWIP_IPV6
	ip->type = 0xff;
#else
	ip->addr = 0;
#endif
#else
	ip->is_ipv6 = 0xff;
#endif
}
//检测IP是不是无效的，无效返回0
uint8_t network_ip_is_vaild(luat_ip_addr_t *ip)
{
#ifdef LUAT_USE_LWIP
#if LWIP_IPV6
	return (ip->type != 0xff);
#else
	return (ip->addr != 0);
#endif
#else
	return (ip->is_ipv6 != 0xff);
#endif
}

uint8_t network_ip_is_ipv6(luat_ip_addr_t *ip)
{
#ifdef LUAT_USE_LWIP
#if LWIP_IPV6
	return (IPADDR_TYPE_V6 == ip->type);
#else
	return 0;
#endif
#else
	return (ip->is_ipv6 && (ip->is_ipv6 != 0xff));
#endif
}

//检测IP是不是有效的IPV4类型，不是返回0
uint8_t network_ip_is_vaild_ipv4(luat_ip_addr_t *ip)
{
#ifdef LUAT_USE_LWIP
#if LWIP_IPV6
	return (IPADDR_TYPE_V4 == ip->type);
#else
	return (ip->addr != 0);
#endif
#else
	return !ip->is_ipv6;
#endif
}

void network_set_ip_ipv4(luat_ip_addr_t *ip, uint32_t ipv4)
{
#ifdef LUAT_USE_LWIP
#if LWIP_IPV6
	ip->type = IPADDR_TYPE_V4;
	ip->u_addr.ip4.addr = ipv4;
#else
	ip->addr = ipv4;
#endif
#else
	ip->is_ipv6 = 0;
	ip->ipv4 = ipv4;
#endif
}


int network_get_last_register_adapter_real(void)
{
	if (!prv_network.is_init) return -1;
	return prv_network.last_adapter_index;
}

int network_register_get_default(void) {
	if (!prv_network.is_init) return -1;
	if (prv_network.default_adapter_index != -1) return prv_network.default_adapter_index;
	return prv_network.last_adapter_index; 
}

#endif