blob: 727ded3015487c55abb4a6087d1038a9222620ec [file] [log] [blame]
/*
* Copyright (c) 2019 Nordic Semiconductor ASA
*
* SPDX-License-Identifier: Apache-2.0
*/
#include <zephyr/init.h>
#include <zephyr/sys/byteorder.h>
#include <zephyr/bluetooth/bluetooth.h>
#include <zephyr/bluetooth/hci.h>
#include <zephyr/drivers/bluetooth/hci_driver.h>
#include <zephyr/device.h>
#include <zephyr/ipc/ipc_service.h>
#define LOG_LEVEL CONFIG_BT_HCI_DRIVER_LOG_LEVEL
#include <zephyr/logging/log.h>
LOG_MODULE_REGISTER(bt_hci_driver);
#define IPC_CMD 0x01
#define IPC_ACL 0x02
#define IPC_SCO 0x03
#define IPC_EVT 0x04
#define IPC_ISO 0x05
#define IPC_BOUND_TIMEOUT_IN_MS K_MSEC(1000)
static struct ipc_ept hci_ept;
static K_SEM_DEFINE(ipc_bound_sem, 0, 1);
static bool is_hci_event_discardable(const uint8_t *evt_data)
{
uint8_t evt_type = evt_data[0];
switch (evt_type) {
#if defined(CONFIG_BT_CLASSIC)
case BT_HCI_EVT_INQUIRY_RESULT_WITH_RSSI:
case BT_HCI_EVT_EXTENDED_INQUIRY_RESULT:
return true;
#endif
case BT_HCI_EVT_LE_META_EVENT: {
uint8_t subevt_type = evt_data[sizeof(struct bt_hci_evt_hdr)];
switch (subevt_type) {
case BT_HCI_EVT_LE_ADVERTISING_REPORT:
return true;
#if defined(CONFIG_BT_EXT_ADV)
case BT_HCI_EVT_LE_EXT_ADVERTISING_REPORT:
{
const struct bt_hci_evt_le_ext_advertising_report *ext_adv =
(void *)&evt_data[3];
return (ext_adv->num_reports == 1) &&
((ext_adv->adv_info[0].evt_type &
BT_HCI_LE_ADV_EVT_TYPE_LEGACY) != 0);
}
#endif
default:
return false;
}
}
default:
return false;
}
}
static struct net_buf *bt_ipc_evt_recv(const uint8_t *data, size_t remaining)
{
bool discardable;
struct bt_hci_evt_hdr hdr;
struct net_buf *buf;
size_t buf_tailroom;
if (remaining < sizeof(hdr)) {
LOG_ERR("Not enough data for event header");
return NULL;
}
discardable = is_hci_event_discardable(data);
memcpy((void *)&hdr, data, sizeof(hdr));
data += sizeof(hdr);
remaining -= sizeof(hdr);
if (remaining != hdr.len) {
LOG_ERR("Event payload length is not correct");
return NULL;
}
LOG_DBG("len %u", hdr.len);
do {
buf = bt_buf_get_evt(hdr.evt, discardable, discardable ? K_NO_WAIT : K_SECONDS(10));
if (!buf) {
if (discardable) {
LOG_DBG("Discardable buffer pool full, ignoring event");
return buf;
}
LOG_WRN("Couldn't allocate a buffer after waiting 10 seconds.");
}
} while (!buf);
net_buf_add_mem(buf, &hdr, sizeof(hdr));
buf_tailroom = net_buf_tailroom(buf);
if (buf_tailroom < remaining) {
LOG_ERR("Not enough space in buffer %zu/%zu", remaining, buf_tailroom);
net_buf_unref(buf);
return NULL;
}
net_buf_add_mem(buf, data, remaining);
return buf;
}
static struct net_buf *bt_ipc_acl_recv(const uint8_t *data, size_t remaining)
{
struct bt_hci_acl_hdr hdr;
struct net_buf *buf;
size_t buf_tailroom;
if (remaining < sizeof(hdr)) {
LOG_ERR("Not enough data for ACL header");
return NULL;
}
buf = bt_buf_get_rx(BT_BUF_ACL_IN, K_NO_WAIT);
if (buf) {
memcpy((void *)&hdr, data, sizeof(hdr));
data += sizeof(hdr);
remaining -= sizeof(hdr);
net_buf_add_mem(buf, &hdr, sizeof(hdr));
} else {
LOG_ERR("No available ACL buffers!");
return NULL;
}
if (remaining != sys_le16_to_cpu(hdr.len)) {
LOG_ERR("ACL payload length is not correct");
net_buf_unref(buf);
return NULL;
}
buf_tailroom = net_buf_tailroom(buf);
if (buf_tailroom < remaining) {
LOG_ERR("Not enough space in buffer %zu/%zu", remaining, buf_tailroom);
net_buf_unref(buf);
return NULL;
}
LOG_DBG("len %u", remaining);
net_buf_add_mem(buf, data, remaining);
return buf;
}
static struct net_buf *bt_ipc_iso_recv(const uint8_t *data, size_t remaining)
{
struct bt_hci_iso_hdr hdr;
static size_t fail_cnt;
struct net_buf *buf;
size_t buf_tailroom;
if (remaining < sizeof(hdr)) {
LOG_ERR("Not enough data for ISO header");
return NULL;
}
buf = bt_buf_get_rx(BT_BUF_ISO_IN, K_NO_WAIT);
if (buf) {
memcpy((void *)&hdr, data, sizeof(hdr));
data += sizeof(hdr);
remaining -= sizeof(hdr);
net_buf_add_mem(buf, &hdr, sizeof(hdr));
fail_cnt = 0U;
} else {
if ((fail_cnt % 100U) == 0U) {
LOG_ERR("No available ISO buffers (%zu)!", fail_cnt);
}
fail_cnt++;
return NULL;
}
if (remaining != bt_iso_hdr_len(sys_le16_to_cpu(hdr.len))) {
LOG_ERR("ISO payload length is not correct");
net_buf_unref(buf);
return NULL;
}
buf_tailroom = net_buf_tailroom(buf);
if (buf_tailroom < remaining) {
LOG_ERR("Not enough space in buffer %zu/%zu", remaining, buf_tailroom);
net_buf_unref(buf);
return NULL;
}
LOG_DBG("len %zu", remaining);
net_buf_add_mem(buf, data, remaining);
return buf;
}
static void bt_ipc_rx(const uint8_t *data, size_t len)
{
uint8_t pkt_indicator;
struct net_buf *buf = NULL;
size_t remaining = len;
LOG_HEXDUMP_DBG(data, len, "ipc data:");
pkt_indicator = *data++;
remaining -= sizeof(pkt_indicator);
switch (pkt_indicator) {
case IPC_EVT:
buf = bt_ipc_evt_recv(data, remaining);
break;
case IPC_ACL:
buf = bt_ipc_acl_recv(data, remaining);
break;
case IPC_ISO:
buf = bt_ipc_iso_recv(data, remaining);
break;
default:
LOG_ERR("Unknown HCI type %u", pkt_indicator);
return;
}
if (buf) {
LOG_DBG("Calling bt_recv(%p)", buf);
bt_recv(buf);
LOG_HEXDUMP_DBG(buf->data, buf->len, "RX buf payload:");
}
}
static int bt_ipc_send(struct net_buf *buf)
{
int err;
uint8_t pkt_indicator;
LOG_DBG("buf %p type %u len %u", buf, bt_buf_get_type(buf), buf->len);
switch (bt_buf_get_type(buf)) {
case BT_BUF_ACL_OUT:
pkt_indicator = IPC_ACL;
break;
case BT_BUF_CMD:
pkt_indicator = IPC_CMD;
break;
case BT_BUF_ISO_OUT:
pkt_indicator = IPC_ISO;
break;
default:
LOG_ERR("Unknown type %u", bt_buf_get_type(buf));
goto done;
}
net_buf_push_u8(buf, pkt_indicator);
LOG_HEXDUMP_DBG(buf->data, buf->len, "Final HCI buffer:");
err = ipc_service_send(&hci_ept, buf->data, buf->len);
if (err < 0) {
LOG_ERR("Failed to send (err %d)", err);
}
done:
net_buf_unref(buf);
return 0;
}
static void hci_ept_bound(void *priv)
{
k_sem_give(&ipc_bound_sem);
}
static void hci_ept_recv(const void *data, size_t len, void *priv)
{
bt_ipc_rx(data, len);
}
static struct ipc_ept_cfg hci_ept_cfg = {
.name = "nrf_bt_hci",
.cb = {
.bound = hci_ept_bound,
.received = hci_ept_recv,
},
};
int __weak bt_hci_transport_setup(const struct device *dev)
{
ARG_UNUSED(dev);
return 0;
}
int __weak bt_hci_transport_teardown(const struct device *dev)
{
ARG_UNUSED(dev);
return 0;
}
static int bt_ipc_open(void)
{
int err;
const struct device *hci_ipc_instance =
DEVICE_DT_GET(DT_CHOSEN(zephyr_bt_hci_ipc));
err = bt_hci_transport_setup(NULL);
if (err) {
LOG_ERR("HCI transport setup failed with: %d\n", err);
return err;
}
LOG_DBG("");
err = ipc_service_open_instance(hci_ipc_instance);
if (err && (err != -EALREADY)) {
LOG_ERR("IPC service instance initialization failed: %d\n", err);
return err;
}
err = ipc_service_register_endpoint(hci_ipc_instance, &hci_ept, &hci_ept_cfg);
if (err) {
LOG_ERR("Registering endpoint failed with %d", err);
return err;
}
err = k_sem_take(&ipc_bound_sem, IPC_BOUND_TIMEOUT_IN_MS);
if (err) {
LOG_ERR("Endpoint binding failed with %d", err);
return err;
}
return 0;
}
static int bt_ipc_close(void)
{
int err;
if (IS_ENABLED(CONFIG_BT_HCI_HOST)) {
err = bt_hci_cmd_send_sync(BT_HCI_OP_RESET, NULL, NULL);
if (err) {
LOG_ERR("Sending reset command failed with: %d", err);
return err;
}
}
err = ipc_service_deregister_endpoint(&hci_ept);
if (err) {
LOG_ERR("Deregistering HCI endpoint failed with: %d", err);
return err;
}
const struct device *hci_ipc_instance =
DEVICE_DT_GET(DT_CHOSEN(zephyr_bt_hci_ipc));
err = ipc_service_close_instance(hci_ipc_instance);
if (err) {
LOG_ERR("Closing IPC service failed with: %d", err);
return err;
}
err = bt_hci_transport_teardown(NULL);
if (err) {
LOG_ERR("HCI transport teardown failed with: %d", err);
return err;
}
return 0;
}
static const struct bt_hci_driver drv = {
.name = "IPC",
.open = bt_ipc_open,
.close = bt_ipc_close,
.send = bt_ipc_send,
.bus = BT_HCI_DRIVER_BUS_IPM,
#if defined(CONFIG_BT_DRIVER_QUIRK_NO_AUTO_DLE)
.quirks = BT_QUIRK_NO_AUTO_DLE,
#endif
};
static int bt_ipc_init(void)
{
int err;
err = bt_hci_driver_register(&drv);
if (err < 0) {
LOG_ERR("Failed to register BT HIC driver (err %d)", err);
}
return err;
}
SYS_INIT(bt_ipc_init, POST_KERNEL, CONFIG_KERNEL_INIT_PRIORITY_DEVICE);