rt-thread-official/components/net/at/at_socket/at_socket.c

1349 lines
32 KiB
C
Raw Normal View History

2018-07-25 17:31:05 +08:00
/*
2021-03-08 18:19:04 +08:00
* Copyright (c) 2006-2021, RT-Thread Development Team
2018-07-25 17:31:05 +08:00
*
* SPDX-License-Identifier: Apache-2.0
2018-07-25 17:31:05 +08:00
*
* Change Logs:
* Date Author Notes
* 2018-06-06 chenyong first version
*/
#include <at.h>
#include <stdlib.h>
#include <string.h>
#include <ctype.h>
#include <sys/time.h>
#include <sys/errno.h>
2018-07-25 17:31:05 +08:00
#include <at_socket.h>
#include <at_device.h>
2018-07-25 17:31:05 +08:00
#ifdef SAL_USING_POSIX
2021-09-11 23:48:14 +08:00
#include <poll.h>
2018-07-25 17:31:05 +08:00
#endif
#include <arpa/inet.h>
#include <netdev.h>
#define LOG_TAG "at.skt"
#include <at_log.h>
2018-07-25 17:31:05 +08:00
#ifdef AT_USING_SOCKET
2018-07-25 17:31:05 +08:00
#define HTONS_PORT(x) ((((x) & 0x00ffUL) << 8) | (((x) & 0xff00UL) >> 8))
#define NIPQUAD(addr) \
((unsigned char *)&addr)[0], \
((unsigned char *)&addr)[1], \
((unsigned char *)&addr)[2], \
((unsigned char *)&addr)[3]
/* The maximum number of sockets structure */
#ifndef AT_SOCKETS_NUM
#define AT_SOCKETS_NUM AT_DEVICE_SOCKETS_NUM
#endif
typedef enum {
AT_EVENT_SEND,
AT_EVENT_RECV,
AT_EVENT_ERROR,
} at_event_t;
/* the global of sockets list */
static rt_slist_t _socket_list = RT_SLIST_OBJECT_INIT(_socket_list);
2018-07-25 17:31:05 +08:00
struct at_socket *at_get_socket(int socket)
{
rt_base_t level;
rt_slist_t *node = RT_NULL;
struct at_socket *at_sock = RT_NULL;
level = rt_hw_interrupt_disable();
2018-07-25 17:31:05 +08:00
rt_slist_for_each(node, &_socket_list)
2018-07-25 17:31:05 +08:00
{
2019-09-07 11:47:15 +08:00
at_sock = rt_slist_entry(node, struct at_socket, list);
if (socket == at_sock->socket)
{
if (at_sock && at_sock->magic == AT_SOCKET_MAGIC)
{
rt_hw_interrupt_enable(level);
return at_sock;
}
}
2021-03-08 18:19:04 +08:00
}
rt_hw_interrupt_enable(level);
2018-07-25 17:31:05 +08:00
return RT_NULL;
2018-07-25 17:31:05 +08:00
}
/* get a block to the AT socket receive list*/
2021-07-16 00:25:53 +08:00
static rt_err_t at_recvpkt_put(rt_slist_t *rlist, const char *ptr, size_t length)
2018-07-25 17:31:05 +08:00
{
at_recv_pkt_t pkt = RT_NULL;
2018-07-25 17:31:05 +08:00
pkt = (at_recv_pkt_t) rt_calloc(1, sizeof(struct at_recv_pkt));
if (pkt == RT_NULL)
2018-07-25 17:31:05 +08:00
{
LOG_E("No memory for receive packet table!");
2021-07-16 00:25:53 +08:00
return -RT_ENOMEM;
2018-07-25 17:31:05 +08:00
}
pkt->bfsz_totle = length;
pkt->bfsz_index = 0;
pkt->buff = (char *) ptr;
rt_slist_append(rlist, &pkt->list);
2021-07-16 00:25:53 +08:00
return RT_EOK;
2018-07-25 17:31:05 +08:00
}
/* delete and free all receive buffer list */
static int at_recvpkt_all_delete(rt_slist_t *rlist)
{
at_recv_pkt_t pkt = RT_NULL;
rt_slist_t *node = RT_NULL;
2018-07-25 17:31:05 +08:00
if (rt_slist_isempty(rlist))
{
2018-07-25 17:31:05 +08:00
return 0;
}
2018-07-25 17:31:05 +08:00
for(node = rt_slist_first(rlist); node;)
2018-07-25 17:31:05 +08:00
{
pkt = rt_slist_entry(node, struct at_recv_pkt, list);
node = rt_slist_next(node);
2018-07-25 17:31:05 +08:00
if (pkt->buff)
{
rt_free(pkt->buff);
}
if (pkt)
2018-07-25 17:31:05 +08:00
{
rt_free(pkt);
pkt = RT_NULL;
}
}
return 0;
}
/* delete and free specified list block */
static int at_recvpkt_node_delete(rt_slist_t *rlist, rt_slist_t *node)
{
at_recv_pkt_t pkt = RT_NULL;
2018-07-25 17:31:05 +08:00
if (rt_slist_isempty(rlist))
{
2018-07-25 17:31:05 +08:00
return 0;
}
2018-07-25 17:31:05 +08:00
rt_slist_remove(rlist, node);
pkt = rt_slist_entry(node, struct at_recv_pkt, list);
2018-07-25 17:31:05 +08:00
if (pkt->buff)
{
rt_free(pkt->buff);
}
if (pkt)
{
rt_free(pkt);
pkt = RT_NULL;
}
return 0;
}
/* get a block from AT socket receive buffer list */
2018-07-25 17:31:05 +08:00
static size_t at_recvpkt_get(rt_slist_t *rlist, char *mem, size_t len)
{
rt_slist_t *node = RT_NULL;
rt_slist_t *free_node = RT_NULL;
at_recv_pkt_t pkt = RT_NULL;
2018-07-25 17:31:05 +08:00
size_t content_pos = 0, page_pos = 0;
if (rt_slist_isempty(rlist))
{
2018-07-25 17:31:05 +08:00
return 0;
}
2018-07-25 17:31:05 +08:00
for (node = rt_slist_first(rlist); node;)
2018-07-25 17:31:05 +08:00
{
pkt = rt_slist_entry(node, struct at_recv_pkt, list);
free_node = node;
node = rt_slist_next(node);
2018-07-25 17:31:05 +08:00
page_pos = pkt->bfsz_totle - pkt->bfsz_index;
if (page_pos >= len - content_pos)
{
rt_memcpy((char *) mem + content_pos, pkt->buff + pkt->bfsz_index, len - content_pos);
2018-07-25 17:31:05 +08:00
pkt->bfsz_index += len - content_pos;
if (pkt->bfsz_index == pkt->bfsz_totle)
{
at_recvpkt_node_delete(rlist, free_node);
2018-07-25 17:31:05 +08:00
}
content_pos = len;
break;
}
else
{
rt_memcpy((char *) mem + content_pos, pkt->buff + pkt->bfsz_index, page_pos);
2018-07-25 17:31:05 +08:00
content_pos += page_pos;
pkt->bfsz_index += page_pos;
at_recvpkt_node_delete(rlist, free_node);
2018-07-25 17:31:05 +08:00
}
}
return content_pos;
}
static void at_do_event_changes(struct at_socket *sock, at_event_t event, rt_bool_t is_plus)
{
switch (event)
{
case AT_EVENT_SEND:
{
if (is_plus)
{
sock->sendevent = 1;
2018-07-25 17:31:05 +08:00
#ifdef SAL_USING_POSIX
rt_wqueue_wakeup(&sock->wait_head, (void*) POLLOUT);
#endif
}
else if (sock->sendevent)
{
sock->sendevent = 0;
2018-07-25 17:31:05 +08:00
}
break;
}
case AT_EVENT_RECV:
{
if (is_plus)
{
sock->rcvevent++;
#ifdef SAL_USING_POSIX
rt_wqueue_wakeup(&sock->wait_head, (void*) POLLIN);
#endif
}
else if (sock->rcvevent)
{
sock->rcvevent --;
}
break;
}
case AT_EVENT_ERROR:
{
if (is_plus)
{
sock->errevent++;
#ifdef SAL_USING_POSIX
rt_wqueue_wakeup(&sock->wait_head, (void*) POLLERR);
#endif
}
else if (sock->errevent)
{
sock->errevent --;
}
break;
}
default:
LOG_E("Not supported event (%d)", event);
2018-07-25 17:31:05 +08:00
}
}
static void at_do_event_clean(struct at_socket *sock, at_event_t event)
{
switch (event)
{
case AT_EVENT_SEND:
{
sock->sendevent = 0;
break;
}
case AT_EVENT_RECV:
{
sock->rcvevent = 0;
break;
}
case AT_EVENT_ERROR:
{
sock->errevent = 0;
break;
}
default:
LOG_E("Not supported event (%d)", event);
}
}
2019-09-07 11:47:15 +08:00
static int alloc_empty_socket(rt_slist_t *l)
{
rt_base_t level;
rt_slist_t *node = RT_NULL;
rt_slist_t *pre_node = &_socket_list;
struct at_socket *at_sock = RT_NULL;
int idx = 0;
level = rt_hw_interrupt_disable();
rt_slist_init(l);
rt_slist_for_each(node, &_socket_list)
{
at_sock = rt_slist_entry(node, struct at_socket, list);
2021-03-08 18:19:04 +08:00
if(at_sock->socket != idx)
2019-09-07 11:47:15 +08:00
break;
idx++;
pre_node = node;
}
rt_slist_insert(pre_node, l);
rt_hw_interrupt_enable(level);
return idx;
}
static struct at_socket *alloc_socket_by_device(struct at_device *device, enum at_socket_type type)
2018-07-25 17:31:05 +08:00
{
static rt_mutex_t at_slock = RT_NULL;
struct at_socket *sock = RT_NULL;
char name[RT_NAME_MAX] = {0};
int idx = 0;
2018-07-25 17:31:05 +08:00
if (at_slock == RT_NULL)
{
/* create AT socket lock */
at_slock = rt_mutex_create("at_slock", RT_IPC_FLAG_PRIO);
if (at_slock == RT_NULL)
{
LOG_E("No memory for socket allocation lock!");
return RT_NULL;
}
}
rt_mutex_take(at_slock, RT_WAITING_FOREVER);
2018-07-25 17:31:05 +08:00
/* find an empty at socket entry */
if (device->class->socket_ops->at_socket != RT_NULL)
{
idx = device->class->socket_ops->at_socket(device, type);
}
else
{
for (idx = 0; idx < device->class->socket_num && device->sockets[idx].magic; idx++);
}
2018-07-25 17:31:05 +08:00
/* can't find an empty protocol family entry */
if (idx < 0 || idx >= device->class->socket_num)
2018-07-25 17:31:05 +08:00
{
goto __err;
}
2021-03-08 18:19:04 +08:00
sock = &(device->sockets[idx]);
/* the socket descriptor is the number of sockte lists */
2019-09-07 11:47:15 +08:00
sock->socket = alloc_empty_socket(&(sock->list));
/* the socket operations is the specify operations of the device */
sock->ops = device->class->socket_ops;
/* the user-data is the at device socket descriptor */
sock->user_data = (void *) idx;
sock->device = (void *) device;
2018-07-25 17:31:05 +08:00
sock->magic = AT_SOCKET_MAGIC;
sock->state = AT_SOCKET_NONE;
sock->rcvevent = RT_NULL;
sock->sendevent = RT_NULL;
sock->errevent = RT_NULL;
rt_slist_init(&sock->recvpkt_list);
#ifdef SAL_USING_POSIX
rt_wqueue_init(&sock->wait_head);
#endif
2018-07-25 17:31:05 +08:00
rt_snprintf(name, RT_NAME_MAX, "%s%d", "at_skt", idx);
2018-07-25 17:31:05 +08:00
/* create AT socket receive mailbox */
if ((sock->recv_notice = rt_sem_create(name, 0, RT_IPC_FLAG_FIFO)) == RT_NULL)
2018-07-25 17:31:05 +08:00
{
LOG_E("No memory socket receive notic semaphore create.");
2018-07-25 17:31:05 +08:00
goto __err;
}
rt_snprintf(name, RT_NAME_MAX, "%s%d", "at_skt", idx);
2018-07-25 17:31:05 +08:00
/* create AT socket receive ring buffer lock */
if((sock->recv_lock = rt_mutex_create(name, RT_IPC_FLAG_PRIO)) == RT_NULL)
2018-07-25 17:31:05 +08:00
{
LOG_E("No memory for socket receive mutex create.");
rt_sem_delete(sock->recv_notice);
2018-07-25 17:31:05 +08:00
goto __err;
}
rt_mutex_release(at_slock);
2018-07-25 17:31:05 +08:00
return sock;
__err:
rt_mutex_release(at_slock);
2018-07-25 17:31:05 +08:00
return RT_NULL;
}
static struct at_socket *alloc_socket(enum at_socket_type type)
{
extern struct netdev *netdev_default;
struct netdev *netdev = RT_NULL;
struct at_device *device = RT_NULL;
if (netdev_default && netdev_is_up(netdev_default) &&
netdev_family_get(netdev_default) == AF_AT)
{
netdev = netdev_default;
}
else
{
/* get network interface device by protocol family AF_AT */
netdev = netdev_get_by_family(AF_AT);
if (netdev == RT_NULL)
{
return RT_NULL;
}
}
device = at_device_get_by_name(AT_DEVICE_NAMETYPE_NETDEV, netdev->name);
if (device == RT_NULL)
{
return RT_NULL;
}
return alloc_socket_by_device(device, type);
}
static void at_recv_notice_cb(struct at_socket *sock, at_socket_evt_t event, const char *buff, size_t bfsz);
static void at_closed_notice_cb(struct at_socket *sock, at_socket_evt_t event, const char *buff, size_t bfsz);
2018-07-25 17:31:05 +08:00
int at_socket(int domain, int type, int protocol)
{
struct at_socket *sock = RT_NULL;
2018-07-25 17:31:05 +08:00
enum at_socket_type socket_type;
/* check socket family protocol */
RT_ASSERT(domain == AF_AT || domain == AF_INET);
2018-07-25 17:31:05 +08:00
//TODO check protocol
switch(type)
{
case SOCK_STREAM:
socket_type = AT_SOCKET_TCP;
break;
case SOCK_DGRAM:
socket_type = AT_SOCKET_UDP;
break;
default :
LOG_E("Don't support socket type (%d)!", type);
return -1;
}
/* allocate and initialize a new AT socket */
sock = alloc_socket(socket_type);
if (sock == RT_NULL)
2018-07-25 17:31:05 +08:00
{
return -1;
2018-07-25 17:31:05 +08:00
}
sock->type = socket_type;
sock->state = AT_SOCKET_OPEN;
2018-07-25 17:31:05 +08:00
/* set AT socket receive data callback function */
sock->ops->at_set_event_cb(AT_SOCKET_EVT_RECV, at_recv_notice_cb);
sock->ops->at_set_event_cb(AT_SOCKET_EVT_CLOSED, at_closed_notice_cb);
2018-07-25 17:31:05 +08:00
return sock->socket;
}
static int free_socket(struct at_socket *sock)
{
if (sock->recv_notice)
{
rt_sem_delete(sock->recv_notice);
}
if (sock->recv_lock)
{
rt_mutex_delete(sock->recv_lock);
}
if (!rt_slist_isempty(&sock->recvpkt_list))
{
at_recvpkt_all_delete(&sock->recvpkt_list);
}
/* delect socket from socket list */
{
rt_base_t level;
rt_slist_t *node = RT_NULL;
struct at_socket *at_sock = RT_NULL;
level = rt_hw_interrupt_disable();
rt_slist_for_each(node, &_socket_list)
{
2019-09-07 11:47:15 +08:00
at_sock = rt_slist_entry(node, struct at_socket, list);
if (sock->socket == at_sock->socket)
{
2019-09-07 11:47:15 +08:00
if (at_sock && at_sock->magic == AT_SOCKET_MAGIC)
{
rt_slist_remove(&_socket_list, &at_sock->list);
break;
}
}
}
rt_hw_interrupt_enable(level);
}
rt_memset(sock, 0x00, sizeof(struct at_socket));
2018-07-25 17:31:05 +08:00
return 0;
}
int at_closesocket(int socket)
{
struct at_socket *sock = RT_NULL;
2018-07-25 17:31:05 +08:00
enum at_socket_state last_state;
/* deal with TCP server actively disconnect */
rt_thread_delay(rt_tick_from_millisecond(100));
2021-03-08 18:19:04 +08:00
sock = at_get_socket(socket);
if (sock == RT_NULL)
{
2018-07-25 17:31:05 +08:00
return -1;
}
2018-07-25 17:31:05 +08:00
last_state = sock->state;
/* the rt_at_socket_close is need some time, so change state in advance */
sock->state = AT_SOCKET_CLOSED;
if (last_state != AT_SOCKET_CLOSED)
2018-07-25 17:31:05 +08:00
{
if (sock->ops->at_closesocket(sock) != 0)
2018-07-25 17:31:05 +08:00
{
free_socket(sock);
return -1;
2018-07-25 17:31:05 +08:00
}
}
2021-03-08 18:19:04 +08:00
free_socket(sock);
return 0;
2018-07-25 17:31:05 +08:00
}
int at_shutdown(int socket, int how)
{
struct at_socket *sock = RT_NULL;
enum at_socket_state last_state;
2018-07-25 17:31:05 +08:00
sock = at_get_socket(socket);
if (sock == RT_NULL)
{
2018-07-25 17:31:05 +08:00
return -1;
}
2018-07-25 17:31:05 +08:00
last_state = sock->state;
/* the rt_at_socket_close is need some time, so change state in advance */
sock->state = AT_SOCKET_CLOSED;
if (last_state != AT_SOCKET_CLOSED)
2018-07-25 17:31:05 +08:00
{
if (sock->ops->at_closesocket(sock) != 0)
2018-07-25 17:31:05 +08:00
{
free_socket(sock);
return -1;
2018-07-25 17:31:05 +08:00
}
}
free_socket(sock);
return 0;
2018-07-25 17:31:05 +08:00
}
/* get IP address and port by socketaddr structure information */
static int socketaddr_to_ipaddr_port(const struct sockaddr *sockaddr, ip_addr_t *addr, uint16_t *port)
{
const struct sockaddr_in* sin = (const struct sockaddr_in*) (const void *) sockaddr;
#if NETDEV_IPV4 && NETDEV_IPV6
addr->u_addr.ip4.addr = sin->sin_addr.s_addr;
addr->type = IPADDR_TYPE_V4;
#elif NETDEV_IPV4
addr->addr = sin->sin_addr.s_addr;
#elif NETDEV_IPV6
#error "not support IPV6."
#endif /* NETDEV_IPV4 && NETDEV_IPV6 */
2018-07-25 17:31:05 +08:00
*port = (uint16_t) HTONS_PORT(sin->sin_port);
return 0;
}
int at_bind(int socket, const struct sockaddr *name, socklen_t namelen)
{
struct at_socket *sock = RT_NULL;
struct at_device *device = RT_NULL;
ip_addr_t input_ipaddr, local_ipaddr;
uint16_t port = 0;
sock = at_get_socket(socket);
if (sock == RT_NULL)
{
return -1;
}
/* get current device ip address */
device = (struct at_device *) sock->device;
ip_addr_copy(local_ipaddr, device->netdev->ip_addr);
/* prase ip address and port from sockaddr structure */
socketaddr_to_ipaddr_port(name, &input_ipaddr, &port);
/* input ip address is different from device ip address */
if (ip_addr_cmp(&input_ipaddr, &local_ipaddr) == 0)
2021-03-08 18:19:04 +08:00
{
struct at_socket *new_sock = RT_NULL;
struct at_device *new_device = RT_NULL;
enum at_socket_type type = sock->type;
/* close old socket */
if (at_closesocket(socket) < 0)
{
return -1;
}
2021-03-08 18:19:04 +08:00
extern struct at_device *at_device_get_by_ipaddr(ip_addr_t *ip_addr);
new_device = at_device_get_by_ipaddr(&input_ipaddr);
if (new_device == RT_NULL)
{
return -1;
}
/* allocate new socket */
new_sock = alloc_socket_by_device(new_device, type);
if (new_sock == RT_NULL)
{
return -1;
}
new_sock->type = type;
new_sock->state = AT_SOCKET_OPEN;
}
return 0;
}
2018-07-25 17:31:05 +08:00
/* ipaddr structure change to IP address */
static int ipaddr_to_ipstr(const struct sockaddr *sockaddr, char *ipstr)
{
struct sockaddr_in *sin = (struct sockaddr_in *) sockaddr;
/* change network ip_addr to ip string */
rt_snprintf(ipstr, 16, "%u.%u.%u.%u", NIPQUAD(sin->sin_addr.s_addr));
return 0;
}
static void at_recv_notice_cb(struct at_socket *sock, at_socket_evt_t event, const char *buff, size_t bfsz)
2018-07-25 17:31:05 +08:00
{
RT_ASSERT(buff);
RT_ASSERT(event == AT_SOCKET_EVT_RECV);
2021-03-08 18:19:04 +08:00
/* check the socket object status */
2021-07-16 00:25:53 +08:00
if (sock->magic != AT_SOCKET_MAGIC || sock->state == AT_SOCKET_CLOSED)
{
rt_free((void *)buff);
return;
}
2018-07-25 17:31:05 +08:00
/* put receive buffer to receiver packet list */
rt_mutex_take(sock->recv_lock, RT_WAITING_FOREVER);
2021-07-16 00:25:53 +08:00
if (at_recvpkt_put(&(sock->recvpkt_list), buff, bfsz) != RT_EOK)
{
rt_free((void *)buff);
rt_mutex_release(sock->recv_lock);
return;
}
2018-07-25 17:31:05 +08:00
rt_mutex_release(sock->recv_lock);
rt_sem_release(sock->recv_notice);
at_do_event_changes(sock, AT_EVENT_RECV, RT_TRUE);
}
static void at_closed_notice_cb(struct at_socket *sock, at_socket_evt_t event, const char *buff, size_t bfsz)
2018-07-25 17:31:05 +08:00
{
RT_ASSERT(event == AT_SOCKET_EVT_CLOSED);
/* check the socket object status */
if (sock->magic != AT_SOCKET_MAGIC)
{
return;
}
2021-03-08 18:19:04 +08:00
2018-07-25 17:31:05 +08:00
at_do_event_changes(sock, AT_EVENT_RECV, RT_TRUE);
at_do_event_changes(sock, AT_EVENT_ERROR, RT_TRUE);
sock->state = AT_SOCKET_CLOSED;
rt_sem_release(sock->recv_notice);
}
2018-07-25 17:31:05 +08:00
int at_connect(int socket, const struct sockaddr *name, socklen_t namelen)
{
struct at_socket *sock = RT_NULL;
2018-07-25 17:31:05 +08:00
ip_addr_t remote_addr;
uint16_t remote_port = 0;
2018-07-25 17:31:05 +08:00
char ipstr[16] = { 0 };
int result = 0;
sock = at_get_socket(socket);
if (sock == RT_NULL)
2018-07-25 17:31:05 +08:00
{
result = -1;
goto __exit;
}
if (sock->state != AT_SOCKET_OPEN)
2018-07-25 17:31:05 +08:00
{
LOG_E("Socket(%d) connect state is %d.", sock->socket, sock->state);
2018-07-25 17:31:05 +08:00
result = -1;
goto __exit;
}
/* get IP address and port by socketaddr structure */
socketaddr_to_ipaddr_port(name, &remote_addr, &remote_port);
ipaddr_to_ipstr(name, ipstr);
if (sock->ops->at_connect(sock, ipstr, remote_port, sock->type, RT_TRUE) < 0)
2018-07-25 17:31:05 +08:00
{
result = -1;
goto __exit;
}
sock->state = AT_SOCKET_CONNECT;
__exit:
if (result < 0)
{
2018-12-24 08:31:54 +08:00
if (sock != RT_NULL)
{
at_do_event_changes(sock, AT_EVENT_ERROR, RT_TRUE);
}
2018-07-25 17:31:05 +08:00
}
2018-12-24 08:31:54 +08:00
if (sock)
{
at_do_event_changes(sock, AT_EVENT_SEND, RT_TRUE);
}
2021-03-08 18:19:04 +08:00
2018-07-25 17:31:05 +08:00
return result;
}
int at_recvfrom(int socket, void *mem, size_t len, int flags, struct sockaddr *from, socklen_t *fromlen)
{
struct at_socket *sock = RT_NULL;
int timeout, result = 0;
2018-07-25 17:31:05 +08:00
size_t recv_len = 0;
if (mem == RT_NULL || len == 0)
2018-07-25 17:31:05 +08:00
{
LOG_E("AT recvfrom input data or length error!");
return -1;
2018-07-25 17:31:05 +08:00
}
sock = at_get_socket(socket);
if (sock == RT_NULL)
2018-07-25 17:31:05 +08:00
{
result = -1;
goto __exit;
}
2020-05-09 10:33:36 +08:00
/* if the socket type is UDP, need to connect socket first */
if (from && sock->type == AT_SOCKET_UDP && sock->state == AT_SOCKET_OPEN)
2018-07-25 17:31:05 +08:00
{
ip_addr_t remote_addr;
uint16_t remote_port = 0;
2018-07-25 17:31:05 +08:00
char ipstr[16] = { 0 };
socketaddr_to_ipaddr_port(from, &remote_addr, &remote_port);
ipaddr_to_ipstr(from, ipstr);
if (sock->ops->at_connect(sock, ipstr, remote_port, sock->type, RT_TRUE) < 0)
2018-07-25 17:31:05 +08:00
{
result = -1;
goto __exit;
}
sock->state = AT_SOCKET_CONNECT;
}
/* receive packet list last transmission of remaining data */
rt_mutex_take(sock->recv_lock, RT_WAITING_FOREVER);
if((recv_len = at_recvpkt_get(&(sock->recvpkt_list), (char *)mem, len)) > 0)
{
rt_mutex_release(sock->recv_lock);
goto __exit;
}
rt_mutex_release(sock->recv_lock);
2021-03-08 18:19:04 +08:00
/* socket passively closed, receive function return 0 */
if (sock->state == AT_SOCKET_CLOSED)
{
result = 0;
goto __exit;
}
else if (sock->state != AT_SOCKET_CONNECT && sock->state != AT_SOCKET_OPEN)
2018-07-25 17:31:05 +08:00
{
LOG_E("received data error, current socket (%d) state (%d) is error.", socket, sock->state);
result = -1;
goto __exit;
}
/* non-blocking sockets receive data */
if (flags & MSG_DONTWAIT)
{
goto __exit;
}
/* set AT socket receive timeout */
if ((timeout = sock->recv_timeout) == 0)
2018-07-25 17:31:05 +08:00
{
timeout = RT_WAITING_FOREVER;
}
else
{
timeout = rt_tick_from_millisecond(timeout);
}
2018-07-25 17:31:05 +08:00
while (1)
{
/* wait the receive semaphore */
if (rt_sem_take(sock->recv_notice, timeout) < 0)
{
LOG_D("AT socket (%d) receive timeout (%d)!", socket, timeout);
errno = EAGAIN;
2018-07-25 17:31:05 +08:00
result = -1;
goto __exit;
}
else
2021-03-08 18:19:04 +08:00
{
/* get receive buffer to receiver ring buffer */
rt_mutex_take(sock->recv_lock, RT_WAITING_FOREVER);
recv_len = at_recvpkt_get(&(sock->recvpkt_list), (char *) mem, len);
rt_mutex_release(sock->recv_lock);
if (recv_len > 0)
2018-07-25 17:31:05 +08:00
{
break;
2018-07-25 17:31:05 +08:00
}
2018-07-25 17:31:05 +08:00
}
}
__exit:
2018-12-24 08:31:54 +08:00
if (sock != RT_NULL)
2018-07-25 17:31:05 +08:00
{
2018-12-24 08:31:54 +08:00
if (recv_len > 0)
2018-07-25 17:31:05 +08:00
{
2018-12-24 08:31:54 +08:00
result = recv_len;
at_do_event_changes(sock, AT_EVENT_RECV, RT_FALSE);
errno = 0;
if (!rt_slist_isempty(&sock->recvpkt_list))
{
at_do_event_changes(sock, AT_EVENT_RECV, RT_TRUE);
}
else
{
at_do_event_clean(sock, AT_EVENT_RECV);
}
2018-07-25 17:31:05 +08:00
}
else
{
2018-12-24 08:31:54 +08:00
at_do_event_changes(sock, AT_EVENT_ERROR, RT_TRUE);
}
2018-07-25 17:31:05 +08:00
}
return result;
}
int at_recv(int s, void *mem, size_t len, int flags)
{
return at_recvfrom(s, mem, len, flags, RT_NULL, RT_NULL);
}
int at_sendto(int socket, const void *data, size_t size, int flags, const struct sockaddr *to, socklen_t tolen)
{
struct at_socket *sock = RT_NULL;
int len = 0, result = 0;
2018-07-25 17:31:05 +08:00
if (data == RT_NULL || size == 0)
2018-07-25 17:31:05 +08:00
{
LOG_E("AT sendto input data or size error!");
result = -1;
goto __exit;
}
sock = at_get_socket(socket);
if (sock == RT_NULL)
2018-07-25 17:31:05 +08:00
{
result = -1;
goto __exit;
}
switch (sock->type)
{
case AT_SOCKET_TCP:
if (sock->state == AT_SOCKET_CLOSED)
{
result = 0;
goto __exit;
}
else if (sock->state != AT_SOCKET_CONNECT && sock->state != AT_SOCKET_OPEN)
2018-07-25 17:31:05 +08:00
{
LOG_E("send data error, current socket (%d) state (%d) is error.", socket, sock->state);
result = -1;
goto __exit;
}
if ((len = sock->ops->at_send(sock, (const char *) data, size, sock->type)) < 0)
2018-07-25 17:31:05 +08:00
{
result = -1;
goto __exit;
}
break;
case AT_SOCKET_UDP:
if (to && sock->state == AT_SOCKET_OPEN)
2018-07-25 17:31:05 +08:00
{
ip_addr_t remote_addr;
uint16_t remote_port = 0;
2018-07-25 17:31:05 +08:00
char ipstr[16] = { 0 };
socketaddr_to_ipaddr_port(to, &remote_addr, &remote_port);
ipaddr_to_ipstr(to, ipstr);
if (sock->ops->at_connect(sock, ipstr, remote_port, sock->type, RT_TRUE) < 0)
2018-07-25 17:31:05 +08:00
{
result = -1;
goto __exit;
}
sock->state = AT_SOCKET_CONNECT;
}
if ((len = sock->ops->at_send(sock, (char *) data, size, sock->type)) < 0)
2018-07-25 17:31:05 +08:00
{
result = -1;
goto __exit;
}
break;
default:
LOG_E("Socket (%d) type %d is not support.", socket, sock->type);
result = -1;
goto __exit;
}
__exit:
if (result < 0)
{
2018-12-24 08:31:54 +08:00
if (sock != RT_NULL)
{
2021-03-08 18:19:04 +08:00
at_do_event_changes(sock, AT_EVENT_ERROR, RT_TRUE);
2018-12-24 08:31:54 +08:00
}
2018-07-25 17:31:05 +08:00
}
else
{
result = len;
}
return result;
}
int at_send(int socket, const void *data, size_t size, int flags)
{
return at_sendto(socket, data, size, flags, RT_NULL, 0);
}
int at_getsockopt(int socket, int level, int optname, void *optval, socklen_t *optlen)
{
struct at_socket *sock;
int32_t timeout;
if (optval == RT_NULL || optlen == RT_NULL)
2018-07-25 17:31:05 +08:00
{
LOG_E("AT getsocketopt input option value or option length error!");
return -1;
}
sock = at_get_socket(socket);
if (sock == RT_NULL)
2018-07-25 17:31:05 +08:00
{
return -1;
}
switch (level)
{
case SOL_SOCKET:
switch (optname)
{
case SO_RCVTIMEO:
timeout = sock->recv_timeout;
((struct timeval *)(optval))->tv_sec = (timeout) / 1000U;
((struct timeval *)(optval))->tv_usec = (timeout % 1000U) * 1000U;
break;
case SO_SNDTIMEO:
timeout = sock->send_timeout;
((struct timeval *) optval)->tv_sec = timeout / 1000U;
((struct timeval *) optval)->tv_usec = (timeout % 1000U) * 1000U;
break;
default:
LOG_E("AT socket (%d) not support option name : %d.", socket, optname);
return -1;
}
break;
default:
LOG_E("AT socket (%d) not support option level : %d.", socket, level);
return -1;
}
return 0;
}
int at_setsockopt(int socket, int level, int optname, const void *optval, socklen_t optlen)
{
struct at_socket *sock;
if (optval == RT_NULL)
2018-07-25 17:31:05 +08:00
{
LOG_E("AT setsockopt input option value error!");
return -1;
}
sock = at_get_socket(socket);
if (sock == RT_NULL)
2018-07-25 17:31:05 +08:00
{
return -1;
}
switch (level)
{
case SOL_SOCKET:
switch (optname)
{
case SO_RCVTIMEO:
sock->recv_timeout = ((const struct timeval *) optval)->tv_sec * 1000
+ ((const struct timeval *) optval)->tv_usec / 1000;
break;
case SO_SNDTIMEO:
sock->send_timeout = ((const struct timeval *) optval)->tv_sec * 1000
+ ((const struct timeval *) optval)->tv_usec / 1000;
break;
default:
LOG_E("AT socket (%d) not support option name : %d.", socket, optname);
return -1;
}
break;
case IPPROTO_TCP:
switch (optname)
{
case TCP_NODELAY:
break;
}
break;
default:
LOG_E("AT socket (%d) not support option level : %d.", socket, level);
return -1;
}
return 0;
}
static uint32_t ipstr_atol(const char* nptr)
{
uint32_t total = 0;
char sign = '+';
/* jump space */
while (isspace(*nptr))
{
++nptr;
}
if (*nptr == '-' || *nptr == '+')
{
sign = *nptr++;
}
while (isdigit(*nptr))
{
total = 10 * total + ((*nptr++) - '0');
}
return (sign == '-') ? -total : total;
}
/* IP address to unsigned int type */
static uint32_t ipstr_to_u32(char *ipstr)
{
char ipBytes[4] = { 0 };
uint32_t i;
for (i = 0; i < 4; i++, ipstr++)
{
ipBytes[i] = (char) ipstr_atol(ipstr);
if ((ipstr = strchr(ipstr, '.')) == RT_NULL)
{
break;
}
}
return *(uint32_t *) ipBytes;
}
struct hostent *at_gethostbyname(const char *name)
{
struct at_device *device = RT_NULL;
2021-07-12 18:21:04 +08:00
ip_addr_t addr = {0};
2018-07-25 17:31:05 +08:00
char ipstr[16] = { 0 };
/* buffer variables for at_gethostbyname() */
static struct hostent s_hostent;
static char *s_aliases;
static ip_addr_t s_hostent_addr;
static ip_addr_t *s_phostent_addr[2];
static char s_hostname[DNS_MAX_NAME_LENGTH + 1];
size_t idx = 0;
if (name == RT_NULL)
2018-07-25 17:31:05 +08:00
{
LOG_E("AT gethostbyname input name error!");
return RT_NULL;
}
device = at_device_get_first_initialized();
if (device == RT_NULL)
2018-07-25 17:31:05 +08:00
{
return RT_NULL;
}
for (idx = 0; idx < strlen(name) && !isalpha(name[idx]); idx++);
if (idx < strlen(name))
{
if (device->class->socket_ops->at_domain_resolve(name, ipstr) < 0)
2018-07-25 17:31:05 +08:00
{
return RT_NULL;
}
}
else
{
strncpy(ipstr, name, strlen(name));
}
#if NETDEV_IPV4 && NETDEV_IPV6
2018-07-25 17:31:05 +08:00
addr.u_addr.ip4.addr = ipstr_to_u32(ipstr);
2021-03-08 18:19:04 +08:00
addr.type = IPADDR_TYPE_V4;
#elif NETDEV_IPV4
addr.addr = ipstr_to_u32(ipstr);
#elif NETDEV_IPV6
#error "not support IPV6."
#endif /* NETDEV_IPV4 && NETDEV_IPV6 */
2021-03-08 18:19:04 +08:00
2018-07-25 17:31:05 +08:00
/* fill hostent structure */
s_hostent_addr = addr;
s_phostent_addr[0] = &s_hostent_addr;
s_phostent_addr[1] = RT_NULL;
strncpy(s_hostname, name, DNS_MAX_NAME_LENGTH);
s_hostname[DNS_MAX_NAME_LENGTH] = 0;
s_hostent.h_name = s_hostname;
s_aliases = RT_NULL;
s_hostent.h_aliases = &s_aliases;
s_hostent.h_addrtype = AF_AT;
s_hostent.h_length = sizeof(ip_addr_t);
s_hostent.h_addr_list = (char**) &s_phostent_addr;
return &s_hostent;
}
int at_getaddrinfo(const char *nodename, const char *servname,
const struct addrinfo *hints, struct addrinfo **res)
{
int port_nr = 0;
ip_addr_t addr;
struct addrinfo *ai;
struct sockaddr_storage *sa;
size_t total_size = 0;
size_t namelen = 0;
int ai_family = 0;
struct at_device *device = RT_NULL;
2018-07-25 17:31:05 +08:00
if (res == RT_NULL)
{
return EAI_FAIL;
}
*res = RT_NULL;
device = at_device_get_first_initialized();
if (device == RT_NULL)
2018-07-25 17:31:05 +08:00
{
return EAI_FAIL;
}
2018-07-25 17:31:05 +08:00
if ((nodename == RT_NULL) && (servname == RT_NULL))
{
return EAI_NONAME;
}
if (hints != RT_NULL)
{
ai_family = hints->ai_family;
if (hints->ai_family != AF_AT && hints->ai_family != AF_INET && hints->ai_family != AF_UNSPEC)
{
return EAI_FAMILY;
}
}
if (servname != RT_NULL)
{
/* service name specified: convert to port number */
port_nr = atoi(servname);
if ((port_nr <= 0) || (port_nr > 0xffff))
{
return EAI_SERVICE;
}
}
if (nodename != RT_NULL)
{
/* service location specified, try to resolve */
if ((hints != RT_NULL) && (hints->ai_flags & AI_NUMERICHOST))
{
/* no DNS lookup, just parse for an address string */
if (!inet_aton(nodename, &addr))
2018-07-25 17:31:05 +08:00
{
return EAI_NONAME;
}
if (ai_family == AF_AT || ai_family == AF_INET)
{
return EAI_NONAME;
}
}
else
{
char ip_str[16] = { 0 };
size_t idx = 0;
for (idx = 0; idx < strlen(nodename) && !isalpha(nodename[idx]); idx++);
if(idx < strlen(nodename))
{
if (device->class->socket_ops->at_domain_resolve((char *) nodename, ip_str) != 0)
2018-07-25 17:31:05 +08:00
{
return EAI_FAIL;
}
}
else
{
strncpy(ip_str, nodename, strlen(nodename));
}
2021-03-08 18:19:04 +08:00
#if NETDEV_IPV4 && NETDEV_IPV6
2018-07-25 17:31:05 +08:00
addr.type = IPADDR_TYPE_V4;
if ((addr.u_addr.ip4.addr = ipstr_to_u32(ip_str)) == 0)
{
return EAI_FAIL;
}
#elif NETDEV_IPV4
addr.addr = ipstr_to_u32(ip_str);
#elif NETDEV_IPV6
#error "not support IPV6."
2021-03-08 18:19:04 +08:00
#endif /* NETDEV_IPV4 && NETDEV_IPV6 */
2018-07-25 17:31:05 +08:00
}
}
else
{
/* to do service location specified, use loopback address */
}
total_size = sizeof(struct addrinfo) + sizeof(struct sockaddr_storage);
if (nodename != RT_NULL)
{
namelen = strlen(nodename);
if (namelen > DNS_MAX_NAME_LENGTH)
{
/* invalid name length */
return EAI_FAIL;
}
RT_ASSERT(total_size + namelen + 1 > total_size);
total_size += namelen + 1;
}
/* If this fails, please report to lwip-devel! :-) */
RT_ASSERT(total_size <= sizeof(struct addrinfo) + sizeof(struct sockaddr_storage) + DNS_MAX_NAME_LENGTH + 1);
ai = (struct addrinfo *) rt_malloc(total_size);
if (ai == RT_NULL)
{
return EAI_MEMORY;
}
rt_memset(ai, 0, total_size);
2018-07-25 17:31:05 +08:00
/* cast through void* to get rid of alignment warnings */
sa = (struct sockaddr_storage *) (void *) ((uint8_t *) ai + sizeof(struct addrinfo));
struct sockaddr_in *sa4 = (struct sockaddr_in *) sa;
/* set up sockaddr */
#if NETDEV_IPV4 && NETDEV_IPV6
2018-07-25 17:31:05 +08:00
sa4->sin_addr.s_addr = addr.u_addr.ip4.addr;
sa4->type = IPADDR_TYPE_V4;
#elif NETDEV_IPV4
sa4->sin_addr.s_addr = addr.addr;
#elif NETDEV_IPV6
#error "not support IPV6."
#endif /* NETDEV_IPV4 && NETDEV_IPV6 */
sa4->sin_family = AF_INET;
2018-07-25 17:31:05 +08:00
sa4->sin_len = sizeof(struct sockaddr_in);
sa4->sin_port = htons((uint16_t)port_nr);
ai->ai_family = AF_INET;
2018-07-25 17:31:05 +08:00
/* set up addrinfo */
if (hints != RT_NULL)
{
/* copy socktype & protocol from hints if specified */
ai->ai_socktype = hints->ai_socktype;
ai->ai_protocol = hints->ai_protocol;
}
if (nodename != RT_NULL)
{
/* copy nodename to canonname if specified */
ai->ai_canonname = ((char *) ai + sizeof(struct addrinfo) + sizeof(struct sockaddr_storage));
rt_memcpy(ai->ai_canonname, nodename, namelen);
2018-07-25 17:31:05 +08:00
ai->ai_canonname[namelen] = 0;
}
ai->ai_addrlen = sizeof(struct sockaddr_storage);
ai->ai_addr = (struct sockaddr *) sa;
*res = ai;
return 0;
}
void at_freeaddrinfo(struct addrinfo *ai)
{
struct addrinfo *next;
while (ai != NULL)
2018-07-25 17:31:05 +08:00
{
next = ai->ai_next;
2018-07-25 17:31:05 +08:00
rt_free(ai);
ai = next;
2018-07-25 17:31:05 +08:00
}
}
#endif /* AT_USING_SOCKET */